;;;; files for more information.
(in-package "SB!IMPL")
-
-(file-comment
- "$Header$")
\f
;;;; level and length abbreviations
(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."