diff options
| author | dos-reis <gdr@axiomatics.org> | 2007-09-09 12:36:30 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2007-09-09 12:36:30 +0000 |
| commit | a51518d54f4fa8d791fa33abde2a431408c35002 (patch) | |
| tree | c77f54c578f1ab3d2fb9fe60ae3ad529ee2269f5 /src/interp/diagnostics.boot | |
| parent | 08c683dcd2838a4ad69448058de450aeb24f1c2a (diff) | |
| download | open-axiom-a51518d54f4fa8d791fa33abde2a431408c35002.tar.gz | |
* sys-macros.lisp: New.
* sys-globals.boot: Import sys-constants.
* macros.lisp.pamphlet (|$compilingMape): Move to sys-globals.boot.
(|$definingMap|): Likewise.
($TRACELETFLAG): Likewise.
($NEWSPAD): Likewise.
($BOOT): Likewise.
(MOAN): Move to diagnostic.boot
(FAIL): Likewise.
(KAR): move to sys-macros.lisp
(KDR): Likewise.
(KADR): Likewise.
(KADDR): Likewise.
(|function|): Likewise.
(|dispatchFunction|): Likewise.
(QEQCAR): Likewise.
(BOOT-EQUAL): Likewise.
(IDENT-CHAR-LIT): Likewise.
(EQQUAL): Likewise.
(NEQUAL): Likewise.
(EQUABLE): Likewise.
(MKQ): Likewise.
(IS): Likewise.
(LETT): Likewise.
(SPADLET): Likewise.
(RPLAC): Likewise.
(CARCDREXPAND): Likewise.
(RENAME): Likewise.
(CARCDRX1): Likewise.
(APPLYR): Likewise.
(REPEAT): Likewise.
(REPEAT-TRAN): Likewise.
(MKPF): Likewise.
(MKPFFLATTEN): Likewise.
(MKPFFLATTEN-1): Likewise.
(MKPF1): Likewise.
(-REPEAT): Likewise.
(SEQOPT): Likewise.
(SUCHTHATCLAUSE): Likewise.
(SPADDO): Likewise.
(SPAD_LET): Likewise.
(COLLECT): Likewise.
(COLLECTVEC): Likewise.
(COLLECTV): Likewise.
(MKQSADD1): Likewise.
(YIELD): Likewise.
(REMFLAG): Likewise.
(FLAGP): Likewise.
(INTERNL): Likewise.
(SPADCATCH): Likewise.
(SPADTHROW): Likewise.
(IEQUAL): Likewise.
(GE): Likewise.
(GT): Likewise.
(LE): Likewise.
(LT): Likewise.
(QSADDMOD): Likewise.
(QSDIFMOD): Likewise.
(QSMULTMOD): Likewise.
(NLIST): Likewise.
(SPADREDUCE): Likewise.
(AND2): Likewise.
(OR2): Likewise.
(REDUCE-1): Likewise.
(-REDUCE): Likewise.
(-REDUCE-OP): Likewise.
(NREVERSE-N): Likewise.
(CONS-N): Likewise.
(APPEND-N): Likewise.
(REDUCE-N): Likewise.
(REDUCE-N-1): Likewise.
(REDUCE-N-2): Likewise.
(THETA): Likewise.
(THETA1): Likewise.
(THETA_ERROR): Likewise.
(SPADFIRST): Likewise.
(FIRST-ERROR): Likewise.
(ELEM): Likewise.
(TAIL): Likewise.
(PARTCODET): Likewise.
(SPADCALL): Likewise.
(S+): Likewise.
(S*): Likewise.
(S-): Likewise.
(DELASC): Likewise.
(|char|): Likewise.
(MAKE-BF): Likewise.
(MAKE-FLOAT): Likewise.
* def.lisp.pamphlet (MK_LEFORM): Move to sys-macros.lisp.
(MK_LEFORM-CONS): Likewise.
* Makefile.pamphlet (${DEPSYS}): Depend on sys-macros.lisp.
(sys-globals.$(FASLEXT)): New rule.
Diffstat (limited to 'src/interp/diagnostics.boot')
| -rw-r--r-- | src/interp/diagnostics.boot | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/src/interp/diagnostics.boot b/src/interp/diagnostics.boot index 2e5163ac..b02f5eb2 100644 --- a/src/interp/diagnostics.boot +++ b/src/interp/diagnostics.boot @@ -53,3 +53,15 @@ BUMPERRORCOUNT kind == kind = "semantic" => 2 ERROR '"BUMPERRORCOUNT: unknown error kind" $SPAD__ERRORS.index := 1 + $SPAD__ERRORS.index + +FAIL() == + systemError '"Antique error (FAIL ENTERED)" + +ERRHUH() == + systemError '"problem with BOOT to LISP translation" + +MOAN(:x) == + sayBrightly ['"%l", '"===> ", :x, '"%l"] + +THETA__ERROR op == + userError ['"Sorry, do not know the identity element for ", op] |