Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

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

… (simple-array fixnum (*)) counts)
  • Loading branch information...
commit 5519c48e3a8891125c1cced4f8e6e18bc22fdbd9 1 parent b0fed6a
@slyrus authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  cluster.lisp
View
2  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)
Please sign in to comment.
Something went wrong with that request. Please try again.