0.9.2.7:

[sbcl.git] / src / code / function-names.lisp

diff --git a/src/code/function-names.lisp b/src/code/function-names.lisp
index 405916d..0f0f743 100644 (file)
--- 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