home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / CLISP-1.LHA / CLISP960530-sr.lha / tests / lambda.tst < prev    next >
Encoding:
Text File  |  1996-04-15  |  3.7 KB  |  210 lines
  1. (makunbound 'b) B
  2. (makunbound 'e) E
  3.  
  4. (SETQ Z 2) 2
  5.  
  6. ((LAMBDA (Z) (DECLARE (SPECIAL Z)) (LIST Z (SYMBOL-VALUE 'Z))) 3)
  7. (3 3)
  8.  
  9. (MAKUNBOUND 'Z) Z
  10.  
  11. ((LAMBDA (A B) (+ A (* B 3))) 4 5)
  12. 19
  13.  
  14. ((LAMBDA (A &OPTIONAL (B 2)) (+ A (* B 3))) 4 5)
  15. 19
  16.  
  17. ((LAMBDA (A &OPTIONAL (B 2)) (+ A (* B 3))) 4)
  18. 10
  19.  
  20. ((LAMBDA (&OPTIONAL (A 2 B) (C 3 D) &REST X) (LIST A B C D X)))
  21. (2 NIL 3 NIL NIL)
  22.  
  23. ((LAMBDA (&OPTIONAL (A 2 B) (C 3 D) &REST X) (LIST A B C D X)) 6)
  24. (6 T 3 NIL NIL)
  25.  
  26. ((LAMBDA (&OPTIONAL (A 2 B) (C 3 D) &REST X) (LIST A B C D X)) 6 3)
  27. (6 T 3 T NIL)
  28.  
  29. ((LAMBDA (&OPTIONAL (A 2 B) (C 3 D) &REST X) (LIST A B C D X)) 6 3
  30. 8)
  31. (6 T 3 T (8))
  32.  
  33. ((LAMBDA (&OPTIONAL (A 2 B) (C 3 D) &REST X) (LIST A B C D X)) 6 3
  34. 8 9 10 11)
  35. (6 T 3 T (8 9 10 11))
  36.  
  37. ((LAMBDA (A B &KEY C D) (LIST A B C D)) 1 2)
  38. (1 2 NIL NIL)
  39.  
  40. ((LAMBDA (A B &KEY C D) (LIST A B C D)) 1 2 :C 6)
  41. (1 2 6 NIL)
  42.  
  43. ((LAMBDA (A B &KEY C D) (LIST A B C D)) 1 2 :D 8)
  44. (1 2 NIL 8)
  45.  
  46. ((LAMBDA (A B &KEY C D) (LIST A B C D)) 1 2 :C 6 :D 8)
  47. (1 2 6 8)
  48.  
  49. ((LAMBDA (A B &KEY C D) (LIST A B C D)) 1 2 :D 8 :C 6)
  50. (1 2 6 8)
  51.  
  52. ((LAMBDA (A B &KEY C D) (LIST A B C D)) :A 1 :D 8 :C 6)
  53. (:A 1 6 8)
  54.  
  55. ((LAMBDA (A B &KEY C D) (LIST A B C D)) :A :B :C :D)
  56. (:A :B :D NIL)
  57.  
  58. ((LAMBDA (A &OPTIONAL (B 3) &REST X &KEY C (D A)) (LIST A B C D X))
  59. 1)
  60. (1 3 NIL 1 NIL)
  61.  
  62. ((LAMBDA (A &OPTIONAL (B 3) &REST X &KEY C (D A)) (LIST A B C D X))
  63. 1 2)
  64. (1 2 NIL 1 NIL)
  65.  
  66. ((LAMBDA (A &OPTIONAL (B 3) &REST X &KEY C (D A)) (LIST A B C D X))
  67. :C 7)
  68. (:C 7 NIL :C NIL)
  69.  
  70. ((LAMBDA (A &OPTIONAL (B 3) &REST X &KEY C (D A)) (LIST A B C D X))
  71. 1 6 :C 7)
  72. (1 6 7 1 (:C 7))
  73.  
  74. ((LAMBDA (A &OPTIONAL (B 3) &REST X &KEY C (D A)) (LIST A B C D X))
  75. 1 6 :D 8)
  76. (1 6 NIL 8 (:D 8))
  77.  
  78. ((LAMBDA (A &OPTIONAL (B 3) &REST X &KEY C (D A)) (LIST A B C D X))
  79. 1 6 :D 8 :C
  80. 9 :D 10)
  81. (1 6 9 8 (:D 8 :C 9 :D 10))
  82.  
  83. ((LAMBDA (X &AUX (A 3) (B 4)) (+ X (* A B))) 2)
  84. 14
  85.  
  86. ((LAMBDA (X Y &OPTIONAL A B &REST Z &KEY C (D Y) &AUX (U 3) (V 4))
  87.  
  88. (+ X Y A (* B (CAR Z)) C (* D U) V)) 3 4 5 2 7 :C 6 :D 8)
  89. ERROR
  90.  
  91. ((LAMBDA (X Y &OPTIONAL A B &REST Z &KEY C (D Y) &AUX (U 3) (V 4))
  92.  
  93. (+ X Y A (* B (CAR Z)) C (* D U) V)) 3 4 5 2 7 :C 6)
  94. ERROR
  95.  
  96. ((LAMBDA (X &AUX C) (CONS X C)) (QUOTE A))
  97. (A)
  98.  
  99. ((LAMBDA (X &REST Y Z) (LIST X Y Z)) 1 2 3)
  100. ERROR
  101.  
  102. ((LAMBDA (5 A B) (LIST A B)) 1 2)
  103. ERROR
  104.  
  105. ((LAMBDA ((LENGTH (QUOTE (A B))) C) (LIST C)) 1)
  106. ERROR
  107.  
  108. ((LAMBDA (X &KEY :Y :Z) (LIST X Y Z)) 1 :Y 2 :Z 3)
  109. ERROR
  110.  
  111. ((LAMBDA (X Y) (LIST X Y Z)) 1 2)
  112. ERROR
  113.  
  114. ((LAMBDA (X Y) (LIST X Y Z)) 1 2 3)
  115. ERROR
  116.  
  117. ((LAMBDA (&OPTIONAL) (LIST A B C)) 1)
  118. ERROR
  119.  
  120. ((LAMBDA (&OPTIONAL (A)) (LIST A)) 1)
  121. (1)
  122.  
  123. ((LAMBDA (&OPTIONAL (A B)) (LIST A B)) 1)
  124. ERROR
  125.  
  126. ((LAMBDA (&OPTIONAL (A 3 B)) (LIST A B)) 1)
  127. (1 T)
  128.  
  129. ((LAMBDA (&OPTIONAL (A 3)) (LIST A)) 1)
  130. (1)
  131.  
  132. ((LAMBDA (&OPTIONAL (A 3 B 4)) (LIST A B)) 1)
  133. #+XCL (1 T)
  134. #-XCL ERROR
  135.  
  136. ((LAMBDA (X) (LIST X Y)) 1 2)
  137. ERROR
  138.  
  139. ((LAMBDA (X) (LIST X)) 1 2)
  140. ERROR
  141.  
  142. ((LAMBDA (#\a) (LIST A)) 1)
  143. ERROR
  144.  
  145. ((LAMBDA (#*10) (LIST 1 2 3)))
  146. ERROR
  147.  
  148. ((LAMBDA (X Y) ((LAMBDA (A B) (LIST A B)) (QUOTE U) (QUOTE V))) 5 6)
  149. (U V)
  150.  
  151. ((LAMBDA (X Y) (LIST X Y)) 1)
  152. ERROR
  153.  
  154. ((LAMBDA (X &REST Y &OPTIONAL (Z 5)) (LIST X Y Z)) 1 3)
  155. ERROR
  156.  
  157. ((LAMBDA (X &X) (LIST X)) 7)
  158. ERROR
  159.  
  160. ((LAMBDA (X &AUX) (LIST X)) 6)
  161. (6)
  162.  
  163. ((LAMBDA (X &AUX Y) (LIST X Y)) 6)
  164. (6 NIL)
  165.  
  166. ((LAMBDA (X &AUX (Y)) (LIST X Y)) 6)
  167. (6 NIL)
  168.  
  169. ((LAMBDA (X &REST) (LIST X)) 2)
  170. ERROR
  171.  
  172. ((LAMBDA (X &KEY) (LIST X)) 3)
  173. (3)
  174.  
  175. ((LAMBDA (X &KEY Y) (LIST X)) 3)
  176. (3)
  177.  
  178. ((LAMBDA (X &KEY Y) (LIST X)) 3 :Y)
  179. ERROR
  180.  
  181. ((LAMBDA (X &KEY Y) (LIST X)) :\3)
  182. (:\3)
  183.  
  184. ((LAMBDA NIL (LIST 1 2 3)))
  185. (1 2 3)
  186.  
  187. ((LAMBDA NIL (LIST 1 2 3)) 4 5)
  188. ERROR
  189.  
  190. ((LAMBDA (LIST 1 2 3)))
  191. ERROR
  192.  
  193. ((LAMBDA (X)))
  194. ERROR
  195.  
  196. ((LAMBDA (&AUX &KEY &REST &OPTIONAL)))
  197. ERROR
  198.  
  199. ((LAMBDA (A B &KEY C D &ALLOW-OTHER-KEYS) (LIST A B C D E F)) 1 2 :C
  200. 6 :D 8 :E 5
  201. :F 7)
  202. ERROR
  203.  
  204. ((LAMBDA (X &ALLOW-OTHER-KEYS) (LIST X Y)) 2 :Y 3)
  205. ERROR
  206.  
  207. ((LAMBDA))
  208. ERROR
  209.  
  210.