X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-type.lisp;h=665b45367d3b8f73fd3f481367e7681ce133e751;hb=bfb19d306581ac86feb4371846c4b9953d692dd8;hp=4ae6003f3ff8c9d7819d599f96fbbd8d2125fabc;hpb=dbfdac9e56e044b1df898bcb7e1763997b03efa2;p=sbcl.git

diff --git a/src/code/target-type.lisp b/src/code/target-type.lisp
index 4ae6003..665b453 100644
--- a/src/code/target-type.lisp
+++ b/src/code/target-type.lisp
@@ -143,10 +143,6 @@
   "Return the class of the supplied object, which may be any Lisp object, not
    just a CLOS STANDARD-OBJECT."
   (layout-classoid (layout-of object)))
-
-;;; Pull the type specifier out of a function object.
-(defun extract-fun-type (fun)
-  (specifier-type (%simple-fun-type (%closure-fun fun))))
 
 ;;;; miscellaneous interfaces
 
@@ -182,7 +178,7 @@
     (function
      (if (funcallable-instance-p x)
          (classoid-of x)
-         (extract-fun-type x)))
+         (specifier-type (sb!impl::%fun-type x))))
     (symbol
      (make-member-type :members (list x)))
     (number