X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fwalk.lisp;h=39beb2e3ce4fca980fff3bc6f746d2d4fbdbea9b;hb=bd0ba0f214518e8d72ff2d44de5a1e3e4b02af2c;hp=05d7f511d01909efca1038eb3c529f356b17bf7f;hpb=eadecfd6fd102f5c8eda32770153ceed2f9f3b70;p=sbcl.git

diff --git a/src/pcl/walk.lisp b/src/pcl/walk.lisp
index 05d7f51..39beb2e 100644
--- 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)