0.6.12.49:

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

diff --git a/src/code/target-eval.lisp b/src/code/target-eval.lisp
index 775f6bb..51f445e 100644 (file)
--- a/src/code/target-eval.lisp
+++ b/src/code/target-eval.lisp
@@ -26,7 +26,7 @@
            (:print-object
             (lambda (x stream)
               (print-unreadable-object (x stream :identity t)
-                (sb!impl::output-interpreted-function x stream)))))
+                (interpreted-function-%name x)))))
   ;; The name of this interpreted function, or NIL if none specified.
   (%name nil)
   ;; This function's debug arglist.