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

[Sven Van Caekenberghe]

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

Modified Files:
	lxml-dom.lisp sxml-dom.lisp 
Log Message:
fixed a type in a special declaration

Date: Sun Nov 20 15:34:15 2005
Author: scaekenberghe

Index: s-xml/src/lxml-dom.lisp
diff -u s-xml/src/lxml-dom.lisp:1.5 s-xml/src/lxml-dom.lisp:1.6
--- s-xml/src/lxml-dom.lisp:1.5	Tue Sep 20 11:57:44 2005
+++ s-xml/src/lxml-dom.lisp	Sun Nov 20 15:34:15 2005
@@ -1,6 +1,6 @@
 ;;;; -*- mode: lisp -*-
 ;;;;
-;;;; $Id: lxml-dom.lisp,v 1.5 2005/09/20 09:57:44 scaekenberghe Exp $
+;;;; $Id: lxml-dom.lisp,v 1.6 2005/11/20 14:34:15 scaekenberghe Exp $
 ;;;;
 ;;;; LXML implementation of the generic DOM parser and printer.
 ;;;;
@@ -50,7 +50,7 @@
           (plist->alist (rest (rest plist))))))
 
 (defmethod print-xml-dom (dom (input-type (eql :lxml)) stream pretty level)
-  (declare (special *namespaces))
+  (declare (special *namespaces*))
   (cond ((symbolp dom) (print-solitary-tag dom stream))
 	((stringp dom) (print-string-xml dom stream))
 	((consp dom)


Index: s-xml/src/sxml-dom.lisp
diff -u s-xml/src/sxml-dom.lisp:1.4 s-xml/src/sxml-dom.lisp:1.5
--- s-xml/src/sxml-dom.lisp:1.4	Tue Sep 20 11:57:48 2005
+++ s-xml/src/sxml-dom.lisp	Sun Nov 20 15:34:15 2005
@@ -1,6 +1,6 @@
 ;;;; -*- mode: lisp -*-
 ;;;;
-;;;; $Id: sxml-dom.lisp,v 1.4 2005/09/20 09:57:48 scaekenberghe Exp $
+;;;; $Id: sxml-dom.lisp,v 1.5 2005/11/20 14:34:15 scaekenberghe Exp $
 ;;;;
 ;;;; LXML implementation of the generic DOM parser and printer.
 ;;;;
@@ -40,7 +40,7 @@
 				       :text-hook #'sxml-text-hook))))
 
 (defmethod print-xml-dom (dom (input-type (eql :sxml)) stream pretty level)
-  (declare (special *namespaces))
+  (declare (special *namespaces*))
   (cond ((stringp dom) (print-string-xml dom stream))
 	((consp dom)
 	 (let ((tag (first dom))