This file is indexed.

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

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
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
(COMMON-LISP::IN-PACKAGE "SYSTEM") 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             ((COMMON-LISP::VECTOR COMMON-LISP::CHARACTER
                  COMMON-LISP::*))
             COMMON-LISP::T)
         SYSTEM::RESET-SYS-PATHS)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION (COMMON-LISP::T)
             (COMMON-LISP::VECTOR COMMON-LISP::T))
         SYSTEM::CONTEXT-VEC)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             ((COMMON-LISP::INTEGER -9223372036854775808
                  9223372036854775807))
             COMMON-LISP::T)
         SYSTEM::PUSH-CONTEXT SYSTEM::GET-CONTEXT)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION COMMON-LISP::NIL COMMON-LISP::T)
         SLOOP::PARSE-LOOP-DO ANSI-LOOP::LOOP-WHEN-IT-VARIABLE
         SYSTEM::GET-INDEX-NODE SLOOP::LOOP-PEEK
         ANSI-LOOP::LOOP-POP-SOURCE SYSTEM::STEP-READ-LINE
         SYSTEM::SET-UP-TOP-LEVEL SLOOP::LOOP-POP SYSTEM::SET-ENV
         SYSTEM::DBL COMMON-LISP::TYPE-ERROR SYSTEM::INSPECT-INDENT
         SLOOP::PARSE-LOOP-COLLECT SYSTEM::CLEANUP
         SYSTEM::DEFAULT-SYSTEM-BANNER
         SYSTEM::CURRENT-DIRECTORY-PATHNAME ANSI-LOOP::LOOP-DO-WITH
         SYSTEM::INIT-BREAK-POINTS SYSTEM::TEST-ERROR
         SYSTEM::GET-SIG-FN-NAME SLOOP::PARSE-ONE-WHEN-CLAUSE
         ANSI-LOOP::LOOP-DO-DO SYSTEM::READ-EVALUATED-FORM
         SYSTEM::INSPECT-INDENT-1 ANSI-LOOP::LOOP-DO-NAMED
         SLOOP::PARSE-LOOP-FOR SYSTEM::ALL-TRACE-DECLARATIONS
         ANSI-LOOP::LOOP-GET-FORM ANSI-LOOP::LOOP-BIND-BLOCK
         SLOOP::PARSE-LOOP-WHEN SYSTEM::TOP-LEVEL
         SYSTEM::DM-TOO-FEW-ARGUMENTS SYSTEM::KCL-TOP-RESTARTS
         SYSTEM::DEFAULT-INFO-HOTLIST SYSTEM::SHOW-RESTARTS
         SYSTEM::DM-TOO-MANY-ARGUMENTS SYSTEM::SETUP-LINEINFO
         SYSTEM::GET-TEMP-DIR ANSI-LOOP::LOOP-ITERATION-DRIVER
         SLOOP::PARSE-LOOP1 SLOOP::LOOP-UN-POP
         ANSI-LOOP::LOOP-DO-FINALLY SYSTEM::INSPECT-READ-LINE
         ANSI-LOOP::LOOP-CONTEXT SYSTEM::SET-CURRENT
         ANSI-LOOP::LOOP-DO-REPEAT SYSTEM::ILLEGAL-BOA
         COMMON-LISP::LISP-IMPLEMENTATION-VERSION
         ANSI-LOOP::LOOP-DO-RETURN ANSI-LOOP::LOOP-DO-INITIALLY
         ANSI-LOOP::LOOP-GET-PROGN)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION (COMMON-LISP::T)
             COMMON-LISP::HASH-TABLE)
         SYSTEM::CONTEXT-SPICE)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION (COMMON-LISP::T)
             (COMMON-LISP::OR COMMON-LISP::NULL
                 COMMON-LISP::HASH-TABLE))
         SYSTEM::CONTEXT-HASH)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION (COMMON-LISP::T COMMON-LISP::T)
             COMMON-LISP::FIXNUM)
         ANSI-LOOP::DUPLICATABLE-CODE-P SYSTEM::RELATIVE-LINE
         SYSTEM::LENEL SYSTEM::GET-NODE-INDEX SYSTEM::FASLINK
         SYSTEM::THE-END)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION (COMMON-LISP::T COMMON-LISP::T)
             COMMON-LISP::T)
         SLOOP::IN-PACKAGE-SLOOP-MAP SLOOP::DESETQ1
         COMMON-LISP::LOGANDC2 ANSI-LOOP::MAKE-LOOP-MINIMAX
         COMMON-LISP::WRITE-BYTE SYSTEM::MATCH-DIMENSIONS
         SLOOP::IN-CAREFULLY-SLOOP-FOR SLOOP::SUM-SLOOP-COLLECT
         SYSTEM::DOT-DIR-P SLOOP::IN-FRINGE-SLOOP-MAP
         SLOOP::COLLATE-SLOOP-COLLECT ANSI-LOOP::LOOP-TMEMBER
         FPE::READ-OPERANDS SYSTEM::IN-INTERVAL-P SYSTEM::SUBSTRINGP
         FPE::PAREN-READER ANSI-LOOP::HIDE-VARIABLE-REFERENCES
         SYSTEM::QUOTATION-READER SYSTEM::ALL-MATCHES SYSTEM::GET-MATCH
         SYSTEM::ADD-FILE ANSI-LOOP::LOOP-DO-ALWAYS SLOOP::THE-TYPE
         SYSTEM::?PUSH SYSTEM::INCREMENT-CURSOR
         SYSTEM::CHECK-SEQ-START-END SLOOP::MAKE-VALUE
         SLOOP::THEREIS-SLOOP-COLLECT ANSI-LOOP::LOOP-DO-WHILE
         COMMON-LISP::COERCE ANSI-LOOP::LOOP-TEQUAL
         ANSI-LOOP::LOOP-DECLARE-VARIABLE COMMON-LISP::LOGNAND
         COMMON-LISP::LOGORC1 SYSTEM::BREAK-STEP-NEXT
         SLOOP::LOGXOR-SLOOP-COLLECT COMMON-LISP::LOGNOR
         COMPILER::COMPILER-DEF-HOOK ANSI-LOOP::LOOP-TASSOC
         SYSTEM::GET-LINE-OF-FORM SLOOP::MAXIMIZE-SLOOP-COLLECT
         ANSI-LOOP::LOOP-DO-IF SYSTEM::SETF-EXPAND SYSTEM::DM-V
         SYSTEM::ITERATE-OVER-BKPTS COMMON-LISP::NTHCDR
         SYSTEM::CONDITION-PASS SYSTEM::DISPLAY-COMPILED-ENV
         COMMON-LISP::LDB-TEST ANSI-LOOP::LOOP-MAYBE-BIND-FORM
         SYSTEM::SUPER-GO SYSTEM::SETF-LOGICAL-PATHNAME-TRANSLATIONS
         FPE::RF SYSTEM::SUB-INTERVAL-P SYSTEM::LEFT-PARENTHESIS-READER
         COMMON-LISP::FILE-STRING-LENGTH SYSTEM::OBJLT SYSTEM::MSUB
         SYSTEM::COERCE-TO-STRING SYSTEM::SAFE-EVAL
         SYSTEM::SET-PATH-STREAM-NAME SYSTEM::SET-BACK
         ANSI-LOOP::LOOP-NOTE-MINIMAX-OPERATION COMMON-LISP::LOGTEST
         SYSTEM::*BREAK-POINTS* SLOOP::=-SLOOP-FOR
         SLOOP::MINIMIZE-SLOOP-COLLECT SYSTEM::KEYWORD-SUPPLIED-P
         SLOOP::COUNT-SLOOP-COLLECT FPE::%-READER COMMON-LISP::LOGORC2
         SYSTEM::SEQUENCE-CURSOR SYSTEM::LOOKUP-KEYWORD
         COMMON-LISP::BYTE SYSTEM::PARSE-SLOT-DESCRIPTION
         COMMON-LISP::LOGANDC1 SYSTEM::DM-NTH-CDR FPE::0-READER
         SLOOP::L-EQUAL SYSTEM::LIST-DELQ SYSTEM::DM-NTH
         COMMON-LISP::LDB SYSTEM::SETF-HELPER
         SLOOP::NEVER-SLOOP-COLLECT SLOOP::PARSE-LOOP-MAP
         COMMON-LISP::NTH SYSTEM::BREAK-STEP-INTO
         SYSTEM::GET-INFO-CHOICES SLOOP::IN-TABLE-SLOOP-MAP
         SYSTEM::GET-NODES COMMON-LISP::VECTOR-PUSH
         COMMON-LISP::PATHNAME-MATCH-P SYSTEM::DBL-UP
         ANSI-LOOP::LOOP-LOOKUP-KEYWORD FPE::READ-INSTRUCTION
         SLOOP::ALWAYS-SLOOP-COLLECT SYSTEM::SET-DIR SYSTEM::INFO-AUX
         SYSTEM::DISPLAY-ENV COMMON-LISP::DOCUMENTATION
         SYSTEM::OVERWRITE-SLOT-DESCRIPTIONS)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION (COMMON-LISP::T COMMON-LISP::*)
             COMMON-LISP::*)
         COMMON-LISP::APROPOS ANSI-LOOP::LOOP-CONSTANT-FOLD-IF-POSSIBLE
         COMMON-LISP::FFLOOR SYSTEM::PRINT-DOC SYSTEM::INFO
         SYSTEM::PARSE-BODY-HEADER COMMON-LISP::INVOKE-RESTART
         SYSTEM::BREAK-FUNCTION SYSTEM::SHOW-INFO COMMON-LISP::FROUND
         COMMON-LISP::GET-SETF-EXPANSION COMMON-LISP::PARSE-NAMESTRING
         SYSTEM::APROPOS-DOC COMMON-LISP::ENSURE-DIRECTORIES-EXIST
         COMMON-LISP::USE-VALUE COMMON-LISP::READ-FROM-STRING
         COMMON-LISP::FTRUNCATE COMMON-LISP::STORE-VALUE
         SYSTEM::STEPPER SYSTEM::GET-SETF-METHOD-MULTIPLE-VALUE
         COMMON-LISP::APROPOS-LIST COMMON-LISP::FCEILING
         COMMON-LISP::WRITE-TO-STRING
         COMMON-LISP::DECODE-UNIVERSAL-TIME)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T)
             COMMON-LISP::T)
         SYSTEM::SETF-EXPAND-1 SLOOP::LOOP-PARSE-ADDITIONAL-COLLECTIONS
         SYSTEM::WARN-VERSION ANSI-LOOP::LOOP-TRANSLATE
         ANSI-LOOP::LOOP-FOR-IN ANSI-LOOP::PRINT-LOOP-UNIVERSE
         ANSI-LOOP::LOOP-STANDARD-EXPANSION
         ANSI-LOOP::LOOP-ANSI-FOR-EQUALS SYSTEM::DM-VL
         SYSTEM::SHARP-A-READER COMMON-LISP::DEPOSIT-FIELD
         SYSTEM::RESTART-CASE-EXPRESSION-CONDITION
         SYSTEM::APPLY-DISPLAY-FUN ANSI-LOOP::HIDE-VARIABLE-REFERENCE
         SYSTEM::FLOATING-POINT-ERROR SYSTEM::GET-SLOT-POS
         ANSI-LOOP::LOOP-MAKE-ITERATION-VARIABLE
         SYSTEM::MAKE-BREAK-POINT SYSTEM::SHARP-V-READER
         SYSTEM::TO-REGEXP-OR-NAMESTRING ANSI-LOOP::LOOP-FOR-ON
         SYSTEM::SHARP-U-READER ANSI-LOOP::LOOP-SUM-COLLECTION
         SYSTEM::SHARP-P-READER SYSTEM::MAKE-T-TYPE
         ANSI-LOOP::LOOP-FOR-ACROSS SYSTEM::MFR SYSTEM::RECURSE-DIR
         SYSTEM::PATHNAME-PARSE ANSI-LOOP::LOOP-FOR-BEING
         COMMON-LISP::DPB SYSTEM::SHARP-DQ-READER
         SYSTEM::CHECK-TRACE-ARGS SYSTEM::DEFMACRO*
         SYSTEM::CHECK-S-DATA FPE::REF)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::*)
             COMMON-LISP::T)
         SYSTEM::FIND-IHS COMMON-LISP::NSET-DIFFERENCE
         COMMON-LISP::BIT-NAND SYSTEM::BREAK-CALL
         COMMON-LISP::COUNT-IF-NOT COMMON-LISP::DELETE
         SYSTEM::INTERNAL-COUNT COMMON-LISP::BIT-ORC1
         COMMON-LISP::DELETE-IF COMMON-LISP::BIT-ANDC1
         SYSTEM::VECTOR-PUSH-STRING COMMON-LISP::MISMATCH
         COMMON-LISP::NOTEVERY SYSTEM::PROCESS-ERROR COMMON-LISP::TYPEP
         COMMON-LISP::BIT-IOR COMMON-LISP::BIT-EQV
         COMMON-LISP::COUNT-IF COMMON-LISP::REMOVE-IF
         COMMON-LISP::EVERY COMMON-LISP::POSITION-IF-NOT
         COMMON-LISP::ADJUST-ARRAY COMMON-LISP::VECTOR-PUSH-EXTEND
         SYSTEM::INTERNAL-COUNT-IF-NOT COMMON-LISP::COUNT
         COMMON-LISP::DELETE-IF-NOT COMMON-LISP::NINTERSECTION
         COMMON-LISP::FIND-IF-NOT COMMON-LISP::BIT-ORC2
         COMMON-LISP::SUBSETP COMMON-LISP::SOME SYSTEM::WREADDIR
         COMMON-LISP::SET-DIFFERENCE COMMON-LISP::UNION
         COMMON-LISP::BIT-XOR SLOOP::PARSE-LOOP-MACRO
         COMMON-LISP::REPLACE COMMON-LISP::REMOVE
         SLOOP::LOOP-ADD-BINDING COMMON-LISP::BIT-ANDC2
         COMMON-LISP::READ-SEQUENCE COMMON-LISP::CERROR
         COMMON-LISP::INTERSECTION COMMON-LISP::POSITION-IF
         ANSI-LOOP::LOOP-CHECK-DATA-TYPE SYSTEM::INTERNAL-COUNT-IF
         COMMON-LISP::NUNION COMMON-LISP::WRITE-SEQUENCE
         COMMON-LISP::MAP-INTO COMMON-LISP::MAKE-SEQUENCE
         COMMON-LISP::SET-EXCLUSIVE-OR SLOOP::IN-ARRAY-SLOOP-FOR
         COMMON-LISP::FIND-IF COMMON-LISP::SEARCH COMMON-LISP::FILL
         COMMON-LISP::FIND COMMON-LISP::NOTANY
         COMMON-LISP::NSET-EXCLUSIVE-OR COMMON-LISP::BIT-NOR
         COMMON-LISP::REMOVE-IF-NOT COMMON-LISP::POSITION
         COMMON-LISP::BIT-AND)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T
                 COMMON-LISP::T)
             COMMON-LISP::T)
         SYSTEM::FIND-LINE-IN-FUN ANSI-LOOP::LOOP-FOR-ARITHMETIC
         SYSTEM::EXPAND-RANGE SYSTEM::MAYBE-BREAK SYSTEM::MINMAX
         SLOOP::FIRST-USE-SLOOP-FOR SLOOP::FIRST-SLOOP-FOR
         SYSTEM::SETF-STRUCTURE-ACCESS SYSTEM::DO-BREAK-LEVEL
         SYSTEM::CALL-TEST SYSTEM::ELEMENT SYSTEM::LOAD-PATHNAME
         SYSTEM::COERCE-TO-CONDITION SYSTEM::ELSUB)) 
(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 COMMON-LISP::MERGE
         SYSTEM::PRINT-STACK-FRAME)) 
(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::*)
             COMMON-LISP::T)
         ANSI-LOOP::LOOP-PACKAGE-SYMBOLS-ITERATION-PATH
         SYSTEM::COMPLETE-PROP SYSTEM::CHECK-TYPE-SYMBOL
         COMMON-LISP::NSUBSTITUTE
         ANSI-LOOP::LOOP-SEQUENCE-ELEMENTS-PATH COMMON-LISP::SUBSTITUTE
         COMMON-LISP::TRANSLATE-PATHNAME COMMON-LISP::NSUBSTITUTE-IF
         COMMON-LISP::MAP SLOOP::LOOP-DECLARE-BINDING SYSTEM::WALK-DIR
         SYSTEM::MATCH-COMPONENT ANSI-LOOP::LOOP-MAKE-VARIABLE
         ANSI-LOOP::ADD-LOOP-PATH COMMON-LISP::SUBSTITUTE-IF
         COMMON-LISP::NSUBSTITUTE-IF-NOT SYSTEM::MME2
         ANSI-LOOP::LOOP-HASH-TABLE-ITERATION-PATH
         COMMON-LISP::SUBSTITUTE-IF-NOT SYSTEM::PUSH-LET-BINDING)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             (COMMON-LISP::T COMMON-LISP::T
                 (COMMON-LISP::INTEGER -9223372036854775808
                     9223372036854775807))
             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::T COMMON-LISP::T)
             COMMON-LISP::T)
         SYSTEM::DO-ARG-COUNT-ERROR SYSTEM::PUSH-SUB-LIST-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::T)
         SYSTEM::MAKE-CONSTRUCTOR SYSTEM::MAKE-PREDICATE)) 
(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::T COMMON-LISP::T COMMON-LISP::T
                 COMMON-LISP::T COMMON-LISP::T COMMON-LISP::*)
             COMMON-LISP::T)
         SYSTEM::UNIVERSAL-ERROR-HANDLER)) 
(COMMON-LISP::MAPC
    (COMMON-LISP::LAMBDA (COMPILER::X)
      (COMMON-LISP::SETF
          (COMMON-LISP::GET COMPILER::X 'COMPILER::PROCLAIMED-CLOSURE)
          COMMON-LISP::T))
    '(SYSTEM::SI-FIND-CLASS SYSTEM::WARNINGP SYSTEM::SI-CLASS-OF
         SYSTEM::CONDITION-CLASS-P SYSTEM::UNTRACE-ONE
         SYSTEM::MAKE-ACCESS-FUNCTION SYSTEM::SIMPLE-CONDITION-CLASS-P
         SYSTEM::CONDITIONP SYSTEM::AUTOLOAD
         SYSTEM::SI-CLASS-PRECEDENCE-LIST SYSTEM::SI-CLASSP
         FPE::BREAK-ON-FLOATING-POINT-EXCEPTIONS SYSTEM::TRACE-ONE
         SYSTEM::AUTOLOAD-MACRO SYSTEM::DEFINE-STRUCTURE
         SYSTEM::SI-CLASS-NAME)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION (COMMON-LISP::T) COMMON-LISP::*)
         SYSTEM::INSTREAM-NAME ANSI-LOOP::LOOP-LIST-STEP
         COMMON-LISP::PRIN1-TO-STRING ANSI-LOOP::NAMED-VARIABLE
         SYSTEM::WAITING SYSTEM::FIND-DECLARATIONS COMMON-LISP::INSPECT
         SYSTEM::END-WAITING SYSTEM::BREAK-GO SYSTEM::INFO-SUBFILE
         COMMON-LISP::INVOKE-RESTART-INTERACTIVELY
         ANSI-LOOP::LOOP-OPTIMIZATION-QUANTITIES SYSTEM::INSPECT-OBJECT
         SYSTEM::BREAK-LEVEL-INVOKE-RESTART SYSTEM::EXPAND-RANGES
         SYSTEM::GET-&ENVIRONMENT COMMON-LISP::DESCRIBE
         COMMON-LISP::PRINC-TO-STRING)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION (COMMON-LISP::*) COMMON-LISP::T)
         COMMON-LISP::ABORT ANSI-LOOP::MAKE-STANDARD-LOOP-UNIVERSE
         SYSTEM::MAKE-S-DATA ANSI-LOOP::MAKE-LOOP-MINIMAX-INTERNAL
         ANSI-LOOP::MAKE-LOOP-PATH SYSTEM::CURRENT-STEP-FUN SYSTEM::LOC
         SYSTEM::DBL-READ SYSTEM::MAKE-RESTART
         SYSTEM::TRANSFORM-KEYWORDS COMMON-LISP::Y-OR-N-P
         SYSTEM::NEXT-MATCH COMMON-LISP::COMPUTE-RESTARTS
         SLOOP::PARSE-LOOP-WITH COMMON-LISP::VECTOR SYSTEM::STEP-NEXT
         ANSI-LOOP::MAKE-LOOP-COLLECTOR
         COMMON-LISP::USER-HOMEDIR-PATHNAME SLOOP::PARSE-LOOP-DECLARE
         COMMON-LISP::YES-OR-NO-P SYSTEM::STEP-INTO
         SYSTEM::MAKE-CONTEXT SYSTEM::BREAK-LOCALS
         SYSTEM::DESCRIBE-ENVIRONMENT COMMON-LISP::DRIBBLE
         ANSI-LOOP::LOOP-DISALLOW-CONDITIONAL SYSTEM::MAYBE-CLEAR-INPUT
         COMMON-LISP::BREAK ANSI-LOOP::LOOP-GENTEMP
         ANSI-LOOP::MAKE-LOOP-UNIVERSE SYSTEM::MAKE-INSTREAM
         COMMON-LISP::MAKE-PATHNAME)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             ((COMMON-LISP::INTEGER -9223372036854775808
                  9223372036854775807))
             COMMON-LISP::FIXNUM)
         FPE::FE-ENABLE SYSTEM::DBL-WHAT-FRAME)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             ((COMMON-LISP::INTEGER -9223372036854775808
                  9223372036854775807)
              (COMMON-LISP::INTEGER -9223372036854775808
                  9223372036854775807))
             COMMON-LISP::FIXNUM)
         SYSTEM::ROUND-UP)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             ((COMMON-LISP::VECTOR COMMON-LISP::CHARACTER
                  COMMON-LISP::*)
              (COMMON-LISP::INTEGER -9223372036854775808
                  9223372036854775807))
             COMMON-LISP::FIXNUM)
         SYSTEM::ATOI)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION (COMMON-LISP::T) COMMON-LISP::T)
         SYSTEM::REGEXP-CONV SYSTEM::DIR-CONJ SYSTEM::DIR-P
         ANSI-LOOP::LOOP-LIST-COLLECTION COMMON-LISP::COSH
         SYSTEM::GET-BYTE-STREAM-NCHARS SYSTEM::INSPECT-CONS
         SYSTEM::KNOWN-TYPE-P SYSTEM::LNP COMMON-LISP::SEVENTH
         SYSTEM::BKPT-FUNCTION SYSTEM::WILD-DIR-ELEMENT-P
         COMMON-LISP::COMPILER-MACRO-FUNCTION
         ANSI-LOOP::LOOP-HACK-ITERATION
         COMMON-LISP::ECHO-STREAM-OUTPUT-STREAM
         SYSTEM::DIRECTORY-LIST-CHECK COMMON-LISP::FILE-WRITE-DATE
         SYSTEM::NORMALIZE-TYPE COMMON-LISP::EIGHTH SYSTEM::TOGGLE-CASE
         SYSTEM::SHOW-ENVIRONMENT
         COMMON-LISP::TWO-WAY-STREAM-INPUT-STREAM SYSTEM::GET-PATH
         COMMON-LISP::ASINH SYSTEM::FIND-KCL-TOP-RESTART
         SYSTEM::RESTART-P SYSTEM::EVAL-FEATURE SYSTEM::ALOAD
         COMMON-LISP::PHASE SLOOP::SUBSTITUTE-SLOOP-BODY
         COMMON-LISP::ASIN SYSTEM::NODES-FROM-INDEX
         SYSTEM::MAKE-DEFPACKAGE-FORM ANSI-LOOP::LOOP-COLLECTOR-DTYPE
         SYSTEM::LOGICAL-PATHNAMEP SYSTEM::INSPECT-VECTOR
         ANSI-LOOP::LOOP-UNIVERSE-TYPE-KEYWORDS
         SYSTEM::RESTART-REPORT-FUNCTION SYSTEM::IHS-VISIBLE
         SLOOP::LOOP-COLLECT-KEYWORD-P ANSI-LOOP::LOOP-TYPED-INIT
         COMMON-LISP::VECTOR-POP SYSTEM::UNIQUE-ID
         ANSI-LOOP::LOOP-UNIVERSE-ITERATION-KEYWORDS
         SYSTEM::SIMPLE-ARRAY-P COMMON-LISP::ACOS SYSTEM::DBL-EVAL
         SYSTEM::INSPECT-STRING SYSTEM::MLP
         SYSTEM::INSTREAM-STREAM-NAME SYSTEM::WILD-NAMESTRING-P
         ANSI-LOOP::LOOP-PATH-FUNCTION
         SYSTEM::GET-STRING-INPUT-STREAM-INDEX
         ANSI-LOOP::LOOP-MINIMAX-TEMP-VARIABLE SYSTEM::SEQTYPE
         ANSI-LOOP::LOOP-UNIVERSE-KEYWORDS
         SYSTEM::BEST-ARRAY-ELEMENT-TYPE
         ANSI-LOOP::LOOP-MINIMAX-INFINITY-DATA SYSTEM::S-DATA-FROZEN
         SYSTEM::S-DATA-DOCUMENTATION SYSTEM::DWIM COMMON-LISP::SIGNUM
         SYSTEM::FIND-DOCUMENTATION ANSI-LOOP::LOOP-COLLECTOR-HISTORY
         ANSI-LOOP::LOOP-MAKE-PSETQ FPE::GREF SYSTEM::S-DATA-OFFSET
         SYSTEM::WILD-PATH-ELEMENT-P SYSTEM::INSTREAM-P
         COMMON-LISP::DIRECTORY-NAMESTRING SYSTEM::INSPECT-ARRAY
         COMMON-LISP::ARRAY-DIMENSIONS
         ANSI-LOOP::LOOP-COLLECTOR-TEMPVARS ANSI-LOOP::LOOP-MINIMAX-P
         SLOOP::RETURN-SLOOP-MACRO SYSTEM::WALK-THROUGH
         SYSTEM::NEXT-STACK-FRAME SYSTEM::S-DATA-NAME COMMON-LISP::TANH
         SYSTEM::BREAK-BACKWARD-SEARCH-STACK COMMON-LISP::TENTH
         SYSTEM::INFO-NODE-FROM-POSITION FPE::ST-LOOKUP
         COMMON-LISP::RESTART-NAME SYSTEM::S-DATA-TYPE
         SYSTEM::BKPT-FILE-LINE COMMON-LISP::FIND-ALL-SYMBOLS
         COMMON-LISP::FIFTH SLOOP::LOOP-LET-BINDINGS
         COMMON-LISP::ECHO-STREAM-INPUT-STREAM
         ANSI-LOOP::LOOP-UNIVERSE-IMPLICIT-FOR-REQUIRED
         COMMON-LISP::PROBE-FILE SYSTEM::MAKE-FRAME
         SYSTEM::IHS-NOT-INTERPRETED-ENV SYSTEM::SEARCH-STACK
         COMMON-LISP::COMPILE-FILE-PATHNAME
         SYSTEM::PRINT-SYMBOL-APROPOS COMMON-LISP::LOGNOT
         SYSTEM::INFO-GET-TAGS SYSTEM::SHORT-NAME
         ANSI-LOOP::LOOP-MINIMAX-TYPE COMMON-LISP::SIXTH
         COMMON-LISP::SECOND ANSI-LOOP::LOOP-UNIVERSE-TYPE-SYMBOLS
         COMMON-LISP::TWO-WAY-STREAM-OUTPUT-STREAM
         SYSTEM::S-DATA-INCLUDES SYSTEM::RESTART-INTERACTIVE-FUNCTION
         SLOOP::TRANSLATE-NAME SYSTEM::PATCH-SHARP COMMON-LISP::ABS
         ANSI-LOOP::LOOP-CONSTANTP SYSTEM::LEAP-YEAR-P
         ANSI-LOOP::LOOP-UNIVERSE-ANSI ANSI-LOOP::LOOP-EMIT-BODY
         COMMON-LISP::HOST-NAMESTRING COMMON-LISP::FIRST
         SYSTEM::INSERT-BREAK-POINT
         COMMON-LISP::LOAD-LOGICAL-PATHNAME-TRANSLATIONS
         COMMON-LISP::DELETE-FILE ANSI-LOOP::LOOP-PSEUDO-BODY
         SYSTEM::GET-NEXT-VISIBLE-FUN SYSTEM::S-DATA-HAS-HOLES
         ANSI-LOOP::LOOP-COLLECTOR-NAME COMMON-LISP::FOURTH
         SYSTEM::BKPT-FILE SYSTEM::CANONICALIZE-PATHNAME-DIRECTORY
         SYSTEM::INSTREAM-STREAM SYSTEM::PNL1 SYSTEM::IHS-FNAME
         SYSTEM::S-DATA-SLOT-POSITION SLOOP::PARSE-LOOP
         SYSTEM::CHECK-TRACE-SPEC SYSTEM::S-DATA-CONSTRUCTORS
         SYSTEM::S-DATA-STATICP SYSTEM::CONTEXT-P
         COMMON-LISP::LOGICAL-PATHNAME-TRANSLATIONS
         SYSTEM::INFO-GET-FILE COMMON-LISP::COMPLEMENT
         SYSTEM::INSPECT-NUMBER SYSTEM::RESET-TRACE-DECLARATIONS
         ANSI-LOOP::LOOP-PATH-P SLOOP::REPEAT-SLOOP-MACRO SYSTEM::DO-F
         SYSTEM::INSPECT-PACKAGE SYSTEM::PATH-STREAM-NAME
         SYSTEM::GET-INSTREAM COMMON-LISP::BYTE-SIZE
         SYSTEM::RESTART-FUNCTION FPE::LOOKUP SYSTEM::S-DATA-CONC-NAME
         COMMON-LISP::PROVIDE SYSTEM::S-DATA-NAMED SYSTEM::PRINT-FRS
         ANSI-LOOP::LOOP-MINIMAX-ANSWER-VARIABLE SYSTEM::NODE-OFFSET
         ANSI-LOOP::MAKE-ANSI-LOOP-UNIVERSE SYSTEM::PRINT-IHS
         ANSI-LOOP::LOOP-UNIVERSE-PATH-KEYWORDS COMMON-LISP::TRUENAME
         SYSTEM::BREAK-FORWARD-SEARCH-STACK
         COMMON-LISP::CONCATENATED-STREAM-STREAMS SYSTEM::VERSION-PARSE
         SYSTEM::INSPECT-CHARACTER SYSTEM::LOGICAL-PATHNAME-HOST-P
         SYSTEM::DM-BAD-KEY SYSTEM::EXPAND-HOME-DIR
         ANSI-LOOP::LOOP-PATH-USER-DATA
         ANSI-LOOP::LOOP-PATH-PREPOSITION-GROUPS SYSTEM::INSPECT-SYMBOL
         COMMON-LISP::INVOKE-DEBUGGER
         SYSTEM::LOGICAL-PATHNAME-DESIGNATOR-P
         COMMON-LISP::BYTE-POSITION COMMON-LISP::ISQRT COMMON-LISP::CIS
         ANSI-LOOP::LOOP-COLLECTOR-CLASS
         COMMON-LISP::SYNONYM-STREAM-SYMBOL ANSI-LOOP::LOOP-PATH-NAMES
         SYSTEM::RE-QUOTE-STRING SYSTEM::INSPECT-STRUCTURE
         COMMON-LISP::RATIONAL FPE::XMM-LOOKUP
         SYSTEM::REWRITE-RESTART-CASE-CLAUSE
         SYSTEM::S-DATA-PRINT-FUNCTION
         SYSTEM::RESTRICT-STREAM-ELEMENT-TYPE SLOOP::SLOOP-SLOOP-MACRO
         COMMON-LISP::NAMESTRING SYSTEM::ENSURE-DIR-STRING
         COMMON-LISP::CONSTANTLY SLOOP::PARSE-LOOP-INITIALLY
         SYSTEM::S-DATA-RAW SYSTEM::ADD-TO-HOTLIST SYSTEM::FRS-KIND
         ANSI-LOOP::LOOP-MAXMIN-COLLECTION
         ANSI-LOOP::LOOP-COLLECTOR-DATA SYSTEM::PROCESS-ARGS
         SYSTEM::COERCE-SLASH-TERMINATED SYSTEM::MAKE-KCL-TOP-RESTART
         COMMON-LISP::ATANH ANSI-LOOP::LOOP-CODE-DUPLICATION-THRESHOLD
         COMMON-LISP::SINH ANSI-LOOP::LOOP-UNIVERSE-P
         ANSI-LOOP::LOOP-PATH-INCLUSIVE-PERMITTED
         SYSTEM::S-DATA-INCLUDED COMMON-LISP::STREAM-EXTERNAL-FORMAT
         SYSTEM::COMPUTING-ARGS-P SYSTEM::REAL-ASINH
         ANSI-LOOP::LOOP-CONSTRUCT-RETURN
         SYSTEM::S-DATA-SLOT-DESCRIPTIONS SYSTEM::FIX-LOAD-PATH
         SYSTEM::CHECK-DECLARATIONS
         ANSI-LOOP::LOOP-UNIVERSE-FOR-KEYWORDS
         SLOOP::POINTER-FOR-COLLECT COMMON-LISP::LOGICAL-PATHNAME
         SYSTEM::CHDIR SYSTEM::IDESCRIBE
         ANSI-LOOP::LOOP-MINIMAX-OPERATIONS COMMON-LISP::ACOSH
         COMMON-LISP::NINTH ANSI-LOOP::LOOP-MINIMAX-FLAG-VARIABLE
         ANSI-LOOP::LOOP-COLLECTOR-P SYSTEM::S-DATA-P SYSTEM::BKPT-FORM
         COMMON-LISP::FILE-NAMESTRING SYSTEM::TERMINAL-INTERRUPT
         SYSTEM::SETUP-INFO SLOOP::PARSE-NO-BODY
         SYSTEM::DM-KEY-NOT-ALLOWED ANSI-LOOP::LOOP-EMIT-FINAL-VALUE
         SYSTEM::FREEZE-DEFSTRUCT SYSTEM::DBL-RPL-LOOP
         SYSTEM::TRACE-ONE-PREPROCESS
         COMMON-LISP::BROADCAST-STREAM-STREAMS COMMON-LISP::THIRD
         SLOOP::AVERAGING-SLOOP-MACRO SYSTEM::SHOW-BREAK-POINT
         COMMON-LISP::PATHNAME ANSI-LOOP::LOOP-DO-THEREIS
         COMMON-LISP::FILE-AUTHOR ANSI-LOOP::LOOP-MAKE-DESETQ
         SYSTEM::NC SYSTEM::NUMBER-OF-DAYS-FROM-1900
         SYSTEM::RESTART-TEST-FUNCTION SYSTEM::WHICH
         ANSI-LOOP::DESTRUCTURING-SIZE COMMON-LISP::FILE-LENGTH)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION (COMMON-LISP::*) COMMON-LISP::*)
         SYSTEM::BREAK-VS ANSI-LOOP::LOOP-OPTIONAL-TYPE
         SYSTEM::BREAK-BDS SYSTEM::IHS-BACKTRACE SYSTEM::INFO-ERROR
         SYSTEM::BREAK-LOCAL SYSTEM::SHOW-BREAK-VARIABLES
         COMMON-LISP::MUFFLE-WARNING SYSTEM::BREAK-PREVIOUS
         SYSTEM::BREAK-QUIT SYSTEM::DBL-BACKTRACE COMMON-LISP::CONTINUE
         SYSTEM::BREAK-NEXT)) 
(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::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             (COMMON-LISP::T
                 (COMMON-LISP::INTEGER -9223372036854775808
                     9223372036854775807)
                 (COMMON-LISP::INTEGER -9223372036854775808
                     9223372036854775807)
                 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::INTEGER -9223372036854775808
                     9223372036854775807)
                 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::*)
             COMMON-LISP::T)
         COMMON-LISP::FIND-RESTART COMMON-LISP::PATHNAME-HOST
         SYSTEM::LINK-EXPAND COMMON-LISP::CONCATENATE COMMON-LISP::WARN
         COMMON-LISP::FILE-POSITION ANSI-LOOP::LOOP-WARN
         COMMON-LISP::PATHNAME-DIRECTORY COMMON-LISP::SBIT
         COMMON-LISP::BIT ANSI-LOOP::LOOP-COLLECT-PREPOSITIONAL-PHRASES
         COMMON-LISP::PATHNAME-TYPE COMMON-LISP::MAKE-ARRAY
         ANSI-LOOP::LOOP-ERROR COMMON-LISP::DIRECTORY SYSTEM::DIR-PARSE
         COMMON-LISP::TRANSLATE-LOGICAL-PATHNAME
         SYSTEM::NTH-STACK-FRAME COMMON-LISP::REQUIRE COMMON-LISP::LOAD
         SYSTEM::MGLIST COMMON-LISP::DELETE-DUPLICATES
         COMMON-LISP::PATHNAME-VERSION COMMON-LISP::ENOUGH-NAMESTRING
         SYSTEM::BAD-SEQ-LIMIT COMMON-LISP::REMOVE-DUPLICATES
         COMMON-LISP::PATHNAME-NAME
         COMMON-LISP::MAKE-STRING-INPUT-STREAM SLOOP::LOOP-ADD-TEMPS
         SYSTEM::NLOAD SYSTEM::LIST-MATCHES
         COMMON-LISP::ARRAY-ROW-MAJOR-INDEX
         COMMON-LISP::ARRAY-IN-BOUNDS-P SYSTEM::BREAK-LEVEL
         SYSTEM::PROCESS-SOME-ARGS SYSTEM::TO-REGEXP
         COMMON-LISP::UPGRADED-ARRAY-ELEMENT-TYPE COMMON-LISP::OPEN
         SYSTEM::FILE-SEARCH COMMON-LISP::READ-BYTE
         SYSTEM::FILE-TO-STRING SLOOP::ADD-FROM-DATA COMMON-LISP::ERROR
         COMMON-LISP::SIGNAL SYSTEM::MGSUB COMMON-LISP::WILD-PATHNAME-P
         COMMON-LISP::PATHNAME-DEVICE SYSTEM::LOGICAL-PATHNAME-PARSE
         COMMON-LISP::MERGE-PATHNAMES SYSTEM::INFO-SEARCH
         COMMON-LISP::BIT-NOT)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION (COMMON-LISP::T COMMON-LISP::T)
             COMMON-LISP::*)
         ANSI-LOOP::ESTIMATE-CODE-SIZE-1 SYSTEM::DO-REPL
         SYSTEM::SOURCE-PORTION SYSTEM::RESTART-REPORT
         SYSTEM::NEW-SEMI-COLON-READER SYSTEM::FIND-DOC
         ANSI-LOOP::ESTIMATE-CODE-SIZE SYSTEM::NEWLINE
         COMMON-LISP::RENAME-FILE SYSTEM::LIST-TOGGLE-CASE)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::*)
             COMMON-LISP::*)
         COMMON-LISP::REDUCE COMMON-LISP::STABLE-SORT
         SYSTEM::PARSE-BODY SLOOP::FIND-IN-ORDERED-LIST
         COMMON-LISP::SUBTYPEP COMMON-LISP::SORT)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T)
             COMMON-LISP::*)
         SYSTEM::LIST-MERGE-SORT ANSI-LOOP::LOOP-GET-COLLECTION-INFO
         SYSTEM::SHARP---READER SYSTEM::SHARP-S-READER
         SYSTEM::VERIFY-KEYWORDS SYSTEM::RESTART-PRINT
         SYSTEM::SHARP-+-READER SYSTEM::READ-INSPECT-COMMAND)) 
(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::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::T COMMON-LISP::T
                 COMMON-LISP::T COMMON-LISP::*)
             COMMON-LISP::*)
         SYSTEM::EXPAND-WILD-DIRECTORY)) 
(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 SYSTEM::PARSE-DEFMACRO-LAMBDA-LIST)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T
                 COMMON-LISP::T)
             COMMON-LISP::*)
         SYSTEM::MME3)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             ((COMMON-LISP::INTEGER -9223372036854775808
                  9223372036854775807)
              COMMON-LISP::T)
             COMMON-LISP::T)
         SYSTEM::SMALLNTHCDR)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION COMMON-LISP::NIL COMMON-LISP::*)
         SYSTEM::GCL-TOP-LEVEL SYSTEM::BREAK-MESSAGE
         SYSTEM::BREAK-RESUME SYSTEM::SIMPLE-BACKTRACE
         SYSTEM::BREAK-HELP ANSI-LOOP::LOOP-DO-FOR
         SYSTEM::BREAK-CURRENT)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION (COMMON-LISP::T) COMMON-LISP::FIXNUM)
         SYSTEM::S-DATA-LENGTH SYSTEM::THE-START SYSTEM::INSTREAM-LINE
         SYSTEM::S-DATA-SIZE FPE::REG-LOOKUP)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION (COMMON-LISP::FIXNUM) COMMON-LISP::T)
         SYSTEM::MATCH-BEGINNING SYSTEM::MATCH-END))