741 |
;; 20050106 CM. |
;; 20050106 CM. |
742 |
(defun c-cast (aet) |
(defun c-cast (aet) |
743 |
(case aet |
(case aet |
744 |
((string-char unsigned-char non-negative-char) "unsigned char") |
((string-char character unsigned-char non-negative-char) "unsigned char") |
745 |
(signed-char "char") |
(signed-char "char") |
746 |
(signed-short "short") |
(signed-short "short") |
747 |
((non-negative-short unsigned-short) "unsigned short") |
((non-negative-short unsigned-short) "unsigned short") |
783 |
(let ((uaet (upgraded-array-element-type (nil-to-t (cadr x))))) |
(let ((uaet (upgraded-array-element-type (nil-to-t (cadr x))))) |
784 |
;; FIXME -- inline bit-vectors too. |
;; FIXME -- inline bit-vectors too. |
785 |
(unless (eq uaet 'bit) |
(unless (eq uaet 'bit) |
786 |
uaet)))) |
;;FIXME string-char -> character for ansi throughout, this is just a bridge for now. |
787 |
|
;;20050509 CM |
788 |
|
(if (eq uaet 'string-char) 'character uaet))))) |
789 |
|
|
790 |
(setf (symbol-function 'cmp-aref) (symbol-function 'row-major-aref)) |
(setf (symbol-function 'cmp-aref) (symbol-function 'row-major-aref)) |
791 |
|
|
808 |
|
|
809 |
(defun cmp-aset-inline-types (&rest r) |
(defun cmp-aset-inline-types (&rest r) |
810 |
(let ((art (car r))) |
(let ((art (car r))) |
811 |
(let ((aet (aref-propagator 'cmp-asef art))) |
(let ((aet (aref-propagator 'cmp-aset art))) |
812 |
(if aet |
(if aet |
813 |
`((,art seqind ,aet) ,aet) |
`((,art seqind ,aet) ,aet) |
814 |
`((t seqind t) t))))) |
`((t seqind t) t))))) |