diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-08-01 20:20:48 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-08-01 20:20:48 +0000 |
| commit | 2191bcacf0e0dc422e0c4de3bcc4c37556719cc8 (patch) | |
| tree | 336bd0fbff359d2a026335df5a353039a5fed62a /src | |
| parent | be940a4126a9e972f4a15c104b0acd26b791d889 (diff) | |
| download | open-axiom-2191bcacf0e0dc422e0c4de3bcc4c37556719cc8.tar.gz | |
* interp/msgdb.boot (BRIGHTPRINT-0): Remove.
(BRIGHTPRINT): Likewise.
* interp/macros.lisp (sayBrightly1): Use brightPrint0 and brightPrint.
(sayBrightlyNT1): Likewise.
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 == |