* 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.

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|))