From bdcfeb92798694b2935a8321e641d8803e814b7b Mon Sep 17 00:00:00 2001 From: David Lichteblau Date: Sun, 31 Aug 2014 11:32:43 +0300 Subject: [PATCH] Compact syntax parsing fixes Thanks to Cyrus Harmon. --- compact.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compact.lisp b/compact.lisp index 9dd4a40..e5c4cb9 100644 --- a/compact.lisp +++ b/compact.lisp @@ -66,7 +66,7 @@ (setf (fill-pointer buffer) 0) (setf pos 0) (flet ((slurp () - (let ((c (read-char source nil))) + (let ((c (read-char source nil :eof))) (vector-push-extend c buffer) c))) (macrolet ((with-expectation (frob &body body) @@ -199,7 +199,7 @@ (prefix (subseq cxml-clex:bag 0 pos)) (lname (subseq cxml-clex:bag (1+ pos )))) (when (find #\: lname) - (rng-error "too many colons")) + (rng-error nil "too many colons")) (unless (and (nc-name-p prefix)) (rng-error nil "not an ncname: ~A" prefix)) (let ((ch (cxml-clex::getch))) -- 2.11.4.GIT