[About Allegro CL]
> Indeed, on telnet://maxima.franz.com I get
>
> <4> (subtypep 'character 'base-char)
> NIL
> T
> <5> (upgraded-array-element-type 'base-char)
> CHARACTER
But then Allegro CL gives also
<1> *package*
#<The COMMON-LISP-USER package>
<2> (subtypep 'character 'base-char)
NIL
T
<3> (upgraded-array-element-type 'standard-char)
CHARACTER
And this contradicts the very first sentence of the description of
`Type BASE-CHAR' in the Hyperspec 13.2 (The Characters Dictionary)
http://www.lispworks.com/reference/HyperSpec/Body/t_base_c.htm#base-char
Wolfgang