Zander671/truth-table
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Clean up something

Browse Source
This commit is contained in:
Alexander Rosenberg
2024-09-16 04:23:37 -07:00
parent 421eff906d
commit 7a21f853da
1 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
typeset.lisp
View File

@ -417,11 +417,10 @@ between each row."
expr :lookup-table expr-lookup-table expr :lookup-table expr-lookup-table
:latin-truths latin-truths)) :latin-truths latin-truths))
(extract-truth-table-expressions table))) (extract-truth-table-expressions table)))
(col-widths (mapcar (lambda (expr) (col-widths (mapcar 'length typeset-exprs)))
(+ (length expr) 2))
typeset-exprs)))
(with-output-to-string (str) (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) (:row typeset-exprs)
(:seperator) (:seperator)
(dolist (row (extract-truth-table-values table)) (dolist (row (extract-truth-table-values table))