diff options
author | dos-reis <gdr@axiomatics.org> | 2011-07-04 16:40:44 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-07-04 16:40:44 +0000 |
commit | 1a18d7b2e1b3796f6dc360e3bae0a57616aa497c (patch) | |
tree | 48b98145ec77b1a52b3eb1add288191767fa8a4b /src/interp/macros.lisp | |
parent | 2f5255f62b85b026dcf11adafff07ac2f254a41c (diff) | |
download | open-axiom-1a18d7b2e1b3796f6dc360e3bae0a57616aa497c.tar.gz |
* interp/setvars.boot: Remove support for script formula.
* interp/setvart.boot: Likewise.
* interp/diagnostics.boot (sayBrightlyNT1): Move from macros.lisp.
(sayBrightly1): Likewise.
(sayBrightlyNT): Likewise.
(sayBrightly): Likewise.
(sayBrightlyI): Likewise.
(sayMSG): Likewise.
(sayTeX): Likewise.
(sayMSG2File): Likewise.
* interp/i-output.boot (formulaFormat): Remove.
(output): Adjust.
* interp/macros.lisp (sayMSGNT): Remove.
(sayFORTRAN): Likewise.
(sayFORMULA): Likewise.
($formulaOutputstream): Likewise.
* interp/sys-globals.boot ($formulaOutputstream): Remove.
* interp/spad.lisp ($formulaFormat): Remove.
* algebra/exposed.lsp.pamphlet: Do not expose ScriptFormulaFormat
and ScriptFormulaFormat1.
* algebra/exposed.lsp.pamphlet: Remove.
Diffstat (limited to 'src/interp/macros.lisp')
-rw-r--r-- | src/interp/macros.lisp | 71 |
1 files changed, 0 insertions, 71 deletions
diff --git a/src/interp/macros.lisp b/src/interp/macros.lisp index 13018ade..3793de79 100644 --- a/src/interp/macros.lisp +++ b/src/interp/macros.lisp @@ -326,77 +326,6 @@ ((stringp x) x) ((write-to-string x)))) -(defun |sayTeX| (x) - (if (null x) - nil - (sayBrightly1 x |$texOutputStream|))) - -(defvar |$sayBrightlyStream| nil "if not nil, gives stream for sayBrightly output") - -(defun |sayBrightly| (x &optional (out-stream |$OutputStream|)) - (COND ((NULL X) NIL) - (|$sayBrightlyStream| - (sayBrightly1 X |$sayBrightlyStream|)) - ((IS-CONSOLE out-stream) - (sayBrightly1 X out-stream)) - ((sayBrightly1 X out-stream) - (sayBrightly1 X |$OutputStream|)))) - -(defun |sayBrightlyI| (x &optional (s |$OutputStream|)) - "Prints at console or output stream." - (if (NULL X) NIL (sayBrightly1 X S))) - -(defun |sayBrightlyNT| (x &optional (S |$OutputStream|)) - (COND ((NULL X) NIL) - (|$sayBrightlyStream| - (sayBrightlyNT1 X |$sayBrightlyStream|)) - ((IS-CONSOLE S) - (sayBrightlyNT1 X S)) - ((sayBrightly1 X S) - (sayBrightlyNT1 X |$OutputStream|)))) - -(defun sayBrightlyNT1 (X out) - (if (ATOM X) - (|brightPrint0| X out) - (|brightPrint| X out))) - -(defun sayBrightly1 (X out) - (if (ATOM X) - (progn - (|brightPrint0| X out) - (TERPRI out) - (force-output out)) - (progn - (|brightPrint| X out) - (TERPRI out) - (force-output out)))) - -(defun |sayMSG| (X) - (if (NULL X) NIL (sayBrightly1 X |$algebraOutputStream|))) - -(defun |sayMSGNT| (X) - (if (NULL X) NIL (sayBrightlyNT1 X |$algebraOutputStream|))) - -(defun |sayMSG2File| (msg) - (PROG (file str) - (SETQ file (|makePathname| '|spadmsg| '|listing| |$listingDirectory|)) - (SETQ str - (DEFIOSTREAM - (CONS '(MODE . OUTPUT) (CONS (CONS 'FILE file) NIL)) - 255 0)) - (sayBrightly1 msg str) - (SHUT str) ) ) - -(defvar |$fortranOutputStream|) - -(defun |sayFORTRAN| (x) "Prints on Fortran output stream." - (if (NULL X) NIL (sayBrightly1 X |$fortranOutputStream|))) - -(defvar |$formulaOutputStream|) - -(defun |sayFORMULA| (X) "Prints on formula output stream." - (if (NULL X) NIL (sayBrightly1 X |$formulaOutputStream|))) - ;; the following are redefined in MSGDB BOOT (DEFUN BLANKS (N &optional (stream |$OutputStream|)) |