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

Fix some bugs with the web server

Browse Source
This commit is contained in:
Alexander Rosenberg 2024-09-16 03:25:36 -07:00
parent 53388e6d56
commit f9091ad7c1
Signed by: Zander671
GPG Key ID: 5FD0394ADBD72730
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
truth-table-web-wrapper
View File

@ -6,4 +6,4 @@ SBCL=${SBCL:-sbcl}
exec ${SBCL} --noinform \ exec ${SBCL} --noinform \
--eval '(format *error-output* "Loading systems...~%")' \ --eval '(format *error-output* "Loading systems...~%")' \
--eval '(ql:quickload :truth-table/web :silent t)' \ --eval '(ql:quickload :truth-table/web :silent t)' \
--eval '(truth-table/web:toplevel)' "${@}" --eval '(truth-table/web:toplevel)' - "${@}"

3
typeset.lisp
View File

@ -274,7 +274,8 @@ between each row."
pretty-print pretty-print
(typeset-proposition (typeset-proposition
expr :lookup-table *operator-html-lookup-alist* 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) (format str "~@[~% ~]</tr>" pretty-print)
(dolist (row (extract-truth-table-values table)) (dolist (row (extract-truth-table-values table))
(format str "~@[~% ~*~]<tr>~@[~% ~*~]" pretty-print pretty-print) (format str "~@[~% ~*~]<tr>~@[~% ~*~]" pretty-print pretty-print)