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

faster connection-cache

Browse source
This commit is contained in:
David Botton 2025-11-16 15:19:14 -05:00
parent 0e9e3b09be
commit 239da8522d
1 changed files with 9 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

12
source/clog-base.lisp
View file

@ -147,9 +147,15 @@ flushed with FLUSH-CONNECTION-CACHE or a query is made."
(defun flush-connection-cache (clog-obj)
"Flush connection cache if on CLOG-OBJ is located on."
(when *connection-cache*
(dolist (script (reverse *connection-cache*))
(unless (eq script :cache)
(clog-connection:execute (connection-id clog-obj) script)))
(let ((big (make-string-output-stream)))
(write-string "(function(){" big)
(dolist (script (reverse *connection-cache*))
(unless (eq script :cache)
(write-string script big)
(write-char #\; big)))
(write-string "})()" big)
(clog-connection:execute (connection-id clog-obj)
(get-output-stream-string big)))
(setf *connection-cache* (list :cache))))
;;;;;;;;;;;;;