: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)
(case (base-value-type value-type)
((:string :cdata :varchar :char)
'(or null string))
+ (:datetime
+ '(or null integer))
(:character
'(or null character))
(:fixnum
:single-float)
(:double-float
:double-float)
+ (:datetime
+ :long-integer)
(otherwise
:text))
length)))
(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 ""))