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

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

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

revision 1.74 by pfdietz, Sat Jul 12 13:46:01 2003 UTC revision 1.75 by pfdietz, Sun Jul 27 02:41:52 2003 UTC
# Line 114  Results: ~A~%" expected-number form n re Line 114  Results: ~A~%" expected-number form n re
114         (typep a2 'array)         (typep a2 'array)
115         (= (array-rank a1) (array-rank a2))         (= (array-rank a1) (array-rank a2))
116         (if (= (array-rank a1) 0)         (if (= (array-rank a1) 0)
117             (equal (rt::my-aref a1) (rt::my-aref a2))             (equal (regression-test::my-aref a1) (regression-test::my-aref a2))
118           (let ((ad (array-dimensions a1)))           (let ((ad (array-dimensions a1)))
119             (and (equal ad (array-dimensions a2))             (and (equal ad (array-dimensions a2))
120                  (locally                  (locally
# Line 123  Results: ~A~%" expected-number form n re Line 123  Results: ~A~%" expected-number form n re
123                       (let ((as (first ad)))                       (let ((as (first ad)))
124                         (loop                         (loop
125                          for i from 0 below as                          for i from 0 below as
126                          always (equal (rt::my-aref a1 i) (rt::my-aref a2 i))))                          always (equal (regression-test::my-aref a1 i)
127                                          (regression-test::my-aref a2 i))))
128                     (let ((as (array-total-size a1)))                     (let ((as (array-total-size a1)))
129                       (and (= as (array-total-size a2))                       (and (= as (array-total-size a2))
130                            (loop                            (loop
131                             for i from 0 below as                             for i from 0 below as
132                             always (equal (rt::my-row-major-aref a1 i)                             always
133                                           (rt::my-row-major-aref a2 i))))))))))))                             (equal
134                                (regression-test::my-row-major-aref a1 i)
135                                (regression-test::my-row-major-aref a2 i))
136                               ))))))))))
137    
138  ;;; *universe* is defined elsewhere -- it is a list of various  ;;; *universe* is defined elsewhere -- it is a list of various
139  ;;; lisp objects used when stimulating things in various tests.  ;;; lisp objects used when stimulating things in various tests.

Legend:
Removed from v.1.74  
changed lines
  Added in v.1.75

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