Merge branch 'master' of git+ssh://guvnor.distorted.org.uk/~mdw/src/lisp

[lisp] / collect.lisp

diff --git a/collect.lisp b/collect.lisp
index 946ba916257b253cb413c300eac350c25c1a7075..219f3514f95fc0699bc941a1aeeb8729f80f6f22 100644 (file)
--- a/collect.lisp
+++ b/collect.lisp
@@ -45,7 +45,7 @@ (defmacro collecting (vars &body body)
        ((atom vars) (setf vars (list vars))))
   `(let ,(mapcar (lambda (v) `(,v (make-collector))) vars)
      ,@body
        ((atom vars) (setf vars (list vars))))
   `(let ,(mapcar (lambda (v) `(,v (make-collector))) vars)
      ,@body

-     (values ,@(mapcar (lambda (v) `(cdr ,v)) vars))))
+     (values ,@(mapcar (lambda (v) `(the list (cdr ,v))) vars))))

 
 (defmacro with-collection (vars collection &body body)
   "Collect items into lists VARS according to the form COLLECTION; then
 
 (defmacro with-collection (vars collection &body body)
   "Collect items into lists VARS according to the form COLLECTION; then