26 Oct
2011
26 Oct
'11
11:54 a.m.
Blake McBride blake@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.