diff options
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"))) |