X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcoerce.lisp;h=98d0a2977c744edfd5d6f2136c4bbf53c8b0e4b3;hb=409c08485fd358c78107d91f9e3aec4d17b3fd0d;hp=0d1dcff1ac2fbf7984f1c6b717ff5de558022a8c;hpb=0c7ffa8fb85a94482814835c9f28abfd0400ab99;p=sbcl.git

diff --git a/src/code/coerce.lisp b/src/code/coerce.lisp
index 0d1dcff..98d0a29 100644
--- a/src/code/coerce.lisp
+++ b/src/code/coerce.lisp
@@ -166,6 +166,11 @@
 		    (not (fboundp object)))
 	   (error 'simple-type-error
 		  :datum object
+		  ;; FIXME: SATISFIES FBOUNDP is a kinda bizarre broken
+		  ;; type specifier, since the set of values it describes
+		  ;; isn't in general constant in time. Maybe we could
+		  ;; find a better way of expressing this error? (Maybe
+		  ;; with the UNDEFINED-FUNCTION condition?)
 		  :expected-type '(satisfies fboundp)
 	       :format-control "~S isn't fbound."
 	       :format-arguments (list object)))