:documentation "Unique ID for the class")
(default-view :initform nil :initarg :default-view :accessor default-view
:documentation "The default view for a class")
-
+ (documementation :initform nil :initarg :documentation
+ :documentation "Documentation string for hyperclass.")
+
;; SQL commands
(create-table-cmd :initform nil :reader create-table-cmd)
(create-indices-cmds :initform nil :reader create-index-cmds)
(defun finalize-documentation (cl)
"Calculate class documentation slot"
(let ((*print-circle* nil))
- (setf (documentation (class-name cl) 'class)
+ (setf (documentation cl 'type)
(format nil "Hyperobject~A~A~A~A"
(aif (user-name cl)
(format nil ": ~A" it ""))