0.6.10.6:

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

diff --git a/src/code/early-print.lisp b/src/code/early-print.lisp
index 5dd2e92..6f7d9e6 100644 (file)
--- a/src/code/early-print.lisp
+++ b/src/code/early-print.lisp
@@ -33,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."