X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-extensions.lisp;h=5163fe16b0b9d0698aa284b8b7e6796974f244eb;hb=acce826c593a188b231b7b7918c752bda21d0201;hp=c342e862ddfbbbfff11fa6ee7f4089664d38f134;hpb=1bbb76fcfb9baddf0dc96412c87575d8aeb69c6d;p=sbcl.git

diff --git a/src/code/early-extensions.lisp b/src/code/early-extensions.lisp
index c342e86..5163fe1 100644
--- a/src/code/early-extensions.lisp
+++ b/src/code/early-extensions.lisp
@@ -633,8 +633,7 @@
   (cond ((symbolp fun-name)
 	 fun-name)
 	((and (consp fun-name)
-	      (= (length fun-name) 2)
-	      (eq (first fun-name) 'setf))
+	      (legal-fun-name-p fun-name))
 	 (second fun-name))
 	(t
 	 (error "not legal as a function name: ~S" fun-name))))