[closure-cvs] CVS update: closure/src/xml/xml-parse.lisp

[Eric Marsden]

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)