Update of /project/imago/cvsroot/imago/src In directory clnet:/tmp/cvs-serv10850 Modified Files: image.lisp Log Message: Added declaration to stop SBCL complaining about colour-count type --- /project/imago/cvsroot/imago/src/image.lisp 2006/06/03 06:59:55 1.4 +++ /project/imago/cvsroot/imago/src/image.lisp 2006/09/28 20:55:47 1.5 @@ -109,7 +109,8 @@ (defmethod initialize-instance :after ((image indexed-image) &rest initargs &key width height pixels colormap (color-count 256)) - (declare (ignore initargs)) + (declare (ignore initargs) + (type fixnum color-count)) (cond ((not (null colormap)) (setf (slot-value image 'colormap) colormap)) ((and (numberp color-count) (<= color-count 256))