X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-misc.lisp;h=a64153827372e1c07a80eef19200e6370c7ebde5;hb=85483d976cc2d779493985f77f39efefb2ea622b;hp=8363d7f5d4f3684e9feac27673e3f5a35dd48de0;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git

diff --git a/src/code/target-misc.lisp b/src/code/target-misc.lisp
index 8363d7f..a641538 100644
--- a/src/code/target-misc.lisp
+++ b/src/code/target-misc.lisp
@@ -53,7 +53,7 @@
     (#.sb!vm:closure-header-widetag
      (%closure-fun function))
     (#.sb!vm:funcallable-instance-header-widetag
-     (funcallable-instance-fun function))))
+     (%fun-fun (funcallable-instance-fun function)))))
 
 (defun %closure-values (object)
   (declare (function object))