/[gcl]/gcl/ansi-tests/array-in-bounds-p.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/array-in-bounds-p.lsp

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

revision 1.1 by pfdietz, Wed Jan 22 02:44:51 2003 UTC revision 1.2 by pfdietz, Sat Feb 8 06:23:02 2003 UTC
# Line 132  Line 132 
132    (array-in-bounds-p #(a b c) -1000000000000000000)    (array-in-bounds-p #(a b c) -1000000000000000000)
133    nil)    nil)
134    
135    ;;; Order of evaluation tests
136    
137    (deftest array-in-bounds-p.24
138      (let ((x 0) y z)
139        (values
140         (array-in-bounds-p (progn (setf y (incf x))
141                                   #())
142                            (progn (setf z (incf x))
143                                   10))
144         x y z))
145      nil 2 1 2)
146    
147  ;;; Error tests  ;;; Error tests
148    
149  (deftest array-in-bounds-p.error.1  (deftest array-in-bounds-p.error.1

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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