/[gcl]/gcl/ansi-tests/array-displacement.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/array-displacement.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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