projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
&optional and &key supplied-p arguments in boa-constuctors
[sbcl.git]
/
src
/
code
/
defstruct.lisp
diff --git
a/src/code/defstruct.lisp
b/src/code/defstruct.lisp
index
0f25b5d
..
27722b0
100644
(file)
--- 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
(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)))))
(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)
(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
(do-default key t))))
(when allowp