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

Flesh out the DOM structure

Browse source
This commit is contained in:
David Botton 2020-12-24 21:29:42 -05:00
parent d2e8e78e47
commit 5589cde897
11 changed files with 267 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

6
clog-system.lisp
View file

@ -19,10 +19,10 @@
(defvar *on-new-window* nil "Store the on-new-window handler")
(defun on-connect (id)
(defun on-connect (connection-id)
(when cc:*verbose-output*
(format t "Start new window handler on connection-id - ~A" id))
(let ((body (make-clog-obj id 0)))
(format t "Start new window handler on connection-id - ~A" connection-id))
(let ((body (make-clog-body connection-id)))
(funcall *on-new-window* body)))
(defun initialize (on-new-window