/[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.14 by camm, Fri Jan 7 17:58:33 2005 UTC revision 1.15 by camm, Mon May 9 19:59:45 2005 UTC
# Line 741  Line 741 
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")
# Line 783  Line 783 
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    
# Line 806  Line 808 
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)))))

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

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