This file is indexed.

/usr/lib/gcl-2.6.12-prof/lsp/sys-proclaim.lisp is in gcl 2.6.12-29.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below.

  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
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
(COMMON-LISP::IN-PACKAGE "SYSTEM") 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION (COMMON-LISP::T) COMMON-LISP::T)
         ANSI-LOOP::LOOP-EMIT-FINAL-VALUE SYSTEM::INSPECT-CHARACTER
         SYSTEM::INSPECT-STRUCTURE SYSTEM::PRINT-IHS
         SYSTEM::RESTART-FUNCTION COMMON-LISP::TANH COMMON-LISP::FIFTH
         SLOOP::PARSE-LOOP-INITIALLY SYSTEM::NEXT-STACK-FRAME
         SYSTEM::IDESCRIBE SYSTEM::PROCESS-ARGS SYSTEM::LEAP-YEAR-P
         SLOOP::AVERAGING-SLOOP-MACRO SYSTEM::FIX-LOAD-PATH
         SLOOP::SUBSTITUTE-SLOOP-BODY SYSTEM::RESTART-REPORT-FUNCTION
         COMMON-LISP::NINTH SLOOP::SLOOP-SLOOP-MACRO
         SYSTEM::S-DATA-CONSTRUCTORS SYSTEM::FREEZE-DEFSTRUCT
         COMMON-LISP::EIGHTH SYSTEM::FIND-DOCUMENTATION
         ANSI-LOOP::LOOP-PSEUDO-BODY COMMON-LISP::RATIONAL
         ANSI-LOOP::LOOP-EMIT-BODY COMMON-LISP::ASIN
         COMMON-LISP::COMPILE-FILE-PATHNAME SYSTEM::S-DATA-P
         SYSTEM::BKPT-FUNCTION SYSTEM::TRACE-ONE-PREPROCESS
         COMMON-LISP::LOGNOT SYSTEM::SIMPLE-ARRAY-P SYSTEM::BKPT-FILE
         SYSTEM::S-DATA-STATICP COMMON-LISP::ISQRT SYSTEM::INSTREAM-P
         COMMON-LISP::SEVENTH SYSTEM::S-DATA-NAMED
         ANSI-LOOP::LOOP-PATH-PREPOSITION-GROUPS SYSTEM::INSPECT-NUMBER
         COMMON-LISP::ATANH SYSTEM::RESTART-TEST-FUNCTION
         SYSTEM::S-DATA-INCLUDES SYSTEM::S-DATA-HAS-HOLES
         SYSTEM::CONTEXT-VEC FPE::XMM-LOOKUP SYSTEM::S-DATA-RAW
         ANSI-LOOP::LOOP-UNIVERSE-KEYWORDS
         SYSTEM::RESTART-INTERACTIVE-FUNCTION
         ANSI-LOOP::LOOP-UNIVERSE-ITERATION-KEYWORDS
         ANSI-LOOP::LOOP-COLLECTOR-NAME ANSI-LOOP::LOOP-PATH-NAMES
         ANSI-LOOP::LOOP-MINIMAX-ANSWER-VARIABLE
         SYSTEM::S-DATA-INCLUDED SYSTEM::S-DATA-SLOT-DESCRIPTIONS
         SYSTEM::S-DATA-OFFSET SLOOP::REPEAT-SLOOP-MACRO
         SYSTEM::S-DATA-PRINT-FUNCTION ANSI-LOOP::LOOP-PATH-USER-DATA
         COMMON-LISP::FIND-ALL-SYMBOLS COMMON-LISP::FIRST
         SYSTEM::GET-BYTE-STREAM-NCHARS SYSTEM::BKPT-FORM
         SYSTEM::NODES-FROM-INDEX SYSTEM::INSPECT-SYMBOL
         SYSTEM::KNOWN-TYPE-P ANSI-LOOP::LOOP-MINIMAX-TEMP-VARIABLE
         SYSTEM::MAKE-DEFPACKAGE-FORM COMMON-LISP::ARRAY-DIMENSIONS
         SYSTEM::INSERT-BREAK-POINT SLOOP::PARSE-LOOP
         ANSI-LOOP::LOOP-PATH-INCLUSIVE-PERMITTED
         ANSI-LOOP::LOOP-UNIVERSE-PATH-KEYWORDS SYSTEM::SHORT-NAME
         SYSTEM::CHECK-TRACE-SPEC ANSI-LOOP::DESTRUCTURING-SIZE
         SYSTEM::BEST-ARRAY-ELEMENT-TYPE SYSTEM::CONTEXT-HASH
         COMMON-LISP::SIXTH SYSTEM::IHS-VISIBLE SYSTEM::INSPECT-ARRAY
         COMMON-LISP::BYTE-SIZE ANSI-LOOP::LOOP-COLLECTOR-CLASS
         ANSI-LOOP::LOOP-HACK-ITERATION
         ANSI-LOOP::LOOP-CONSTRUCT-RETURN SYSTEM::S-DATA-SLOT-POSITION
         ANSI-LOOP::LOOP-MINIMAX-FLAG-VARIABLE SYSTEM::INSPECT-STRING
         COMMON-LISP::PROVIDE COMMON-LISP::CIS
         ANSI-LOOP::LOOP-MINIMAX-OPERATIONS
         SYSTEM::BREAK-BACKWARD-SEARCH-STACK
         ANSI-LOOP::LOOP-COLLECTOR-DTYPE
         SYSTEM::IHS-NOT-INTERPRETED-ENV SYSTEM::SEARCH-STACK
         COMMON-LISP::TENTH ANSI-LOOP::LOOP-DO-THEREIS
         ANSI-LOOP::LOOP-MAXMIN-COLLECTION
         ANSI-LOOP::LOOP-MINIMAX-INFINITY-DATA
         ANSI-LOOP::LOOP-MAKE-PSETQ SYSTEM::ADD-TO-HOTLIST
         SYSTEM::INSPECT-CONS ANSI-LOOP::LOOP-UNIVERSE-TYPE-SYMBOLS
         SYSTEM::INSPECT-VECTOR COMMON-LISP::CONSTANTLY
         SYSTEM::REWRITE-RESTART-CASE-CLAUSE SYSTEM::DM-BAD-KEY
         SYSTEM::PRINT-SYMBOL-APROPOS SYSTEM::FRS-KIND FPE::ST-LOOKUP
         COMMON-LISP::FOURTH SYSTEM::TERMINAL-INTERRUPT
         SYSTEM::DM-KEY-NOT-ALLOWED SYSTEM::UNIQUE-ID
         SYSTEM::S-DATA-FROZEN SLOOP::POINTER-FOR-COLLECT
         SYSTEM::INSPECT-PACKAGE SYSTEM::DBL-EVAL
         ANSI-LOOP::LOOP-MINIMAX-TYPE ANSI-LOOP::LOOP-UNIVERSE-ANSI
         ANSI-LOOP::LOOP-UNIVERSE-TYPE-KEYWORDS SYSTEM::DWIM
         SYSTEM::INSTREAM-STREAM-NAME SLOOP::RETURN-SLOOP-MACRO
         SYSTEM::PATCH-SHARP SYSTEM::CONTEXT-P SYSTEM::INFO-GET-FILE
         SYSTEM::RESTART-P COMMON-LISP::COSH COMMON-LISP::SINH
         SYSTEM::GET-NEXT-VISIBLE-FUN SYSTEM::CHECK-DECLARATIONS
         SYSTEM::GET-INSTREAM
         ANSI-LOOP::LOOP-CODE-DUPLICATION-THRESHOLD SYSTEM::S-DATA-NAME
         ANSI-LOOP::LOOP-UNIVERSE-FOR-KEYWORDS
         SYSTEM::S-DATA-DOCUMENTATION SYSTEM::SHOW-BREAK-POINT
         COMMON-LISP::ACOS COMMON-LISP::INVOKE-DEBUGGER
         SYSTEM::BKPT-FILE-LINE ANSI-LOOP::LOOP-COLLECTOR-DATA
         COMMON-LISP::THIRD SYSTEM::S-DATA-CONC-NAME
         COMMON-LISP::SIGNUM
         ANSI-LOOP::LOOP-UNIVERSE-IMPLICIT-FOR-REQUIRED
         SYSTEM::NORMALIZE-TYPE ANSI-LOOP::LOOP-TYPED-INIT
         ANSI-LOOP::LOOP-PATH-FUNCTION SYSTEM::INFO-NODE-FROM-POSITION
         COMMON-LISP::ASINH SYSTEM::RE-QUOTE-STRING
         SLOOP::LOOP-COLLECT-KEYWORD-P SYSTEM::PRINT-FRS
         SYSTEM::EVAL-FEATURE ANSI-LOOP::LOOP-COLLECTOR-P
         ANSI-LOOP::LOOP-COLLECTOR-HISTORY
         ANSI-LOOP::LOOP-LIST-COLLECTION
         SYSTEM::BREAK-FORWARD-SEARCH-STACK COMMON-LISP::RESTART-NAME
         SLOOP::PARSE-NO-BODY ANSI-LOOP::LOOP-UNIVERSE-P
         SYSTEM::NUMBER-OF-DAYS-FROM-1900 SYSTEM::NODE-OFFSET
         ANSI-LOOP::LOOP-MINIMAX-P SYSTEM::IHS-FNAME FPE::LOOKUP
         SLOOP::LOOP-LET-BINDINGS FPE::GREF COMMON-LISP::PHASE
         COMMON-LISP::BYTE-POSITION SYSTEM::INSTREAM-STREAM
         ANSI-LOOP::LOOP-PATH-P SYSTEM::SEQTYPE COMMON-LISP::ACOSH
         COMMON-LISP::ABS COMMON-LISP::COMPLEMENT
         ANSI-LOOP::LOOP-CONSTANTP SYSTEM::WALK-THROUGH
         SYSTEM::SETUP-INFO SYSTEM::COMPUTING-ARGS-P
         SYSTEM::CONTEXT-SPICE SYSTEM::MAKE-KCL-TOP-RESTART
         COMMON-LISP::COMPILER-MACRO-FUNCTION
         ANSI-LOOP::LOOP-MAKE-DESETQ SYSTEM::SHOW-ENVIRONMENT
         SLOOP::TRANSLATE-NAME SYSTEM::INFO-GET-TAGS
         COMMON-LISP::SECOND SYSTEM::RESET-TRACE-DECLARATIONS
         SYSTEM::S-DATA-TYPE SYSTEM::FIND-KCL-TOP-RESTART
         ANSI-LOOP::MAKE-ANSI-LOOP-UNIVERSE SYSTEM::DO-F
         ANSI-LOOP::LOOP-COLLECTOR-TEMPVARS COMMON-LISP::VECTOR-POP)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION (COMMON-LISP::*) COMMON-LISP::*)
         SYSTEM::IHS-BACKTRACE SYSTEM::BREAK-NEXT SYSTEM::BREAK-QUIT
         SYSTEM::SHOW-BREAK-VARIABLES SYSTEM::BREAK-BDS
         COMMON-LISP::MUFFLE-WARNING SYSTEM::BREAK-PREVIOUS
         SYSTEM::INFO-ERROR ANSI-LOOP::LOOP-OPTIONAL-TYPE
         SYSTEM::DBL-BACKTRACE SYSTEM::BREAK-LOCAL SYSTEM::BREAK-VS
         COMMON-LISP::CONTINUE)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION (COMMON-LISP::FIXNUM)
             COMMON-LISP::FIXNUM)
         SYSTEM::DBL-WHAT-FRAME FPE::FE-ENABLE)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::*)
             COMMON-LISP::*)
         COMMON-LISP::SUBTYPEP COMMON-LISP::REDUCE SYSTEM::PARSE-BODY
         COMMON-LISP::STABLE-SORT COMMON-LISP::SORT
         SLOOP::FIND-IN-ORDERED-LIST)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T)
             COMMON-LISP::*)
         SYSTEM::VERIFY-KEYWORDS SYSTEM::RESTART-PRINT
         ANSI-LOOP::LOOP-GET-COLLECTION-INFO SYSTEM::LIST-MERGE-SORT
         SYSTEM::READ-INSPECT-COMMAND SYSTEM::SHARP---READER
         SYSTEM::SHARP-+-READER SYSTEM::SHARP-S-READER)) 
(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 COMMON-LISP::T)
             COMMON-LISP::*)
         SYSTEM::PUSH-OPTIONAL-BINDING)) 
(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::*)
         SYSTEM::PARSE-DEFMACRO-LAMBDA-LIST SYSTEM::PARSE-DEFMACRO)) 
(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)
             COMMON-LISP::*)
         SYSTEM::TRACE-CALL)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T
                 COMMON-LISP::*)
             COMMON-LISP::*)
         SYSTEM::MASET)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION (COMMON-LISP::T) COMMON-LISP::FIXNUM)
         FPE::REG-LOOKUP SYSTEM::INSTREAM-LINE SYSTEM::THE-START
         SYSTEM::S-DATA-LENGTH SYSTEM::S-DATA-SIZE)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION (COMMON-LISP::FIXNUM) COMMON-LISP::T)
         SYSTEM::PUSH-CONTEXT SYSTEM::GET-CONTEXT)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION COMMON-LISP::NIL COMMON-LISP::*)
         SYSTEM::BREAK-CURRENT SYSTEM::GCL-TOP-LEVEL
         SYSTEM::BREAK-MESSAGE SYSTEM::BREAK-RESUME
         ANSI-LOOP::LOOP-DO-FOR SYSTEM::SIMPLE-BACKTRACE
         SYSTEM::BREAK-HELP)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION (COMMON-LISP::STRING) COMMON-LISP::T)
         SYSTEM::COERCE-SLASH-TERMINATED SYSTEM::RESET-SYS-PATHS)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION (COMMON-LISP::T COMMON-LISP::*)
             COMMON-LISP::T)
         COMMON-LISP::BIT COMMON-LISP::READ-BYTE
         COMMON-LISP::CONCATENATE SYSTEM::INFO-SEARCH
         COMMON-LISP::ARRAY-IN-BOUNDS-P ANSI-LOOP::LOOP-ERROR
         ANSI-LOOP::LOOP-WARN COMMON-LISP::REMOVE-DUPLICATES
         SYSTEM::BAD-SEQ-LIMIT SYSTEM::PROCESS-SOME-ARGS
         ANSI-LOOP::LOOP-COLLECT-PREPOSITIONAL-PHRASES
         SLOOP::LOOP-ADD-TEMPS COMMON-LISP::BIT-NOT COMMON-LISP::SIGNAL
         SYSTEM::NTH-STACK-FRAME COMMON-LISP::ARRAY-ROW-MAJOR-INDEX
         COMMON-LISP::MAKE-ARRAY SYSTEM::FILE-SEARCH
         SYSTEM::LIST-MATCHES COMMON-LISP::FIND-RESTART
         SYSTEM::BREAK-LEVEL COMMON-LISP::DELETE-DUPLICATES
         SLOOP::ADD-FROM-DATA COMMON-LISP::ERROR COMMON-LISP::WARN
         SYSTEM::FILE-TO-STRING
         COMMON-LISP::UPGRADED-ARRAY-ELEMENT-TYPE COMMON-LISP::SBIT)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION (COMMON-LISP::T COMMON-LISP::T)
             COMMON-LISP::*)
         SYSTEM::FIND-DOC SYSTEM::RESTART-REPORT
         ANSI-LOOP::ESTIMATE-CODE-SIZE-1 SYSTEM::NEWLINE
         ANSI-LOOP::ESTIMATE-CODE-SIZE SYSTEM::NEW-SEMI-COLON-READER)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION (COMMON-LISP::T)
             (COMMON-LISP::VALUES COMMON-LISP::T COMMON-LISP::T))
         SYSTEM::MAKE-KEYWORD)) 
(COMMON-LISP::MAPC
    (COMMON-LISP::LAMBDA (COMPILER::X)
      (COMMON-LISP::SETF
          (COMMON-LISP::GET COMPILER::X 'SYSTEM::PROCLAIMED-CLOSURE)
          COMMON-LISP::T))
    '(SYSTEM::SI-CLASS-PRECEDENCE-LIST SYSTEM::SI-CLASSP
         SYSTEM::SIMPLE-CONDITION-CLASS-P SYSTEM::UNTRACE-ONE
         SYSTEM::CONDITIONP SYSTEM::CONDITION-CLASS-P
         SYSTEM::MAKE-ACCESS-FUNCTION SYSTEM::SI-CLASS-NAME
         SYSTEM::AUTOLOAD-MACRO SYSTEM::AUTOLOAD SYSTEM::SI-CLASS-OF
         SYSTEM::WARNINGP SYSTEM::DEFINE-STRUCTURE
         FPE::BREAK-ON-FLOATING-POINT-EXCEPTIONS SYSTEM::SI-FIND-CLASS
         SYSTEM::TRACE-ONE)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             (COMMON-LISP::T COMMON-LISP::FIXNUM COMMON-LISP::FIXNUM
                 COMMON-LISP::T COMMON-LISP::T)
             COMMON-LISP::T)
         SYSTEM::QUICK-SORT)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             (COMMON-LISP::T COMMON-LISP::FIXNUM COMMON-LISP::T
                 COMMON-LISP::T)
             COMMON-LISP::T)
         SYSTEM::BIGNTHCDR)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T)
             COMMON-LISP::T)
         ANSI-LOOP::LOOP-MAKE-ITERATION-VARIABLE ANSI-LOOP::LOOP-FOR-IN
         SYSTEM::DEFMACRO* SYSTEM::APPLY-DISPLAY-FUN
         SYSTEM::WARN-VERSION ANSI-LOOP::HIDE-VARIABLE-REFERENCE
         SYSTEM::SHARP-U-READER ANSI-LOOP::LOOP-FOR-ACROSS
         SYSTEM::DM-VL SYSTEM::GET-SLOT-POS
         SYSTEM::RESTART-CASE-EXPRESSION-CONDITION
         SYSTEM::CHECK-TRACE-ARGS ANSI-LOOP::LOOP-FOR-ON FPE::REF
         ANSI-LOOP::PRINT-LOOP-UNIVERSE ANSI-LOOP::LOOP-ANSI-FOR-EQUALS
         SYSTEM::SETF-EXPAND-1 ANSI-LOOP::LOOP-SUM-COLLECTION
         ANSI-LOOP::LOOP-STANDARD-EXPANSION SYSTEM::MAKE-T-TYPE
         COMMON-LISP::DEPOSIT-FIELD SYSTEM::MAKE-BREAK-POINT
         ANSI-LOOP::LOOP-FOR-BEING ANSI-LOOP::LOOP-TRANSLATE
         SYSTEM::SHARP-A-READER COMMON-LISP::DPB
         SYSTEM::FLOATING-POINT-ERROR SYSTEM::CHECK-S-DATA
         SLOOP::LOOP-PARSE-ADDITIONAL-COLLECTIONS)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T
                 COMMON-LISP::T)
             COMMON-LISP::T)
         SLOOP::FIRST-USE-SLOOP-FOR SYSTEM::COERCE-TO-CONDITION
         SLOOP::FIRST-SLOOP-FOR ANSI-LOOP::LOOP-FOR-ARITHMETIC
         SYSTEM::MAYBE-BREAK SYSTEM::SETF-STRUCTURE-ACCESS
         SYSTEM::CALL-TEST SYSTEM::FIND-LINE-IN-FUN)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::*)
             COMMON-LISP::T)
         COMMON-LISP::COUNT-IF COMMON-LISP::BIT-ANDC2
         COMMON-LISP::REMOVE SYSTEM::INTERNAL-COUNT-IF
         SLOOP::LOOP-ADD-BINDING COMMON-LISP::MAP-INTO
         COMMON-LISP::FIND-IF COMMON-LISP::NSET-DIFFERENCE
         COMMON-LISP::UNION COMMON-LISP::NUNION
         COMMON-LISP::MAKE-SEQUENCE COMMON-LISP::NOTANY
         COMMON-LISP::POSITION COMMON-LISP::DELETE-IF
         COMMON-LISP::BIT-ORC2 COMMON-LISP::REPLACE COMMON-LISP::DELETE
         SYSTEM::BREAK-CALL COMMON-LISP::NINTERSECTION
         COMMON-LISP::POSITION-IF SYSTEM::FIND-IHS COMMON-LISP::BIT-AND
         COMMON-LISP::DELETE-IF-NOT ANSI-LOOP::LOOP-CHECK-DATA-TYPE
         COMMON-LISP::REMOVE-IF COMMON-LISP::READ-SEQUENCE
         SLOOP::PARSE-LOOP-MACRO COMMON-LISP::BIT-NAND
         SYSTEM::INTERNAL-COUNT-IF-NOT COMMON-LISP::SUBSETP
         COMMON-LISP::VECTOR-PUSH-EXTEND COMMON-LISP::EVERY
         COMMON-LISP::SOME COMMON-LISP::WRITE-SEQUENCE
         COMMON-LISP::MISMATCH COMMON-LISP::SET-EXCLUSIVE-OR
         COMMON-LISP::REMOVE-IF-NOT COMMON-LISP::BIT-NOR
         COMMON-LISP::BIT-XOR COMMON-LISP::BIT-EQV COMMON-LISP::SEARCH
         COMMON-LISP::SET-DIFFERENCE COMMON-LISP::FILL
         COMMON-LISP::CERROR COMMON-LISP::ADJUST-ARRAY
         COMMON-LISP::BIT-ORC1 SYSTEM::INTERNAL-COUNT
         COMMON-LISP::TYPEP SYSTEM::PROCESS-ERROR
         COMMON-LISP::COUNT-IF-NOT COMMON-LISP::INTERSECTION
         SLOOP::IN-ARRAY-SLOOP-FOR COMMON-LISP::FIND-IF-NOT
         COMMON-LISP::BIT-ANDC1 COMMON-LISP::POSITION-IF-NOT
         COMMON-LISP::NOTEVERY COMMON-LISP::NSET-EXCLUSIVE-OR
         COMMON-LISP::FIND COMMON-LISP::COUNT COMMON-LISP::BIT-IOR)) 
(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)
         SYSTEM::PUSH-SUB-LIST-BINDING SYSTEM::DO-ARG-COUNT-ERROR)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T
                 COMMON-LISP::*)
             COMMON-LISP::T)
         ANSI-LOOP::ADD-LOOP-PATH COMMON-LISP::MAP
         ANSI-LOOP::LOOP-HASH-TABLE-ITERATION-PATH
         ANSI-LOOP::LOOP-PACKAGE-SYMBOLS-ITERATION-PATH
         COMMON-LISP::SUBSTITUTE COMMON-LISP::NSUBSTITUTE
         COMMON-LISP::NSUBSTITUTE-IF-NOT ANSI-LOOP::LOOP-MAKE-VARIABLE
         COMMON-LISP::SUBSTITUTE-IF-NOT
         ANSI-LOOP::LOOP-SEQUENCE-ELEMENTS-PATH
         SYSTEM::PUSH-LET-BINDING COMMON-LISP::SUBSTITUTE-IF
         SYSTEM::CHECK-TYPE-SYMBOL SLOOP::LOOP-DECLARE-BINDING
         SYSTEM::COMPLETE-PROP COMMON-LISP::NSUBSTITUTE-IF)) 
(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)
         SYSTEM::MAKE-PREDICATE SYSTEM::DO-BREAK-LEVEL
         SYSTEM::MAKE-CONSTRUCTOR)) 
(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)
         SYSTEM::UNIVERSAL-ERROR-HANDLER)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::FIXNUM)
             COMMON-LISP::T)
         SYSTEM::SHARP-SHARP-READER SYSTEM::SHARP-EQ-READER)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T
                 COMMON-LISP::T COMMON-LISP::*)
             COMMON-LISP::T)
         SLOOP::DEF-LOOP-INTERNAL SYSTEM::PRINT-STACK-FRAME
         COMMON-LISP::MERGE)) 
(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::*)
             COMMON-LISP::T)
         COMMON-LISP::ENCODE-UNIVERSAL-TIME)) 
(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 COMMON-LISP::T COMMON-LISP::T
                 COMMON-LISP::T)
             COMMON-LISP::T)
         ANSI-LOOP::LOOP-SEQUENCER)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             (COMMON-LISP::STRING COMMON-LISP::FIXNUM)
             COMMON-LISP::FIXNUM)
         SYSTEM::ATOI)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION (COMMON-LISP::*) COMMON-LISP::T)
         SYSTEM::DESCRIBE-ENVIRONMENT SYSTEM::STEP-NEXT
         COMMON-LISP::BREAK COMMON-LISP::ABORT SYSTEM::MAKE-S-DATA
         ANSI-LOOP::MAKE-LOOP-COLLECTOR SLOOP::PARSE-LOOP-DECLARE
         ANSI-LOOP::LOOP-GENTEMP SYSTEM::MAKE-INSTREAM
         SYSTEM::MAYBE-CLEAR-INPUT
         ANSI-LOOP::MAKE-LOOP-MINIMAX-INTERNAL COMMON-LISP::Y-OR-N-P
         SYSTEM::CURRENT-STEP-FUN ANSI-LOOP::LOOP-DISALLOW-CONDITIONAL
         COMMON-LISP::DRIBBLE SYSTEM::MAKE-RESTART
         SLOOP::PARSE-LOOP-WITH SYSTEM::LOC COMMON-LISP::YES-OR-NO-P
         SYSTEM::TRANSFORM-KEYWORDS SYSTEM::MAKE-CONTEXT
         COMMON-LISP::COMPUTE-RESTARTS SYSTEM::DBL-READ
         SYSTEM::STEP-INTO ANSI-LOOP::MAKE-LOOP-UNIVERSE
         SYSTEM::BREAK-LOCALS ANSI-LOOP::MAKE-STANDARD-LOOP-UNIVERSE
         COMMON-LISP::VECTOR ANSI-LOOP::MAKE-LOOP-PATH)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION (COMMON-LISP::T) COMMON-LISP::*)
         ANSI-LOOP::LOOP-LIST-STEP SYSTEM::INSPECT-OBJECT
         COMMON-LISP::DESCRIBE ANSI-LOOP::LOOP-OPTIMIZATION-QUANTITIES
         SYSTEM::BREAK-GO SYSTEM::GET-&ENVIRONMENT
         COMMON-LISP::PRINC-TO-STRING SYSTEM::WAITING
         SYSTEM::INSTREAM-NAME ANSI-LOOP::NAMED-VARIABLE
         COMMON-LISP::PRIN1-TO-STRING SYSTEM::INFO-SUBFILE
         COMMON-LISP::INSPECT SYSTEM::END-WAITING
         SYSTEM::FIND-DECLARATIONS
         COMMON-LISP::INVOKE-RESTART-INTERACTIVELY
         SYSTEM::BREAK-LEVEL-INVOKE-RESTART SYSTEM::ALOAD)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION (COMMON-LISP::T COMMON-LISP::T)
             COMMON-LISP::T)
         ANSI-LOOP::MAKE-LOOP-MINIMAX COMMON-LISP::LDB
         SYSTEM::LIST-DELQ FPE::RF SLOOP::L-EQUAL
         ANSI-LOOP::LOOP-DECLARE-VARIABLE SYSTEM::DISPLAY-COMPILED-ENV
         SYSTEM::SET-BACK ANSI-LOOP::HIDE-VARIABLE-REFERENCES
         SYSTEM::GET-LINE-OF-FORM SYSTEM::BREAK-STEP-INTO
         SLOOP::THE-TYPE SLOOP::COUNT-SLOOP-COLLECT
         SYSTEM::KEYWORD-SUPPLIED-P COMMON-LISP::LOGANDC2
         ANSI-LOOP::LOOP-MAYBE-BIND-FORM SYSTEM::SET-DIR
         SYSTEM::COERCE-TO-STRING COMMON-LISP::VECTOR-PUSH
         SYSTEM::DM-NTH-CDR SLOOP::IN-FRINGE-SLOOP-MAP
         SLOOP::MAXIMIZE-SLOOP-COLLECT SYSTEM::ADD-FILE
         SYSTEM::ALL-MATCHES SYSTEM::DM-NTH
         SLOOP::IN-CAREFULLY-SLOOP-FOR SYSTEM::PARSE-SLOT-DESCRIPTION
         ANSI-LOOP::LOOP-LOOKUP-KEYWORD FPE::0-READER
         ANSI-LOOP::LOOP-TMEMBER COMPILER::COMPILER-DEF-HOOK
         SYSTEM::INFO-AUX COMMON-LISP::NTH SYSTEM::QUOTATION-READER
         SYSTEM::CHECK-SEQ-START-END COMMON-LISP::LOGNAND
         SYSTEM::SUBSTRINGP COMMON-LISP::LOGORC2
         ANSI-LOOP::LOOP-NOTE-MINIMAX-OPERATION SYSTEM::SAFE-EVAL
         ANSI-LOOP::LOOP-DO-IF SLOOP::THEREIS-SLOOP-COLLECT
         SYSTEM::MATCH-DIMENSIONS SYSTEM::GET-MATCH
         SYSTEM::SUB-INTERVAL-P FPE::PAREN-READER
         SLOOP::IN-TABLE-SLOOP-MAP COMMON-LISP::LOGTEST
         SLOOP::LOGXOR-SLOOP-COLLECT SYSTEM::DM-V
         SYSTEM::GET-INFO-CHOICES SLOOP::COLLATE-SLOOP-COLLECT
         SYSTEM::BREAK-STEP-NEXT ANSI-LOOP::LOOP-TEQUAL
         COMMON-LISP::WRITE-BYTE COMMON-LISP::NTHCDR
         SYSTEM::SETF-HELPER SLOOP::NEVER-SLOOP-COLLECT SLOOP::DESETQ1
         ANSI-LOOP::LOOP-DO-WHILE COMMON-LISP::DOCUMENTATION
         FPE::%-READER SYSTEM::IN-INTERVAL-P SLOOP::SUM-SLOOP-COLLECT
         SYSTEM::OBJLT COMMON-LISP::LDB-TEST SLOOP::PARSE-LOOP-MAP
         SYSTEM::GET-NODES SLOOP::MAKE-VALUE SYSTEM::CONDITION-PASS
         SLOOP::IN-PACKAGE-SLOOP-MAP SYSTEM::INCREMENT-CURSOR
         ANSI-LOOP::LOOP-DO-ALWAYS SYSTEM::DISPLAY-ENV SYSTEM::SUPER-GO
         SLOOP::MINIMIZE-SLOOP-COLLECT COMMON-LISP::LOGNOR
         COMMON-LISP::LOGANDC1 COMMON-LISP::BYTE SYSTEM::DBL-UP
         SYSTEM::ITERATE-OVER-BKPTS COMMON-LISP::LOGORC1
         FPE::READ-OPERANDS SLOOP::ALWAYS-SLOOP-COLLECT
         SYSTEM::SETF-EXPAND SYSTEM::OVERWRITE-SLOT-DESCRIPTIONS
         SYSTEM::*BREAK-POINTS* SYSTEM::LOOKUP-KEYWORD
         ANSI-LOOP::LOOP-TASSOC SYSTEM::LEFT-PARENTHESIS-READER
         SLOOP::=-SLOOP-FOR FPE::READ-INSTRUCTION COMMON-LISP::COERCE
         SYSTEM::SEQUENCE-CURSOR)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION (COMMON-LISP::T COMMON-LISP::*)
             COMMON-LISP::*)
         COMMON-LISP::FFLOOR SYSTEM::BREAK-FUNCTION
         COMMON-LISP::APROPOS-LIST COMMON-LISP::DECODE-UNIVERSAL-TIME
         SYSTEM::STEPPER COMMON-LISP::REQUIRE SYSTEM::APROPOS-DOC
         SYSTEM::PRINT-DOC SYSTEM::INFO COMMON-LISP::USE-VALUE
         COMMON-LISP::WRITE-TO-STRING COMMON-LISP::FCEILING
         SYSTEM::GET-SETF-METHOD
         ANSI-LOOP::LOOP-CONSTANT-FOLD-IF-POSSIBLE SYSTEM::NLOAD
         COMMON-LISP::ENSURE-DIRECTORIES-EXIST
         COMMON-LISP::WILD-PATHNAME-P COMMON-LISP::FTRUNCATE
         COMMON-LISP::FROUND SYSTEM::PARSE-BODY-HEADER
         COMMON-LISP::INVOKE-RESTART SYSTEM::SHOW-INFO
         COMMON-LISP::READ-FROM-STRING
         SYSTEM::GET-SETF-METHOD-MULTIPLE-VALUE COMMON-LISP::APROPOS
         COMMON-LISP::STORE-VALUE)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION COMMON-LISP::NIL COMMON-LISP::T)
         ANSI-LOOP::LOOP-DO-WITH SYSTEM::WINE-TMP-REDIRECT
         SLOOP::PARSE-ONE-WHEN-CLAUSE COMMON-LISP::TYPE-ERROR
         SYSTEM::INSPECT-INDENT SYSTEM::SET-CURRENT SYSTEM::TEST-ERROR
         SLOOP::LOOP-POP ANSI-LOOP::LOOP-DO-REPEAT
         ANSI-LOOP::LOOP-GET-PROGN SYSTEM::DM-TOO-FEW-ARGUMENTS
         ANSI-LOOP::LOOP-CONTEXT SYSTEM::READ-EVALUATED-FORM
         SYSTEM::ALL-TRACE-DECLARATIONS
         COMMON-LISP::LISP-IMPLEMENTATION-VERSION
         SYSTEM::DEFAULT-SYSTEM-BANNER ANSI-LOOP::LOOP-DO-RETURN
         SYSTEM::INSPECT-INDENT-1 SYSTEM::STEP-READ-LINE
         SYSTEM::SET-ENV SYSTEM::DM-TOO-MANY-ARGUMENTS
         ANSI-LOOP::LOOP-BIND-BLOCK SLOOP::PARSE-LOOP1
         ANSI-LOOP::LOOP-DO-NAMED SLOOP::PARSE-LOOP-COLLECT
         SYSTEM::KCL-TOP-RESTARTS SYSTEM::INSPECT-READ-LINE
         SYSTEM::SET-UP-TOP-LEVEL SYSTEM::SHOW-RESTARTS SYSTEM::DBL
         SLOOP::PARSE-LOOP-FOR ANSI-LOOP::LOOP-ITERATION-DRIVER
         ANSI-LOOP::LOOP-WHEN-IT-VARIABLE ANSI-LOOP::LOOP-DO-DO
         SYSTEM::DEFAULT-INFO-HOTLIST SYSTEM::GET-TEMP-DIR
         ANSI-LOOP::LOOP-POP-SOURCE SLOOP::LOOP-UN-POP
         SYSTEM::TOP-LEVEL ANSI-LOOP::LOOP-DO-FINALLY
         ANSI-LOOP::LOOP-DO-INITIALLY SYSTEM::GET-INDEX-NODE
         SYSTEM::SETUP-LINEINFO SLOOP::PARSE-LOOP-WHEN SYSTEM::CLEANUP
         ANSI-LOOP::LOOP-GET-FORM SLOOP::PARSE-LOOP-DO
         SYSTEM::INIT-BREAK-POINTS SLOOP::LOOP-PEEK
         SYSTEM::GET-SIG-FN-NAME SYSTEM::ILLEGAL-BOA)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION (COMMON-LISP::FIXNUM COMMON-LISP::T)
             COMMON-LISP::T)
         SYSTEM::SMALLNTHCDR)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION (COMMON-LISP::T COMMON-LISP::T)
             COMMON-LISP::FIXNUM)
         SYSTEM::THE-END ANSI-LOOP::DUPLICATABLE-CODE-P
         SYSTEM::RELATIVE-LINE SYSTEM::GET-NODE-INDEX)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             (COMMON-LISP::FIXNUM COMMON-LISP::FIXNUM)
             COMMON-LISP::FIXNUM)
         SYSTEM::ROUND-UP))