Commit 2f866719 authored by Currell V. Berry's avatar Currell V. Berry

Merge branch 'master' of

parents 91dc3003 d6bca0ba
This diff is collapsed.
\ No newline at end of file
......@@ -59,12 +59,16 @@
(let* ((numinputs (if numinputs (parse-integer numinputs) 4))
(truthtableinput (if truthtableinput (escape-string truthtableinput) *truth-table*))
(output (getKMapsOnly truthtableinput numinputs)))
(log-message* :INFO "doing post! output: ~a " output)
(log-message* :INFO "**********post input:~%truthtableinput: ~a~%numinputs~a~%" truthtableinput numinputs)
;(log-message* :INFO "doing post! output: ~a " output)
(defvar *macceptor* (make-instance 'hunchentoot:easy-acceptor :port 8080
:document-root *install-dir*))
:document-root *install-dir*
:access-log-destination *terminal-io*
:message-log-destination *terminal-io*))
(hunchentoot:start *macceptor*)
(defun getKMapsOnly (truthtable numinputs)
......@@ -94,7 +98,7 @@
(error 'malformed-truth-table-error :text validate-return)))
;;then proceed if we passed the previous step
(with-html-output-to-string (*standard-output* nil)
(with-html-output-to-string (myoutput)
(let* ((keys (getkeys tlist))
(numoutputs (- (length keys) numinputs))
(inputkeys (filter-by-index keys (range :min 0 :max numinputs)))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment