[imago-cvs] CVS imago/src

[lsmith]

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))