File: sys-proclaim.lisp

package info (click to toggle)
gcl 2.6.14-21
  • links: PTS
  • area: main
  • in suites: forky, sid
  • size: 60,864 kB
  • sloc: ansic: 177,407; lisp: 151,509; asm: 128,169; sh: 22,510; cpp: 11,923; tcl: 3,181; perl: 2,930; makefile: 2,360; sed: 334; yacc: 226; lex: 95; awk: 30; fortran: 24; csh: 23
file content (411 lines) | stat: -rw-r--r-- 20,799 bytes parent folder | download | duplicates (3)
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
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411

(COMMON-LISP::IN-PACKAGE "COMPILER") 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION (COMMON-LISP::T) COMMON-LISP::*)
         COMPILER::WT-CHARACTER-LOC COMPILER::T1EXPR COMPILER::C2PROGN
         COMPILER::WT-TO-STRING COMPILER::CMP-EVAL
         COMPILER::WT-FIXNUM-LOC COMPILER::T1EVAL-WHEN
         COMPILER::MEXPAND-DEFTYPE COMPILER::SET-LOC COMPILER::C2OR
         COMPILER::C2AND COMPILER::WT-LOC COMPILER::CMP-TOPLEVEL-EVAL
         COMPILER::WT-LONG-FLOAT-LOC COMPILER::WT-SHORT-FLOAT-LOC
         COMPILER::C2EXPR)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION (COMMON-LISP::*) COMMON-LISP::T)
         COMPILER::MAKE-VAR COMPILER::C2FSET COMPILER::CS-PUSH
         COMPILER::MAKE-FUN COMPILER::LIST-INLINE COMPILER::WT-CLINK
         COMPILER::FCALLN-INLINE COMPILER::MAKE-INFO COMPILER::MAKE-TAG
         COMPILER::LIST*-INLINE COMPILER::MAKE-BLK
         COMPILER::COMPILER-COMMAND)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             (COMMON-LISP::T
                 (COMMON-LISP::ARRAY COMMON-LISP::T (COMMON-LISP::*))
                 (COMMON-LISP::INTEGER -9223372036854775808
                     9223372036854775807)
                 COMMON-LISP::T)
             COMMON-LISP::FIXNUM)
         COMPILER::PUSH-ARRAY)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             (COMMON-LISP::T
                 (COMMON-LISP::ARRAY COMMON-LISP::T (COMMON-LISP::*))
                 (COMMON-LISP::INTEGER -9223372036854775808
                     9223372036854775807)
                 (COMMON-LISP::INTEGER -9223372036854775808
                     9223372036854775807)
                 COMMON-LISP::T)
             COMMON-LISP::FIXNUM)
         COMPILER::BSEARCHLEQ)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION COMMON-LISP::NIL COMMON-LISP::T)
         COMPILER::WT-FIRST-VAR-ARG COMPILER::CLOSE-INLINE-BLOCKS
         COMPILER::WT-DATA-END COMPILER::CCB-VS-PUSH
         COMPILER::INC-INLINE-BLOCKS COMPILER::CVS-PUSH COMPILER::C1NIL
         COMPILER::MACRO-ENV COMPILER::WT-C-PUSH
         COMPILER::TAIL-RECURSION-POSSIBLE COMPILER::VS-PUSH
         COMPILER::WT-CVARS COMPILER::RESET-TOP COMPILER::WT-DATA-BEGIN
         COMPILER::WFS-ERROR COMPILER::PRINT-CURRENT-FORM
         COMPILER::INIT-ENV COMPILER::BABOON COMPILER::WT-NEXT-VAR-ARG
         COMPILER::GAZONK-NAME COMPILER::ADD-LOAD-TIME-SHARP-COMMA
         COMPILER::WT-DATA-FILE COMPILER::PRINT-COMPILER-INFO
         COMPILER::C1T)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION (COMMON-LISP::T COMMON-LISP::T)
             COMMON-LISP::T)
         COMPILER::GET-INLINE-LOC SYSTEM::ADD-DEBUG COMPILER::FAST-READ
         COMPILER::WT-GO COMPILER::MAKE-USER-INIT COMPILER::C2THROW
         COMPILER::C2MULTIPLE-VALUE-PROG1 COMPILER::NEXT-CFUN
         COMPILER::TYPE>= COMPILER::C2DM-BIND-INIT
         COMPILER::NCONC-FILES COMPILER::DO-CHANGED COMPILER::BASE-USED
         COMPILER::COERCE-LOC COMPILER::NEXT-LABEL*
         COMPILER::PUSH-CHANGED COMPILER::C2DM-BIND-VL
         COMPILER::WT-FIXNUM-VALUE COMPILER::TYPE-AND
         COMPILER::CAN-BE-REPLACED SYSTEM::DEFINE-INLINE-FUNCTION
         COMPILER::CONVERT-CASE-TO-SWITCH COMPILER::SET-BDS-BIND
         COMPILER::NEED-TO-PROTECT COMPILER::COMPILER-BUILD
         COMPILER::SAFE-COMPILE COMPILER::C2EXPR-TOP*
         COMPILER::IS-REFERRED COMPILER::C1FMLA COMPILER::CK-SPEC
         COMPILER::CO1WRITE-BYTE COMPILER::CO1CONSTANT-FOLD
         COMPILER::WT-SHORT-FLOAT-VALUE COMPILER::CO1TYPEP
         COMPILER::BIGNUM-EXPANSION-STORAGE COMPILER::C1CONSTANT-VALUE
         COMPILER::CHANGED-LENGTH COMPILER::UNWIND-BDS
         COMPILER::DOTIMES** COMPILER::CO1CONS
         COMPILER::CO1STRUCTURE-PREDICATE COMPILER::DO-REFERRED
         COMPILER::C2ASSOC!2 COMPILER::NEXT-LABEL
         COMPILER::C2CALL-LAMBDA COMPILER::C1PROGN* COMPILER::FLAG-P
         COMPILER::CFAST-WRITE COMPILER::T23EXPR
         COMPILER::C2MULTIPLE-VALUE-SETQ COMPILER::CO1VECTOR-PUSH
         COMPILER::WT-LABEL COMPILER::C2CATCH
         COMPILER::CHECK-FNAME-ARGS COMPILER::SET-DBIND
         COMPILER::C2LAMBDA-EXPR-WITHOUT-KEY COMPILER::SET-VS
         COMPILER::C1DECL-BODY COMPILER::C1ARGS
         COMPILER::C2LIST-NTH-IMMEDIATE COMPILER::C2RETURN-CCB
         COMPILER::IN-ARRAY COMMON-LISP::DEFINE-COMPILER-MACRO
         COMPILER::C2APPLY COMPILER::CO1WRITE-CHAR
         COMPILER::C2DM-BIND-LOC COMPILER::WT-NL
         COMPILER::WT-LONG-FLOAT-VALUE COMPILER::CO1READ-BYTE
         COMPILER::REMOVE-FLAG COMPILER::CO1LDB COMPILER::WT-VAR
         COMPILER::COERCE-LOC-STRUCTURE-REF COMPILER::PUSH-CHANGED-VARS
         COMPILER::C2PSETQ COMPILER::SHIFT>> COMPILER::PROCLAIM-VAR
         COMPILER::IS-CHANGED COMPILER::ADD-DEBUG-INFO
         COMPILER::CO1SUBLIS COMPILER::WT-CHARACTER-VALUE
         COMPILER::C2EXPR-TOP COMPILER::WT-REQUIREDS COMPILER::DOTIMES*
         COMPILER::PRIN1-CMP COMPILER::PUSH-CHANGED-WITH-START
         COMPILER::DOLIST* COMPILER::C2BLOCK-CLB COMPILER::CMPCK
         COMPILER::PUSH-REFERRED-WITH-START COMPILER::INLINE-PROC
         COMPILER::CK-VL COMPILER::C1EXPR* COMPILER::WT-H
         COMPILER::STRUCT-TYPE-OPT COMPILER::C2UNWIND-PROTECT
         COMPILER::ARGS-INFO-CHANGED-VARS
         COMPILER::C2LAMBDA-EXPR-WITH-KEY COMPILER::SET-JUMP-TRUE
         COMPILER::WT-MAKE-DCLOSURE COMPILER::WT-NL1 COMPILER::CO1SCHAR
         COMPILER::JUMPS-TO-P COMPILER::DOLIST**
         COMPILER::COMPILER-DEF-HOOK COMPILER::NEXT-CMACRO
         COMPILER::C2MEMBER!2 COMPILER::RESULT-TYPE-FROM-ARGS
         COMPILER::CO1EQL COMPILER::C2CALL-LOCAL
         COMPILER::SET-JUMP-FALSE COMPILER::C2MULTIPLE-VALUE-CALL
         COMPILER::C2BIND-LOC COMPILER::C1SETQ1 COMPILER::CO1READ-CHAR
         COMPILER::REFERRED-LENGTH COMPILER::C2STACK-LET COMPILER::WT
         COMPILER::CMPFIX-ARGS COMPILER::NEXT-CVAR
         COMPILER::ARGS-INFO-REFERRED-VARS
         COMPILER::COMPILER-CLEAR-COMPILER-PROPERTIES SYSTEM::SWITCH
         COMPILER::COMPILER-CC COMPILER::FLAGS COMPILER::T3SHARP-COMMA
         COMPILER::C2SETQ COMPILER::C2RETURN-CLB COMPILER::C1LAMBDA-FUN
         COMPILER::C2BLOCK-CCB COMPILER::IS-REP-REFERRED
         COMPILER::MAYBE-WT-C2DM-BIND-VL COMPILER::WT-V*-MACROS
         SYSTEM::SWITCH-FINISH COMPILER::STACK-LET COMPILER::SHIFT<<
         COMPILER::DO-ARRAY COMPILER::MULTIPLE-VALUE-CHECK
         COMPILER::DOWNWARD-FUNCTION COMPILER::EQL-NOT-NIL
         COMPILER::ADD-INFO COMPILER::MAYBE-EVAL COMPILER::MIA
         COMPILER::PUSH-REFERRED COMPILER::C2BIND-INIT)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION (COMMON-LISP::T COMMON-LISP::*)
             COMMON-LISP::*)
         COMPILER::COMPILE-FILE1 COMMON-LISP::COMPILE-FILE)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             ((COMMON-LISP::ARRAY COMMON-LISP::T (COMMON-LISP::*)))
             COMMON-LISP::T)
         COMPILER::COPY-ARRAY)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION (COMMON-LISP::T COMMON-LISP::T)
             COMMON-LISP::FIXNUM)
         COMPILER::PROCLAIMED-ARGD COMPILER::ANALYZE-REGS
         COMPILER::ANALYZE-REGS1)) 
(COMMON-LISP::MAPC
    (COMMON-LISP::LAMBDA (COMPILER::X)
      (COMMON-LISP::SETF
          (COMMON-LISP::GET COMPILER::X 'COMPILER::PROCLAIMED-CLOSURE)
          COMMON-LISP::T))
    '(COMMON-LISP::DISASSEMBLE COMMON-LISP::COMPILE COMPILER::CMP-ANON
         COMPILER::CMP-TMP-MACRO)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T
                 COMMON-LISP::T)
             COMMON-LISP::*)
         COMPILER::C1DM-VL COMPILER::C2RETURN-FROM COMPILER::C2DM
         COMPILER::C1DM-V COMPILER::C2APPLY-OPTIMIZE)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::*)
             COMMON-LISP::*)
         COMPILER::T3DEFUN-AUX)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T)
             COMMON-LISP::*)
         COMPILER::C2IF COMPILER::WT-INLINE COMPILER::C2FLET
         COMPILER::C2LABELS COMPILER::C2COMPILER-LET)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             ((COMMON-LISP::VECTOR COMMON-LISP::CHARACTER
                  COMMON-LISP::*))
             COMMON-LISP::T)
         COMPILER::TS COMPILER::DASH-TO-UNDERSCORE)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION (COMMON-LISP::T COMMON-LISP::T)
             COMMON-LISP::*)
         COMPILER::C2BLOCK-LOCAL COMPILER::C1SYMBOL-FUN
         COMPILER::WT-INLINE-LOC COMPILER::C2RETURN-LOCAL
         COMPILER::C2BLOCK COMPILER::C2DECL-BODY COMPILER::C1BODY)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION (COMMON-LISP::T COMMON-LISP::*)
             COMMON-LISP::T)
         COMPILER::WT-COMMENT COMPILER::INIT-NAME COMPILER::ADD-INIT
         COMPILER::CMPWARN COMPILER::FAST-LINK-PROCLAIMED-TYPE-P
         COMPILER::UNWIND-EXIT COMPILER::CMPNOTE COMPILER::C1CASE
         COMPILER::WT-INTEGER-LOC COMPILER::C1LAMBDA-EXPR
         COMPILER::WT-CVAR COMPILER::CMPERR)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             ((COMMON-LISP::VECTOR COMMON-LISP::CHARACTER
                  COMMON-LISP::*)
              (COMMON-LISP::INTEGER -9223372036854775808
                  9223372036854775807)
              (COMMON-LISP::INTEGER -9223372036854775808
                  9223372036854775807))
             COMMON-LISP::T)
         COMPILER::DASH-TO-UNDERSCORE-INT)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T
                 COMMON-LISP::T)
             COMMON-LISP::T)
         COMPILER::WT-GLOBAL-ENTRY COMPILER::MY-CALL
         COMPILER::C2CALL-GLOBAL COMPILER::C1MAKE-VAR
         COMPILER::T3DEFUN-VARARG COMPILER::C2SWITCH
         COMPILER::C2CALL-UNKNOWN-GLOBAL COMPILER::C2STRUCTURE-REF
         COMPILER::T3DEFUN-NORMAL COMPILER::WT-IF-PROCLAIMED)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T
                 COMMON-LISP::T COMMON-LISP::T COMMON-LISP::*)
             COMMON-LISP::T)
         COMPILER::T3LOCAL-FUN COMPILER::T2DEFUN
         COMPILER::T3LOCAL-DCFUN COMPILER::T3DEFUN)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T)
             COMMON-LISP::T)
         COMPILER::MYSUB COMPILER::WT-INLINE-INTEGER COMPILER::C2MAPC
         COMPILER::WT-INLINE-LONG-FLOAT COMPILER::C2PROGV
         COMPILER::CHECK-VDECL COMPILER::AND-FORM-TYPE
         COMPILER::WT-INLINE-CHARACTER COMPILER::C2MAPCAR
         COMPILER::MAKE-INLINE-STRING COMPILER::C-FUNCTION-NAME
         COMPILER::WT-INLINE-COND COMPILER::ADD-FUNCTION-DECLARATION
         COMPILER::T3DEFCFUN COMPILER::C2MAPCAN COMPILER::C1DM
         COMPILER::ASSIGN-DOWN-VARS COMPILER::CJT COMPILER::SET-VAR
         COMPILER::COMPILER-PASS2 COMPILER::TOO-FEW-ARGS
         COMPILER::C2MULTIPLE-VALUE-BIND COMPILER::C2GO
         COMPILER::C2FUNCALL-SFUN COMPILER::C2PRINC
         COMPILER::WT-INLINE-SHORT-FLOAT COMPILER::C1STRUCTURE-REF1
         COMPILER::GET-INLINE-INFO COMPILER::CAN-BE-REPLACED*
         COMPILER::CJF COMPILER::ADD-FUNCTION-PROCLAMATION
         COMPILER::C2LET* COMPILER::C2TAGBODY
         COMPILER::CMP-EXPAND-MACRO COMPILER::CHECK-FORM-TYPE
         COMPILER::C2LET COMPILER::C2CASE COMPILER::WT-MAKE-CCLOSURE
         COMPILER::TOO-MANY-ARGS COMPILER::BOOLE3
         COMPILER::SUBLIS1-INLINE COMPILER::WT-INLINE-FIXNUM
         COMPILER::FIX-DOWN-ARGS COMPILER::C1MAP-FUNCTIONS
         COMPILER::INLINE-TYPE-MATCHES COMPILER::ADD-FAST-LINK)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::*)
             COMMON-LISP::T)
         COMPILER::C2LAMBDA-EXPR COMPILER::INLINE-ARGS
         COMPILER::C2FUNCALL COMPILER::LINK)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T
                 COMMON-LISP::T COMMON-LISP::T)
             COMMON-LISP::T)
         COMPILER::C2STRUCTURE-SET COMPILER::T3INIT-FUN
         COMPILER::C1APPLY-OPTIMIZE COMPILER::T3DEFUN-LOCAL-ENTRY)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T
                 COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T)
             COMMON-LISP::T)
         COMPILER::T2DEFENTRY COMPILER::DEFSYSFUN COMPILER::T3DEFENTRY)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T
                 COMMON-LISP::*)
             COMMON-LISP::T)
         COMPILER::GET-OUTPUT-PATHNAME COMPILER::WT-SIMPLE-CALL)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             ((COMMON-LISP::INTEGER -9223372036854775808
                  9223372036854775807)
              (COMMON-LISP::INTEGER -9223372036854775808
                  9223372036854775807))
             COMMON-LISP::T)
         COMPILER::MLIN)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             (COMMON-LISP::T
                 (COMMON-LISP::INTEGER -9223372036854775808
                     9223372036854775807))
             COMMON-LISP::T)
         COMPILER::MEMOIZED-HASH-EQUAL)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION (COMMON-LISP::T) COMMON-LISP::T)
         COMPILER::C1PSETQ COMPILER::ADD-LOOP-REGISTERS
         COMPILER::FSET-FN-NAME COMPILER::CMP-MACRO-FUNCTION
         COMPILER::C1PROGN COMPILER::C1SHARP-COMMA COMPILER::C1PRINC
         COMPILER::C1EXPR COMPILER::CONS-TO-LISTA
         COMPILER::RESET-INFO-TYPE COMPILER::WT-VS*
         COMPILER::FUNCTION-RETURN-TYPE COMPILER::C2DM-RESERVE-VL
         COMPILER::C1APPLY COMPILER::GET-INCLUDED COMPILER::BLK-REF-CCB
         COMPILER::C1MACROLET COMPILER::ADD-OBJECT
         COMPILER::C1ASH-CONDITION COMPILER::FUN-REF COMPILER::T1DEFLA
         COMPILER::C1NTHCDR COMPILER::C1FUNCTION COMPILER::PROCLAMATION
         COMPILER::C2FUNCALL-AUX COMPILER::MAXARGS
         COMPILER::INFO-VOLATILE COMPILER::C1ASSOC COMPILER::C1MAPLIST
         COMPILER::CLINK COMPILER::C1BOOLE-CONDITION COMPILER::C1VAR
         COMPILER::VERIFY-DATUM COMPILER::C1OR
         COMPILER::FUNCTION-ARG-TYPES COMPILER::C2FUNCTION
         COMPILER::INLINE-POSSIBLE COMPILER::C2GO-LOCAL
         COMPILER::C1COMPILER-LET COMPILER::NAME-SD1 COMPILER::C1LET
         COMPILER::C1MULTIPLE-VALUE-BIND COMPILER::C1LOCAL-FUN
         COMPILER::CHARACTER-LOC-P COMPILER::VARARG-P
         COMPILER::FIXNUM-LOC-P COMPILER::SAVE-FUNOB COMPILER::BLK-VAR
         COMPILER::C1STACK-LET COMPILER::C1FUNCALL
         COMPILER::INFO-SP-CHANGE COMPILER::T1DEFINE-STRUCTURE
         COMPILER::C1THROW COMPILER::T2PROGN COMPILER::GET-ARG-TYPES
         COMMON-LISP::PROCLAIM COMPILER::C2LOCATION COMPILER::C1IF
         COMPILER::CHECK-DOWNWARD COMPILER::TAG-REF-CCB
         COMPILER::C1MEMBER COMPILER::VAR-REP-LOC COMPILER::VV-STR
         COMPILER::C1RETURN-FROM COMPILER::SET-PUSH-CATCH-FRAME
         COMPILER::C2TAGBODY-LOCAL COMPILER::C1MAPC COMPILER::C1LET*
         COMPILER::WT1 COMPILER::C1PROGV COMPILER::C2TAGBODY-BODY
         COMPILER::C1TERPRI COMPILER::FUN-INFO COMPILER::C1EVAL-WHEN
         COMPILER::WT-CDR COMPILER::WT-VAR-DECL COMPILER::C1RPLACA
         COMPILER::REPLACE-CONSTANT COMPILER::SET-TOP
         COMPILER::OBJECT-TYPE COMPILER::C1TAGBODY COMPILER::T1ORDINARY
         COMPILER::WT-VS-BASE COMPILER::CONSTANT-FOLD-P
         COMPILER::C1RPLACD COMPILER::C1DOWNWARD-FUNCTION
         COMPILER::TYPE-FILTER COMPILER::T3PROGN
         COMPILER::C1LOCAL-CLOSURE COMPILER::C2RPLACD
         COMPILER::TAG-UNWIND-EXIT COMPILER::PUSH-DATA-INCF
         COMPILER::VAR-REF-CCB COMPILER::INFO-P
         COMPILER::WT-SYMBOL-FUNCTION COMPILER::TAG-VAR
         COMPILER::T1DEFMACRO COMPILER::CTOP-WRITE COMPILER::C1MAPCON
         COMPILER::C1FUNOB COMPILER::C2BIND COMPILER::ADD-SYMBOL
         COMPILER::SET-RETURN COMPILER::WT-CAR COMPILER::NAME-TO-SD
         COMPILER::ADD-ADDRESS COMPILER::C2GETHASH COMPILER::C1FLET
         COMPILER::C2TAGBODY-CLB COMPILER::C2VAR COMPILER::ADD-OBJECT2
         COMPILER::BLK-REF COMPILER::INLINE-TYPE COMPILER::C2RPLACA
         COMPILER::C2GO-CCB COMPILER::WT-FUNCTION-LINK
         COMPILER::T1DEFENTRY COMPILER::C1NTH COMPILER::COPY-INFO
         COMPILER::WT-FASD-ELEMENT COMPILER::C1STRUCTURE-REF
         COMPILER::LTVP-EVAL COMPILER::VAR-NAME COMPILER::C1BOOLE3
         COMPILER::C1STRUCTURE-SET COMPILER::WT-VS
         COMPILER::INFO-CHANGED-ARRAY COMPILER::MACRO-DEF-P
         COMPILER::TAG-P COMPILER::VAR-TYPE COMPILER::SHORT-FLOAT-LOC-P
         COMPILER::AET-C-TYPE COMPILER::BLK-VALUE-TO-GO COMPILER::C1GET
         COMPILER::C1AND COMPILER::C1SETQ COMPILER::C1LOAD-TIME-VALUE
         COMPILER::C1ECASE COMPILER::C1MAPCAN COMPILER::T1DEFUN
         COMPILER::C1DEFINE-STRUCTURE COMPILER::C1ASH
         COMPILER::C1NTHCDR-CONDITION COMPILER::BLK-EXIT
         COMPILER::FUN-P COMPILER::C1LABELS COMPILER::LONG-FLOAT-LOC-P
         COMPILER::C1SWITCH COMPILER::T1CLINES
         COMPILER::GET-RETURN-TYPE COMPILER::C1DM-BAD-KEY
         COMPILER::T1PROGN COMPILER::C1QUOTE COMPILER::WT-SWITCH-CASE
         COMPILER::FUN-LEVEL COMPILER::DECLARATION-TYPE
         COMPILER::PARSE-CVSPECS COMPILER::WT-DATA1 COMPILER::REGISTER
         COMPILER::C1FMLA-CONSTANT COMPILER::C1DECLARE COMPILER::VAR-P
         COMPILER::ADD-REG1 COMPILER::C1UNWIND-PROTECT
         COMPILER::C2VAR-KIND COMPILER::BLK-P COMPILER::INFO-TYPE
         COMPILER::THE-PARAMETER COMPILER::C2VALUES
         COMPILER::WRITE-BLOCK-OPEN COMPILER::C1NTH-CONDITION
         COMPILER::C1MAPCAR COMPILER::VAR-LOC COMPILER::SCH-GLOBAL
         COMPILER::WT-H1 COMPILER::SAVE-AVMA COMPILER::C1BLOCK
         SYSTEM::UNDEF-COMPILER-MACRO COMPILER::C1MULTIPLE-VALUE-PROG1
         COMPILER::SAFE-SYSTEM COMPILER::DEFAULT-INIT
         COMPILER::T3ORDINARY COMPILER::CMP-MACROEXPAND-1
         COMPILER::FUN-REF-CCB COMPILER::TAG-REF-CLB
         COMPILER::C2DOWNWARD-FUNCTION COMPILER::C1THE
         COMPILER::CHECK-VREF COMPILER::ARGS-CAUSE-SIDE-EFFECT
         COMPILER::C1ADD-GLOBALS COMPILER::WT-LIST
         COMPILER::SET-UP-VAR-CVS COMPILER::T1DEFCFUN
         COMPILER::INLINE-BOOLE3-STRING COMPILER::FIX-OPT
         COMPILER::VAR-REGISTER COMPILER::TAG-REF COMPILER::T2DECLARE
         COMPILER::DECL-BODY-SAFETY COMPILER::C1VREF
         COMPILER::C2DM-RESERVE-V COMPILER::BLK-NAME
         COMPILER::C1RPLACA-NTHCDR COMPILER::VOLATILE
         COMPILER::PUSH-ARGS COMPILER::C1FSET COMPILER::FLAGS-POS
         COMPILER::TAG-LABEL COMPILER::C1MEMQ COMPILER::C1CATCH
         COMPILER::GET-LOCAL-RETURN-TYPE COMPILER::WT-DATA2
         COMPILER::PUSH-ARGS-LISPCALL COMPILER::FUN-NAME
         COMPILER::C2TAGBODY-CCB COMPILER::C2GET
         COMPILER::INFO-REFERRED-ARRAY
         COMPILER::WT-DOWNWARD-CLOSURE-MACRO COMPILER::T1MACROLET
         COMPILER::T3CLINES COMPILER::SCH-LOCAL-FUN COMPILER::C1LENGTH
         COMPILER::WT-DOWN COMPILER::WT-FUNCALL-C COMPILER::RESULT-TYPE
         COMPILER::MDELETE-FILE COMPILER::ADD-CONSTANT
         COMPILER::C1VALUES COMPILER::C1GETHASH
         COMPILER::CMP-MACROEXPAND COMPILER::FUN-CFUN COMPILER::C1MAPL
         COMPILER::UNWIND-NO-EXIT COMPILER::BLK-REF-CLB COMPILER::WT-VV
         COMPILER::VAR-KIND COMPILER::TAG-SWITCH COMPILER::WT-CCB-VS
         COMPILER::REP-TYPE COMPILER::UNDEFINED-VARIABLE
         COMPILER::C1MULTIPLE-VALUE-SETQ COMPILER::C2GO-CLB
         COMPILER::NEED-TO-SET-VS-POINTERS COMPILER::LTVP
         COMPILER::GET-LOCAL-ARG-TYPES COMPILER::COMPILE-ORDINARY-P
         COMPILER::C1LIST-NTH COMPILER::C1GO
         COMPILER::C1MULTIPLE-VALUE-CALL COMPILER::C2EXPR*
         COMPILER::VAR-REF COMPILER::WT-CADR COMPILER::TAG-NAME)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION (COMMON-LISP::*) COMMON-LISP::*)
         COMPILER::INLINE-BOOLE3)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION (COMMON-LISP::T) COMMON-LISP::FIXNUM)
         COMPILER::F-TYPE))