X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-misc.lisp;h=feb1cf558e2a71a798fb4ad2cf555343703ad2fc;hb=25fe91bf63fd473d9316675b0e0ca9be0079e9eb;hp=9333563dfad5e1a99894c02585ab924533197a73;hpb=94284af2ff059b0d83d891fb9903f182db6751af;p=sbcl.git

diff --git a/src/code/target-misc.lisp b/src/code/target-misc.lisp
index 9333563..feb1cf5 100644
--- 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)))