From b9eed452db6231458c941041b7090c0e62426eae Mon Sep 17 00:00:00 2001 From: dos-reis Date: Tue, 11 Sep 2007 18:49:07 +0000 Subject: src/lisp/ 2007-09-11 Gabriel Dos Reis * core.lisp.in (|coreError|): Rename from |error|. Adjust callers. src/boot/ 2007-09-11 Gabriel Dos Reis * ast.boot.pamphlet (bfCompDef): Call coreError, not error. * includer.boot.pamphlet (shoeNotFound): Likewise. (SoftShoeError): Likewise. --- src/lisp/ChangeLog | 4 ++++ src/lisp/core.lisp.in | 8 ++++---- 2 files changed, 8 insertions(+), 4 deletions(-) (limited to 'src/lisp') 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 + + * core.lisp.in (|coreError|): Rename from |error|. Adjust callers. + 2007-09-08 Gabriel Dos Reis * 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"))) -- cgit v1.2.3