projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.0.2:
[sbcl.git]
/
src
/
pcl
/
walk.lisp
diff --git
a/src/pcl/walk.lisp
b/src/pcl/walk.lisp
index
05d7f51
..
39beb2e
100644
(file)
--- a/
src/pcl/walk.lisp
+++ b/
src/pcl/walk.lisp
@@
-487,10
+487,7
@@
(set
(walk-form-internal form :set env))
((lambda call)
(set
(walk-form-internal form :set env))
((lambda call)
- (cond ((or (symbolp form)
- (and (listp form)
- (= (length form) 2)
- (eq (car form) 'setf)))
+ (cond ((legal-fun-name-p form)
form)
(t (walk-form-internal form context env)))))
(case (car template)
form)
(t (walk-form-internal form context env)))))
(case (car template)