diff options
Diffstat (limited to 'src/interp/macros.lisp')
| -rw-r--r-- | src/interp/macros.lisp | 23 |
1 files changed, 17 insertions, 6 deletions
diff --git a/src/interp/macros.lisp b/src/interp/macros.lisp index 5c271812..f8e69b67 100644 --- a/src/interp/macros.lisp +++ b/src/interp/macros.lisp @@ -386,7 +386,10 @@ ((stringp x) x) ((write-to-string x)))) -(defun |sayTeX| (x) (if (null x) nil (sayBrightly1 x |$texOutputStream|))) +(defun |sayTeX| (x) + (if (null x) + nil + (sayBrightly1 x |$texOutputStream|))) (defvar |$sayBrightlyStream| nil "if not nil, gives stream for sayBrightly output") @@ -412,13 +415,21 @@ ((sayBrightly1 X S) (sayBrightlyNT1 X |$OutputStream|)))) -(defun sayBrightlyNT1 (X |$OutputStream|) - (if (ATOM X) (|brightPrint0| X) (|brightPrint| X))) +(defun sayBrightlyNT1 (X out) + (if (ATOM X) + (|brightPrint0| X out) + (|brightPrint| X out))) -(defun sayBrightly1 (X |$OutputStream|) +(defun sayBrightly1 (X out) (if (ATOM X) - (progn (|brightPrint0| X) (TERPRI) (force-output)) - (progn (|brightPrint| X) (TERPRI) (force-output)))) + (progn + (|brightPrint0| X out) + (TERPRI out) + (force-output out)) + (progn + (|brightPrint| X out) + (TERPRI out) + (force-output out)))) (defun |saySpadMsg| (X) (if (NULL X) NIL (sayBrightly1 X |$algebraOutputStream|))) |