0.8.13.10: I don't think we're in lisp-land anymore...

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

diff --git a/src/code/early-print.lisp b/src/code/early-print.lisp
index f3e7a74..7df6c18 100644 (file)
--- a/src/code/early-print.lisp
+++ b/src/code/early-print.lisp
@@ -10,36 +10,32 @@
 ;;;; files for more information.
 
 (in-package "SB!IMPL")
-
-(file-comment
-  "$Header$")
 \f
 ;;;; level and length abbreviations
 
-(defvar *current-level* 0
-  #!+sb-doc
-  "The current level we are printing at, to be compared against *PRINT-LEVEL*.
-   See the macro DESCEND-INTO for a handy interface to depth abbreviation.")
+;;; The current level we are printing at, to be compared against
+;;; *PRINT-LEVEL*. See the macro DESCEND-INTO for a handy interface to
+;;; depth abbreviation.
+(defvar *current-level-in-print* 0)
 
+;;; Automatically handle *PRINT-LEVEL* abbreviation. If we are too
+;;; deep, then a #\# is printed to STREAM and BODY is ignored.
 (defmacro descend-into ((stream) &body body)
-  #!+sb-doc
-  "Automatically handle *PRINT-LEVEL* abbreviation. If we are too deep, then
-   a # is printed to STREAM and BODY is ignored."
   (let ((flet-name (gensym)))
     `(flet ((,flet-name ()
              ,@body))
        (cond ((and (null *print-readably*)
                   *print-level*
-                  (>= *current-level* *print-level*))
+                  (>= *current-level-in-print* *print-level*))
              (write-char #\# ,stream))
             (t
-             (let ((*current-level* (1+ *current-level*)))
+             (let ((*current-level-in-print* (1+ *current-level-in-print*)))
                (,flet-name)))))))
 
-(defmacro punt-if-too-long (index stream)
-  #!+sb-doc
-  "Punt if INDEX is equal or larger then *PRINT-LENGTH* (and *PRINT-READABLY*
-   is NIL) by outputting \"...\" and returning from the block named NIL."
+;;; Punt if INDEX is equal or larger then *PRINT-LENGTH* (and
+;;; *PRINT-READABLY* is NIL) by outputting \"...\" and returning from
+;;; the block named NIL.
+(defmacro punt-print-if-too-long (index stream)
   `(when (and (not *print-readably*)
              *print-length*
              (>= ,index *print-length*))