0.pre7.28:

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

diff --git a/src/code/print.lisp b/src/code/print.lisp
index 8b4bc06..e2e67d8 100644 (file)
--- a/src/code/print.lisp
+++ b/src/code/print.lisp
@@ -1556,11 +1556,6 @@
                            #(#.sb!vm:closure-header-type
                              #.sb!vm:byte-code-closure-type))
                      "CLOSURE")
-                    #!+sb-interpreter
-                    ((sb!eval::interpreted-function-p object)
-                     (or (sb!eval::interpreted-function-%name object)
-                         (sb!eval:interpreted-function-lambda-expression
-                          object)))
                     ((find (function-subtype object)
                            #(#.sb!vm:function-header-type
                              #.sb!vm:closure-function-header-type))