44 |
(proclaim '(optimize (safety 2) (space 3))) |
(proclaim '(optimize (safety 2) (space 3))) |
45 |
|
|
46 |
(defun best-array-element-type (type) |
(defun best-array-element-type (type) |
47 |
(cond ((not type)) |
(cond ((not type) nil) |
48 |
((eq type '*) '*) |
((eq type '*) '*) |
49 |
((member type '(string-char character standard-char base-char extended-char)) 'string-char) ;FIXME |
((member type '(string-char character standard-char base-char extended-char)) 'string-char) ;FIXME |
50 |
((car (member type +array-types+))) |
((car (member type +array-types+))) |