30327aad2f08

--- a/losh.lisp	Sun May 20 17:07:05 2018 -0400
+++ b/losh.lisp	Mon May 21 19:08:07 2018 -0400
@@ -547,8 +547,8 @@
   (with-gensyms (result)
     `(let ((,result (make-queue)))
       (flet ((gather (item)
-               (enqueue item ,result)))
-        (declare (dynamic-extent #'gather))
+               (enqueue item ,result)
+               item))
         ,@body)
       (queue-contents ,result))))
 
@@ -588,8 +588,8 @@
       `(let ((,result (make-array ,size :adjustable t :fill-pointer 0
                                   :element-type ,element-type)))
          (flet ((gather (item)
-                  (vector-push-extend item ,result)))
-           (declare (dynamic-extent #'gather))
+                  (vector-push-extend item ,result)
+                  item))
            ,@body)
          ,result))))