home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / CLISP-1.LHA / CLISP960530-sr.lha / tests / lists156.tst < prev    next >
Encoding:
Text File  |  1996-04-15  |  2.0 KB  |  155 lines
  1.  
  2. (ACONS 'A 'B NIL)
  3. ((A . B))
  4.  
  5. (ACONS 'A 'B
  6.        '((C . D)))
  7. ((A . B)
  8.  (C . D))
  9.  
  10. (PAIRLIS '(A B C)
  11.        '(1 2))
  12. #+XCL
  13. ((B . 2)
  14.  (A . 1))
  15. #-XCL
  16. ERROR
  17.  
  18. (PAIRLIS '(A B C)
  19.        '(1 2 3))
  20. #+(or XCL CLISP)
  21. ((C . 3)
  22.  (B . 2)
  23.  (A . 1))
  24. #+AKCL ((A . 1) (B . 2) (C . 3))
  25. #-(or XCL CLISP AKCL) UNKNOWN
  26.  
  27. (ASSOC 'A
  28.        '((B C)
  29.          (A U)
  30.          (A I)))
  31. (A U)
  32.  
  33. (ASSOC 'A
  34.        '((B C)
  35.          ((A)
  36.           U)
  37.          (A I)))
  38. (A I)
  39.  
  40. (ASSOC 'A
  41.        '((B C)
  42.          ((A)
  43.           U)
  44.          (A I))
  45.        :KEY
  46.        #'(LAMBDA (X)
  47.                 (IF (LISTP X)
  48.                     (CAR X))))
  49. ((A)
  50.  U)
  51.  
  52. (ASSOC 'A
  53.        '((B C)
  54.          A
  55.          ((A)
  56.           U)
  57.          (A I))
  58.        :KEY
  59.        #'(LAMBDA (X)
  60.                 (IF (LISTP X)
  61.                     (CAR X))))
  62. ((A)
  63.  U)
  64.  
  65. (ASSOC 'A
  66.        '((B C)
  67.          A
  68.          ((A)
  69.           U)
  70.          (A I))
  71.        :KEY
  72.        #'(LAMBDA (X)
  73.                 (IF (ATOM X)
  74.                     X)))
  75. (A I)
  76.  
  77. (ASSOC 'A
  78.        '((B C)
  79.          A
  80.          ((A)
  81.           U)
  82.          (A I))
  83.        :TEST
  84.        #'(LAMBDA (X Y)
  85.                 (IF (LISTP Y)
  86.                     (EQL (CAR Y)
  87.                          X))))
  88. ((A)
  89.  U)
  90.  
  91. (ASSOC 'A
  92.        '((B C)
  93.          A
  94.          ((A)
  95.           U)
  96.          (A I))
  97.        :TEST
  98.        #'(LAMBDA (X Y)
  99.                 (IF (ATOM Y)
  100.                     (EQL Y X))))
  101. (A I)
  102.  
  103. (ASSOC 'A
  104.        '((B C)
  105.          A
  106.          ((A)
  107.           U)
  108.          (A I))
  109.        :TEST-NOT
  110.        #'(LAMBDA (X Y)
  111.                 (IF (ATOM Y)
  112.                     (EQL Y X))))
  113. (B C)
  114.  
  115. (ASSOC-IF 'NUMBERP
  116.        '((A . 3)
  117.          (3 . A)))
  118. (3 . A)
  119.  
  120. (ASSOC-IF 'SYMBOLP
  121.        '((A . 3)
  122.          (3 . A)))
  123. (A . 3)
  124.  
  125. (ASSOC-IF-NOT 'SYMBOLP
  126.        '((A . 3)
  127.          (3 . A)))
  128. (3 . A)
  129.  
  130. (ASSOC-IF-NOT 'NUMBERP
  131.        '((A . 3)
  132.          (3 . A)))
  133. (A . 3)
  134.  
  135. (RASSOC 'A
  136.        '((1 . B)
  137.          (2 . A)))
  138. (2 . A)
  139.  
  140. (RASSOC-IF 'SYMBOLP
  141.        '((1 . B)
  142.          (2 . A)))
  143. (1 . B)
  144.  
  145. (RASSOC-IF 'SYMBOLP
  146.        '((1 . 3)
  147.          (2 . A)))
  148. (2 . A)
  149.  
  150. (RASSOC-IF-NOT 'SYMBOLP
  151.        '((1 . 3)
  152.          (2 . A)))
  153. (1 . 3)
  154.  
  155.