(or (eq type 'string)
(and (listp type) (some #'(lambda (x) (eq x 'string)) type))))
+(defun value-type-is-a-string (type)
+ (or (eq type 'string)
+ (eq type 'u::cdata)
+ (and (listp type) (some #'(lambda (x) (or (eq x 'string)
+ (eq x 'u::cdata)))
+ type))))
+
(defun base-value-type (value-type)
(if (atom value-type)
value-type