(defvar *null-constituent-traits* (make-instance 'trait-table))

(let ((*constituent-trait-table* *null-constituent-traits*))
  (read-from-string "(⨁1_234_567~7_654_321 foo:bar >keyword)"))
;; (⨁1_234_567~7_654_321 |FOO:BAR| >KEYWORD)
;; 39

(let ((*constituent-trait-table* *null-constituent-traits*))
  (read-from-string "(+1234567/7654321 foo:bar :keyword)"))
;; (|+1234567/7654321| |FOO:BAR| |:KEYWORD|)
;; 35