X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcoerce.lisp;h=1d05f63ac2502cf3b2e17919ec9fe35bf5b1d452;hb=2db3b6b4cb740d5b6512459c223859f747807b09;hp=ab0d6676d011ae6869557986b4d40270f5232b50;hpb=fcde5281a74cb29e21550f4f979ad6356f149ab9;p=sbcl.git

diff --git a/src/code/coerce.lisp b/src/code/coerce.lisp
index ab0d667..1d05f63 100644
--- a/src/code/coerce.lisp
+++ b/src/code/coerce.lisp
@@ -117,10 +117,7 @@
 	 (character object))
 	((csubtypep type (specifier-type 'function))
 	 #!+high-security
-	 (when (and (or (symbolp object)
-			(and (listp object)
-			     (= (length object) 2)
-			     (eq (car object) 'setf)))
+	 (when (and (legal-fun-name-p object)
 		    (not (fboundp object)))
 	   (error 'simple-type-error
 		  :datum object