[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-serv9479/src

Modified Files:
	lxml-dom.lisp sxml-dom.lisp 
Log Message:
removed some unused format arguments

Date: Wed Aug 17 10:06:01 2005
Author: scaekenberghe

Index: s-xml/src/lxml-dom.lisp
diff -u s-xml/src/lxml-dom.lisp:1.1.1.1 s-xml/src/lxml-dom.lisp:1.2
--- s-xml/src/lxml-dom.lisp:1.1.1.1	Mon Jun  7 20:49:56 2004
+++ s-xml/src/lxml-dom.lisp	Wed Aug 17 10:06:01 2005
@@ -1,6 +1,6 @@
 ;;;; -*- mode: lisp -*-
 ;;;;
-;;;; $Id: lxml-dom.lisp,v 1.1.1.1 2004/06/07 18:49:56 scaekenberghe Exp $
+;;;; $Id: lxml-dom.lisp,v 1.2 2005/08/17 08:06:01 scaekenberghe Exp $
 ;;;;
 ;;;; LXML implementation of the generic DOM parser and printer.
 ;;;;
@@ -77,7 +77,7 @@
 		       (terpri stream)
 		       (dotimes (i (* 2 (1- level))) (write-char #\space stream)))))
 		 (format stream "</~a>" tag))
-	     (format stream "/>" tag))))
+	     (format stream "/>"))))
 	(t (error "Input not recognized as LXML ~s" dom))))
   
 ;;;; eof


Index: s-xml/src/sxml-dom.lisp
diff -u s-xml/src/sxml-dom.lisp:1.1.1.1 s-xml/src/sxml-dom.lisp:1.2
--- s-xml/src/sxml-dom.lisp:1.1.1.1	Mon Jun  7 20:49:57 2004
+++ s-xml/src/sxml-dom.lisp	Wed Aug 17 10:06:01 2005
@@ -1,6 +1,6 @@
 ;;;; -*- mode: lisp -*-
 ;;;;
-;;;; $Id: sxml-dom.lisp,v 1.1.1.1 2004/06/07 18:49:57 scaekenberghe Exp $
+;;;; $Id: sxml-dom.lisp,v 1.2 2005/08/17 08:06:01 scaekenberghe Exp $
 ;;;;
 ;;;; LXML implementation of the generic DOM parser and printer.
 ;;;;
@@ -71,7 +71,7 @@
 		       (terpri stream)
 		       (dotimes (i (* 2 (1- level))) (write-char #\space stream)))))
 		 (format stream "</~a>" tag))
-	     (format stream "/>" tag))))
+	     (format stream "/>"))))
 	(t (error "Input not recognized as SXML ~s" dom))))
 
 ;;;; eof