mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 02:30:42 -08:00
Code Issues Projects Releases Wiki Activity

allow package to be set for capture-eval

Browse source
This commit is contained in:
David Botton 2022-01-24 20:32:40 -05:00
parent ffc9a9429d
commit f93d79acd8
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
tools/clog-builder.lisp
View file

@ -89,14 +89,15 @@
(with-open-file (outstream outfile :direction :output :if-exists action-if-exists)
(write-sequence string outstream)))
(defun capture-eval (form)
(defun capture-eval (form &key (eval-in-package :clog-user))
"Capture lisp evaluaton of FORM"
(let ((result (make-array '(0) :element-type 'base-char
:fill-pointer 0 :adjustable t))
(eval-result))
(with-output-to-string (stream result)
(let ((*standard-output* stream)
(*error-output* stream))
(*error-output* stream)
(*package* (find-package eval-in-package)))
(setf eval-result (eval (read-from-string (format nil "(progn ~A)" form))))))
(format nil "~A~%=>~A~%" result eval-result)))