mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2026-03-06 05:42:32 -08:00
Code Issues Projects Releases Wiki Activity

status matches now package

Browse source
This commit is contained in:
David Botton 2022-08-07 17:12:31 -04:00
parent 52e5df8bd7
commit efb65843b5
1 changed files with 8 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

12
tools/clog-builder.lisp
View file

@ -1225,7 +1225,7 @@ of controls and double click to select control."
(format nil "~&result: ~A" result)
:color-class "w3-green"
:time-out 3))))))
(Set-on-change editor
(set-on-change editor
(lambda (obj)
(let ((s (js-query obj (format nil
"var row = ~A.selection.getCursor().row; ~
@ -1249,9 +1249,13 @@ of controls and double click to select control."
(unless (equal s "")
(with-input-from-string (i s)
(ignore-errors
(let* ((m (read i))
(*PACKAGE* (find-package package))
(SWANK::*buffer-package* (find-package package))
(let* ((pac (if (or (eq (current-editor-is-lisp app) t)
(eq (current-editor-is-lisp app) nil))
"CLOG-USER"
(string-upcase (current-editor-is-lisp app))))
(m (read i))
(*PACKAGE* (find-package pac))
(SWANK::*buffer-package* (find-package pac))
(SWANK::*buffer-readtable* *readtable*)
(ms (format nil "~A" m))
r)