Use char= instead of string= for characters

website.lisp

@@ -46,7 +46,7 @@
   (if (and (is-number previous)
 	   (is-number new))
       t
-      (string= previous new)))
+      (char= previous new)))
 
 (defun print-index-letter (letter file)
   (if (is-number letter)