t)))
(defmethod initialize-instance :around ((obj hyperobject-dsd) &rest initargs)
- (do* ((saved-initargs initargs)
- (parsed (list obj))
+ (do* ((parsed (list obj))
(name (first initargs) (first initargs))
(val (second initargs) (second initargs)))
((null initargs)
it
(lisp-name-to-sql-name (slot-definition-name dsd))))
(dolist (name '(value-type print-formatter subobject hyperlink
- hyperlink-parameters
+ hyperlink-parameters unbound-lookup
description value-constraint indexed null-allowed
unique short-description void-text read-only-groups
hidden-groups unit disable-predicate view-type