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