mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2026-01-06 01:02:14 -08:00
Code Issues Projects Releases Wiki Activity

clog:parent returns parent object used to create the clog-obj

Browse source
This commit is contained in:
David Botton 2024-04-12 13:36:40 -04:00
parent aa0e567ae4
commit 9e5f9184d7
5 changed files with 68 additions and 46 deletions
Download patch file Download diff file Expand all files Collapse all files

11
source/clog-base.lisp
View file

@ -35,12 +35,23 @@ See macro with-connection-cache.")
(html-id
:reader html-id
:initarg :html-id)
(parent
:accessor parent
:initform nil)
(connection-data-mutex
:reader connection-data-mutex
:initform (bordeaux-threads:make-lock)))
(:documentation "CLOG objects (clog-obj) encapsulate the connection between
lisp and an HTML DOM element."))
;;;;;;;;;;;;;;;;;;;
;; create-parent ;;
;;;;;;;;;;;;;;;;;;;
(defgeneric parent (clog-obj)
(:documentation "Returns the clog-obj of the obj that was used as creation
parent if was set or nil. This is not per se the parent in the DOM."))
;;;;;;;;;;;;;;;;;;;
;; connection-id ;;
;;;;;;;;;;;;;;;;;;;