From 08e7c8353c5a608a1b365958ca18f7887e73c357 Mon Sep 17 00:00:00 2001 From: dlichteblau Date: Mon, 23 Jan 2006 21:48:27 +0000 Subject: [PATCH] indentation fixes for unicode ports (thanks to Nathan Bird) --- xml/unparse.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/xml/unparse.lisp b/xml/unparse.lisp index dc6a356..5897687 100644 --- a/xml/unparse.lisp +++ b/xml/unparse.lisp @@ -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)))