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

Diff of /gcl/tests/lists152.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    (ENDP 'NIL)
3    T
4    
5    (ENDP '(A . B))
6    NIL
7    
8    (ENDP '(A B . C))
9    NIL
10    
11    (ENDP '(A B C))
12    NIL
13    
14    (ENDP '(A B C D))
15    NIL
16    
17    (ENDP '(A B C . D))
18    NIL
19    
20    (ENDP '('NIL 'NIL))
21    NIL
22    
23    (LIST-LENGTH 'NIL)
24    0
25    
26    (LIST-LENGTH '(A . B))
27    #+XCL 1
28    #+CLISP ERROR
29    
30    (LIST-LENGTH '(A B C D))
31    4
32    
33    (LIST-LENGTH '(A (B C)
34                     D))
35    3
36    
37    (LET ((X (LIST 'A 'B 'C)))
38         (RPLACD (LAST X)
39                X)
40         (LIST-LENGTH X))
41    NIL
42    
43    (NTH 0
44         '(A B C D))
45    A
46    
47    (NTH 1
48         '(A B C D))
49    B
50    
51    (NTH 3
52         '(A B C D))
53    D
54    
55    (NTH 5
56         '(A B C D))
57    NIL
58    
59    (NTH -2
60         '(A B C D))
61    ERROR
62    
63    (NTH 0 'NIL)
64    NIL
65    
66    (NTH 2 'NIL)
67    NIL
68    
69    (FIRST '(1 2 3 4 5 6 7 8 9 10 11))
70    1
71    
72    (SECOND '(1 2 3 4 5 6 7 8 9 10 11))
73    2
74    
75    (THIRD '(1 2 3 4 5 6 7 8 9 10 11))
76    3
77    
78    (FOURTH '(1 2 3 4 5 6 7 8 9 10 11))
79    4
80    
81    (FIFTH '(1 2 3 4 5 6 7 8 9 10 11))
82    5
83    
84    (SIXTH '(1 2 3 4 5 6 7 8 9 10 11))
85    6
86    
87    (SEVENTH '(1 2 3 4 5 6 7 8 9 10 11))
88    7
89    
90    (EIGHTH '(1 2 3 4 5 6 7 8 9 10 11))
91    8
92    
93    (NINTH '(1 2 3 4 5 6 7 8 9 10 11))
94    9
95    
96    (TENTH '(1 2 3 4 5 6 7 8 9 10 11))
97    10
98    
99    (FIRST '(1 2 3))
100    1
101    
102    (SECOND '(1 2 3))
103    2
104    
105    (THIRD '(1 2 3))
106    3
107    
108    (FOURTH '(1 2 3))
109    NIL
110    
111    (FIFTH '(1 2 3))
112    NIL
113    
114    (SIXTH '(1 2 3))
115    NIL
116    
117    (SEVENTH '(1 2 3))
118    NIL
119    
120    (EIGHTH '(1 2 3))
121    NIL
122    
123    (NINTH '(1 2 3))
124    NIL
125    
126    (TENTH '(1 2 3))
127    NIL
128    
129    (FIRST 'NIL)
130    NIL
131    
132    (SECOND 'NIL)
133    NIL
134    
135    (THIRD 'NIL)
136    NIL
137    
138    (FOURTH 'NIL)
139    NIL
140    
141    (FIFTH 'NIL)
142    NIL
143    
144    (SIXTH 'NIL)
145    NIL
146    
147    (SEVENTH 'NIL)
148    NIL
149    
150    (EIGHTH 'NIL)
151    NIL
152    
153    (NINTH 'NIL)
154    NIL
155    
156    (TENTH 'NIL)
157    NIL
158    
159    (REST '(1 2 3 4 5))
160    (2 3 4 5)
161    
162    (REST 'NIL)
163    NIL
164    
165    (REST '(A . B))
166    B
167    
168    (REST '(1 2 3 . 4))
169    (2 3 . 4)
170    
171    (NTHCDR 0
172           '(A B C D))
173    (A B C D)
174    
175    (NTHCDR 1
176           '(A B C D))
177    (B C D)
178    
179    (NTHCDR 3
180           '(A B C D))
181    (D)
182    
183    (NTHCDR 5
184           '(A B C D))
185    NIL
186    
187    (NTHCDR -2
188           '(A B C D))
189    ERROR
190    
191    (NTHCDR 0 'NIL)
192    NIL
193    
194    (NTHCDR 2 'NIL)
195    NIL
196    
197    (LAST '(1 2 3 4 5))
198    (5)
199    
200    (LAST 'NIL)
201    NIL
202    
203    (LAST '(A . B))
204    (A . B)
205    
206    (LAST '(1 2 3 . 4))
207    (3 . 4)
208    
209    (LIST 'A 'B 'C 'D)
210    (A B C D)
211    
212    (LIST 'A)
213    (A)
214    
215    (LIST '(A B)
216          '(C D))
217    ((A B)
218     (C D))
219    
220    (LIST 'A 'NIL)
221    (A NIL)
222    
223    (LIST 'NIL 'A)
224    (NIL A)
225    
226    (LIST 'NIL 'NIL)
227    (NIL NIL)
228    
229    (LIST)
230    NIL
231    
232    (LIST 3 4 'A
233          (CAR '(B . C))
234          (+ 6 -2))
235    (3 4 A B 4)
236    
237    (LIST* 'A 'B 'C 'D)
238    (A B C . D)
239    
240    (LIST* 'A)
241    A
242    
243    (LIST* '(A B)
244           '(C D))
245    ((A B)
246     C D)
247    
248    (LIST* 'A 'NIL)
249    (A)
250    
251    (LIST* 'NIL 'A)
252    (NIL . A)
253    
254    (LIST* 'NIL 'NIL)
255    (NIL)
256    
257    (LIST*)
258    ERROR
259    
260    (LIST* 3 4 'A
261           (CAR '(B . C))
262           (+ 6 -2))
263    (3 4 A B . 4)
264    
265    (LIST* 'A 'B 'C
266           '(D E F))
267    (A B C D E F)
268    
269    (LIST* X)
270    ERROR
271    
272    (LIST* 'NIL)
273    NIL
274    
275    (MAKE-LIST 5)
276    (NIL NIL NIL NIL NIL)
277    
278    (MAKE-LIST 5 :INITIAL-ELEMENT)
279    ERROR
280    
281    (MAKE-LIST 3 :INITIAL-ELEMENT 'RAH)
282    (RAH RAH RAH)
283    
284    (MAKE-LIST 0)
285    NIL
286    
287    (MAKE-LIST 0 :INITIAL-ELEMENT 'AAA)
288    NIL
289    
290    (MAKE-LIST 5 :INITIAL-ELEMENT 'NIL)
291    (NIL NIL NIL NIL NIL)
292    
293    (MAKE-LIST)
294    ERROR
295    
296    (APPEND '(A B C)
297           '(D E F)
298           'NIL
299           '(G))
300    (A B C D E F G)
301    
302    (APPEND '(A B C)
303           'D)
304    (A B C . D)
305    
306    (APPEND 'A 'B)
307    ERROR
308    
309    (APPEND 'A 'NIL)
310    ERROR
311    
312    (APPEND 'NIL 'NIL)
313    NIL
314    
315    (APPEND 'NIL 'A)
316    #+XCL ERROR
317    #-XCL A
318    
319    (APPEND 'NIL
320           '(A B C))
321    (A B C)
322    
323    (SETQ X
324          '(A B C))
325    (A B C)
326    
327    (SETQ Y
328          '(D E F))
329    (D E F)
330    
331    (SETQ R
332          (APPEND X Y))
333    (A B C D E F)
334    
335    X
336    (A B C)
337    
338    Y
339    (D E F)
340    
341    (EQ (CDDDR R)
342        Y)
343    T
344    
345    (COPY-LIST '(1 2 3 4 5))
346    (1 2 3 4 5)
347    
348    (COPY-LIST 'NIL)
349    NIL
350    
351    (COPY-LIST '(A . B))
352    (A . B)
353    
354    (COPY-LIST '(1 2 3 . 4))
355    (1 2 3 . 4)
356    
357    (SETQ L
358          '(1 2 3 4 5))
359    (1 2 3 4 5)
360    
361    (EQ L
362        (COPY-LIST L))
363    NIL
364    
365    (EQL L
366         (COPY-LIST L))
367    NIL
368    
369    (EQUAL L
370           (COPY-LIST L))
371    T
372    
373    (EQUALP L
374           (COPY-LIST L))
375    T
376    
377    (COPY-ALIST 'A)
378    #+XCL ERROR
379    #+CLISP A
380    
381    (COPY-ALIST 'NIL)
382    NIL
383    
384    (COPY-ALIST 5)
385    #+XCL ERROR
386    #+CLISP 5
387    
388    (COPY-ALIST '(A B))
389    (A B)
390    
391    (COPY-ALIST '((1 . A)
392                  (2 . B)
393                  (3 . C)))
394    ((1 . A)
395     (2 . B)
396     (3 . C))
397    
398    (SETQ X
399          '((1 . A)
400            (2 . B)
401            (3 . C)))
402    ((1 . A)
403     (2 . B)
404     (3 . C))
405    
406    (EQ X
407        (COPY-ALIST X))
408    NIL
409    
410    (EQL X
411         (COPY-ALIST X))
412    NIL
413    
414    (EQUAL X
415           (COPY-ALIST X))
416    T
417    
418    (EQ (CADR X)
419        (CADR (COPY-ALIST X)))
420    NIL
421    
422    (EQL (CADR X)
423         (CADR (COPY-ALIST X)))
424    NIL
425    
426    (EQUAL (CADR X)
427           (CADR (COPY-ALIST X)))
428    T
429    
430    (COPY-ALIST '((1 . 2))
431           '((A . B)))
432    ERROR
433    
434    (COPY-ALIST '((A B)
435                  C
436                  (D E)))
437    ((A B)
438     C
439     (D E))
440    
441    (COPY-TREE 'X)
442    X
443    
444    (COPY-TREE 5)
445    5
446    
447    (COPY-TREE '(A B))
448    (A B)
449    
450    (COPY-TREE '(A B
451                   (C (D)
452                      (E F))
453                   G))
454    (A B
455       (C (D)
456          (E F))
457       G)
458    
459    (COPY-TREE '((1 . E)
460                 (2 . F)))
461    ((1 . E)
462     (2 . F))
463    
464    (COPY-TREE #*001)
465    #*001
466    
467    (SETQ X
468          '(A B
469              (C D)
470              E))
471    (A B
472       (C D)
473       E)
474    
475    (EQ X
476        (COPY-TREE X))
477    NIL
478    
479    (EQL X
480         (COPY-TREE X))
481    NIL
482    
483    (EQUAL X
484           (COPY-TREE X))
485    T
486    
487    (EQ (CDADDR X)
488        (CDADDR (COPY-TREE X)))
489    NIL
490    
491    (EQL (CDADDR X)
492         (CDADDR (COPY-TREE X)))
493    NIL
494    
495    (EQUAL (CDADDR X)
496           (CDADDR (COPY-TREE X)))
497    T
498    
499    (REVAPPEND '(A B C)
500           '(D E F)
501           'NIL
502           '(G))
503    ERROR
504    
505    (REVAPPEND '(A B C)
506           'D)
507    (C B A . D)
508    
509    (REVAPPEND 'A 'B)
510    #+XCL ERROR
511    #+CLISP B
512    
513    (REVAPPEND 'A 'NIL)
514    #+XCL ERROR
515    #+CLISP NIL
516    
517    (REVAPPEND 'NIL 'NIL)
518    NIL
519    
520    (REVAPPEND 'NIL 'A)
521    A
522    
523    (REVAPPEND 'NIL
524           '(A B C))
525    (A B C)
526    
527    (REVAPPEND '(A B C)
528           '(D E F))
529    (C B A D E F)
530    
531    (REVAPPEND '(D E F)
532           '(A B C))
533    (F E D A B C)
534    
535    (EQL (REVAPPEND '(A B C)
536                '(D E F))
537         (APPEND (REVERSE '(A B C))
538                '(D E F)))
539    NIL
540    
541    (EQUAL (REVAPPEND '(A B C)
542                  '(D E F))
543           (APPEND (REVERSE '(A B C))
544                  '(D E F)))
545    T
546    
547    (SETQ X
548          '(A B C))
549    (A B C)
550    
551    (SETQ Y
552          '(D E F))
553    (D E F)
554    
555    (SETQ R
556          (REVAPPEND X Y))
557    (C B A D E F)
558    
559    X
560    (A B C)
561    
562    Y
563    (D E F)
564    
565    (EQ (CDDDR R)
566        Y)
567    T
568    
569    (SETQ X
570          '(A B C)
571          Y
572          '(D E F))
573    (D E F)
574    
575    (NCONC X Y)
576    (A B C D E F)
577    
578    X
579    (A B C D E F)
580    
581    (EQ (CDDDR X)
582        Y)
583    T
584    
585    (SETQ X
586          '(A B C)
587          Y
588          '(D E F)
589          Z
590          '(G H I))
591    (G H I)
592    
593    (NCONC)
594    NIL
595    
596    (NCONC X)
597    (A B C)
598    
599    (NCONC NIL)
600    NIL
601    
602    (NCONC NIL NIL)
603    NIL
604    
605    (NCONC X NIL)
606    (A B C)
607    
608    (NCONC NIL NIL NIL NIL)
609    NIL
610    
611    (NCONC NIL NIL X NIL)
612    (A B C)
613    
614    (NCONC X NIL Y NIL Z NIL)
615    (A B C D E F G H I)
616    
617    X
618    (A B C D E F G H I)
619    
620    Y
621    (D E F G H I)
622    
623    Z
624    (G H I)
625    
626    (EQ (CDDDR X)
627        Y)
628    T
629    
630    (EQ (CDDDR Y)
631        Z)
632    T
633    
634    (NCONC '(1 2)
635           'A)
636    #+XCL ERROR
637    #+CLISP (1 2 . A)
638    
639    (NCONC 'A)
640    #+XCL ERROR
641    #+CLISP A
642    
643    (SETQ X
644          '(A B C)
645          Y
646          '(D E F))
647    (D E F)
648    
649    (NRECONC X Y)
650    (C B A D E F)
651    
652    X
653    #+XCL WAS-DESTROYED ; wo kommt denn so was her?
654    #+CLISP (A D E F)
655    
656    (TAILP Y X)
657    T
658    
659    (SETQ X
660          '(A B C)
661          Y
662          '(D E F)
663          Z
664          '(G H I))
665    (G H I)
666    
667    (NRECONC)
668    ERROR
669    
670    (NRECONC X)
671    ERROR
672    
673    (NRECONC NIL)
674    ERROR
675    
676    (NRECONC NIL NIL)
677    NIL
678    
679    (NRECONC X NIL)
680    (C B A)
681    
682    X
683    #+XCL WAS-DESTROYED
684    #+CLISP (A)
685    
686    (NRECONC NIL NIL NIL NIL)
687    ERROR
688    
689    (NCONC NIL 'X)
690    #+XCL ERROR
691    #+CLISP X
692    
693    (SETQ AA NIL)
694    NIL
695    
696    (PUSH '1 AA)
697    (1)
698    
699    (PUSH '2 AA)
700    (2 1)
701    
702    (PUSH '2 AA)
703    (2 2 1)
704    
705    (SETQ AA
706          '(B A))
707    (B A)
708    
709    (PUSHNEW 'A AA)
710    (B A)
711    
712    (PUSHNEW 'C AA)
713    (C B A)
714    
715    (SETQ XXX NIL)
716    NIL
717    
718    (PUSHNEW 'C XXX :TEST 'EQUAL)
719    (C)
720    
721    (PUSHNEW 'C XXX :TEST 'EQUAL)
722    (C)
723    
724    (PUSHNEW '(C) XXX :TEST 'EQUAL)
725    ((C) C)
726    
727    XXX
728    ((C) C)
729    
730    (SETQ XX '(NIL KKK))
731    (NIL KKK)
732    
733    (PUSHNEW 'U (CAR XX))
734    (U)
735    
736    (PUSHNEW 'U
737           (CAR XX))
738    (U)
739    
740    (PUSHNEW 'V
741           (CAR XX))
742    (V U)
743    
744    XX
745    ((V U) KKK)
746    
747    (PUSHNEW '(W)
748           (CAR XX))
749    ((W)
750     V U)
751    
752    (PUSHNEW '(W)
753           (CAR XX))
754    ((W)
755     (W)
756     V U)
757    
758    (PUSHNEW '(W)
759           (CAR XX)
760           :TEST 'EQUAL)
761    ((W)
762     (W)
763     V U)
764    
765    (PUSHNEW '(W)
766           (CAR XX)
767           :TEST-NOT 'EQUAL)
768    ((W)
769     (W)
770     V U)
771    
772    (SETQ AA '(1 2 3))
773    (1 2 3)
774    
775    (POP AA)
776    1
777    
778    AA
779    (2 3)
780    
781    (POP AA)
782    2
783    
784    (POP AA)
785    3
786    
787    (POP AA)
788    NIL
789    
790    (POP AA)
791    NIL
792    
793    (BUTLAST '(A B C))
794    (A B)
795    
796    (BUTLAST '(A B C)
797           2)
798    (A)
799    
800    (NBUTLAST '(A B C D)
801           3)
802    (A)
803    
804    (NBUTLAST '(A B C D)
805           1)
806    (A B C)
807    
808    (NBUTLAST '(A B C D)
809           0)
810    (A B C D)
811    
812    (NBUTLAST '(A B C D)
813           4)
814    NIL
815    
816    (NBUTLAST '(A B C D)
817           6)
818    NIL
819    

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