mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-07 11:10:18 -08:00
Code Issues Projects Releases Wiki Activity

OS Shell

Browse source
This commit is contained in:
David Botton 2024-04-11 21:06:41 -04:00
parent b617f65a4b
commit 535b0af25c
6 changed files with 20 additions and 41 deletions
Download patch file Download diff file Expand all files Collapse all files

9
tools/clog-builder-eval.lisp
View file

@ -73,6 +73,8 @@ provide an interactive console.)"))
;; Lisp code evaluation utilities
(defun capture-eval (form &key (capture-console t)
(capture-result t)
(capture-result-form "=>~A~%")
(eval-form "~A~%=>~A~%")
(clog-obj nil)
(eval-in-package "clog-user"))
"Capture lisp evaluaton of FORM."
@ -112,10 +114,11 @@ provide an interactive console.)"))
(*package* (find-package (string-upcase eval-in-package))))
(setf eval-result (eval (read-from-string (format nil "(progn ~A)" form))))
(unless capture-result
(format st "~%=>~A~%" eval-result))
(format st capture-result-form eval-result))
(values
(format nil "~A~%=>~A~%" result eval-result)
*package*))))))))
(format nil eval-form result eval-result)
*package*
eval-result))))))))
(defun do-eval (obj form-string cname &key (package "clog-user") (test t) custom-boot)
"Render, evalute and run code for panel"