/[gcl]/gcl/cmpnew/gcl_cmpinline.lsp
ViewVC logotype

Diff of /gcl/cmpnew/gcl_cmpinline.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.23 by camm, Mon Aug 8 22:59:43 2005 UTC revision 1.24 by camm, Wed Sep 7 02:40:14 2005 UTC
# Line 732  Line 732 
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")

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26