home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / CLISP-1.LHA / CLISP960530-sr.lha / tests / lists151.tst < prev    next >
Encoding:
Text File  |  1996-04-15  |  7.5 KB  |  635 lines
  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.  
  635.