BUGFIX: fixed bug in fvec #'add found by Stephen A. Goss

ks · Jun 17, 2012 · 0723fd1 · 0723fd1
1 parent 6adf239
commit 0723fd1
Showing 1 changed file with 8 additions and 7 deletions.
diff --git a/src/vec-ctx.lisp b/src/vec-ctx.lisp
@@ -545,13 +545,14 @@
                         (multiple-value-setq (chunk-idxs idxs)
                           (chunk-indexes chunk-id idxs))
                         (let ((start 0))
-                          (loop :for idx :in chunk-idxs
-                                :for val* :on vals
-                                :do (let ((val (car val*)))
-                                      (copy chunk start idx)
-                                      (push-val val)
-                                      (setf start idx))
-                                :finally (setf vals (cdr val*)))
+                          (when chunk-idxs
+                            (loop :for idx :in chunk-idxs
+                                  :for val* :on vals
+                                  :do (let ((val (car val*)))
+                                        (copy chunk start idx)
+                                        (push-val val)
+                                        (setf start idx))
+                                  :finally (setf vals (cdr val*))))
                           (copy chunk start (length chunk))))
                        (t
                         (copy chunk 0 (length chunk))))))