(subtypep 'foo t) returns T

[Christian Nybø]

Good afternoon,

CL-USER> (subtypep 'not-a-type-spec t)
T
T
CL-USER>

Not quite right, is it?
I am looking for something like a type-specifier-p in cmucl, and  
wanted to do
(ignore-errors (subtypep name t))

cmucl 19b darwin ppc, mac os x 10.4.2

-- 
chr