diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 7 | ||||
| -rw-r--r-- | src/interp/macros.lisp | 6 | ||||
| -rw-r--r-- | src/interp/msgdb.boot | 7 |
3 files changed, 10 insertions, 10 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 8f16524f..0579f6dc 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,10 @@ +2008-08-01 Gabriel Dos Reis <gdr@cs.tamu.edu> + + * interp/msgdb.boot (BRIGHTPRINT-0): Remove. + (BRIGHTPRINT): Likewise. + * interp/macros.lisp (sayBrightly1): Use brightPrint0 and brightPrint. + (sayBrightlyNT1): Likewise. + 2008-07-26 Gabriel Dos Reis <gdr@cs.tamu.edu> * interp/compiler.boot (getConstructorFormOfMode): Remove. 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 == |