;;;; in Text, HTML, and XML formats. This includes hyperlinking
;;;; capability and sub-objects.
;;;;
;;;; in Text, HTML, and XML formats. This includes hyperlinking
;;;; capability and sub-objects.
;;;;
:documentation "Class description")
(version :initarg :version :initform nil
:documentation "Version number for class")
:documentation "Class description")
(version :initarg :version :initform nil
:documentation "Version number for class")
;;; The remainder of these fields are calculated one time
;;; in finalize-inheritence.
(subobjects :initform nil :documentation
"List of fields that contain a list of subobjects objects.")
;;; The remainder of these fields are calculated one time
;;; in finalize-inheritence.
(subobjects :initform nil :documentation
"List of fields that contain a list of subobjects objects.")
(value-func :initform nil :type function)
(xmlvalue-func :initform nil :type function)
(fmtstr-text :initform nil :type string)
(value-func :initform nil :type function)
(xmlvalue-func :initform nil :type function)
(fmtstr-text :initform nil :type string)
((name :type symbol :initform nil :initarg :name :reader name)
(lookup :type function :initform nil :initarg :lookup :reader lookup)
(link-parameters :type list :initform nil :initarg :link-parameters
:reader link-parameters)))
((name :type symbol :initform nil :initarg :name :reader name)
(lookup :type function :initform nil :initarg :lookup :reader lookup)
(link-parameters :type list :initform nil :initarg :link-parameters
:reader link-parameters)))
(let ((*print-circle* nil))
(setf (documentation (class-name cl) 'class)
(format nil "Hyperobject~A~A~A~A"
(let ((*print-circle* nil))
(setf (documentation (class-name cl) 'class)
(format nil "Hyperobject~A~A~A~A"
- (process-subobjects cl)
- (process-views cl)
- (process-documentation cl))
+ (finalize-subobjects cl)
+ (finalize-views cl)
+ (finalize-hyperlinks cl)
+ (finalize-sql cl)
+ (finalize-documentation cl))