[armedbear-devel] Support for specialized arrays?

[Stas Boukarev]

Blake McBride <blake at mcbride.name> writes:

> Figured it out:
>
> (array-element-type (make-array '(2 2) :element-type 'fixnum
> :initial-contents '((1 2)(3 4))))
>
> T
You could check that with
(upgraded-array-element-type 'fixnum) => T

And to check all types
(loop for symbol being the symbols in :cl
      when (not (eql t (or (ignore-errors (upgraded-array-element-type symbol)) t)))
      collect symbol)
=>      
(BIT STANDARD-CHAR BASE-CHAR CHARACTER)

-- 
With best regards, Stas.