X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ffunction-names.lisp;h=0f0f743e9058e77d1cb5103c486306a63887c1c4;hb=69d60b456b07a0256f08df0d02484f361ce5737c;hp=405916db5b77c05194c948f4689c8ed81f99d6f3;hpb=bd0ba0f214518e8d72ff2d44de5a1e3e4b02af2c;p=sbcl.git

diff --git a/src/code/function-names.lisp b/src/code/function-names.lisp
index 405916d..0f0f743 100644
--- a/src/code/function-names.lisp
+++ b/src/code/function-names.lisp
@@ -44,7 +44,8 @@ use as a BLOCK name in the function in question."
     (otherwise nil)))
 
 (define-function-name-syntax setf (name)
-  (when (cdr name)
+  (when (and (cdr name)
+	     (consp (cdr name)))
     (destructuring-bind (fun &rest rest) (cdr name)
       (when (null rest)
 	(typecase fun