/[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.18 by camm, Wed Jun 22 05:06:21 2005 UTC revision 1.19 by camm, Mon Jun 27 14:56:26 2005 UTC
# Line 779  Line 779 
779  ;;from the function definitions themselves.  CM 20050106.  ;;from the function definitions themselves.  CM 20050106.
780  (defun aref-propagator (fn x &rest inds)  (defun aref-propagator (fn x &rest inds)
781    (declare (ignore fn inds))    (declare (ignore fn inds))
782    (and (consp x) (member (car x) '(array vector string) :test #'eq)    (let ((x (si::normalize-type x)))
783         (let ((uaet (upgraded-array-element-type (nil-to-t (cadr x)))))      (and (consp x) (member (car x) '(array simple-array))
784           (let ((uaet (and (not (eq (cadr x) '*)) (upgraded-array-element-type (nil-to-t (cadr x))))))
785           ;; FIXME -- inline bit-vectors too.           ;; FIXME -- inline bit-vectors too.
786           (unless (eq uaet 'bit)           (unless (eq uaet 'bit)
787             ;;FIXME string-char -> character for ansi throughout, this is just a bridge for now.             ;;FIXME string-char -> character for ansi throughout, this is just a bridge for now.
788             ;;20050509 CM             ;;20050509 CM
789             (if (eq uaet 'string-char) 'character uaet)))))             (if (eq uaet 'string-char) 'character uaet))))))
790    
791  (setf (symbol-function 'cmp-aref) (symbol-function 'row-major-aref))  (setf (symbol-function 'cmp-aref) (symbol-function 'row-major-aref))
792    

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

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