X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Feval.lisp;h=3e301286fd6f35b57338cd69b08bc97d3c421786;hb=f143939b1dbaf38ebd4f92c851fbc4ecddf37af1;hp=36531a5d3c3e70075b7b2fa8f380a590a0da0fa8;hpb=dec94b039e8ec90baf21463df839a6181de606f6;p=sbcl.git

diff --git a/src/code/eval.lisp b/src/code/eval.lisp
index 36531a5..3e30128 100644
--- a/src/code/eval.lisp
+++ b/src/code/eval.lisp
@@ -164,9 +164,9 @@
   might have been enclosed in some non-null lexical environment, and
   NAME is some name (for debugging only) or NIL if there is no name."
     (declare (type function fun))
-    (let* ((fun (%function-self fun))
-	   (name (%function-name fun))
-	   (code (sb!di::function-code-header fun))
+    (let* ((fun (%simple-fun-self fun))
+	   (name (%simple-fun-name fun))
+	   (code (sb!di::fun-code-header fun))
 	   (info (sb!kernel:%code-debug-info code)))
       (if info
         (let ((source (first (sb!c::compiled-debug-info-source info))))