/[gcl]/gcl/ansi-tests/beyond-ansi/errors-data-and-control-flow-2.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/beyond-ansi/errors-data-and-control-flow-2.lsp

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

revision 1.3 by pfdietz, Wed Jun 8 13:43:47 2005 UTC revision 1.4 by pfdietz, Tue Jun 14 13:12:45 2005 UTC
# Line 190  Line 190 
190  (def-error-test return-from.5 (block foo (return-from foo nil . 2)))  (def-error-test return-from.5 (block foo (return-from foo nil . 2)))
191  (def-error-test return-from.6 (block foo (return-from foo nil 3)))  (def-error-test return-from.6 (block foo (return-from foo nil 3)))
192    
193    ;;; RETURN
194    
195    (def-error-test return.1 (return . x))
196    (def-error-test return.2 (return nil . x))
197    
198    ;;; TAGBODY
199    
200    (def-error-test tagbody.1 (tagbody . x))
201    (def-all-error-test tagbody.2 (typef '(or symbol integer cons))
202      #'(lambda (x) `(tagbody ,x)))
203    
204    ;;; THROW
205    
206    (def-error-test throw.1 (throw))
207    (def-error-test throw.2 (throw . x))
208    (def-error-test throw.3 (catch 'a (throw 'a)))
209    (def-error-test throw.4 (catch 'a (throw 'a . x)))
210    (def-error-test throw.5 (catch 'a (throw 'a 1 . x)))
211    (def-error-test throw.6 (catch 'a (throw 'a 1 'x)))
212    
213    ;;; UNWIND-PROTECT
214    
215    (def-error-test unwind-protect.1 (unwind-protect))
216    (def-error-test unwind-protect.2 (unwind-protect . x))
217    (def-error-test unwind-protect.3 (unwind-protect nil . x))
218    
219    ;;; NOT
220    
221    (def-error-test not.1 (not . x))
222    (def-error-test not.2 (not nil . x))
223    
224    
225    ;;; EQ
226    
227    (def-error-test eq.1 (eq . 1))
228    (def-error-test eq.2 (eq 'x . 2))
229    (def-error-test eq.3 (eq :foo 2 . 17))
230    
231    ;;; EQL
232    
233    (def-error-test eql.1 (eql . 1))
234    (def-error-test eql.2 (eql 'x . 2))
235    (def-error-test eql.3 (eql :foo 2 . 17))
236    
237    ;;; EQUAL
238    
239    (def-error-test equal.1 (equal . 1))
240    (def-error-test equal.2 (equal 'x . 2))
241    (def-error-test equal.3 (equal :foo 2 . 17))
242    
243    ;;; EQUALP
244    
245    (def-error-test equalp.1 (equalp . 1))
246    (def-error-test equalp.2 (equalp 'x . 2))
247    (def-error-test equalp.3 (equalp :foo 2 . 17))
248    
249    ;;; IDENTITY
250    
251    (def-error-test identity.1 (identity . 0))
252    (def-error-test identity.2 (identity 0 . "foo"))
253    
254    ;;; COMPLEMENT
255    
256    (def-error-test complement.1 (complement . 1.2))
257    (def-error-test complement.2 (complement #'plusp . #(1 2)))
258    (def-error-test complement.3 (complement #'zerop #*110101 . #c(1 2)))
259    (def-all-error-test complement.4 'functionp '(complement x))
260    
261    ;;; CONSTANTLY
262    
263    (def-error-test constantly.1 (constantly . 1/2))
264    (def-error-test constantly.2 (constantly :foo . 1/2))
265    
266    ;;; EVERY
267    
268    (def-error-test every.1 (every . :foo))
269    (def-error-test every.2 (every 'null . (list)))
270    (def-error-test every.3 (every (gensym) '(a b c d)))
271    
272    ;;; SOME
273    
274    (def-error-test some.1 (some . :foo))
275    (def-error-test some.2 (some 'null . (list)))
276    (def-error-test some.3 (some (gensym) '(a b c d)))
277    
278    ;;; NOTEVERY
279    
280    (def-error-test notevery.1 (notevery . :foo))
281    (def-error-test notevery.2 (notevery 'null . (list)))
282    (def-error-test notevery.3 (notevery (gensym) '(a b c d)))
283    
284    ;;; NOTANY
285    
286    (def-error-test notany.1 (notany . :foo))
287    (def-error-test notany.2 (notany 'null . (list)))
288    (def-error-test notany.3 (notany (gensym) '(a b c d)))
289    
290    ;;; AND
291    
292    (def-error-test and.1 (and . #.(make-hash-table)))
293    (def-error-test and.2 (and t . :foo))
294    
295    ;;; COND
296    
297    (def-error-test cond.1 (cond . 1))
298    (def-error-test cond.2 (cond (t . 2)))
299    (def-error-test cond.3 (cond nil))
300    (def-error-test cond.4 (cond (nil) . "foo"))
301    
302    ;;; IF
303    
304    (def-error-test if.1 (if))
305    (def-error-test if.2 (if . t))
306    (def-error-test if.3 (if t))
307    (def-error-test if.4 (if nil))
308    (def-error-test if.5 (if t . 1))
309    (def-error-test if.6 (if nil . 2))
310    (def-error-test if.7 (if t 1 . 2))
311    (def-error-test if.8 (if nil #\x . #\y))
312    (def-error-test if.9 (if t 1 2 . 3))
313    (def-error-test if.10 (if nil #\x #\y . 1.23d4))
314    (def-error-test if.11 (if t 1 2 3))
315    (def-error-test if.12 (if nil #\x #\y nil nil nil))
316    
317    ;;; OR
318    
319    (def-error-test or.1 (or . :foo))
320    (def-error-test or.2 (or nil . :bar))
321    
322    ;;; WHEN
323    
324    (def-error-test when.1 (when))
325    (def-error-test when.2 (when . #\$))
326    (def-error-test when.3 (when t . x))
327    (def-error-test when.4 (when t nil . "A"))
328    
329    ;;; UNLESS
330    
331    (def-error-test unless.1 (unless))
332    (def-error-test unless.2 (unless . #*1011))
333    (def-error-test unless.3 (unless nil . t))
334    (def-error-test unless.4 (unless nil nil . #()))

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