0.pre7.14:

[sbcl.git] / src / code / print.lisp

diff --git a/src/code/print.lisp b/src/code/print.lisp
index ba9bb3b..da66712 100644 (file)
--- a/src/code/print.lisp
+++ b/src/code/print.lisp
@@ -1557,7 +1557,8 @@
                            #(#.sb!vm:closure-header-type
                              #.sb!vm:byte-code-closure-type))
                      "CLOSURE")
-                    ((sb!eval::interpreted-function-p object)
+                    (#!+sb-interpreter
+                     (sb!eval::interpreted-function-p object)
                      (or (sb!eval::interpreted-function-%name object)
                          (sb!eval:interpreted-function-lambda-expression
                           object)))