Parent Directory | Revision Log | 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 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |