-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathcomposition.fas
More file actions
320 lines (320 loc) · 18.6 KB
/
composition.fas
File metadata and controls
320 lines (320 loc) · 18.6 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
(|SYSTEM|::|VERSION| '(20060802.))
#0Y |CHARSET|::|UTF-8|
#Y(#:|1 7 (DEFUN MAPCAR-MACRO (LST) ...)-1|
#20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 83 C5 19 01)
(|COMMON-LISP-USER|::|MAPCAR-MACRO| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|MAPCAR-MACRO|
#31Y(00 00 00 00 01 00 00 00 06 02 92 01 06 00 19 02 93 01 7A 94 01 AC
6F 00 95 03 28 74 5D 19 03)
(|COMMON-LISP-USER|::|SAFE-FUNTION|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP-USER|::|LST|) |COMMON-LISP|::|NIL|))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|9 14 (DEFUN REMOVE-DUPES-HELPER (LST ACCUM) ...)-2|
#20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 83 C5 19 01)
(|COMMON-LISP-USER|::|REMOVE-DUPES-HELPER|
|SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|REMOVE-DUPES-HELPER|
#47Y(00 00 00 00 02 00 00 00 06 03 92 02 0D 00 19 03 95 02 AE 29 02 05
00 93 02 73 94 02 AE 38 03 8C B6 6E 94 02 95 03 94 04 A1 7A 28 6B
5D 19 03)
() (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP-USER|::|LST| |COMMON-LISP-USER|::|ACCUM|)
|COMMON-LISP|::|NIL|))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|16 17 (DEFUN REMOVE-DUPES (LST) ...)-3|
#20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 83 C5 19 01)
(|COMMON-LISP-USER|::|REMOVE-DUPES| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|REMOVE-DUPES|
#16Y(00 00 00 00 01 00 00 00 06 02 AD 63 30 00 19 02)
(|COMMON-LISP-USER|::|REMOVE-DUPES-HELPER|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP-USER|::|LST|) |COMMON-LISP|::|NIL|))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|20 26 (DEFUN ARGS (FSYMBOL) ...)-4|
#20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 83 C5 19 01)
(|COMMON-LISP-USER|::|ARGS| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|ARGS|
#21Y(00 00 00 00 01 00 00 00 06 02 AD 32 8C 5C 5B 5B 5C 5C 5B 19 02) ()
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
(|COMMON-LISP-USER|::|FSYMBOL|) |COMMON-LISP|::|NIL|))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|28 30 (DEFUN BODY (FSYMBOL) ...)-5|
#20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 83 C5 19 01)
(|COMMON-LISP-USER|::|BODY| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|BODY|
#22Y(00 00 00 00 01 00 00 00 06 02 AD 32 8C 5C 5B 5B 5C 5C 5C 5B 19 02)
() (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
(|COMMON-LISP-USER|::|FSYMBOL|) |COMMON-LISP|::|NIL|))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|32 38 (DEFUN SAFE-ARGS (FSYMBOL) ...)-6|
#20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 83 C5 19 01)
(|COMMON-LISP-USER|::|SAFE-ARGS| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|SAFE-ARGS|
#21Y(00 00 00 00 01 00 00 00 06 02 93 01 05 AD 2F 00 19 02 00 19 02)
(|COMMON-LISP-USER|::|ARGS|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP-USER|::|FSYMBOL|) |COMMON-LISP|::|NIL|))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|40 43 (DEFUN SAFE-BODY (FSYMBOL) ...)-7|
#20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 83 C5 19 01)
(|COMMON-LISP-USER|::|SAFE-BODY| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|SAFE-BODY|
#21Y(00 00 00 00 01 00 00 00 06 02 93 01 05 AD 2F 00 19 02 00 19 02)
(|COMMON-LISP-USER|::|BODY|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP-USER|::|FSYMBOL|) |COMMON-LISP|::|NIL|))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|45 49 (DEFUN INSERT-ATOM (INSERTION ORIG LOCATION) ...)-8|
#20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 83 C5 19 01)
(|COMMON-LISP-USER|::|INSERT-ATOM| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|INSERT-ATOM|
#33Y(00 00 00 00 03 00 00 00 06 04 AD DA 90 01 2D 0C 94 02 B0 95 04 97
04 28 71 5D 19 04 AF A0 5C 1B 78)
(1.) (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP-USER|::|INSERTION| |COMMON-LISP-USER|::|ORIG|
|COMMON-LISP-USER|::|LOCATION|)
|COMMON-LISP|::|NIL|))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|51 56 (DEFUN INSERT-ARGS (INSERTION ORIG LOCATION) ...)-9|
#20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 83 C5 19 01)
(|COMMON-LISP-USER|::|INSERT-ARGS| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|INSERT-ARGS|
#36Y(00 00 00 00 03 00 00 00 06 04 AD DA 90 01 2D 0C 94 02 B0 95 04 97
04 28 71 5D 19 04 AF 95 03 33 02 22 19 04)
(1.) (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP-USER|::|INSERTION| |COMMON-LISP-USER|::|ORIG|
|COMMON-LISP-USER|::|LOCATION|)
|COMMON-LISP|::|NIL|))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|58 68 (DEFUN INSERT-LISTS (INSERTIONS ORIGINAL) ...)-10|
#20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 83 C5 19 01)
(|COMMON-LISP-USER|::|INSERT-LISTS| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|INSERT-LISTS|
#45Y(00 00 00 00 02 00 00 00 06 03 94 02 83 03 93 02 0E 93 00 0E AC B0
95 04 6C 70 33 02 22 19 04 00 19 04 94 02 83 03 B0 B0 28 60 5D 19
04)
() (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP-USER|::|INSERTIONS| |COMMON-LISP-USER|::|ORIGINAL|)
|COMMON-LISP|::|NIL|))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|70 77 (DEFUN INSERT-ATOMS (INSERTIONS ORIGINAL) ...)-11|
#20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 83 C5 19 01)
(|COMMON-LISP-USER|::|INSERT-ATOMS| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|INSERT-ATOMS|
#41Y(00 00 00 00 02 00 00 00 06 03 94 02 83 03 93 02 0D 93 00 0D AC B0
A1 5C 14 28 6F 5D 19 04 00 19 04 94 02 83 03 B0 A1 1B 6F)
() (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP-USER|::|INSERTIONS| |COMMON-LISP-USER|::|ORIGINAL|)
|COMMON-LISP|::|NIL|))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|82 85 (DEFMACRO COPY-FUNCTION (F) ...)-12|
#23Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC DD 70 04 32 83 C5 19 01)
(|COMMON-LISP-USER|::|COPY-FUNCTION| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|COPY-FUNCTION|
#37Y(00 00 00 00 02 00 00 00 00 03 AE DA DA 2D 03 01 1D 0E 9F 5C 78 DD
AD 6F 04 AE 6F 05 61 03 19 04 AE 2F 02 19 03)
(2. |SYSTEM|::|PROPER-LIST-LENGTH-IN-BOUNDS-P|
|SYSTEM|::|MACRO-CALL-ERROR| |COMMON-LISP|::|LAMBDA|
|COMMON-LISP-USER|::|ARGS| |COMMON-LISP-USER|::|BODY|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
(|COMMON-LISP-USER|::|F|) |SYSTEM|::|MAKE-MACRO|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|87 88 (DEFMACRO MAKE-FUNCTION (ARGS BODY) ...)-13|
#23Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC DD 70 04 32 83 C5 19 01)
(|COMMON-LISP-USER|::|MAKE-FUNCTION| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|MAKE-FUNCTION|
#37Y(00 00 00 00 02 00 00 00 00 03 AE DA DA 2D 03 01 1D 0E 9F 5C 78 A0
5C 5C 78 DD AE AE 61 03 19 05 AE 2F 02 19 03)
(3. |SYSTEM|::|PROPER-LIST-LENGTH-IN-BOUNDS-P|
|SYSTEM|::|MACRO-CALL-ERROR| |COMMON-LISP|::|LAMBDA|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
(|COMMON-LISP-USER|::|ARGS| |COMMON-LISP-USER|::|BODY|)
|SYSTEM|::|MAKE-MACRO|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|90 91 (DEFMACRO MAKE-FUNCTION2 (NAME ARGS BODY) ...)-14|
#23Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC DD 70 04 32 83 C5 19 01)
(|COMMON-LISP-USER|::|MAKE-FUNCTION2| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|MAKE-FUNCTION2|
#43Y(00 00 00 00 02 00 00 00 00 03 AE DA DA 2D 03 01 1D 14 9F 5C 78 A0
5C 5C 78 A1 5C 5C 5C 78 DD AF AF AF 61 04 19 06 AE 2F 02 19 03)
(4. |SYSTEM|::|PROPER-LIST-LENGTH-IN-BOUNDS-P|
|SYSTEM|::|MACRO-CALL-ERROR| |COMMON-LISP|::|DEFUN|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
(|COMMON-LISP-USER|::|NAME| |COMMON-LISP-USER|::|ARGS|
|COMMON-LISP-USER|::|BODY|)
|SYSTEM|::|MAKE-MACRO|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|93 94 (DEFMACRO APPLY-F (F ARGS) ...)-15|
#23Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC DD 70 04 32 83 C5 19 01)
(|COMMON-LISP-USER|::|APPLY-F| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|APPLY-F|
#37Y(00 00 00 00 02 00 00 00 00 03 AE DA DA 2D 03 01 1D 0E 9F 5C 78 A0
5C 5C 78 DD AE AE 61 03 19 05 AE 2F 02 19 03)
(3. |SYSTEM|::|PROPER-LIST-LENGTH-IN-BOUNDS-P|
|SYSTEM|::|MACRO-CALL-ERROR| |COMMON-LISP|::|FUNCALL|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
(|COMMON-LISP-USER|::|F| |COMMON-LISP-USER|::|ARGS|)
|SYSTEM|::|MAKE-MACRO|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|95 101 (DEFUN GENSYM-WRAPPER (ARG) ...)-16|
#20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 83 C5 19 01)
(|COMMON-LISP-USER|::|GENSYM-WRAPPER| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|GENSYM-WRAPPER|
#23Y(00 00 00 00 01 00 00 00 06 02 AD 8E 0E 06 38 01 32 90 19 02 AD 1B
79)
() (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
(|COMMON-LISP-USER|::|ARG|) |COMMON-LISP|::|NIL|))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|103 104 (DEFUN GENSYM-ARGS (F) ...)-17|
#20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 83 C5 19 01)
(|COMMON-LISP-USER|::|GENSYM-ARGS| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|GENSYM-ARGS|
#19Y(00 00 00 00 01 00 00 00 06 02 DA AE 6F 01 33 00 16 19 02)
(|COMMON-LISP-USER|::|GENSYM-WRAPPER| |COMMON-LISP-USER|::|ARGS|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP-USER|::|F|) |COMMON-LISP|::|NIL|))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|106 107 (DEFMACRO GENSYM-BODY (F ARGS) ...)-18|
#23Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC DD 70 04 32 83 C5 19 01)
(|COMMON-LISP-USER|::|GENSYM-BODY| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|GENSYM-BODY|
#35Y(00 00 00 00 02 00 00 00 00 03 AE DA DA 2D 03 01 1D 0C 9F 5C 78 A0
5C 5C 78 AD 9E 5D 19 05 AE 2F 02 19 03)
(3. |SYSTEM|::|PROPER-LIST-LENGTH-IN-BOUNDS-P|
|SYSTEM|::|MACRO-CALL-ERROR|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
(|COMMON-LISP-USER|::|F| |COMMON-LISP-USER|::|ARGS|)
|SYSTEM|::|MAKE-MACRO|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|110 114 (DEFMACRO SAFE-FUNCTION (F) ...)-19|
#23Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC DD 70 04 32 83 C5 19 01)
(|COMMON-LISP-USER|::|SAFE-FUNCTION| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|SAFE-FUNCTION|
#44Y(00 00 00 00 02 00 00 00 00 03 AE DA DA 2D 03 01 1D 15 9F 5C 78 AC
6F 03 AD 72 8D 6F 04 DF AD AF B1 A2 7A 61 04 19 06 AE 2F 02 19 03)
(2. |SYSTEM|::|PROPER-LIST-LENGTH-IN-BOUNDS-P|
|SYSTEM|::|MACRO-CALL-ERROR| |COMMON-LISP-USER|::|GENSYM-ARGS|
|COMMON-LISP|::|GENTEMP| |COMMON-LISP-USER|::|MAKE-FUNCTION2|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
(|COMMON-LISP-USER|::|F|) |SYSTEM|::|MAKE-MACRO|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|116 120 (DEFUN MAKE-COMP-LIS-SAFE (COMP-LIS) ...)-20|
#20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 83 C5 19 01)
(|COMMON-LISP-USER|::|MAKE-COMP-LIS-SAFE| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|MAKE-COMP-LIS-SAFE|
#31Y(00 00 00 00 01 00 00 00 06 02 92 01 06 00 19 02 93 01 7A 94 01 6F
00 AC 95 03 28 74 5D 19 03)
(|COMMON-LISP-USER|::|SAFE-FUNCTION-WRAPPER|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP-USER|::|COMP-LIS|) |COMMON-LISP|::|NIL|))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|123 127 (DEFMACRO COMPOSE-SLOT (NEWF F G ...) ...)-21|
#23Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC DD 70 04 32 83 C5 19 01)
(|COMMON-LISP-USER|::|COMPOSE-SLOT| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|COMPOSE-SLOT|
#68Y(00 00 00 00 02 00 00 00 00 03 AE DA DA 2D 03 01 1D 2D 9F 5C 78 A0
5C 5C 78 A1 5C 5C 5C 78 B1 71 97 AD 6F 03 AF 6F 03 AE 6E 03 04 AF
AF 6F 05 B1 6F 03 B0 2D 03 06 7A E1 B2 AF AF 61 04 19 09 AE 2F 02
19 03)
(5. |SYSTEM|::|PROPER-LIST-LENGTH-IN-BOUNDS-P|
|SYSTEM|::|MACRO-CALL-ERROR| |COMMON-LISP-USER|::|ARGS|
|COMMON-LISP-USER|::|INSERT-ARGS| |COMMON-LISP-USER|::|BODY|
|COMMON-LISP-USER|::|INSERT-ATOM| |COMMON-LISP-USER|::|MAKE-FUNCTION2|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
(|COMMON-LISP-USER|::|NEWF| |COMMON-LISP-USER|::|F| |COMMON-LISP-USER|::|G|
|COMMON-LISP-USER|::|SLOT|)
|SYSTEM|::|MAKE-MACRO|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|129 130 (DEFUN MAKE-ARGS (F COMP-LIS) ...)-22|
#20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 83 C5 19 01)
(|COMMON-LISP-USER|::|MAKE-ARGS| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|MAKE-ARGS|
#22Y(00 00 00 00 02 00 00 00 06 03 DA AE 73 00 16 AF 6F 01 30 02 19 03)
(|COMMON-LISP-USER|::|SAFE-ARGS| |COMMON-LISP-USER|::|ARGS|
|COMMON-LISP-USER|::|INSERT-LISTS|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP-USER|::|F| |COMMON-LISP-USER|::|COMP-LIS|)
|COMMON-LISP|::|NIL|))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|132 133 (DEFUN MAKE-BODY (F COMP-LIS) ...)-23|
#20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 83 C5 19 01)
(|COMMON-LISP-USER|::|MAKE-BODY| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|MAKE-BODY|
#24Y(00 00 00 00 02 00 00 00 06 03 AE DA AF 73 00 16 B0 6F 01 30 02 5D
19 03)
(|COMMON-LISP-USER|::|SAFE-BODY| |COMMON-LISP-USER|::|ARGS|
|COMMON-LISP-USER|::|INSERT-ATOMS|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP-USER|::|F| |COMMON-LISP-USER|::|COMP-LIS|)
|COMMON-LISP|::|NIL|))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|135 139 (DEFMACRO COMPOSE (NEWF F COMP-LIS) ...)-24|
#23Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC DD 70 04 32 83 C5 19 01)
(|COMMON-LISP-USER|::|COMPOSE| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|COMPOSE|
#55Y(00 00 00 00 02 00 00 00 00 03 AE DA DA 2D 03 01 1D 20 9F 5C 78 A0
5C 5C 78 A1 5C 5C 5C 78 AD AD 71 4E 70 03 AE AE 71 4E 70 04 DF B1
AF AF 61 04 19 08 AE 2F 02 19 03)
(4. |SYSTEM|::|PROPER-LIST-LENGTH-IN-BOUNDS-P|
|SYSTEM|::|MACRO-CALL-ERROR| |COMMON-LISP-USER|::|MAKE-ARGS|
|COMMON-LISP-USER|::|MAKE-BODY| |COMMON-LISP-USER|::|MAKE-FUNCTION2|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
(|COMMON-LISP-USER|::|NEWF| |COMMON-LISP-USER|::|F|
|COMMON-LISP-USER|::|COMP-LIS|)
|SYSTEM|::|MAKE-MACRO|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|141 145 (DEFMACRO PINCH (NEWF F PINCH-LIST) ...)-25|
#23Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC DD 70 04 32 83 C5 19 01)
(|COMMON-LISP-USER|::|PINCH| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|PINCH|
#53Y(00 00 00 00 02 00 00 00 00 03 AE DA DA 2D 03 01 1D 1E 9F 5C 78 A0
5C 5C 78 A1 5C 5C 5C 78 AC 71 4E 6F 03 AE AE 31 4E 7A DE B1 AF AF
61 04 19 08 AE 2F 02 19 03)
(4. |SYSTEM|::|PROPER-LIST-LENGTH-IN-BOUNDS-P|
|SYSTEM|::|MACRO-CALL-ERROR| |COMMON-LISP-USER|::|REMOVE-DUPES|
|COMMON-LISP-USER|::|MAKE-FUNCTION2|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
(|COMMON-LISP-USER|::|NEWF| |COMMON-LISP-USER|::|F|
|COMMON-LISP-USER|::|PINCH-LIST|)
|SYSTEM|::|MAKE-MACRO|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|148 155 (DEFUN PLUS (X Y) ...)-26|
#20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 83 C5 19 01)
(|COMMON-LISP-USER|::|PLUS| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|PLUS|
#17Y(00 00 00 00 02 00 00 00 06 03 AE AE 33 02 35 19 03) ()
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
(|COMMON-LISP-USER|::|X| |COMMON-LISP-USER|::|Y|) |COMMON-LISP|::|NIL|))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|157 158 (DEFUN MINUS (X Y) ...)-27|
#20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 83 C5 19 01)
(|COMMON-LISP-USER|::|MINUS| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|MINUS|
#17Y(00 00 00 00 02 00 00 00 06 03 AE AE 33 01 36 19 03) ()
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
(|COMMON-LISP-USER|::|X| |COMMON-LISP-USER|::|Y|) |COMMON-LISP|::|NIL|))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|160 161 (DEFUN MULT (X Y) ...)-28|
#20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 83 C5 19 01)
(|COMMON-LISP-USER|::|MULT| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|MULT|
#17Y(00 00 00 00 02 00 00 00 06 03 AE AE 33 02 37 19 03) ()
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
(|COMMON-LISP-USER|::|X| |COMMON-LISP-USER|::|Y|) |COMMON-LISP|::|NIL|))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|163 166 (DEFUN DIV (X Y) ...)-29|
#20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 83 C5 19 01)
(|COMMON-LISP-USER|::|DIV| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|DIV|
#24Y(00 00 00 00 02 00 00 00 06 03 AD 24 00 07 AE AE 33 01 38 19 03 9F
19 03)
(0.) (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
(|COMMON-LISP-USER|::|X| |COMMON-LISP-USER|::|Y|) |COMMON-LISP|::|NIL|))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|168 169 (DEFUN ONE NIL ...)-30|
#20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 83 C5 19 01)
(|COMMON-LISP-USER|::|ONE| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|ONE| #13Y(00 00 00 00 00 00 00 00 06 01 C5 19 01)
(1.) |COMMON-LISP|::|NIL| () |COMMON-LISP|::|NIL|))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))