0.9.16.27:

[sbcl.git] / src / code / deftypes-for-target.lisp

diff --git a/src/code/deftypes-for-target.lisp b/src/code/deftypes-for-target.lisp
index 7c8fe9a..8a066f5 100644 (file)
--- a/src/code/deftypes-for-target.lisp
+++ b/src/code/deftypes-for-target.lisp
@@ -56,7 +56,8 @@
 
 (sb!xc:deftype bit () '(integer 0 1))
 
-(sb!xc:deftype compiled-function () 'function)
+(sb!xc:deftype compiled-function ()
+  '(and function #!+sb-eval (not sb!eval:interpreted-function)))
 
 (sb!xc:deftype atom () '(not cons))