X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-type.lisp;h=e561d872b6cf00a2c8adfd12a2fa51bb88d0cdce;hb=caf8bb05a82659e688c125b418783bc8a3bd2be8;hp=d024ace63c366868eb133fcb6a922f0f8fe15260;hpb=0009bbcdd02c9bd8c8db09d4a23b8de338ae24d0;p=sbcl.git

diff --git a/src/code/target-type.lisp b/src/code/target-type.lisp
index d024ace..e561d87 100644
--- a/src/code/target-type.lisp
+++ b/src/code/target-type.lisp
@@ -151,7 +151,7 @@
 		   csubtypep-cache-clear
 		   type-intersection2-cache-clear
 		   values-type-intersection-cache-clear))
-      (funcall (symbol-function sym))))
+      (funcall (the function (symbol-function sym)))))
   (values))
 
 ;;; This is like TYPE-OF, only we return a CTYPE structure instead of