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

clog-web-site instant website creation

Browse source
This commit is contained in:
David Botton 2022-04-12 22:05:43 -04:00
parent 43fbc30a29
commit 1c1158ba3a
7 changed files with 230 additions and 45 deletions
Download patch file Download diff file Expand all files Collapse all files

14
source/clog-connection.lisp
View file

@ -445,12 +445,12 @@ brower."
(format t "Boot function added : ~A~%" (if boot-function
"yes"
"no"))
(format t "Boot html source : ~A~%" (if static-boot-html
"actual file always"
"compiled in when no file"))
(format t "Boot js source : ~A~%" (if static-boot-js
"actual file always"
"compiled in always"))
(format t "Boot html source use : ~A~%" (if static-boot-html
"static file"
"compiled version, when no file"))
(format t "Boot js source use : ~A~%" (if static-boot-js
"static file"
"compiled version"))
(format t "Boot file for path / : ~A~%" boot-file)
*client-handler*)
@ -511,7 +511,7 @@ brower."
(defun execute (connection-id message)
"Execute SCRIPT on CONNECTION-ID, disregard return value."
(if *long-poll-first*
(write-sequence (format nil "<script>~A</script>" message)
(write-sequence (format nil "<script>~A</script>~%" message)
*long-poll-first*)
(let ((con (get-connection connection-id)))
(when con