X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-setf.lisp;h=ddd47550aca2dc962c3043553d837bbad264aab6;hb=2c5a710f4da100f8aa9c7262fa76395f73ee4307;hp=da208b92d6a0861d495488baa42cc8ef64e34932;hpb=08d05510b51708853ca998154d8096b21d85edab;p=sbcl.git

diff --git a/src/code/early-setf.lisp b/src/code/early-setf.lisp
index da208b9..ddd4755 100644
--- a/src/code/early-setf.lisp
+++ b/src/code/early-setf.lisp
@@ -393,7 +393,7 @@ GET-SETF-EXPANSION directly."
   #!+sb-doc
   "Associates a SETF update function or macro with the specified access
   function or macro. The format is complex. See the manual for details."
-  (cond ((not (listp (car rest)))
+  (cond ((and (not (listp (car rest))) (symbolp (car rest)))
          `(eval-when (:load-toplevel :compile-toplevel :execute)
             (assign-setf-macro ',access-fn
                                nil