X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdefstruct.lisp;h=27722b030bafba6e79c040b5ea4fb1b5f50977ef;hb=fb24d88c8f97f1b344addab398fc54f62d8aa4ce;hp=0f25b5dff919d5141b9ecc7bd160bc06e719a86e;hpb=2fdd5c9276ba68458e1186c8ae3b7b5a42729a6f;p=sbcl.git

diff --git a/src/code/defstruct.lisp b/src/code/defstruct.lisp
index 0f25b5d..27722b0 100644
--- a/src/code/defstruct.lisp
+++ b/src/code/defstruct.lisp
@@ -1542,7 +1542,9 @@
                          arg
                        (arglist `(,name ,def ,@(if supplied-test-p `(,supplied-test) nil)))
                        (vars name)
-                       (arg-type (get-slot name))))
+                       (arg-type (get-slot name))
+                       (when supplied-test-p
+                         (vars supplied-test))))
                     (t
                      (do-default arg)))))
 
@@ -1573,7 +1575,9 @@
                         (arglist `(,wot ,(if def-p def slot-def)
                                         ,@(if supplied-test-p `(,supplied-test) nil)))
                         (vars name)
-                        (arg-type type key name))))
+                        (arg-type type key name)
+                        (when supplied-test-p
+                          (vars supplied-test)))))
                   (do-default key t))))
 
           (when allowp