X-Git-Url: http://git.kpe.io/?p=lml2.git;a=blobdiff_plain;f=htmlgen.lisp;fp=htmlgen.lisp;h=8e7563c2d27b271696e198e3cce3af216b0fed1b;hp=4fa517e3ad0179cb579ad8a04265341a713d97c2;hb=45144345cc90614a3f6922f43f79effaabf8668e;hpb=cfdabc1cd9728054e3a0267e4b59d8b1bfa28a81

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