0.pre7.55:

[sbcl.git] / src / code / target-type.lisp

diff --git a/src/code/target-type.lisp b/src/code/target-type.lisp
index d08becc..fcbc479 100644 (file)
--- a/src/code/target-type.lisp
+++ b/src/code/target-type.lisp
@@ -128,7 +128,7 @@
 
 ;;; Pull the type specifier out of a function object.
 (defun extract-fun-type (fun)
-  (specifier-type (%fun-type (%closure-function fun))))
+  (specifier-type (%simple-fun-type (%closure-fun fun))))
 \f
 ;;;; miscellaneous interfaces