[cxml-cvs] CVS cxml/xml

[dlichteblau]

Update of /project/cxml/cvsroot/cxml/xml
In directory common-lisp:/tmp/cvs-serv24181

Modified Files:
	unparse.lisp 
Log Message:
indentation fixes for unicode ports
(thanks to Nathan Bird)


--- /project/cxml/cvsroot/cxml/xml/unparse.lisp	2005/12/29 00:38:00	1.7
+++ /project/cxml/cvsroot/cxml/xml/unparse.lisp	2006/01/23 21:48:27	1.8
@@ -347,7 +347,7 @@
 
 (defun sink-fresh-line (sink)
   (unless (zerop (ystream-column (sink-ystream sink)))
-    (%write-rune 10 sink)
+    (%write-rune #/U+000A sink)		;newline
     (indent sink)))
 
 (defun maybe-close-tag (sink)
@@ -440,7 +440,7 @@
 
 (defun indent (sink)
   (dotimes (x (current-indentation sink))
-    (%write-rune 32 sink)))
+    (%write-rune #/U+0020 sink))) ; space
 
 (defun start-indentation-block (sink)
   (incf (current-indentation sink) (indentation sink)))
@@ -464,7 +464,7 @@
               (when need-whitespace-p
                 (if (< (+ (ystream-column (sink-ystream sink)) w (- pos))
 		       (width sink))
-                    (%write-rune 32 sink)
+                    (%write-rune #/U+0020 sink)
                     (sink-fresh-line sink)))
               (loop
 		  with y = (sink-ystream sink)
@@ -473,7 +473,7 @@
               (setf need-whitespace-p (< w n))
               (setf pos next))))
         (t
-          (%write-rune 32 sink))))))
+          (%write-rune #/U+0020 sink))))))
 
 (defun unparse-string (str sink)
   (let ((y (sink-ystream sink)))