add connection-body

LICENSE

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

source/clog-base.lisp

@@ -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:
 \"html-id:event-name\" => #'event-handler. clog-* keys are reserved
 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))
   (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 ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;

source/clog.lisp

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