0.7.12.38:

[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)
-        (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)