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

Support no-quicklisp asdf systems and OCICL

Browse source
This commit is contained in:
David Botton 2024-07-08 14:47:30 -04:00
parent eda76103cb
commit e189b51c87
9 changed files with 196 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

16
source/clog-system.lisp
View file

@ -117,13 +117,15 @@ number is chosen."
(setf *extended-routing* extended-routing)
(when on-new-window-handler
(set-on-new-window on-new-window-handler :path "/" :boot-file boot-file))
(unless clog-connection:*clog-running*
(setf clog-connection:*clog-running* t)
(when (or (eql port 0) (eq port nil))
(setf port (clog-connection:random-port)))
(apply #'clog-connection:initialize
(append (list #'on-connect :static-root static-root :port port)
rest))))
(if clog-connection:*clog-running*
(setf clog-connection:*static-root* static-root)
(progn
(setf clog-connection:*clog-running* t)
(when (or (eql port 0) (eq port nil))
(setf port (clog-connection:random-port)))
(apply #'clog-connection:initialize
(append (list #'on-connect :static-root static-root :port port)
rest)))))
;;;;;;;;;;;;;;;;;;;;;;;
;; set-on-new-window ;;