/[gcl]/gcl/tests/lambda.tst
ViewVC logotype

Diff of /gcl/tests/lambda.tst

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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    (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    

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26