/[gcl]/gcl/tests/lists151.tst
ViewVC logotype

Diff of /gcl/tests/lists151.tst

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

revision 1.1 by camm, Thu Dec 20 20:29:54 2001 UTC revision 1.2 by camm, Sun Feb 3 18:44:08 2002 UTC
# Line 0  Line 1 
1    
2    (MAKUNBOUND 'A)
3    A
4    
5    (MAKUNBOUND 'X)
6    X
7    
8    (CAR '(A B C D E F G))
9    A
10    
11    (CDR '(A B C D E F G))
12    (B C D E F G)
13    
14    (CAAR '((A) B C D E F G))
15    A
16    
17    (CADR '(A B C D E F G))
18    B
19    
20    (CDAR '((A B) C D E F G))
21    (B)
22    
23    (CDDR '(A B C D E F G))
24    (C D E F G)
25    
26    (CAAAR '(((A)) B C D E F G))
27    A
28    
29    (CAADR '(A (B) C D E F G))
30    B
31    
32    (CADAR '((A B) C D E F G))
33    B
34    
35    (CADDR '(A B C D E F G))
36    C
37    
38    (CDAAR '(((A B)) C D E F G))
39    (B)
40    
41    (CDADR '(A (B C) D E F G))
42    (C)
43    
44    (CDDAR '((A B C) D E F G))
45    (C)
46    
47    (CDDDR '(A B C D E F G))
48    (D E F G)
49    
50    (CAAAAR '((((A))) B C D E F G))
51    A
52    
53    (CAAADR '(A ((B)) C D E F G))
54    B
55    
56    (CAADAR '((A (B)) C D E F G))
57    B
58    
59    (CAADDR '(A B (C) D E F G))
60    C
61    
62    (CADAAR '(((A B)) C D E F G))
63    B
64    
65    (CADADR '(A (B C) D E F G))
66    C
67    
68    (CADDAR '((A B C) D E F G))
69    C
70    
71    (CADDDR '(A B C D E F G))
72    D
73    
74    (CDAAAR '((((A B))) C D E F G))
75    (B)
76    
77    (CDAADR '(A ((B C)) D E F G))
78    (C)
79    
80    (CDADAR '((A (B C)) D E F G))
81    (C)
82    
83    (CDADDR '(A B (C D) E F G))
84    (D)
85    
86    (CDDAAR '(((A B C)) D E F G))
87    (C)
88    
89    (CDDADR '(A (B C D) E F G))
90    (D)
91    
92    (CDDDAR '((A B C D) E F G))
93    (D)
94    
95    (CDDDDR '(A B C D E F G))
96    (E F G)
97    
98    (CAR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C)
99    E F G))
100    ((((1 2 3) 4) 5) (6 7))
101    
102    (CDR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C)
103    E F G))
104    ((((U V W) X) Y) ((Q W E) R) (A B C) E F G)
105    
106    (CAAR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C)
107    E F G))
108    (((1 2 3) 4) 5)
109    
110    (CADR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C)
111    E F G))
112    (((U V W) X) Y)
113    
114    (CDAR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C)
115    E F G))
116    ((6 7))
117    
118    (CDDR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C)
119    E F G))
120    (((Q W E) R) (A B C) E F G)
121    
122    (CAAAR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C)
123    E F G))
124    ((1 2 3) 4)
125    
126    (CAADR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C)
127    E F G))
128    ((U V W) X)
129    
130    (CADAR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C)
131    E F G))
132    (6 7)
133    
134    (CADDR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C)
135    E F G))
136    ((Q W E) R)
137    
138    (CDAAR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C)
139    E F G))
140    (5)
141    
142    (CDADR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C)
143    E F G))
144    (Y)
145    
146    (CDDAR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C)
147    E F G))
148    NIL
149    
150    (CDDDR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C)
151    E F G))
152    ((A B C) E F G)
153    
154    (CAAAAR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B
155    C) E F G))
156    (1 2 3)
157    
158    (CAAADR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B
159    C) E F G))
160    (U V W)
161    
162    (CAADAR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B
163    C) E F G))
164    6
165    
166    (CAADDR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B
167    C) E F G))
168    (Q W E)
169    
170    (CADAAR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B
171    C) E F G))
172    5
173    
174    (CADADR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B
175    C) E F G))
176    Y
177    
178    (CADDAR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B
179    C) E F G))
180    NIL
181    
182    (CADDDR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B
183    C) E F G))
184    (A B C)
185    
186    (CDAAAR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B
187    C) E F G))
188    (4)
189    
190    (CDAADR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B
191    C) E F G))
192    (X)
193    
194    (CDADAR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B
195    C) E F G))
196    (7)
197    
198    (CDADDR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B
199    C) E F G))
200    (R)
201    
202    (CDDAAR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B
203    C) E F G))
204    NIL
205    
206    (CDDADR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B
207    C) E F G))
208    NIL
209    
210    (CDDDAR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B
211    C) E F G))
212    NIL
213    
214    (CDDDDR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B
215    C) E F G))
216    (E F G)
217    
218    (CAR 'NIL)
219    NIL
220    
221    (CDR 'NIL)
222    NIL
223    
224    (CAAR 'NIL)
225    NIL
226    
227    (CADR 'NIL)
228    NIL
229    
230    (CDAR 'NIL)
231    NIL
232    
233    (CDDR 'NIL)
234    NIL
235    
236    (CAAAR 'NIL)
237    NIL
238    
239    (CAADR 'NIL)
240    NIL
241    
242    (CADAR 'NIL)
243    NIL
244    
245    (CADDR 'NIL)
246    NIL
247    
248    (CDAAR 'NIL)
249    NIL
250    
251    (CDADR 'NIL)
252    NIL
253    
254    (CDDAR 'NIL)
255    NIL
256    
257    (CDDDR 'NIL)
258    NIL
259    
260    (CAAAAR 'NIL)
261    NIL
262    
263    (CAAADR 'NIL)
264    NIL
265    
266    (CAADAR 'NIL)
267    NIL
268    
269    (CAADDR 'NIL)
270    NIL
271    
272    (CADAAR 'NIL)
273    NIL
274    
275    (CADADR 'NIL)
276    NIL
277    
278    (CADDAR 'NIL)
279    NIL
280    
281    (CADDDR 'NIL)
282    NIL
283    
284    (CDAAAR 'NIL)
285    NIL
286    
287    (CDAADR 'NIL)
288    NIL
289    
290    (CDADAR 'NIL)
291    NIL
292    
293    (CDADDR 'NIL)
294    NIL
295    
296    (CDDAAR 'NIL)
297    NIL
298    
299    (CDDADR 'NIL)
300    NIL
301    
302    (CDDDAR 'NIL)
303    NIL
304    
305    (CDDDDR 'NIL)
306    NIL
307    
308    (CAR '(A B C D E F G))
309    A
310    
311    (CDR '(A B C D E F G))
312    (B C D E F G)
313    
314    (CAAR '(A B C D E F G))
315    ERROR
316    
317    (CADR '(A B C D E F G))
318    B
319    
320    (CDAR '(A B C D E F G))
321    ERROR
322    
323    (CDDR '(A B C D E F G))
324    (C D E F G)
325    
326    (CAAAR '(A B C D E F G))
327    ERROR
328    
329    (CAADR '(A B C D E F G))
330    ERROR
331    
332    (CADAR '(A B C D E F G))
333    ERROR
334    
335    (CADDR '(A B C D E F G))
336    C
337    
338    (CDAAR '(A B C D E F G))
339    ERROR
340    
341    (CDADR '(A B C D E F G))
342    ERROR
343    
344    (CDDAR '(A B C D E F G))
345    ERROR
346    
347    (CDDDR '(A B C D E F G))
348    (D E F G)
349    
350    (CAAAAR '(A B C D E F G))
351    ERROR
352    
353    (CAAADR '(A B C D E F G))
354    ERROR
355    
356    (CAADAR '(A B C D E F G))
357    ERROR
358    
359    (CAADDR '(A B C D E F G))
360    ERROR
361    
362    (CADAAR '(A B C D E F G))
363    ERROR
364    
365    (CADADR '(A B C D E F G))
366    ERROR
367    
368    (CADDAR '(A B C D E F G))
369    ERROR
370    
371    (CADDDR '(A B C D E F G))
372    D
373    
374    (CDAAAR '(A B C D E F G))
375    ERROR
376    
377    (CDAADR '(A B C D E F G))
378    ERROR
379    
380    (CDADAR '(A B C D E F G))
381    ERROR
382    
383    (CDADDR '(A B C D E F G))
384    ERROR
385    
386    (CDDAAR '(A B C D E F G))
387    ERROR
388    
389    (CDDADR '(A B C D E F G))
390    ERROR
391    
392    (CDDDAR '(A B C D E F G))
393    ERROR
394    
395    (CDDDDR '(A B C D E F G))
396    (E F G)
397    
398    (CAR '(A))
399    A
400    
401    (CDR '(A))
402    NIL
403    
404    (CAAR '(A))
405    ERROR
406    
407    (CADR '(A))
408    NIL
409    
410    (CDAR '(A))
411    ERROR
412    
413    (CDDR '(A))
414    NIL
415    
416    (CAAAR '(A))
417    ERROR
418    
419    (CAADR '(A))
420    NIL
421    
422    (CADAR '(A))
423    ERROR
424    
425    (CADDR '(A))
426    NIL
427    
428    (CDAAR '(A))
429    ERROR
430    
431    (CDADR '(A))
432    NIL
433    
434    (CDDAR '(A))
435    ERROR
436    
437    (CDDDR '(A))
438    NIL
439    
440    (CAAAAR '(A))
441    ERROR
442    
443    (CAAADR '(A))
444    NIL
445    
446    (CAADAR '(A))
447    ERROR
448    
449    (CAADDR '(A))
450    NIL
451    
452    (CADAAR '(A))
453    ERROR
454    
455    (CADADR '(A))
456    NIL
457    
458    (CADDAR '(A))
459    ERROR
460    
461    (CADDDR '(A))
462    NIL
463    
464    (CDAAAR '(A))
465    ERROR
466    
467    (CDAADR '(A))
468    NIL
469    
470    (CDADAR '(A))
471    ERROR
472    
473    (CDADDR '(A))
474    NIL
475    
476    (CDDAAR '(A))
477    ERROR
478    
479    (CDDADR '(A))
480    NIL
481    
482    (CDDDAR '(A))
483    ERROR
484    
485    (CDDDDR '(A))
486    NIL
487    
488    (CONS 1 2)
489    (1 . 2)
490    
491    (CONS 'A 'B)
492    (A . B)
493    
494    (CONS 'A 'B 'C)
495    ERROR
496    
497    (CONS 'A)
498    ERROR
499    
500    (CONS)
501    ERROR
502    
503    (CONS 'A 'NIL)
504    (A)
505    
506    (CONS 'NIL 'A)
507    (NIL . A)
508    
509    (CONS 'A (CONS 'B (CONS 'C 'NIL)))
510    (A B C)
511    
512    (CONS 'A '(B C D))
513    (A B C D)
514    
515    (TREE-EQUAL 1 1)
516    T
517    
518    (TREE-EQUAL 'WORD 'WORD)
519    T
520    
521    (TREE-EQUAL 'WORD1 'WORD2)
522    NIL
523    
524    (TREE-EQUAL '(A B) '(A B))
525    T
526    
527    (TREE-EQUAL '(A (B C)) '((A B) C))
528    NIL
529    
530    (TREE-EQUAL 5 (+ 2 3))
531    T
532    
533    (TREE-EQUAL '(A (B QUOTE NIL)) '(A (B)))
534    NIL
535    
536    (TREE-EQUAL '(A (B . 1.0)) '(A (B #C(1.0 0.0))))
537    NIL
538    
539    (TREE-EQUAL 1 1 :TEST #'EQ)
540    T
541    
542    (TREE-EQUAL 'WORD 'WORD :TEST #'EQ)
543    T
544    
545    (TREE-EQUAL 'WORD1 'WORD2 :TEST #'EQ)
546    NIL
547    
548    (TREE-EQUAL '(A B) '(A B) :TEST #'EQ)
549    T
550    
551    (TREE-EQUAL '(A (B C)) '((A B) C) :TEST #'EQ)
552    NIL
553    
554    (TREE-EQUAL 5 (+ 2 3) :TEST #'EQ)
555    T
556    
557    (TREE-EQUAL '(A (B)) '(A (B)) :TEST #'EQ)
558    T
559    
560    (TREE-EQUAL '(A (B . 1.0)) '(A (B #C(1.0 0.0))) :TEST #'EQ)
561    NIL
562    
563    (TREE-EQUAL 1 1 :TEST #'EQL)
564    T
565    
566    (TREE-EQUAL 'WORD 'WORD :TEST #'EQL)
567    T
568    
569    (TREE-EQUAL 'WORD1 'WORD2 :TEST #'EQL)
570    NIL
571    
572    (TREE-EQUAL '(A B) '(A B) :TEST #'EQL)
573    T
574    
575    (TREE-EQUAL '(A (B C)) '((A B) C) :TEST #'EQL)
576    NIL
577    
578    (TREE-EQUAL 5 (+ 2 3) :TEST #'EQL)
579    T
580    
581    (TREE-EQUAL '(A (B)) '(A (B)) :TEST #'EQL)
582    T
583    
584    (TREE-EQUAL '(A (B . 1.0)) '(A (B #C(1.0 0.0))) :TEST #'EQL)
585    NIL
586    
587    (TREE-EQUAL 1 1 :TEST #'EQUAL)
588    T
589    
590    (TREE-EQUAL 'WORD 'WORD :TEST #'EQUAL)
591    T
592    
593    (TREE-EQUAL 'WORD1 'WORD2 :TEST #'EQUAL)
594    NIL
595    
596    (TREE-EQUAL '(A B) '(A B) :TEST #'EQUAL)
597    T
598    
599    (TREE-EQUAL '(A (B C)) '((A B) C) :TEST #'EQUAL)
600    NIL
601    
602    (TREE-EQUAL 5 (+ 2 3) :TEST #'EQUAL)
603    T
604    
605    (TREE-EQUAL '(A (B)) '(A (B)) :TEST #'EQUAL)
606    T
607    
608    (TREE-EQUAL '(A (B . 1.0)) '(A (B #C(1.0 0.0))) :TEST #'EQUAL)
609    NIL
610    
611    (TREE-EQUAL 1 1 :TEST-NOT #'EQ)
612    NIL
613    
614    (TREE-EQUAL 'WORD 'WORD :TEST-NOT #'EQ)
615    NIL
616    
617    (TREE-EQUAL 'WORD1 'WORD2 :TEST-NOT #'EQ)
618    T
619    
620    (TREE-EQUAL '(A B) '(A B) :TEST-NOT #'EQ)
621    NIL
622    
623    (TREE-EQUAL '(A (B C)) '((A B) C) :TEST-NOT #'EQ)
624    NIL
625    
626    (TREE-EQUAL 5 (+ 2 3) :TEST-NOT #'EQ)
627    NIL
628    
629    (TREE-EQUAL '(A (B)) '(A (B)) :TEST-NOT #'EQ)
630    NIL
631    
632    (TREE-EQUAL '(A (B . 1.0)) '(A (B #C(1.0 0.0))) :TEST-NOT #'EQ)
633    NIL
634    

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

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