X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdefstruct.lisp;h=76f3c83e49cf19f35a801174c28f037e7b494ee0;hb=65b5ab7e713d04e0d76bc0ee196374f6e57b922f;hp=a7dfff4f7effe96bc5ef5c9619b971cf00612e84;hpb=08d05510b51708853ca998154d8096b21d85edab;p=sbcl.git

diff --git a/src/code/defstruct.lisp b/src/code/defstruct.lisp
index a7dfff4..76f3c83 100644
--- a/src/code/defstruct.lisp
+++ b/src/code/defstruct.lisp
@@ -1535,12 +1535,12 @@
         (when auxp
           (arglist '&aux)
           (dolist (arg aux)
-            (arglist arg)
             (if (proper-list-of-length-p arg 2)
-              (let ((var (first arg)))
-                (vars var)
-                (types (get-slot var)))
-              (skipped-vars (if (consp arg) (first arg) arg))))))
+                (let ((var (first arg)))
+                  (arglist arg)
+                  (vars var)
+                  (types (get-slot var)))
+                (skipped-vars (if (consp arg) (first arg) arg))))))
 
       (funcall creator defstruct (first boa)
                (arglist) (vars) (types)