X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-print.lisp;h=6f7d9e614f9c073818a6edcd2761016965fb4f33;hb=4fc9d21ae1d8a6a2f8ff70f589d5da103203de13;hp=f3e7a744ab445d12bd8c2a2c4a88ea6570e29f97;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/code/early-print.lisp b/src/code/early-print.lisp
index f3e7a74..6f7d9e6 100644
--- a/src/code/early-print.lisp
+++ b/src/code/early-print.lisp
@@ -10,9 +10,6 @@
 ;;;; files for more information.
 
 (in-package "SB!IMPL")
-
-(file-comment
-  "$Header$")
 
 ;;;; level and length abbreviations
 
@@ -36,7 +33,7 @@
 	      (let ((*current-level* (1+ *current-level*)))
 		(,flet-name)))))))
 
-(defmacro punt-if-too-long (index stream)
+(defmacro punt-print-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."