scanner-error is a simple-error.

Pascal J. Bourguignon [2012-02-18 00:53]
scanner-error is a simple-error.
Filename
common-lisp/parser/scanner.lisp
diff --git a/common-lisp/parser/scanner.lisp b/common-lisp/parser/scanner.lisp
index 5eafcf4..82e0ae4 100644
--- a/common-lisp/parser/scanner.lisp
+++ b/common-lisp/parser/scanner.lisp
@@ -141,7 +141,7 @@ See the source file for details."))
 ;; they can change in the scanner object between the condition
 ;; creation and its handling.

-(define-condition scanner-error (error)
+(define-condition scanner-error (simple-error)
   ((line             :initarg :line             :initform 1   :reader scanner-error-line)
    (column           :initarg :column           :initform 0   :reader scanner-error-column)
    (state            :initarg :state            :initform 0   :reader scanner-error-state)
@@ -257,4 +257,3 @@ RETURN:       (scanner-current-token scanner).


 ;;;; THE END ;;;;
-
ViewGit