732 |
;; 20050106 CM. |
;; 20050106 CM. |
733 |
(defun c-cast (aet) |
(defun c-cast (aet) |
734 |
(case aet |
(case aet |
|
((string-char character unsigned-char non-negative-char) "unsigned char") |
|
735 |
(signed-char "char") |
(signed-char "char") |
736 |
|
((string-char character unsigned-char non-negative-char) "unsigned char") |
737 |
(signed-short "short") |
(signed-short "short") |
738 |
((non-negative-short unsigned-short) "unsigned short") |
((non-negative-short unsigned-short) "unsigned short") |
739 |
(fixnum "fixnum") |
((signed-fixnum fixnum non-negative-fixnum) "fixnum") |
740 |
|
((unsigned-fixnum ) "object") ;FIXME |
741 |
(short-float "float") |
(short-float "float") |
742 |
(long-float "double") |
(long-float "double") |
743 |
((t object) "object") |
((t object) "object") |