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

Diff of /gcl/ansi-tests/array-dimension.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, Sun Feb 16 05:39:55 2003 UTC
# Line 37  Line 37 
37         (array-dimension a 0))))         (array-dimension a 0))))
38    10 20)    10 20)
39    
40    (deftest array-dimension.order.1
41      (let ((i 0) a b)
42        (values
43         (array-dimension (progn (setf a (incf i)) #(a b c d))
44                          (progn (setf b (incf i)) 0))
45         i a b))
46      4 2 1 2)
47    
48  ;;; Error tests  ;;; Error tests
49    
50  (deftest array-dimension.error.1  (deftest array-dimension.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