# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1526944087 14400
# Node ID 30327aad2f0881dce41207197231abf61a8d7d22
# Parent  5e92a2e5cf4991291e4e7738bc21e5114e1255c4
Minor updates from blog post

diff -r 5e92a2e5cf49 -r 30327aad2f08 losh.lisp
--- 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))))