Clean up something

2024-09-16 04:23:37 -07:00
parent 421eff906d
commit 7a21f853da
1 changed files with 3 additions and 4 deletions
--- a/typeset.lisp
+++ b/typeset.lisp
@ -417,11 +417,10 @@ between each row."
                                   expr :lookup-table expr-lookup-table
                                   :latin-truths latin-truths))
                                (extract-truth-table-expressions table)))
-         (col-widths (mapcar (lambda (expr)
-                               (+ (length expr) 2))
-                             typeset-exprs)))
+         (col-widths (mapcar 'length typeset-exprs)))
    (with-output-to-string (str)
-      (with-draw-table (str col-widths box-lookup-table)
+      (with-draw-table (str col-widths box-lookup-table
+                        :padding 1)
        (:row typeset-exprs)
        (:seperator)
        (dolist (row (extract-truth-table-values table))