/[gcl]/gcl/ansi-tests/vector-push-extend.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/vector-push-extend.lsp

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

revision 1.2 by pfdietz, Mon Jan 27 12:54:08 2003 UTC revision 1.3 by pfdietz, Sat Feb 15 05:11:12 2003 UTC
# Line 7  Line 7 
7    
8  (deftest vector-push-extend.1  (deftest vector-push-extend.1
9    (let ((a (make-array '(5) :fill-pointer 2    (let ((a (make-array '(5) :fill-pointer 2
10                         :initial-contents '(a b c d e))))                         :initial-contents '(a b c d e)))
11            (i 0) x y)
12      (values      (values
13       (fill-pointer a)       (fill-pointer a)
14       (vector-push-extend 'x a)       (vector-push-extend (progn (setf x (incf i)) 'x)
15                             (progn (setf y (incf i)) a))
16       (fill-pointer a)       (fill-pointer a)
17       a))       a
18    2 2 3 #(a b x))       i x y))
19      2 2 3 #(a b x) 2 1 2)
20    
21  (deftest vector-push-extend.2  (deftest vector-push-extend.2
22    (let ((a (make-array '(5) :fill-pointer 5    (let ((a (make-array '(5) :fill-pointer 5
# Line 43  Line 45 
45    (let ((a (make-array '(5) :fill-pointer 5    (let ((a (make-array '(5) :fill-pointer 5
46                         :adjustable t                         :adjustable t
47                         :initial-contents "abcde"                         :initial-contents "abcde"
48                         :element-type 'base-char)))                         :element-type 'base-char))
49            (i 0) x y z)
50      (values      (values
51       (fill-pointer a)       (fill-pointer a)
52       (vector-push-extend #\x a 1)       (vector-push-extend (progn (setf x (incf i)) #\x)
53                             (progn (setf y (incf i)) a)
54                             (progn (setf z (incf i)) 1))
55       (fill-pointer a)       (fill-pointer a)
56       (<= (array-total-size a) 5)       (<= (array-total-size a) 5)
57       a))       a
58    5 5 6 nil "abcdex")       i x y z))
59      5 5 6 nil "abcdex" 3 1 2 3)
60    
61  (deftest vector-push-extend.5  (deftest vector-push-extend.5
62    (let ((a (make-array '(5) :fill-pointer 2    (let ((a (make-array '(5) :fill-pointer 2

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

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