(assert-t-t
(subtypep '(or fixnum simple-string end-of-file parse-error fixnum vector)
'(or fixnum vector end-of-file parse-error fixnum simple-string)))
(assert-t-t
(subtypep '(or fixnum simple-string end-of-file parse-error fixnum vector)
'(or fixnum vector end-of-file parse-error fixnum simple-string)))