X-Git-Url: http://git.kpe.io/?p=lml2.git;a=blobdiff_plain;f=htmlgen.lisp;h=8e7563c2d27b271696e198e3cce3af216b0fed1b;hp=4fa517e3ad0179cb579ad8a04265341a713d97c2;hb=374af1ee8a520633dd2dc9a6b004bdbba12e139b;hpb=9c5e52ab7792dc7e57d02141c797d95b31b23039

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;")