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

fix regression on eval

Browse source
This commit is contained in:
David Botton 2021-02-11 20:54:58 -05:00
parent 68f75fa3fc
commit 2b936a546b
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
demos/03-demo.lisp
View file

@ -1,4 +1,5 @@
;;; As this demo uses eval do not run over the internet.
;;; This app gives access to its users your local files.
(defpackage #:clog-user
(:use #:cl #:clog)
@ -139,6 +140,7 @@
(result (capture-eval form-string)))
(do-ide-file-new obj)
(setf cw (current-window obj))
(js-execute obj (format nil "editor_~A.setValue('~A');editor_~A.moveCursorTo(0,0);"
(html-id cw)
(escape-string result)