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

repl msg enhancements

Browse source
This commit is contained in:
David Botton 2024-05-29 20:29:28 -04:00
parent b7fc4a78d8
commit 393525249a
2 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
tools/clog-builder-repl.lisp
View file

@ -95,7 +95,12 @@
:height 400 :width 600
:has-pinner t
:client-movement *client-side-movement*)))
(setf clog-user::*body* (window-content win))))
(setf clog-user::*body* (window-content win))
(set-on-window-close win
(lambda (obj)
(when (eq obj clog-user::*body*)
(setf clog-user::*body* nil))))
(clog-terminal:echo target "Use clog-user:*body* to access the clog-builder-repl window.")))
(t
(setf data (format nil "(let ((tmp (progn ~A)))
(setf /// //) (setf // /) (setf / (list tmp))