[bknr-cvs] r2480 - branches/trunk-reorg/xhtmlgen

[ksprotte at common-lisp.net]

Author: ksprotte
Date: Tue Feb 12 07:18:11 2008
New Revision: 2480

Modified:
   branches/trunk-reorg/xhtmlgen/xhtmlgen.lisp
Log:
it seems that a rune is a character nowadays


Modified: branches/trunk-reorg/xhtmlgen/xhtmlgen.lisp
==============================================================================
--- branches/trunk-reorg/xhtmlgen/xhtmlgen.lisp	(original)
+++ branches/trunk-reorg/xhtmlgen/xhtmlgen.lisp	Tue Feb 12 07:18:11 2008
@@ -131,7 +131,7 @@
   ;; das ist fuer WPDISPLAY
   (let ((s (cxml::chained-handler *html-sink*)))
     (cxml::maybe-close-tag s)
-    (map nil (lambda (c) (cxml::write-rune (char-code c) s)) str)))
+    (map nil (lambda (c) (cxml::write-rune c s)) str)))
 
 (defun princ-http (val)
   #+(or)