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

diff --git a/src/code/print.lisp b/src/code/print.lisp
index ef0fb4e..e2e67d8 100644
--- a/src/code/print.lisp
+++ b/src/code/print.lisp
@@ -371,11 +371,10 @@
 
 ;;;; OUTPUT-OBJECT -- the main entry point
 
-(defvar *pretty-printer* nil
-  #!+sb-doc
-  "The current pretty printer. Should be either a function that takes two
-   arguments (the object and the stream) or NIL to indicate that there is
-   no pretty printer installed.")
+;;; the current pretty printer. This should be either a function that
+;;; takes two arguments (the object and the stream) or NIL to indicate
+;;; that there is no pretty printer installed.
+(defvar *pretty-printer* nil)
 
 ;;; Output OBJECT to STREAM observing all printer control variables.
 (defun output-object (object stream)
@@ -763,15 +762,15 @@
       (when (test letter) (advance OTHER nil))
       (go START-STUFF)
 
-     START-DOT-STUFF ; leading stuff containing dot w/o digit...
+     START-DOT-STUFF ; leading stuff containing dot without digit...
       (when (test letter) (advance START-DOT-STUFF nil))
       (when (digitp) (advance DOT-DIGIT))
       (when (test sign extension dot slash) (advance START-DOT-STUFF nil))
       (when (test number other) (advance OTHER nil))
       (return t)
 
-     START-DOT-MARKER ; number marker in leading stuff w/ dot..
-      ;; leading stuff containing dot w/o digit followed by letter...
+     START-DOT-MARKER ; number marker in leading stuff with dot..
+      ;; leading stuff containing dot without digit followed by letter...
       (when (test letter) (advance OTHER nil))
       (go START-DOT-STUFF)
 
@@ -1557,10 +1556,6 @@
 			    #(#.sb!vm:closure-header-type
 			      #.sb!vm:byte-code-closure-type))
 		      "CLOSURE")
-		     ((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))