/[gcl]/gcl/ansi-tests/fill-pointer.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/fill-pointer.lsp

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

revision 1.3 by pfdietz, Wed Jan 29 02:11:55 2003 UTC revision 1.4 by pfdietz, Mon Feb 17 04:22:04 2003 UTC
# Line 24  Line 24 
24       a))       a))
25    5 6 #(1 2 3 4 5 6))    5 6 #(1 2 3 4 5 6))
26    
27    (deftest fill-pointer.order.1
28      (let ((i 0)
29            (a (make-array '(10) :fill-pointer 5)))
30        (values
31         (fill-pointer (progn (incf i) a))
32         i))
33      5 1)
34    
35    (deftest fill-pointer.order.2
36      (let ((i 0) x y
37            (a (make-array '(10) :fill-pointer 5
38                           :initial-contents '(1 2 3 4 5 6 7 8 9 10))))
39        (values
40         i
41         (setf (fill-pointer (progn (setf x (incf i)) a))
42               (progn (setf y (incf i)) 6))
43         a
44         i x y))
45      0 6 #(1 2 3 4 5 6) 2 1 2)
46    
47  ;;; Error tests  ;;; Error tests
48    
49  (deftest fill-pointer.error.1  (deftest fill-pointer.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