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

diff --git a/src/code/print.lisp b/src/code/print.lisp
index da66712..8b4bc06 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)
@@ -1557,8 +1556,8 @@
 			    #(#.sb!vm:closure-header-type
 			      #.sb!vm:byte-code-closure-type))
 		      "CLOSURE")
-		     (#!+sb-interpreter
-		      (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)))