/[gcl]/gcl/ansi-tests/rt/rt.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/rt/rt.lsp

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

revision 1.6 by pfdietz, Thu Jan 2 13:19:15 2003 UTC revision 1.7 by pfdietz, Sun Jan 19 15:23:19 2003 UTC
# Line 128  Line 128 
128           (not (equal (array-dimensions x)           (not (equal (array-dimensions x)
129                       (array-dimensions y))))                       (array-dimensions y))))
130      nil)      nil)
131     ;; I should use ROW-MAJOR-AREF to do this, but that's broken     #|
    ;; in GCL right now.  
132     ((and (typep x 'array)     ((and (typep x 'array)
133           (= (array-rank x) 2))           (= (array-rank x) 2))
134      (let ((dim (array-dimensions x)))      (let ((dim (array-dimensions x)))
# Line 137  Line 136 
136              always (loop for j from 0 below (second dim)              always (loop for j from 0 below (second dim)
137                           always (equalp-with-case (aref x i j)                           always (equalp-with-case (aref x i j)
138                                                    (aref y i j))))))                                                    (aref y i j))))))
139       |#
140    
141       ((typep x 'array)
142        (let ((size (array-total-size x)))
143          (loop for i from 0 below size
144                always (equalp-with-case (row-major-aref x i)
145                                         (row-major-aref y i)))))
146    
147     (t (eql x y))))     (t (eql x y))))
148    
149  (defun do-entry (entry &optional  (defun do-entry (entry &optional

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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