diff options
author | dos-reis <gdr@axiomatics.org> | 2007-09-11 18:49:07 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2007-09-11 18:49:07 +0000 |
commit | b9eed452db6231458c941041b7090c0e62426eae (patch) | |
tree | c7ed30a71f335a39c04c3b63188820e80852650d /src/lisp | |
parent | ef3f39b528532d50813b8754c8ca6ff3fce4f710 (diff) | |
download | open-axiom-b9eed452db6231458c941041b7090c0e62426eae.tar.gz |
src/lisp/
2007-09-11 Gabriel Dos Reis <gdr@cs.tamu.edu>
* core.lisp.in (|coreError|): Rename from |error|. Adjust callers.
src/boot/
2007-09-11 Gabriel Dos Reis <gdr@cs.tamu.edu>
* ast.boot.pamphlet (bfCompDef): Call coreError, not error.
* includer.boot.pamphlet (shoeNotFound): Likewise.
(SoftShoeError): Likewise.
Diffstat (limited to 'src/lisp')
-rw-r--r-- | src/lisp/ChangeLog | 4 | ||||
-rw-r--r-- | src/lisp/core.lisp.in | 8 |
2 files changed, 8 insertions, 4 deletions
diff --git a/src/lisp/ChangeLog b/src/lisp/ChangeLog index a60858fd..5a523df6 100644 --- a/src/lisp/ChangeLog +++ b/src/lisp/ChangeLog @@ -1,3 +1,7 @@ +2007-09-11 Gabriel Dos Reis <gdr@cs.tamu.edu> + + * core.lisp.in (|coreError|): Rename from |error|. Adjust callers. + 2007-09-08 Gabriel Dos Reis <gdr@cs.tamu.edu> * Makefile.pamphlet (fasl_ext): New. Factor out the logic diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in index 8722220c..4af04761 100644 --- a/src/lisp/core.lisp.in +++ b/src/lisp/core.lisp.in @@ -56,7 +56,7 @@ (:export "quit" "fatalError" "internalError" - "error" + "coreError" "errorCount" "countError" "warn" @@ -330,7 +330,7 @@ (|diagnosticMessage| "internal error" msg) (|quit| 1)) -(defun |error| (msg) +(defun |coreError| (msg) (|countError|) (|diagnosticMessage| "error" (cond ((consp msg) @@ -595,14 +595,14 @@ (compile-file-pathname out-file) :lisp-files `(,out-file))) (unless result - (|error| "compilation of Lisp code failed")) + (|coreError| "compilation of Lisp code failed")) (cond ((and failure-p) ;; Since we believe the source code must ;; be fixed, we don't want to leave ;; the generated FASL behing us, as that ;; would confuse both user and tools. (delete-file result) - (|error| "Lisp code contained errors")) + (|coreError| "Lisp code contained errors")) (warning-p (|warn| "Lisp code contained warnings"))) |