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

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

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

revision 1.4 by pfdietz, Wed Oct 23 03:10:23 2002 UTC revision 1.5 by pfdietz, Sat Nov 2 03:55:07 2002 UTC
# Line 54  Line 54 
54    t (x x x x x))    t (x x x x x))
55    
56  (deftest array-fill-7  (deftest array-fill-7
57    (let* ((a (make-array '(5))))    (classify-error
58      (classify-error (fill a 'x :start -1)))     (let* ((a (make-array '(5))))
59         (fill a 'x :start -1)))
60    type-error)    type-error)
61    
62  (deftest array-fill-8  (deftest array-fill-8
63    (let* ((a (make-array '(5))))    (classify-error
64      (classify-error (fill a 'x :start 'a)))     (let* ((a (make-array '(5))))
65         (fill a 'x :start 'a)))
66    type-error)    type-error)
67    
68  (deftest array-fill-9  (deftest array-fill-9
69    (let* ((a (make-array '(5))))    (classify-error
70      (classify-error (fill a 'x :end -1)))     (let* ((a (make-array '(5))))
71         (fill a 'x :end -1)))
72    type-error)    type-error)
73    
74  (deftest array-fill-10  (deftest array-fill-10
75    (let* ((a (make-array '(5))))    (classify-error
76      (classify-error (fill a 'x :end 'a)))     (let* ((a (make-array '(5))))
77         (fill a 'x :end 'a)))
78    type-error)    type-error)
79    
80  ;;; fill on arrays of fixnums  ;;; fill on arrays of fixnums
# Line 118  Line 122 
122    t (-1 -1 -1 -1 -1))    t (-1 -1 -1 -1 -1))
123    
124  (deftest array-fixnum-fill-7  (deftest array-fixnum-fill-7
125    (let* ((a (make-array '(5) :element-type 'fixnum)))    (classify-error
126      (classify-error (fill a 10 :start -1)))     (let* ((a (make-array '(5) :element-type 'fixnum)))
127         (fill a 10 :start -1)))
128    type-error)    type-error)
129    
130  (deftest array-fixnum-fill-8  (deftest array-fixnum-fill-8
131    (let* ((a (make-array '(5) :element-type 'fixnum)))    (classify-error
132      (classify-error (fill a 100 :start 'a)))     (let* ((a (make-array '(5) :element-type 'fixnum)))
133         (fill a 100 :start 'a)))
134    type-error)    type-error)
135    
136  (deftest array-fixnum-fill-9  (deftest array-fixnum-fill-9
137    (let* ((a (make-array '(5) :element-type 'fixnum)))    (classify-error
138      (classify-error (fill a -5 :end -1)))     (let* ((a (make-array '(5) :element-type 'fixnum)))
139         (fill a -5 :end -1)))
140    type-error)    type-error)
141    
142  (deftest array-fixnum-fill-10  (deftest array-fixnum-fill-10
143    (let* ((a (make-array '(5) :element-type 'fixnum)))    (classify-error
144      (classify-error (fill a 17 :end 'a)))     (let* ((a (make-array '(5) :element-type 'fixnum)))
145         (fill a 17 :end 'a)))
146    type-error)    type-error)
147    
148  ;;; fill on arrays of unsigned eight bit bytes  ;;; fill on arrays of unsigned eight bit bytes

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

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