fix array declaration: (type (simple-array fixnum *) counts) -> (type…

… (simple-array fixnum (*)) counts)
slyrus · Mar 28, 2011 · 5519c48 · 5519c48
1 parent b0fed6a
commit 5519c48
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/cluster.lisp b/cluster.lisp
@@ -111,7 +111,7 @@
          (flet ((recompute-means ()
                   (declare (type 8-bit-rgb-image image)
                            (type (simple-array fixnum (* *)) z)
-                           (type (simple-array fixnum *) counts)
+                           (type (simple-array fixnum (*)) counts)
                            (optimize (speed 3)))
                   ;; clear out the old values
                   (dotimes (q k)