+(defmethod initialize-instance :around ((obj hyperobject-dsd) &rest initargs)
+ (do* ((saved-initargs initargs)
+ (parsed (list obj))
+ (name (first initargs) (first initargs))
+ (val (second initargs) (second initargs)))
+ ((null initargs)
+ (apply #'call-next-method parsed))
+ (if (eql name :value-type)
+ (progn
+ (setq val (canonicalize-value-type val))
+ (setq parsed (append parsed (list name val)))
+ (setq parsed (append parsed (list :type
+ (value-type-to-lisp-type
+ (canonicalize-value-type val))))))
+ (setq parsed (append parsed (list name val))))
+ (setq initargs (cddr initargs))))
+