Fixed condition class in not-wellformed document with the STP builder

2008-04-26 17:01:18 +02:00
parent 4c11d5b68a
commit 77d915505e
1 changed files with 1 additions and 1 deletions
--- a/xml/xml-parse.lisp
+++ b/xml/xml-parse.lisp
@ -693,7 +693,7 @@

 (defmethod sax:xml-base ((parser cxml-parser))
  (let ((uri (car (base-stack (slot-value parser 'ctx)))))
-    (if (stringp uri)
+    (if (or (null uri) (stringp uri))
 	uri
 	(puri:render-uri uri nil))))