Fix some bugs with the web server

typeset.lisp

@@ -274,13 +274,14 @@ between each row."
               pretty-print
               (typeset-proposition
                expr :lookup-table *operator-html-lookup-alist*
-               :var-name-transform 'html-var-name-transform)))
+               :var-name-transform 'html-var-name-transform
+               :latin-truths latin-truths)))
     (format str "~@[~%  ~]</tr>" pretty-print)
     (dolist (row (extract-truth-table-values table))
       (format str "~@[~%  ~*~]<tr>~@[~%    ~*~]" pretty-print pretty-print)
       (loop with truth-str = (if latin-truths
-                                  "~:[F~;T~]"
-                                  "~:[&perp;~;&top;~]")
+                                 "~:[F~;T~]"
+                                 "~:[&perp;~;&top;~]")
             for now = row then (cdr now)
             for value = (car now)
             while now do