Permalink
Browse files

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

… (simple-array fixnum (*)) counts)
  • Loading branch information...
1 parent b0fed6a commit 5519c48e3a8891125c1cced4f8e6e18bc22fdbd9 @slyrus slyrus committed Mar 28, 2011
Showing with 1 addition and 1 deletion.
  1. +1 −1 cluster.lisp
View
@@ -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)

0 comments on commit 5519c48

Please sign in to comment.