Parent Directory | Revision Log | Patch
revision 1.4 by pfdietz, Wed Jan 29 02:11:54 2003 UTC | revision 1.5 by pfdietz, Sun Feb 16 05:39:55 2003 UTC | |
---|---|---|
# | Line 94 | Line 94 |
94 | (eqlt disp 0)))) | (eqlt disp 0)))) |
95 | t) | t) |
96 | ||
97 | (deftest array-displacement.order.1 | |
98 | (let* ((a (make-array '(10))) | |
99 | (b (make-array '(10) :displaced-to a)) | |
100 | (i 0)) | |
101 | (multiple-value-bind* (dt disp) | |
102 | (array-displacement (progn (incf i) b)) | |
103 | (and (eql i 1) | |
104 | (eqt a dt) | |
105 | (eqlt disp 0)))) | |
106 | t) | |
107 | ||
108 | ;;; Error tests | ;;; Error tests |
109 | ||
110 | (deftest array-displacement.error.1 | (deftest array-displacement.error.1 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |