X-Git-Url: https://git.distorted.org.uk/~mdw/lisp/blobdiff_plain/a721f2f26b71a60ee0aebb9c7d28f06c593ef2e4..8a2e8de1d736200d9aa751b85d5f97af33b91150:/collect.lisp

diff --git a/collect.lisp b/collect.lisp
index 946ba91..219f351 100644
--- a/collect.lisp
+++ b/collect.lisp
@@ -45,7 +45,7 @@
 	((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