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

diff --git a/src/code/coerce.lisp b/src/code/coerce.lisp
index ab0d667..f1dca41 100644
--- a/src/code/coerce.lisp
+++ b/src/code/coerce.lisp
@@ -116,11 +116,7 @@
 	((csubtypep type (specifier-type 'character))
 	 (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
@@ -132,7 +128,6 @@
 		  :expected-type '(satisfies fboundp)
 	       :format-control "~S isn't fbound."
 	       :format-arguments (list object)))
-	 #!+high-security
 	 (when (and (symbolp object)
 		    (sb!xc:macro-function object))
 	   (error 'simple-type-error
@@ -140,7 +135,6 @@
 		  :expected-type '(not (satisfies sb!xc:macro-function))
 		  :format-control "~S is a macro."
 		  :format-arguments (list object)))
-	 #!+high-security
 	 (when (and (symbolp object)
 		    (special-operator-p object))
 	   (error 'simple-type-error