Update of /project/closure/cvsroot/closure/src/xml In directory common-lisp.net:/tmp/cvs-serv26925
Modified Files: xml-parse.lisp Log Message: Fix trivial bugs in debug output.
Date: Sun Jul 10 12:37:53 2005 Author: emarsden
Index: closure/src/xml/xml-parse.lisp diff -u closure/src/xml/xml-parse.lisp:1.4 closure/src/xml/xml-parse.lisp:1.5 --- closure/src/xml/xml-parse.lisp:1.4 Tue Jul 8 17:41:48 2003 +++ closure/src/xml/xml-parse.lisp Sun Jul 10 12:37:53 2005 @@ -2304,8 +2304,6 @@ (format t "~&**** Test failed on ~S." filename) (fresh-line) (format t "** me: ~A" res) - (fresh-line) - (format t "** he: " res) (finish-output) (with-open-file (in out-filename :direction :input :element-type 'character) (do ((c (read-char in nil nil) (read-char in nil nil))) @@ -2520,7 +2518,7 @@ (unless e (error "Entity '~A' is not defined." (rod-string name))) (unless (eq :internal (cadr e)) - (error "Entity '~A' is not an internal entity.")) + (error "Entity '~A' is not an internal entity." (rod-string name))) (or (cadddr e) (car (setf (cdddr e)