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

[Sven Van Caekenberghe]

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 at 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)