diff options
| author | dos-reis <gdr@axiomatics.org> | 2007-11-30 04:38:26 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2007-11-30 04:38:26 +0000 |
| commit | 7ae1eacf142cdd20dd70f77b3ba5f2b91e0ad6d1 (patch) | |
| tree | e53254631243bb7b370f85fd75ab2949fa19e269 /src/interp/msg.boot | |
| parent | 299569280385c1347ef4ad93dd31f201fe78af85 (diff) | |
| download | open-axiom-7ae1eacf142cdd20dd70f77b3ba5f2b91e0ad6d1.tar.gz | |
* Makefile.pamphlet (INOBJS): Lose varini.$(FASLEXT).
(varini.$(FASLEXT)): Remove rule.
* compiler.boot (compileSpad2Cmd): Don't set $ncConverse; it is
unused. Don't set $newcomMode and $newComp.
(compTopLevel): There is no function newComp. So simplify.
* cattable.boot (updateCategoryTable): Remove test for $newcompMode.
* database.boot (updateDatabase): Likewise.
* int-top.boot (SpadInterpretStream): Don't set $newcompMode.
($ncmParse): Move from varini.boot.
($ncmMacro): Likewise.
* bookvol5.pamphlet: Remove reference to $newcompMode.
* define.boot (compDefineCapsuleFunction): Simplify.
* msg.boot: Move diagnostic related variables from varini.boot to here.
* posit.boot ($nopos): Move from varini.boot to here.
* setq.lisp ($newcompMode): Don't set here
($newComp): Likewise.
($LINELENGTH): Likewise.
* spad.lisp ($newComp): Likewise.
($LINELENGTH): Likewise.
* varinit.boot: Remove.
Diffstat (limited to 'src/interp/msg.boot')
| -rw-r--r-- | src/interp/msg.boot | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/src/interp/msg.boot b/src/interp/msg.boot index 1e419b72..1bbae560 100644 --- a/src/interp/msg.boot +++ b/src/interp/msg.boot @@ -36,6 +36,29 @@ import '"sys-macros" import '"astr" )package "BOOT" +$erLocMsgDatabaseName := pathname '(co_-eng msgs a) +$erGlbMsgDatabaseName := pathname '(co_-eng msgs i) +$newcompErrorCount := 0 + +$imPrTagGuys == ['unimple, 'bug, 'debug, 'say, 'warn] +$toWhereGuys == ['fileOnly, 'screenOnly ] +$imPrGuys == ['imPr] +$repGuys == ['noRep, 'rep] +$attrCats == ['$imPrGuys, '$toWhereGuys, '$repGuys] + +$LINELENGTH := 80 +$preLength := 11 +$LOGLENGTH := $LINELENGTH - 6 +$specificMsgTags := [] +$showKeyNum := NIL + +$compErrorPrefix := '"Error" +$compBugPrefix := '"Bug!" + +$ncMsgList := [] + +--% + ListMember?(ob, l) == MEMBER(ob, l, KEYWORD::TEST, function EQUAL) |