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

Diff of /gcl/ansi-tests/array-total-size.lsp

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

revision 1.3 by pfdietz, Wed Jan 29 02:11:54 2003 UTC revision 1.4 by pfdietz, Sun Feb 16 05:39:55 2003 UTC
# Line 27  Line 27 
27    (array-total-size #2a((1 2 3)(4 5 6)(7 8 9)(a b c)))    (array-total-size #2a((1 2 3)(4 5 6)(7 8 9)(a b c)))
28    12)    12)
29    
30    (deftest array-total-size.order.1
31      (let ((i 0) a)
32        (values
33         (array-total-size (progn (setf a (incf i)) #(a b c d)))
34         i a))
35      4 1 1)
36    
37  ;;; Error tests  ;;; Error tests
38    
39  (deftest array-total-size.error.1  (deftest array-total-size.error.1

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

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