projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
1.0.41.47: (EXPT 0.0 0.0) and (EXPT 0 0.0) to signal an error
[sbcl.git]
/
src
/
code
/
parse-defmacro.lisp
diff --git
a/src/code/parse-defmacro.lisp
b/src/code/parse-defmacro.lisp
index
8fb6d8c
..
0058522
100644
(file)
--- a/
src/code/parse-defmacro.lisp
+++ b/
src/code/parse-defmacro.lisp
@@
-321,8
+321,7
@@
:maximum ,explicit-maximum))))))
*arg-tests*))
(when key-seen
- (let ((problem (gensym "KEY-PROBLEM-"))
- (info (gensym "INFO-")))
+ (with-unique-names (problem info)
(push `(multiple-value-bind (,problem ,info)
(verify-keywords ,rest-name
',keys