0.9.18.68:

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

diff --git a/src/code/target-misc.lisp b/src/code/target-misc.lisp
index 9333563..feb1cf5 100644 (file)
--- a/src/code/target-misc.lisp
+++ b/src/code/target-misc.lisp
@@ -33,7 +33,7 @@
        (values `(lambda ,lambda-list ,@body)
                t name)))
     (function
-     (let* ((fun (%simple-fun-self fun))
+     (let* ((fun (%simple-fun-self (%fun-fun fun)))
             (name (%fun-name fun))
             (code (sb!di::fun-code-header fun))
             (info (sb!kernel:%code-debug-info code)))