X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fprint.lisp;h=e2e67d8f732422be2ffedf70fcc99bbca49b0c52;hb=b5703d98da9ebfd688c87e14862ab4e26dc94d14;hp=8b4bc06da7c52cf2e1e982c5306542a85fdb255f;hpb=7c07a6f965c51828d8f452b47e0620d8e6cf2959;p=sbcl.git

diff --git a/src/code/print.lisp b/src/code/print.lisp
index 8b4bc06..e2e67d8 100644
--- 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))