diff options
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/macros.lisp | 6 | ||||
| -rw-r--r-- | src/interp/msgdb.boot | 7 |
2 files changed, 3 insertions, 10 deletions
diff --git a/src/interp/macros.lisp b/src/interp/macros.lisp index 04cc575f..5c271812 100644 --- a/src/interp/macros.lisp +++ b/src/interp/macros.lisp @@ -413,12 +413,12 @@ (sayBrightlyNT1 X |$OutputStream|)))) (defun sayBrightlyNT1 (X |$OutputStream|) - (if (ATOM X) (BRIGHTPRINT-0 X) (BRIGHTPRINT X))) + (if (ATOM X) (|brightPrint0| X) (|brightPrint| X))) (defun sayBrightly1 (X |$OutputStream|) (if (ATOM X) - (progn (BRIGHTPRINT-0 X) (TERPRI) (force-output)) - (progn (BRIGHTPRINT X) (TERPRI) (force-output)))) + (progn (|brightPrint0| X) (TERPRI) (force-output)) + (progn (|brightPrint| X) (TERPRI) (force-output)))) (defun |saySpadMsg| (X) (if (NULL X) NIL (sayBrightly1 X |$algebraOutputStream|))) diff --git a/src/interp/msgdb.boot b/src/interp/msgdb.boot index 3833651c..7d6278e4 100644 --- a/src/interp/msgdb.boot +++ b/src/interp/msgdb.boot @@ -852,13 +852,6 @@ brightPrintRightJustify x == brightPrintRightJustify x NIL --- some hooks for older functions - - -BRIGHTPRINT x == brightPrint x - -BRIGHTPRINT_-0 x == brightPrint0 x - --% Message Formatting Utilities sayBrightlyLength l == |