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

add * and / support

Browse source
This commit is contained in:
David Botton 2024-04-30 23:55:59 -04:00
parent bf4232029c
commit dacb43e9ce
1 changed files with 17 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -63,6 +63,9 @@
:client-movement *client-side-movement*))) :client-movement *client-side-movement*)))
(setf clog-user::*body* (window-content win)))) (setf clog-user::*body* (window-content win))))
(t (t
(setf data (format nil "(let ((tmp ~A))
(setf /// //) (setf // /) (setf / (list tmp))
(setf *** **) (setf ** *) (setf * tmp))" data))
(multiple-value-bind (result new-package) (multiple-value-bind (result new-package)
(capture-eval data :clog-obj panel (capture-eval data :clog-obj panel
:private-console-win (when *clog-repl-private-console* :private-console-win (when *clog-repl-private-console*