Added invalid-character slot to scanner-error.

Pascal J. Bourguignon [2012-03-17 00:21]
Added invalid-character slot to scanner-error.
Filename
common-lisp/parser/scanner.lisp
diff --git a/common-lisp/parser/scanner.lisp b/common-lisp/parser/scanner.lisp
index 82e0ae4..98a1c79 100644
--- a/common-lisp/parser/scanner.lisp
+++ b/common-lisp/parser/scanner.lisp
@@ -152,7 +152,7 @@ See the source file for details."))


 (define-condition scanner-error-invalid-character (scanner-error)
-  ())
+  ((invalid-character :initarg :invalid-character :initform nil :reader scanner-error-invalid-character)))


ViewGit