projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.0.8:
[sbcl.git]
/
src
/
code
/
early-setf.lisp
diff --git
a/src/code/early-setf.lisp
b/src/code/early-setf.lisp
index
c55cf6a
..
ee7cc7d
100644
(file)
--- a/
src/code/early-setf.lisp
+++ b/
src/code/early-setf.lisp
@@
-393,12
+393,12
@@
GET-SETF-EXPANSION directly."
(destructuring-bind
(lambda-list (&rest store-variables) &body body)
rest
(destructuring-bind
(lambda-list (&rest store-variables) &body body)
rest
- (let ((arglist-var (gensym "ARGS-"))
+ (let ((whole-var (gensym "WHOLE-"))
(access-form-var (gensym "ACCESS-FORM-"))
(env-var (gensym "ENVIRONMENT-")))
(multiple-value-bind (body local-decs doc)
(parse-defmacro `(,lambda-list ,@store-variables)
(access-form-var (gensym "ACCESS-FORM-"))
(env-var (gensym "ENVIRONMENT-")))
(multiple-value-bind (body local-decs doc)
(parse-defmacro `(,lambda-list ,@store-variables)
- arglist-var body access-fn 'defsetf
+ whole-var body access-fn 'defsetf
:anonymousp t)
`(eval-when (:compile-toplevel :load-toplevel :execute)
(assign-setf-macro
:anonymousp t)
`(eval-when (:compile-toplevel :load-toplevel :execute)
(assign-setf-macro
@@
-406,7
+406,7
@@
GET-SETF-EXPANSION directly."
(lambda (,access-form-var ,env-var)
(declare (ignore ,env-var))
(%defsetf ,access-form-var ,(length store-variables)
(lambda (,access-form-var ,env-var)
(declare (ignore ,env-var))
(%defsetf ,access-form-var ,(length store-variables)
- (lambda (,arglist-var)
+ (lambda (,whole-var)
,@local-decs
,body)))
nil
,@local-decs
,body)))
nil