Merge pull request #1 from eriedaberrie/fix-nreverse-in-macro

Avoid calling nreverse on macro argument

Author: cxxxr

src/helpers.lisp

@@ -18,10 +18,10 @@
   (let ((pack (gensym "PACK"))
         (value (gensym "VALUE")))
     `(let ((,pack nil) (,value ,bitwise))
-       ,@(mapcar (lambda (pair)
-                   `(when (plusp (logand ,(first pair) ,value))
-                      (push ',(second pair) ,pack)))
-                 (nreverse pairs))
+       ,@(nreverse (mapcar (lambda (pair)
+                             `(when (plusp (logand ,(first pair) ,value))
+                                (push ',(second pair) ,pack)))
+                           pairs))
        ,pack)))
 
 (defmacro pack-to-bitwise (packed &body pairs)