X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=htmlgen.lisp;h=8e7563c2d27b271696e198e3cce3af216b0fed1b;hb=refs%2Ftags%2Fv1.6.5;hp=4fa517e3ad0179cb579ad8a04265341a713d97c2;hpb=9c5e52ab7792dc7e57d02141c797d95b31b23039;p=lml2.git

diff --git a/htmlgen.lisp b/htmlgen.lisp
index 4fa517e..8e7563c 100644
--- a/htmlgen.lisp
+++ b/htmlgen.lisp
@@ -360,7 +360,7 @@
        (when (< start i)
          (write-sequence string stream :start start :end i)))
 
-    (let* ((ch (schar string i))
+    (let* ((ch (char string i))
            (cvt (case ch
                   (#\< "&lt;")
                   (#\> "&gt;")