X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Flate-type.lisp;h=b253984659c9c66d8beaee8adaf52d5a1e6ece47;hb=447477e72bd4fe54e678a28bdcc4a2802797d6ed;hp=e1d2e25728c6539fbbfee79dc6c2e466f379e887;hpb=d052cf55544eb8c251146457d9245e8610e0a8f2;p=sbcl.git

diff --git a/src/code/late-type.lisp b/src/code/late-type.lisp
index e1d2e25..b253984 100644
--- a/src/code/late-type.lisp
+++ b/src/code/late-type.lisp
@@ -2659,7 +2659,7 @@ used for a COMPLEX component.~:@>"
 ;;; mechanically unparsed.
 (!define-type-method (intersection :unparse) (type)
   (declare (type ctype type))
-  (or (find type '(ratio keyword) :key #'specifier-type :test #'type=)
+  (or (find type '(ratio keyword compiled-function) :key #'specifier-type :test #'type=)
       `(and ,@(mapcar #'type-specifier (intersection-type-types type)))))
 
 ;;; shared machinery for type equality: true if every type in the set