From 259d1b019dabdf6a0c2b40cabaf013afcbc582ac Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 5 Nov 2007 01:51:35 +0000
Subject: 	* Makefile.pamphlet (iterator.$(FASLEXT)): New rule. 
 (modemap.$(FASLEXT)): Likewise. 	(info.$(FASLEXT)): Likewise. 
 (msgdb.$(FASLEXT)): Likewise. 	(<<info.clisp>>): Remove. 
 (<<iterator.clisp>>): Likewise. 	(<<modemap.clisp>>): Likewise. 
 (<<msgdb.clisp>>): Likewise. 	* c-util.boot (intersectionContour): Change
 setIntersection to 	intersection.  Change SetUnion to union. 	*
 database.boot (insertModemap): Move to modemap.boot.pamphlet. 	*
 i-util.boot.pamphlet (addModemap): Likewise. 	* info.boot.pamphlet: Push
 into package "BOOT".  Fix syntax. 	* iterator.boot.pamphlet: Push into
 package "BOOT". 	* modemap.boot.pamphlet: Likewise. 	*
 msgdb.boot.pamphlet: Push into package "BOOT".  Fix syntax. 	*
 sys-globals.boot (*BUILD-VERSION*): Define. 	(*YEARWEEK*): Likewise.

---
 src/interp/msgdb.boot.pamphlet | 21 ++++++++++++---------
 1 file changed, 12 insertions(+), 9 deletions(-)

(limited to 'src/interp/msgdb.boot.pamphlet')

diff --git a/src/interp/msgdb.boot.pamphlet b/src/interp/msgdb.boot.pamphlet
index 1535d8cc..842d9e82 100644
--- a/src/interp/msgdb.boot.pamphlet
+++ b/src/interp/msgdb.boot.pamphlet
@@ -94,15 +94,18 @@ above for examples.
 <<*>>=
 <<license>>
 
+import '"g-util"
+)package "BOOT"
+
 --% Message Database Code and Message Utility Functions
 
-SETANDFILEQ($msgDatabase,NIL)
-SETANDFILEQ($cacheMessages,'T)  -- for debugging purposes
-SETANDFILEQ($msgAlist,NIL)
-SETANDFILEQ($msgDatabaseName,NIL)
-SETANDFILEQ($testingErrorPrefix, '"Daly Bug")
+$msgDatabase := NIL
+$cacheMessages := 'T  -- for debugging purposes
+$msgAlist := NIL
+$msgDatabaseName := NIL
+$testingErrorPrefix :=  '"Daly Bug"
 
-SETANDFILEQ($texFormatting, false)
+$texFormatting := false
 
 --% Accessing the Database
 
@@ -353,7 +356,7 @@ throwKeyedMsg(key,args) ==
   throwKeyedMsg1(key, args)
 
 saturnThrowKeyedMsg(key,args) ==
-  _*STANDARD_-OUTPUT_* : fluid := $texOutputStream
+  SETQ(_*STANDARD_-OUTPUT_*, $texOutputStream)
   last := pushSatOutput("line")
   sayString '"\bgroup\color{red}\begin{list}\item{} "
   sayKeyedMsgAsTeX(key,args)
@@ -362,7 +365,7 @@ saturnThrowKeyedMsg(key,args) ==
   spadThrow()
 
 throwKeyedMsg1(key,args) ==
-  _*STANDARD_-OUTPUT_* : fluid := $texOutputStream
+  SETQ(_*STANDARD_-OUTPUT_*, $texOutputStream)
   sayMSG '" "
   if $testingSystem then sayMSG $testingErrorPrefix
   sayKeyedMsg(key,args)
@@ -395,7 +398,7 @@ keyedSystemError(key,args) ==
   keyedSystemError1(key, args)
 
 saturnKeyedSystemError(key, args) ==
-  _*STANDARD_-OUTPUT_* : fluid := $texOutputStream
+  SETQ(_*STANDARD_-OUTPUT_*, $texOutputStream)
   sayString '"\bgroup\color{red}"
   sayString '"\begin{verbatim}"
   sayKeyedMsg("S2GE0000",NIL)
-- 
cgit v1.2.3