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

add connection-body

Browse source
This commit is contained in:
David Botton 2022-02-08 17:59:29 -05:00
parent 8a3cf2ab71
commit 9ca0699dee
3 changed files with 14 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
LICENSE
View file

@ -1,6 +1,7 @@
BSD 3-Clause License BSD 3-Clause License
Copyright (c) 2020-2021, David Botton CLOG and the CLOG Builder
Copyright (c) 2020-2022, David Botton
All rights reserved. All rights reserved.
Redistribution and use in source and binary forms, with or without Redistribution and use in source and binary forms, with or without

12
source/clog-base.lisp
View file

@ -459,11 +459,21 @@ clog-obj that will persist regardless of thread. The event hooks
are stored in this string based hash in the format of: are stored in this string based hash in the format of:
\"html-id:event-name\" => #'event-handler. clog-* keys are reserved \"html-id:event-name\" => #'event-handler. clog-* keys are reserved
for internal use of clog. The key \"clog-body\" is set to the for internal use of clog. The key \"clog-body\" is set to the
clog-body of this connection.")) clog-body of this connection and accessible with CONNECTION-BODY."))
(defmethod connection-data ((obj clog-obj)) (defmethod connection-data ((obj clog-obj))
(clog-connection:get-connection-data (connection-id obj))) (clog-connection:get-connection-data (connection-id obj)))
;;;;;;;;;;;;;;;;;;;;;
;; connection-body ;;
;;;;;;;;;;;;;;;;;;;;;
(defgeneric connection-body (clog-obj)
(:documentation "Get connection's clog-body."))
(defmethod connection-body (clog-obj)
(connection-data-item clog-obj "clog-body"))
;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;
;; connection-data-item ;; ;; connection-data-item ;;
;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;

1
source/clog.lisp
View file

@ -101,6 +101,7 @@ embedded in a native template application.)"
"CLOG-Obj - Low Level" "CLOG-Obj - Low Level"
(connection-data generic-function) (connection-data generic-function)
(connection-data-item generic-function) (connection-data-item generic-function)
(connection-body generic-function)
(remove-connection-data-item generic-function) (remove-connection-data-item generic-function)
(validp generic-function) (validp generic-function)