aboutsummaryrefslogtreecommitdiff
path: root/src/interp/macros.lisp
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2011-07-02 08:04:49 +0000
committerdos-reis <gdr@axiomatics.org>2011-07-02 08:04:49 +0000
commitcd75300236a7e0bd4b2ba0818721deb92c522aa7 (patch)
treedd43b8c8330e9df4beefac62e7108409c0dde687 /src/interp/macros.lisp
parent5e63328f3bcd8b1d1cc7d59350f92cc4185df7c0 (diff)
downloadopen-axiom-cd75300236a7e0bd4b2ba0818721deb92c522aa7.tar.gz
* interp/macros.lisp (sayALGEBRA): Remove as duplicate of sayMSG.
* interp/i-output.boot: Replace sayALGBEBRA with sayMSG. * interp/msg.boot (ncHardError): Remove dead variable ergMsg. (ncBug): Likewise.
Diffstat (limited to 'src/interp/macros.lisp')
-rw-r--r--src/interp/macros.lisp3
1 files changed, 0 insertions, 3 deletions
diff --git a/src/interp/macros.lisp b/src/interp/macros.lisp
index bdc4d7e7..13018ade 100644
--- a/src/interp/macros.lisp
+++ b/src/interp/macros.lisp
@@ -371,9 +371,6 @@
(TERPRI out)
(force-output out))))
-(defun |sayALGEBRA| (X) "Prints on Algebra output stream."
- (if (NULL X) NIL (sayBrightly1 X |$algebraOutputStream|)))
-
(defun |sayMSG| (X)
(if (NULL X) NIL (sayBrightly1 X |$algebraOutputStream|)))