-
Notifications
You must be signed in to change notification settings - Fork 0
/
composition.lib
277 lines (277 loc) · 14.6 KB
/
composition.lib
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
#0Y |CHARSET|::|UTF-8|
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|MAPCAR-MACRO|
(|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE| '(|COMMON-LISP-USER|::|LST|)))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|REMOVE-DUPES-HELPER|
(|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE|
'(|COMMON-LISP-USER|::|LST| |COMMON-LISP-USER|::|ACCUM|)))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|REMOVE-DUPES|
(|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE| '(|COMMON-LISP-USER|::|LST|)))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|ARGS|
(|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE| '(|COMMON-LISP-USER|::|FSYMBOL|)))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|BODY|
(|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE| '(|COMMON-LISP-USER|::|FSYMBOL|)))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|SAFE-ARGS|
(|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE| '(|COMMON-LISP-USER|::|FSYMBOL|)))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|SAFE-BODY|
(|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE| '(|COMMON-LISP-USER|::|FSYMBOL|)))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|INSERT-ATOM|
(|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE|
'(|COMMON-LISP-USER|::|INSERTION| |COMMON-LISP-USER|::|ORIG|
|COMMON-LISP-USER|::|LOCATION|)))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|INSERT-ARGS|
(|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE|
'(|COMMON-LISP-USER|::|INSERTION| |COMMON-LISP-USER|::|ORIG|
|COMMON-LISP-USER|::|LOCATION|)))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|INSERT-LISTS|
(|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE|
'(|COMMON-LISP-USER|::|INSERTIONS| |COMMON-LISP-USER|::|ORIGINAL|)))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|INSERT-ATOMS|
(|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE|
'(|COMMON-LISP-USER|::|INSERTIONS| |COMMON-LISP-USER|::|ORIGINAL|)))
(|SYSTEM|::|REMOVE-OLD-DEFINITIONS| '|COMMON-LISP-USER|::|COPY-FUNCTION|)
(|SYSTEM|::|%PUTD| '|COMMON-LISP-USER|::|COPY-FUNCTION|
(|SYSTEM|::|MAKE-MACRO|
(|COMMON-LISP|::|FUNCTION| |COMMON-LISP-USER|::|COPY-FUNCTION|
(|COMMON-LISP|::|LAMBDA| (|SYSTEM|::|<MACRO-FORM>| |SYSTEM|::|<ENV-ARG>|)
(|COMMON-LISP|::|DECLARE| (|COMMON-LISP|::|CONS| |SYSTEM|::|<MACRO-FORM>|))
(|COMMON-LISP|::|DECLARE| (|COMMON-LISP|::|IGNORE| |SYSTEM|::|<ENV-ARG>|))
(|COMMON-LISP|::|IF|
(|COMMON-LISP|::|NOT|
(|SYSTEM|::|PROPER-LIST-LENGTH-IN-BOUNDS-P| |SYSTEM|::|<MACRO-FORM>| 2.
2.))
(|SYSTEM|::|MACRO-CALL-ERROR| |SYSTEM|::|<MACRO-FORM>|)
(|COMMON-LISP|::|LET*|
((|COMMON-LISP-USER|::|F|
(|COMMON-LISP|::|CADR| |SYSTEM|::|<MACRO-FORM>|)))
(|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|COPY-FUNCTION|
`(|COMMON-LISP|::|LAMBDA|
,(|COMMON-LISP-USER|::|ARGS| |COMMON-LISP-USER|::|F|)
,(|COMMON-LISP-USER|::|BODY| |COMMON-LISP-USER|::|F|)))))))
'(|COMMON-LISP-USER|::|F|)))
(|SYSTEM|::|REMOVE-OLD-DEFINITIONS| '|COMMON-LISP-USER|::|MAKE-FUNCTION|)
(|SYSTEM|::|%PUTD| '|COMMON-LISP-USER|::|MAKE-FUNCTION|
(|SYSTEM|::|MAKE-MACRO|
(|COMMON-LISP|::|FUNCTION| |COMMON-LISP-USER|::|MAKE-FUNCTION|
(|COMMON-LISP|::|LAMBDA| (|SYSTEM|::|<MACRO-FORM>| |SYSTEM|::|<ENV-ARG>|)
(|COMMON-LISP|::|DECLARE| (|COMMON-LISP|::|CONS| |SYSTEM|::|<MACRO-FORM>|))
(|COMMON-LISP|::|DECLARE| (|COMMON-LISP|::|IGNORE| |SYSTEM|::|<ENV-ARG>|))
(|COMMON-LISP|::|IF|
(|COMMON-LISP|::|NOT|
(|SYSTEM|::|PROPER-LIST-LENGTH-IN-BOUNDS-P| |SYSTEM|::|<MACRO-FORM>| 3.
3.))
(|SYSTEM|::|MACRO-CALL-ERROR| |SYSTEM|::|<MACRO-FORM>|)
(|COMMON-LISP|::|LET*|
((|COMMON-LISP-USER|::|ARGS|
(|COMMON-LISP|::|CADR| . #1=(|SYSTEM|::|<MACRO-FORM>|)))
(|COMMON-LISP-USER|::|BODY| (|COMMON-LISP|::|CADDR| . #1#)))
(|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|MAKE-FUNCTION|
`(|COMMON-LISP|::|LAMBDA| ,|COMMON-LISP-USER|::|ARGS|
,|COMMON-LISP-USER|::|BODY|))))))
'(|COMMON-LISP-USER|::|ARGS| |COMMON-LISP-USER|::|BODY|)))
(|SYSTEM|::|REMOVE-OLD-DEFINITIONS| '|COMMON-LISP-USER|::|MAKE-FUNCTION2|)
(|SYSTEM|::|%PUTD| '|COMMON-LISP-USER|::|MAKE-FUNCTION2|
(|SYSTEM|::|MAKE-MACRO|
(|COMMON-LISP|::|FUNCTION| |COMMON-LISP-USER|::|MAKE-FUNCTION2|
(|COMMON-LISP|::|LAMBDA| (|SYSTEM|::|<MACRO-FORM>| |SYSTEM|::|<ENV-ARG>|)
(|COMMON-LISP|::|DECLARE| (|COMMON-LISP|::|CONS| |SYSTEM|::|<MACRO-FORM>|))
(|COMMON-LISP|::|DECLARE| (|COMMON-LISP|::|IGNORE| |SYSTEM|::|<ENV-ARG>|))
(|COMMON-LISP|::|IF|
(|COMMON-LISP|::|NOT|
(|SYSTEM|::|PROPER-LIST-LENGTH-IN-BOUNDS-P| |SYSTEM|::|<MACRO-FORM>| 4.
4.))
(|SYSTEM|::|MACRO-CALL-ERROR| |SYSTEM|::|<MACRO-FORM>|)
(|COMMON-LISP|::|LET*|
((|COMMON-LISP-USER|::|NAME|
(|COMMON-LISP|::|CADR| . #1=(|SYSTEM|::|<MACRO-FORM>|)))
(|COMMON-LISP-USER|::|ARGS| (|COMMON-LISP|::|CADDR| . #1#))
(|COMMON-LISP-USER|::|BODY| (|COMMON-LISP|::|CADDDR| . #1#)))
(|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|MAKE-FUNCTION2|
`(|COMMON-LISP|::|DEFUN| ,|COMMON-LISP-USER|::|NAME|
,|COMMON-LISP-USER|::|ARGS| ,|COMMON-LISP-USER|::|BODY|))))))
'(|COMMON-LISP-USER|::|NAME| |COMMON-LISP-USER|::|ARGS|
|COMMON-LISP-USER|::|BODY|)))
(|SYSTEM|::|REMOVE-OLD-DEFINITIONS| '|COMMON-LISP-USER|::|APPLY-F|)
(|SYSTEM|::|%PUTD| '|COMMON-LISP-USER|::|APPLY-F|
(|SYSTEM|::|MAKE-MACRO|
(|COMMON-LISP|::|FUNCTION| |COMMON-LISP-USER|::|APPLY-F|
(|COMMON-LISP|::|LAMBDA| (|SYSTEM|::|<MACRO-FORM>| |SYSTEM|::|<ENV-ARG>|)
(|COMMON-LISP|::|DECLARE| (|COMMON-LISP|::|CONS| |SYSTEM|::|<MACRO-FORM>|))
(|COMMON-LISP|::|DECLARE| (|COMMON-LISP|::|IGNORE| |SYSTEM|::|<ENV-ARG>|))
(|COMMON-LISP|::|IF|
(|COMMON-LISP|::|NOT|
(|SYSTEM|::|PROPER-LIST-LENGTH-IN-BOUNDS-P| |SYSTEM|::|<MACRO-FORM>| 3.
3.))
(|SYSTEM|::|MACRO-CALL-ERROR| |SYSTEM|::|<MACRO-FORM>|)
(|COMMON-LISP|::|LET*|
((|COMMON-LISP-USER|::|F|
(|COMMON-LISP|::|CADR| . #1=(|SYSTEM|::|<MACRO-FORM>|)))
(|COMMON-LISP-USER|::|ARGS| (|COMMON-LISP|::|CADDR| . #1#)))
(|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|APPLY-F|
`(|COMMON-LISP|::|FUNCALL| ,|COMMON-LISP-USER|::|F|
,|COMMON-LISP-USER|::|ARGS|))))))
'(|COMMON-LISP-USER|::|F| |COMMON-LISP-USER|::|ARGS|)))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|GENSYM-WRAPPER|
(|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE| '(|COMMON-LISP-USER|::|ARG|)))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|GENSYM-ARGS|
(|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE| '(|COMMON-LISP-USER|::|F|)))
(|SYSTEM|::|REMOVE-OLD-DEFINITIONS| '|COMMON-LISP-USER|::|GENSYM-BODY|)
(|SYSTEM|::|%PUTD| '|COMMON-LISP-USER|::|GENSYM-BODY|
(|SYSTEM|::|MAKE-MACRO|
(|COMMON-LISP|::|FUNCTION| |COMMON-LISP-USER|::|GENSYM-BODY|
(|COMMON-LISP|::|LAMBDA| (|SYSTEM|::|<MACRO-FORM>| |SYSTEM|::|<ENV-ARG>|)
(|COMMON-LISP|::|DECLARE| (|COMMON-LISP|::|CONS| |SYSTEM|::|<MACRO-FORM>|))
(|COMMON-LISP|::|DECLARE| (|COMMON-LISP|::|IGNORE| |SYSTEM|::|<ENV-ARG>|))
(|COMMON-LISP|::|IF|
(|COMMON-LISP|::|NOT|
(|SYSTEM|::|PROPER-LIST-LENGTH-IN-BOUNDS-P| |SYSTEM|::|<MACRO-FORM>| 3.
3.))
(|SYSTEM|::|MACRO-CALL-ERROR| |SYSTEM|::|<MACRO-FORM>|)
(|COMMON-LISP|::|LET*|
((|COMMON-LISP-USER|::|F|
(|COMMON-LISP|::|CADR| . #1=(|SYSTEM|::|<MACRO-FORM>|)))
(|COMMON-LISP-USER|::|ARGS| (|COMMON-LISP|::|CADDR| . #1#)))
(|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|GENSYM-BODY|
`(,|COMMON-LISP-USER|::|F| ,@|COMMON-LISP-USER|::|ARGS|))))))
'(|COMMON-LISP-USER|::|F| |COMMON-LISP-USER|::|ARGS|)))
(|SYSTEM|::|REMOVE-OLD-DEFINITIONS| '|COMMON-LISP-USER|::|SAFE-FUNCTION|)
(|SYSTEM|::|%PUTD| '|COMMON-LISP-USER|::|SAFE-FUNCTION|
(|SYSTEM|::|MAKE-MACRO|
(|COMMON-LISP|::|FUNCTION| |COMMON-LISP-USER|::|SAFE-FUNCTION|
(|COMMON-LISP|::|LAMBDA| (|SYSTEM|::|<MACRO-FORM>| |SYSTEM|::|<ENV-ARG>|)
(|COMMON-LISP|::|DECLARE| (|COMMON-LISP|::|CONS| |SYSTEM|::|<MACRO-FORM>|))
(|COMMON-LISP|::|DECLARE| (|COMMON-LISP|::|IGNORE| |SYSTEM|::|<ENV-ARG>|))
(|COMMON-LISP|::|IF|
(|COMMON-LISP|::|NOT|
(|SYSTEM|::|PROPER-LIST-LENGTH-IN-BOUNDS-P| |SYSTEM|::|<MACRO-FORM>| 2.
2.))
(|SYSTEM|::|MACRO-CALL-ERROR| |SYSTEM|::|<MACRO-FORM>|)
(|COMMON-LISP|::|LET*|
((|COMMON-LISP-USER|::|F|
(|COMMON-LISP|::|CADR| |SYSTEM|::|<MACRO-FORM>|)))
(|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|SAFE-FUNCTION|
(|COMMON-LISP|::|LET|
((|COMMON-LISP-USER|::|ARGUMENTS|
(|COMMON-LISP-USER|::|GENSYM-ARGS| |COMMON-LISP-USER|::|F|))
(|COMMON-LISP-USER|::|NAME|
(|COMMON-LISP|::|GENTEMP|
(|COMMON-LISP|::|SYMBOL-NAME| |COMMON-LISP-USER|::|F|))))
`(|COMMON-LISP-USER|::|MAKE-FUNCTION2| ,|COMMON-LISP-USER|::|NAME|
,|COMMON-LISP-USER|::|ARGUMENTS|
(,|COMMON-LISP-USER|::|F| ,@|COMMON-LISP-USER|::|ARGUMENTS|))))))))
'(|COMMON-LISP-USER|::|F|)))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|MAKE-COMP-LIS-SAFE|
(|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE| '(|COMMON-LISP-USER|::|COMP-LIS|)))
(|SYSTEM|::|REMOVE-OLD-DEFINITIONS| '|COMMON-LISP-USER|::|COMPOSE-SLOT|)
(|SYSTEM|::|%PUTD| '|COMMON-LISP-USER|::|COMPOSE-SLOT|
(|SYSTEM|::|MAKE-MACRO|
(|COMMON-LISP|::|FUNCTION| |COMMON-LISP-USER|::|COMPOSE-SLOT|
(|COMMON-LISP|::|LAMBDA| (|SYSTEM|::|<MACRO-FORM>| |SYSTEM|::|<ENV-ARG>|)
(|COMMON-LISP|::|DECLARE| (|COMMON-LISP|::|CONS| |SYSTEM|::|<MACRO-FORM>|))
(|COMMON-LISP|::|DECLARE| (|COMMON-LISP|::|IGNORE| |SYSTEM|::|<ENV-ARG>|))
(|COMMON-LISP|::|IF|
(|COMMON-LISP|::|NOT|
(|SYSTEM|::|PROPER-LIST-LENGTH-IN-BOUNDS-P| |SYSTEM|::|<MACRO-FORM>| 5.
5.))
(|SYSTEM|::|MACRO-CALL-ERROR| |SYSTEM|::|<MACRO-FORM>|)
(|COMMON-LISP|::|LET*|
((|COMMON-LISP-USER|::|NEWF|
(|COMMON-LISP|::|CADR| . #1=(|SYSTEM|::|<MACRO-FORM>|)))
(|COMMON-LISP-USER|::|F| (|COMMON-LISP|::|CADDR| . #1#))
(|COMMON-LISP-USER|::|G| (|COMMON-LISP|::|CADDDR| . #1#))
(|COMMON-LISP-USER|::|SLOT| (|COMMON-LISP|::|FIFTH| . #1#)))
(|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|COMPOSE-SLOT|
(|COMMON-LISP|::|LET|
((|COMMON-LISP-USER|::|ARGUMENTS|
(|COMMON-LISP-USER|::|INSERT-ARGS|
(|COMMON-LISP-USER|::|ARGS| |COMMON-LISP-USER|::|G|)
(|COMMON-LISP-USER|::|ARGS| |COMMON-LISP-USER|::|F|)
|COMMON-LISP-USER|::|SLOT|))
(|COMMON-LISP-USER|::|BODY|
`(,|COMMON-LISP-USER|::|F|
,@(|COMMON-LISP-USER|::|INSERT-ATOM|
(|COMMON-LISP-USER|::|BODY| |COMMON-LISP-USER|::|G|)
(|COMMON-LISP-USER|::|ARGS| |COMMON-LISP-USER|::|F|)
|COMMON-LISP-USER|::|SLOT|))))
`(|COMMON-LISP-USER|::|MAKE-FUNCTION2| ,|COMMON-LISP-USER|::|NEWF|
,|COMMON-LISP-USER|::|ARGUMENTS| ,|COMMON-LISP-USER|::|BODY|)))))))
'(|COMMON-LISP-USER|::|NEWF| |COMMON-LISP-USER|::|F| |COMMON-LISP-USER|::|G|
|COMMON-LISP-USER|::|SLOT|)))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|MAKE-ARGS|
(|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE|
'(|COMMON-LISP-USER|::|F| |COMMON-LISP-USER|::|COMP-LIS|)))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|MAKE-BODY|
(|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE|
'(|COMMON-LISP-USER|::|F| |COMMON-LISP-USER|::|COMP-LIS|)))
(|SYSTEM|::|REMOVE-OLD-DEFINITIONS| '|COMMON-LISP-USER|::|COMPOSE|)
(|SYSTEM|::|%PUTD| '|COMMON-LISP-USER|::|COMPOSE|
(|SYSTEM|::|MAKE-MACRO|
(|COMMON-LISP|::|FUNCTION| |COMMON-LISP-USER|::|COMPOSE|
(|COMMON-LISP|::|LAMBDA| (|SYSTEM|::|<MACRO-FORM>| |SYSTEM|::|<ENV-ARG>|)
(|COMMON-LISP|::|DECLARE| (|COMMON-LISP|::|CONS| |SYSTEM|::|<MACRO-FORM>|))
(|COMMON-LISP|::|DECLARE| (|COMMON-LISP|::|IGNORE| |SYSTEM|::|<ENV-ARG>|))
(|COMMON-LISP|::|IF|
(|COMMON-LISP|::|NOT|
(|SYSTEM|::|PROPER-LIST-LENGTH-IN-BOUNDS-P| |SYSTEM|::|<MACRO-FORM>| 4.
4.))
(|SYSTEM|::|MACRO-CALL-ERROR| |SYSTEM|::|<MACRO-FORM>|)
(|COMMON-LISP|::|LET*|
((|COMMON-LISP-USER|::|NEWF|
(|COMMON-LISP|::|CADR| . #1=(|SYSTEM|::|<MACRO-FORM>|)))
(|COMMON-LISP-USER|::|F| (|COMMON-LISP|::|CADDR| . #1#))
(|COMMON-LISP-USER|::|COMP-LIS| (|COMMON-LISP|::|CADDDR| . #1#)))
(|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|COMPOSE|
(|COMMON-LISP|::|LET*|
((|COMMON-LISP-USER|::|ARGUMENTS|
(|COMMON-LISP-USER|::|MAKE-ARGS| |COMMON-LISP-USER|::|F|
(|COMMON-LISP|::|SYMBOL-VALUE| |COMMON-LISP-USER|::|COMP-LIS|)))
(|COMMON-LISP-USER|::|BODY|
(|COMMON-LISP-USER|::|MAKE-BODY| |COMMON-LISP-USER|::|F|
(|COMMON-LISP|::|SYMBOL-VALUE| |COMMON-LISP-USER|::|COMP-LIS|))))
`(|COMMON-LISP-USER|::|MAKE-FUNCTION2| ,|COMMON-LISP-USER|::|NEWF|
,|COMMON-LISP-USER|::|ARGUMENTS| ,|COMMON-LISP-USER|::|BODY|)))))))
'(|COMMON-LISP-USER|::|NEWF| |COMMON-LISP-USER|::|F|
|COMMON-LISP-USER|::|COMP-LIS|)))
(|SYSTEM|::|REMOVE-OLD-DEFINITIONS| '|COMMON-LISP-USER|::|PINCH|)
(|SYSTEM|::|%PUTD| '|COMMON-LISP-USER|::|PINCH|
(|SYSTEM|::|MAKE-MACRO|
(|COMMON-LISP|::|FUNCTION| |COMMON-LISP-USER|::|PINCH|
(|COMMON-LISP|::|LAMBDA| (|SYSTEM|::|<MACRO-FORM>| |SYSTEM|::|<ENV-ARG>|)
(|COMMON-LISP|::|DECLARE| (|COMMON-LISP|::|CONS| |SYSTEM|::|<MACRO-FORM>|))
(|COMMON-LISP|::|DECLARE| (|COMMON-LISP|::|IGNORE| |SYSTEM|::|<ENV-ARG>|))
(|COMMON-LISP|::|IF|
(|COMMON-LISP|::|NOT|
(|SYSTEM|::|PROPER-LIST-LENGTH-IN-BOUNDS-P| |SYSTEM|::|<MACRO-FORM>| 4.
4.))
(|SYSTEM|::|MACRO-CALL-ERROR| |SYSTEM|::|<MACRO-FORM>|)
(|COMMON-LISP|::|LET*|
((|COMMON-LISP-USER|::|NEWF|
(|COMMON-LISP|::|CADR| . #1=(|SYSTEM|::|<MACRO-FORM>|)))
(|COMMON-LISP-USER|::|F| (|COMMON-LISP|::|CADDR| . #1#))
(|COMMON-LISP-USER|::|PINCH-LIST| (|COMMON-LISP|::|CADDDR| . #1#)))
(|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|PINCH|
(|COMMON-LISP|::|LET*|
((|COMMON-LISP-USER|::|ARGUMENTS|
(|COMMON-LISP-USER|::|REMOVE-DUPES|
(|COMMON-LISP|::|SYMBOL-VALUE| |COMMON-LISP-USER|::|PINCH-LIST|)))
(|COMMON-LISP-USER|::|BODY|
`(,|COMMON-LISP-USER|::|F|
,@(|COMMON-LISP|::|SYMBOL-VALUE|
|COMMON-LISP-USER|::|PINCH-LIST|))))
`(|COMMON-LISP-USER|::|MAKE-FUNCTION2| ,|COMMON-LISP-USER|::|NEWF|
,|COMMON-LISP-USER|::|ARGUMENTS| ,|COMMON-LISP-USER|::|BODY|)))))))
'(|COMMON-LISP-USER|::|NEWF| |COMMON-LISP-USER|::|F|
|COMMON-LISP-USER|::|PINCH-LIST|)))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|PLUS|
(|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE|
'(|COMMON-LISP-USER|::|X| |COMMON-LISP-USER|::|Y|)))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|MINUS|
(|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE|
'(|COMMON-LISP-USER|::|X| |COMMON-LISP-USER|::|Y|)))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|MULT|
(|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE|
'(|COMMON-LISP-USER|::|X| |COMMON-LISP-USER|::|Y|)))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|DIV|
(|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE|
'(|COMMON-LISP-USER|::|X| |COMMON-LISP-USER|::|Y|)))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|ONE|
(|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE| '|COMMON-LISP|::|NIL|))