add assert
Fri Feb 12 06:08:23 PST 2010 tomi.borbely@gmail.com
* add assert
diff -rN -u old-cl-perec/dimensional/store.lisp new-cl-perec/dimensional/store.lisp
--- old-cl-perec/dimensional/store.lisp 2014-08-01 06:58:01.000000000 -0700
+++ new-cl-perec/dimensional/store.lisp 2014-08-01 06:58:01.000000000 -0700
@@ -645,6 +645,7 @@
;;;
(def function iterate-with-enumerated-coordinate-sets (function dimensions coordinates)
"FUNCTION accepts a coordinate list when each coordinate belongs to an enumerated dimension contains only one value. COORDINATES may contain a set of values in these dimensions, the FUNCTION will be called with each value."
+ (assert (length= dimensions coordinates))
(labels ((recurse (remaining-dimensions remaining-coordinates &optional accumulator)
(cond
((null remaining-dimensions)