Update of /project/s-xml/cvsroot/s-xml/src In directory common-lisp.net:/tmp/cvs-serv3812/src

Modified Files: xml.lisp Log Message: bugfix (thx to carlos.ungil@bluewin.ch)

Date: Thu Sep 8 17:39:29 2005 Author: scaekenberghe

Index: s-xml/src/xml.lisp diff -u s-xml/src/xml.lisp:1.11 s-xml/src/xml.lisp:1.12 --- s-xml/src/xml.lisp:1.11 Fri Sep 2 16:38:39 2005 +++ s-xml/src/xml.lisp Thu Sep 8 17:39:29 2005 @@ -1,6 +1,6 @@ ;;;; -*- mode: lisp -*- ;;;; -;;;; $Id: xml.lisp,v 1.11 2005/09/02 14:38:39 scaekenberghe Exp $ +;;;; $Id: xml.lisp,v 1.12 2005/09/08 15:39:29 scaekenberghe Exp $ ;;;; ;;;; This is a Common Lisp implementation of a basic but usable XML parser. ;;;; The parser is non-validating and not complete (no CDATA). @@ -180,7 +180,7 @@ *known-namespaces*)) namespace))

-(defvar *namespaces* `(("" . *local-namespace*)) +(defvar *namespaces* `(("" . ,*local-namespace*)) "Ordered list of (prefix . XML-namespace) bindings currently in effect - special variable")

(defun find-namespace-binding (prefix namespaces)