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

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)