From 77d915505eac84c267f89ab308c61e937a367f45 Mon Sep 17 00:00:00 2001 From: David Lichteblau Date: Sat, 26 Apr 2008 17:01:18 +0200 Subject: [PATCH] Fixed condition class in not-wellformed document with the STP builder --- xml/xml-parse.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/xml/xml-parse.lisp b/xml/xml-parse.lisp index 7e18e43..eb8e338 100644 --- 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)))) -- 2.11.4.GIT