(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
(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