X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-type.lisp;h=fcbc47983a1f2eb1d57b5442e0dae255e1b75b3f;hb=f143939b1dbaf38ebd4f92c851fbc4ecddf37af1;hp=d08beccc677987d590dd25c5207db5a8422cdcd9;hpb=be9eb6c67b5f43a095c3de17bea945c309d662e4;p=sbcl.git

diff --git a/src/code/target-type.lisp b/src/code/target-type.lisp
index d08becc..fcbc479 100644
--- 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))))
 
 ;;;; miscellaneous interfaces