This file is indexed.

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

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
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
(COMMON-LISP::IN-PACKAGE "SYSTEM") 
(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::T) COMMON-LISP::T)
         SYSTEM::NORMALIZE-TYPE SYSTEM::PNL1
         ANSI-LOOP::LOOP-UNIVERSE-PATH-KEYWORDS SYSTEM::DM-BAD-KEY
         SYSTEM::S-DATA-INCLUDES
         ANSI-LOOP::LOOP-UNIVERSE-ITERATION-KEYWORDS
         COMMON-LISP::HOST-NAMESTRING
         COMMON-LISP::TWO-WAY-STREAM-INPUT-STREAM COMMON-LISP::LOGNOT
         SYSTEM::BREAK-FORWARD-SEARCH-STACK
         SLOOP::SUBSTITUTE-SLOOP-BODY
         COMMON-LISP::CONCATENATED-STREAM-STREAMS
         ANSI-LOOP::LOOP-MINIMAX-OPERATIONS SYSTEM::ADD-TO-HOTLIST
         SYSTEM::RESTART-REPORT-FUNCTION COMMON-LISP::THIRD
         SYSTEM::DWIM SYSTEM::GET-INSTREAM SYSTEM::TOGGLE-CASE
         SYSTEM::INSTREAM-P COMMON-LISP::DELETE-FILE
         SYSTEM::BEST-ARRAY-ELEMENT-TYPE COMMON-LISP::ISQRT
         SYSTEM::INSERT-BREAK-POINT SYSTEM::WILD-DIR-ELEMENT-P
         COMMON-LISP::ABS SYSTEM::WHICH COMMON-LISP::ACOS
         SYSTEM::COERCE-SLASH-TERMINATED
         COMMON-LISP::LOAD-LOGICAL-PATHNAME-TRANSLATIONS
         ANSI-LOOP::LOOP-CODE-DUPLICATION-THRESHOLD
         COMMON-LISP::ECHO-STREAM-OUTPUT-STREAM SYSTEM::DIR-P
         SYSTEM::SETUP-INFO SYSTEM::S-DATA-TYPE
         ANSI-LOOP::LOOP-PATH-PREPOSITION-GROUPS
         SYSTEM::PRINT-SYMBOL-APROPOS SYSTEM::S-DATA-FROZEN
         SYSTEM::REAL-ASINH ANSI-LOOP::LOOP-UNIVERSE-TYPE-SYMBOLS
         SLOOP::PARSE-NO-BODY SYSTEM::INSPECT-STRING SYSTEM::PRINT-FRS
         SYSTEM::LEAP-YEAR-P SYSTEM::RESTRICT-STREAM-ELEMENT-TYPE
         SYSTEM::RESTART-INTERACTIVE-FUNCTION
         SYSTEM::S-DATA-SLOT-DESCRIPTIONS SYSTEM::S-DATA-STATICP
         SYSTEM::INSPECT-STRUCTURE COMMON-LISP::ASINH
         ANSI-LOOP::LOOP-PATH-USER-DATA SYSTEM::RE-QUOTE-STRING
         SYSTEM::MLP SYSTEM::GET-STRING-INPUT-STREAM-INDEX
         SYSTEM::INFO-GET-FILE COMMON-LISP::EIGHTH
         SYSTEM::SHOW-BREAK-POINT SYSTEM::SIMPLE-ARRAY-P
         COMMON-LISP::RESTART-NAME SLOOP::POINTER-FOR-COLLECT
         COMMON-LISP::PHASE SYSTEM::LNP
         SYSTEM::REWRITE-RESTART-CASE-CLAUSE
         SLOOP::LOOP-COLLECT-KEYWORD-P SYSTEM::S-DATA-HAS-HOLES
         SYSTEM::EVAL-FEATURE ANSI-LOOP::DESTRUCTURING-SIZE
         COMMON-LISP::BROADCAST-STREAM-STREAMS
         ANSI-LOOP::LOOP-PATH-FUNCTION COMMON-LISP::BYTE-POSITION
         ANSI-LOOP::LOOP-MINIMAX-TYPE COMMON-LISP::TANH
         SYSTEM::BKPT-FILE SYSTEM::FRS-KIND
         SYSTEM::S-DATA-PRINT-FUNCTION SYSTEM::UNIQUE-ID
         SYSTEM::IHS-NOT-INTERPRETED-ENV SYSTEM::INSPECT-PACKAGE
         ANSI-LOOP::LOOP-MINIMAX-INFINITY-DATA SYSTEM::BKPT-FILE-LINE
         ANSI-LOOP::LOOP-EMIT-BODY SYSTEM::PATCH-SHARP
         ANSI-LOOP::LOOP-COLLECTOR-P SYSTEM::DIR-CONJ
         SYSTEM::CHECK-TRACE-SPEC ANSI-LOOP::LOOP-COLLECTOR-HISTORY
         ANSI-LOOP::LOOP-UNIVERSE-KEYWORDS SYSTEM::FIX-LOAD-PATH
         ANSI-LOOP::LOOP-COLLECTOR-NAME SYSTEM::PATH-STREAM-NAME
         SLOOP::LOOP-LET-BINDINGS ANSI-LOOP::LOOP-TYPED-INIT
         FPE::ST-LOOKUP SYSTEM::IHS-VISIBLE SYSTEM::INFO-GET-TAGS
         SYSTEM::EXPAND-HOME-DIR SYSTEM::DM-KEY-NOT-ALLOWED
         ANSI-LOOP::LOOP-UNIVERSE-P
         SYSTEM::CANONICALIZE-PATHNAME-DIRECTORY
         COMMON-LISP::CONSTANTLY SYSTEM::WILD-NAMESTRING-P
         SYSTEM::INSPECT-NUMBER SYSTEM::LOGICAL-PATHNAME-DESIGNATOR-P
         COMMON-LISP::FOURTH SYSTEM::NODES-FROM-INDEX
         SYSTEM::LOGICAL-PATHNAME-HOST-P SYSTEM::S-DATA-NAMED
         COMMON-LISP::INVOKE-DEBUGGER SYSTEM::INSPECT-VECTOR
         SYSTEM::VERSION-PARSE SYSTEM::WILD-PATH-ELEMENT-P
         SLOOP::RETURN-SLOOP-MACRO SYSTEM::REGEXP-CONV
         SYSTEM::NUMBER-OF-DAYS-FROM-1900
         COMMON-LISP::ECHO-STREAM-INPUT-STREAM SYSTEM::CHDIR
         SYSTEM::DBL-RPL-LOOP COMMON-LISP::ASIN COMMON-LISP::RATIONAL
         ANSI-LOOP::LOOP-PATH-INCLUSIVE-PERMITTED
         COMMON-LISP::NAMESTRING SYSTEM::TRACE-ONE-PREPROCESS
         SYSTEM::TERMINAL-INTERRUPT SYSTEM::SEQTYPE SYSTEM::S-DATA-RAW
         SYSTEM::GET-NEXT-VISIBLE-FUN FPE::XMM-LOOKUP
         SYSTEM::MAKE-KCL-TOP-RESTART ANSI-LOOP::LOOP-MINIMAX-P
         ANSI-LOOP::LOOP-MAXMIN-COLLECTION
         COMMON-LISP::COMPILER-MACRO-FUNCTION SYSTEM::BKPT-FUNCTION
         SYSTEM::DIRECTORY-LIST-CHECK SYSTEM::S-DATA-SLOT-POSITION
         SYSTEM::SHORT-NAME SYSTEM::DBL-EVAL
         ANSI-LOOP::LOOP-COLLECTOR-DATA SYSTEM::S-DATA-DOCUMENTATION
         ANSI-LOOP::LOOP-EMIT-FINAL-VALUE COMMON-LISP::NINTH
         SYSTEM::CHECK-DECLARATIONS ANSI-LOOP::LOOP-PATH-NAMES
         COMMON-LISP::LOGICAL-PATHNAME COMMON-LISP::SIGNUM
         COMMON-LISP::FIND-ALL-SYMBOLS COMMON-LISP::FIFTH
         SYSTEM::S-DATA-P ANSI-LOOP::LOOP-CONSTANTP SYSTEM::IDESCRIBE
         SYSTEM::BKPT-FORM ANSI-LOOP::MAKE-ANSI-LOOP-UNIVERSE
         SLOOP::SLOOP-SLOOP-MACRO SYSTEM::NEXT-STACK-FRAME
         SYSTEM::INSPECT-CONS SYSTEM::KNOWN-TYPE-P
         SYSTEM::RESET-TRACE-DECLARATIONS COMMON-LISP::SINH
         ANSI-LOOP::LOOP-PATH-P COMMON-LISP::PROVIDE
         SYSTEM::INSPECT-SYMBOL SYSTEM::FIND-DOCUMENTATION
         ANSI-LOOP::LOOP-MAKE-DESETQ COMMON-LISP::TENTH
         SYSTEM::MAKE-DEFPACKAGE-FORM COMMON-LISP::FILE-WRITE-DATE
         COMMON-LISP::TWO-WAY-STREAM-OUTPUT-STREAM
         COMMON-LISP::TRUENAME COMMON-LISP::COMPLEMENT
         COMMON-LISP::FIRST ANSI-LOOP::LOOP-COLLECTOR-CLASS
         ANSI-LOOP::LOOP-COLLECTOR-TEMPVARS COMMON-LISP::ATANH
         SYSTEM::LOGICAL-PATHNAMEP COMMON-LISP::DIRECTORY-NAMESTRING
         SYSTEM::RESTART-P ANSI-LOOP::LOOP-MINIMAX-ANSWER-VARIABLE
         SYSTEM::FIND-KCL-TOP-RESTART COMMON-LISP::FILE-NAMESTRING
         COMMON-LISP::STREAM-EXTERNAL-FORMAT COMMON-LISP::SECOND
         COMMON-LISP::FILE-LENGTH SYSTEM::INSTREAM-STREAM
         ANSI-LOOP::LOOP-MINIMAX-TEMP-VARIABLE COMMON-LISP::PATHNAME
         SYSTEM::DO-F COMMON-LISP::FILE-AUTHOR
         SYSTEM::LOAD-PATHNAME-EXISTS SLOOP::AVERAGING-SLOOP-MACRO
         ANSI-LOOP::LOOP-CONSTRUCT-RETURN ANSI-LOOP::LOOP-UNIVERSE-ANSI
         ANSI-LOOP::LOOP-PSEUDO-BODY SLOOP::PARSE-LOOP
         ANSI-LOOP::LOOP-HACK-ITERATION SYSTEM::S-DATA-CONC-NAME
         SYSTEM::SEARCH-STACK ANSI-LOOP::LOOP-DO-THEREIS
         COMMON-LISP::BYTE-SIZE ANSI-LOOP::LOOP-MINIMAX-FLAG-VARIABLE
         COMMON-LISP::ACOSH SYSTEM::GET-PATH
         COMMON-LISP::LOGICAL-PATHNAME-TRANSLATIONS
         SYSTEM::S-DATA-CONSTRUCTORS SYSTEM::ENSURE-DIR-STRING
         SYSTEM::FREEZE-DEFSTRUCT SYSTEM::PRINT-IHS
         SYSTEM::INSPECT-CHARACTER COMMON-LISP::ARRAY-DIMENSIONS
         SLOOP::PARSE-LOOP-INITIALLY SYSTEM::COMPUTING-ARGS-P
         SYSTEM::INSTREAM-STREAM-NAME SYSTEM::PROCESS-ARGS FPE::GREF
         SYSTEM::S-DATA-NAME ANSI-LOOP::LOOP-UNIVERSE-TYPE-KEYWORDS
         SYSTEM::GET-BYTE-STREAM-NCHARS SYSTEM::S-DATA-INCLUDED
         SYSTEM::WALK-THROUGH SYSTEM::RESTART-FUNCTION
         SLOOP::TRANSLATE-NAME
         ANSI-LOOP::LOOP-UNIVERSE-IMPLICIT-FOR-REQUIRED
         COMMON-LISP::SEVENTH COMMON-LISP::CIS FPE::LOOKUP
         COMMON-LISP::COSH COMMON-LISP::VECTOR-POP SYSTEM::IHS-FNAME
         SYSTEM::BREAK-BACKWARD-SEARCH-STACK SLOOP::REPEAT-SLOOP-MACRO
         COMMON-LISP::PROBE-FILE ANSI-LOOP::LOOP-LIST-COLLECTION
         SYSTEM::CONTEXT-P COMMON-LISP::SIXTH SYSTEM::NC
         SYSTEM::MAKE-FRAME COMMON-LISP::COMPILE-FILE-PATHNAME
         SYSTEM::INFO-NODE-FROM-POSITION SYSTEM::NODE-OFFSET
         SYSTEM::RESTART-TEST-FUNCTION SYSTEM::ALOAD
         ANSI-LOOP::LOOP-UNIVERSE-FOR-KEYWORDS
         ANSI-LOOP::LOOP-COLLECTOR-DTYPE SYSTEM::S-DATA-OFFSET
         SYSTEM::SHOW-ENVIRONMENT COMMON-LISP::SYNONYM-STREAM-SYMBOL
         SYSTEM::INSPECT-ARRAY ANSI-LOOP::LOOP-MAKE-PSETQ)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION (COMMON-LISP::*) COMMON-LISP::*)
         SYSTEM::BREAK-QUIT SYSTEM::DBL-BACKTRACE
         SYSTEM::BREAK-PREVIOUS SYSTEM::INFO-ERROR SYSTEM::BREAK-VS
         SYSTEM::BREAK-LOCAL SYSTEM::IHS-BACKTRACE
         ANSI-LOOP::LOOP-OPTIONAL-TYPE SYSTEM::BREAK-NEXT
         COMMON-LISP::MUFFLE-WARNING SYSTEM::BREAK-BDS
         COMMON-LISP::CONTINUE SYSTEM::SHOW-BREAK-VARIABLES)) 
(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::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::T COMMON-LISP::T
                 COMMON-LISP::T)
             COMMON-LISP::T)
         SYSTEM::MAYBE-BREAK SYSTEM::MME3 SYSTEM::FIND-LINE-IN-FUN
         SYSTEM::SETF-STRUCTURE-ACCESS SYSTEM::EXPAND-RANGE
         SYSTEM::MINMAX SYSTEM::COERCE-TO-CONDITION
         SLOOP::FIRST-SLOOP-FOR SLOOP::FIRST-USE-SLOOP-FOR
         SYSTEM::DO-BREAK-LEVEL SYSTEM::ELSUB
         ANSI-LOOP::LOOP-FOR-ARITHMETIC SYSTEM::CALL-TEST
         SYSTEM::ELEMENT SYSTEM::LOAD-PATHNAME)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T)
             COMMON-LISP::T)
         SYSTEM::SHARP-P-READER ANSI-LOOP::HIDE-VARIABLE-REFERENCE
         SYSTEM::CHECK-TRACE-ARGS SYSTEM::SHARP-U-READER
         SYSTEM::FLOATING-POINT-ERROR ANSI-LOOP::LOOP-FOR-IN
         COMMON-LISP::DEPOSIT-FIELD SYSTEM::GET-SLOT-POS
         SYSTEM::SHARP-A-READER SYSTEM::SHARP-V-READER
         SYSTEM::PATHNAME-PARSE
         SLOOP::LOOP-PARSE-ADDITIONAL-COLLECTIONS SYSTEM::SETF-EXPAND-1
         COMMON-LISP::DPB SYSTEM::RESTART-CASE-EXPRESSION-CONDITION
         SYSTEM::CHECK-S-DATA ANSI-LOOP::LOOP-FOR-BEING
         SYSTEM::TO-REGEXP-OR-NAMESTRING SYSTEM::APPLY-DISPLAY-FUN
         ANSI-LOOP::LOOP-ANSI-FOR-EQUALS ANSI-LOOP::LOOP-SUM-COLLECTION
         ANSI-LOOP::LOOP-FOR-ON SYSTEM::MFR
         ANSI-LOOP::LOOP-STANDARD-EXPANSION SYSTEM::PROG?*
         ANSI-LOOP::LOOP-MAKE-ITERATION-VARIABLE
         SYSTEM::SHARP-DQ-READER SYSTEM::RECURSE-DIR SYSTEM::DM-VL
         ANSI-LOOP::LOOP-FOR-ACROSS ANSI-LOOP::PRINT-LOOP-UNIVERSE
         SYSTEM::WARN-VERSION ANSI-LOOP::LOOP-TRANSLATE
         SYSTEM::DEFMACRO* SYSTEM::MAKE-BREAK-POINT SYSTEM::MAKE-T-TYPE
         FPE::REF)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T
                 COMMON-LISP::*)
             COMMON-LISP::T)
         SYSTEM::MME2 COMMON-LISP::SUBSTITUTE-IF-NOT
         ANSI-LOOP::LOOP-HASH-TABLE-ITERATION-PATH
         COMMON-LISP::SUBSTITUTE SYSTEM::WALK-DIR
         SYSTEM::CHECK-TYPE-SYMBOL COMMON-LISP::TRANSLATE-PATHNAME
         ANSI-LOOP::LOOP-PACKAGE-SYMBOLS-ITERATION-PATH
         COMMON-LISP::MAP ANSI-LOOP::LOOP-SEQUENCE-ELEMENTS-PATH
         ANSI-LOOP::ADD-LOOP-PATH SLOOP::LOOP-DECLARE-BINDING
         SYSTEM::COMPLETE-PROP SYSTEM::MATCH-COMPONENT
         COMMON-LISP::NSUBSTITUTE COMMON-LISP::NSUBSTITUTE-IF
         COMMON-LISP::SUBSTITUTE-IF COMMON-LISP::NSUBSTITUTE-IF-NOT
         SYSTEM::PUSH-LET-BINDING ANSI-LOOP::LOOP-MAKE-VARIABLE)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::*)
             COMMON-LISP::T)
         COMMON-LISP::DELETE-IF-NOT COMMON-LISP::FILL
         COMMON-LISP::SET-EXCLUSIVE-OR ANSI-LOOP::LOOP-CHECK-DATA-TYPE
         SYSTEM::INTERNAL-COUNT-IF-NOT COMMON-LISP::SOME
         COMMON-LISP::COUNT COMMON-LISP::NOTANY SYSTEM::INTERNAL-COUNT
         COMMON-LISP::POSITION-IF-NOT COMMON-LISP::SET-DIFFERENCE
         SLOOP::IN-ARRAY-SLOOP-FOR COMMON-LISP::NUNION
         COMMON-LISP::BIT-NAND SYSTEM::PROCESS-ERROR
         COMMON-LISP::BIT-ANDC2 COMMON-LISP::POSITION-IF
         COMMON-LISP::NSET-DIFFERENCE COMMON-LISP::WRITE-SEQUENCE
         COMMON-LISP::BIT-XOR COMMON-LISP::READ-SEQUENCE
         COMMON-LISP::DELETE-IF COMMON-LISP::MAP-INTO
         COMMON-LISP::SUBSETP COMMON-LISP::REMOVE-IF-NOT
         COMMON-LISP::FIND-IF COMMON-LISP::INTERSECTION
         COMMON-LISP::REPLACE COMMON-LISP::VECTOR-PUSH-EXTEND
         COMMON-LISP::BIT-ORC2 COMMON-LISP::POSITION
         COMMON-LISP::CERROR COMMON-LISP::FIND COMMON-LISP::BIT-ORC1
         SYSTEM::BREAK-CALL SLOOP::PARSE-LOOP-MACRO COMMON-LISP::EVERY
         COMMON-LISP::COUNT-IF-NOT COMMON-LISP::ADJUST-ARRAY
         COMMON-LISP::SEARCH COMMON-LISP::REMOVE-IF
         COMMON-LISP::NOTEVERY COMMON-LISP::TYPEP COMMON-LISP::COUNT-IF
         SYSTEM::WREADDIR SYSTEM::INTERNAL-COUNT-IF COMMON-LISP::DELETE
         COMMON-LISP::NSET-EXCLUSIVE-OR COMMON-LISP::UNION
         COMMON-LISP::BIT-EQV COMMON-LISP::NINTERSECTION
         COMMON-LISP::MISMATCH SYSTEM::FIND-IHS COMMON-LISP::REMOVE
         SYSTEM::VECTOR-PUSH-STRING COMMON-LISP::BIT-IOR
         COMMON-LISP::FIND-IF-NOT COMMON-LISP::MAKE-SEQUENCE
         COMMON-LISP::BIT-ANDC1 SLOOP::LOOP-ADD-BINDING
         COMMON-LISP::BIT-NOR 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 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-PREDICATE SYSTEM::DO?* 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::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::*)
             COMMON-LISP::T)
         SYSTEM::EXPAND-WILD-DIRECTORY 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::INTEGER -9223372036854775808
                     9223372036854775807))
             COMMON-LISP::T)
         SYSTEM::SHARP-EQ-READER SYSTEM::SHARP-SHARP-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::*)
             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::*)
             COMMON-LISP::T)
         SYSTEM::UNIVERSAL-ERROR-HANDLER)) 
(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::*)
             COMMON-LISP::*)
         COMMON-LISP::SUBST COMMON-LISP::SUBST-IF-NOT
         COMMON-LISP::SUBST-IF SYSTEM::MASET)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T)
             COMMON-LISP::*)
         SYSTEM::READ-INSPECT-COMMAND SYSTEM::RESTART-PRINT
         ANSI-LOOP::LOOP-GET-COLLECTION-INFO SYSTEM::SHARP-+-READER
         SYSTEM::VERIFY-KEYWORDS SYSTEM::SHARP-S-READER
         SYSTEM::LIST-MERGE-SORT SYSTEM::SHARP---READER)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::*)
             COMMON-LISP::*)
         SYSTEM::PARSE-BODY COMMON-LISP::SORT
         SLOOP::FIND-IN-ORDERED-LIST COMMON-LISP::REDUCE
         COMMON-LISP::STABLE-SORT COMMON-LISP::SUBTYPEP)) 
(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::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::*) COMMON-LISP::T)
         SYSTEM::MAKE-CONTEXT ANSI-LOOP::MAKE-STANDARD-LOOP-UNIVERSE
         ANSI-LOOP::MAKE-LOOP-UNIVERSE SYSTEM::MAKE-S-DATA
         SYSTEM::NEXT-MATCH COMMON-LISP::USER-HOMEDIR-PATHNAME
         SYSTEM::STEP-NEXT ANSI-LOOP::LOOP-DISALLOW-CONDITIONAL
         COMMON-LISP::VECTOR SLOOP::PARSE-LOOP-WITH
         COMMON-LISP::COMPUTE-RESTARTS COMMON-LISP::BREAK
         ANSI-LOOP::MAKE-LOOP-PATH ANSI-LOOP::LOOP-GENTEMP
         COMMON-LISP::ABORT COMMON-LISP::YES-OR-NO-P
         SYSTEM::MAKE-INSTREAM SYSTEM::DBL-READ
         SYSTEM::MAYBE-CLEAR-INPUT SYSTEM::MAKE-RESTART
         ANSI-LOOP::MAKE-LOOP-MINIMAX-INTERNAL COMMON-LISP::Y-OR-N-P
         SLOOP::PARSE-LOOP-DECLARE ANSI-LOOP::MAKE-LOOP-COLLECTOR
         SYSTEM::DESCRIBE-ENVIRONMENT SYSTEM::STEP-INTO
         SYSTEM::CURRENT-STEP-FUN COMMON-LISP::DRIBBLE
         COMMON-LISP::MAKE-PATHNAME SYSTEM::BREAK-LOCALS SYSTEM::LOC
         SYSTEM::TRANSFORM-KEYWORDS)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION (COMMON-LISP::T) COMMON-LISP::*)
         ANSI-LOOP::LOOP-OPTIMIZATION-QUANTITIES
         COMMON-LISP::PRIN1-TO-STRING SYSTEM::GET-&ENVIRONMENT
         COMMON-LISP::INSPECT SYSTEM::BREAK-GO
         SYSTEM::PARSE-BODY-HEADER COMMON-LISP::PRINC-TO-STRING
         SYSTEM::EXPAND-RANGES ANSI-LOOP::NAMED-VARIABLE
         ANSI-LOOP::LOOP-LIST-STEP SYSTEM::INSTREAM-NAME
         SYSTEM::WAITING SYSTEM::END-WAITING COMMON-LISP::DESCRIBE
         SYSTEM::INFO-SUBFILE SYSTEM::FIND-DECLARATIONS
         SYSTEM::INSPECT-OBJECT SYSTEM::BREAK-LEVEL-INVOKE-RESTART
         COMMON-LISP::INVOKE-RESTART-INTERACTIVELY)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION (COMMON-LISP::T) COMMON-LISP::FIXNUM)
         SYSTEM::S-DATA-SIZE FPE::REG-LOOKUP SYSTEM::INSTREAM-LINE
         SYSTEM::S-DATA-LENGTH SYSTEM::THE-START)) 
(COMMON-LISP::MAPC
    (COMMON-LISP::LAMBDA (COMPILER::X)
      (COMMON-LISP::SETF
          (COMMON-LISP::GET COMPILER::X 'COMPILER::PROCLAIMED-CLOSURE)
          COMMON-LISP::T))
    '(SYSTEM::SI-CLASS-PRECEDENCE-LIST SYSTEM::AUTOLOAD
         SYSTEM::UNTRACE-ONE SYSTEM::TRACE-ONE SYSTEM::CONDITIONP
         SYSTEM::MAKE-ACCESS-FUNCTION SYSTEM::SI-CLASS-NAME
         SYSTEM::SI-CLASSP SYSTEM::SI-CLASS-OF SYSTEM::SI-FIND-CLASS
         SYSTEM::CONDITION-CLASS-P SYSTEM::AUTOLOAD-MACRO
         SYSTEM::WARNINGP SYSTEM::DEFINE-STRUCTURE
         FPE::BREAK-ON-FLOATING-POINT-EXCEPTIONS
         SYSTEM::SIMPLE-CONDITION-CLASS-P)) 
(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::T)
             COMMON-LISP::HASH-TABLE)
         SYSTEM::CONTEXT-SPICE)) 
(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::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::NIL COMMON-LISP::T)
         ANSI-LOOP::LOOP-DO-INITIALLY SYSTEM::GET-INDEX-NODE
         SLOOP::PARSE-ONE-WHEN-CLAUSE SYSTEM::STEP-READ-LINE
         SYSTEM::DM-TOO-MANY-ARGUMENTS SYSTEM::READ-EVALUATED-FORM
         SYSTEM::DM-TOO-FEW-ARGUMENTS SYSTEM::KCL-TOP-RESTARTS
         ANSI-LOOP::LOOP-ITERATION-DRIVER
         SYSTEM::CURRENT-DIRECTORY-PATHNAME SYSTEM::INSPECT-INDENT
         SYSTEM::CLEANUP ANSI-LOOP::LOOP-WHEN-IT-VARIABLE
         SLOOP::PARSE-LOOP-WHEN ANSI-LOOP::LOOP-DO-NAMED
         ANSI-LOOP::LOOP-GET-FORM SYSTEM::GET-TEMP-DIR
         SYSTEM::ILLEGAL-BOA SYSTEM::SET-UP-TOP-LEVEL
         SYSTEM::SETUP-LINEINFO ANSI-LOOP::LOOP-CONTEXT
         SYSTEM::TOP-LEVEL SYSTEM::DBL SLOOP::LOOP-UN-POP
         SYSTEM::SET-CURRENT ANSI-LOOP::LOOP-GET-PROGN
         ANSI-LOOP::LOOP-DO-REPEAT SYSTEM::INIT-BREAK-POINTS
         SLOOP::PARSE-LOOP-FOR SLOOP::LOOP-POP
         ANSI-LOOP::LOOP-POP-SOURCE ANSI-LOOP::LOOP-DO-WITH
         ANSI-LOOP::LOOP-DO-DO COMMON-LISP::LISP-IMPLEMENTATION-VERSION
         ANSI-LOOP::LOOP-DO-RETURN SLOOP::PARSE-LOOP-DO
         SLOOP::LOOP-PEEK ANSI-LOOP::LOOP-BIND-BLOCK
         SYSTEM::DEFAULT-SYSTEM-BANNER SLOOP::PARSE-LOOP1
         SYSTEM::INSPECT-READ-LINE ANSI-LOOP::LOOP-DO-FINALLY
         SYSTEM::TEST-ERROR COMMON-LISP::TYPE-ERROR
         SYSTEM::DEFAULT-INFO-HOTLIST SYSTEM::SHOW-RESTARTS
         SYSTEM::SET-ENV SLOOP::PARSE-LOOP-COLLECT
         SYSTEM::ALL-TRACE-DECLARATIONS SYSTEM::GET-SIG-FN-NAME
         SYSTEM::INSPECT-INDENT-1)) 
(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)
         SYSTEM::LENEL SYSTEM::GET-NODE-INDEX SYSTEM::FASLINK
         SYSTEM::THE-END ANSI-LOOP::DUPLICATABLE-CODE-P
         SYSTEM::RELATIVE-LINE)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             ((COMMON-LISP::INTEGER -9223372036854775808
                  9223372036854775807))
             COMMON-LISP::FIXNUM)
         SYSTEM::DBL-WHAT-FRAME FPE::FE-ENABLE)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION COMMON-LISP::NIL COMMON-LISP::*)
         SYSTEM::GCL-TOP-LEVEL SYSTEM::BREAK-CURRENT
         SYSTEM::BREAK-RESUME SYSTEM::BREAK-HELP SYSTEM::BREAK-MESSAGE
         ANSI-LOOP::LOOP-DO-FOR SYSTEM::SIMPLE-BACKTRACE)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION (COMMON-LISP::T COMMON-LISP::*)
             COMMON-LISP::T)
         SYSTEM::PROCESS-SOME-ARGS COMMON-LISP::CONCATENATE
         SYSTEM::TO-REGEXP COMMON-LISP::PATHNAME-DEVICE
         SYSTEM::LIST-MATCHES ANSI-LOOP::LOOP-WARN
         COMMON-LISP::REMOVE-DUPLICATES COMMON-LISP::PATHNAME-HOST
         COMMON-LISP::BIT COMMON-LISP::SBIT
         COMMON-LISP::ENOUGH-NAMESTRING SYSTEM::DIR-PARSE
         SYSTEM::FILE-SEARCH SYSTEM::BREAK-LEVEL ANSI-LOOP::LOOP-ERROR
         SYSTEM::MGLIST COMMON-LISP::PATHNAME-NAME
         COMMON-LISP::MAKE-STRING-INPUT-STREAM SLOOP::ADD-FROM-DATA
         COMMON-LISP::TRANSLATE-LOGICAL-PATHNAME COMMON-LISP::DIRECTORY
         SYSTEM::FILE-TO-STRING COMMON-LISP::ARRAY-ROW-MAJOR-INDEX
         SYSTEM::NTH-STACK-FRAME SLOOP::LOOP-ADD-TEMPS
         COMMON-LISP::WARN
         ANSI-LOOP::LOOP-COLLECT-PREPOSITIONAL-PHRASES
         SYSTEM::LINK-EXPAND COMMON-LISP::PATHNAME-TYPE
         COMMON-LISP::OPEN COMMON-LISP::BIT-NOT
         COMMON-LISP::DELETE-DUPLICATES COMMON-LISP::ERROR
         COMMON-LISP::FILE-POSITION COMMON-LISP::PATHNAME-VERSION
         COMMON-LISP::ARRAY-IN-BOUNDS-P COMMON-LISP::REQUIRE
         SYSTEM::MGSUB COMMON-LISP::MERGE-PATHNAMES COMMON-LISP::LOAD
         COMMON-LISP::PATHNAME-DIRECTORY COMMON-LISP::SIGNAL
         COMMON-LISP::WILD-PATHNAME-P COMMON-LISP::FIND-RESTART
         SYSTEM::INFO-SEARCH SYSTEM::LOGICAL-PATHNAME-PARSE
         SYSTEM::BAD-SEQ-LIMIT COMMON-LISP::READ-BYTE
         COMMON-LISP::UPGRADED-ARRAY-ELEMENT-TYPE SYSTEM::NLOAD
         COMMON-LISP::MAKE-ARRAY)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION (COMMON-LISP::T COMMON-LISP::T)
             COMMON-LISP::*)
         COMMON-LISP::RENAME-FILE ANSI-LOOP::ESTIMATE-CODE-SIZE-1
         SYSTEM::FIND-DOC SYSTEM::SOURCE-PORTION SYSTEM::NEWLINE
         SYSTEM::DO-REPL SYSTEM::RESTART-REPORT
         ANSI-LOOP::ESTIMATE-CODE-SIZE SYSTEM::NEW-SEMI-COLON-READER)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION
             ((COMMON-LISP::INTEGER -9223372036854775808
                  9223372036854775807))
             COMMON-LISP::T)
         SYSTEM::GET-CONTEXT SYSTEM::PUSH-CONTEXT)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION (COMMON-LISP::T COMMON-LISP::T)
             COMMON-LISP::T)
         COMMON-LISP::PSETF COMMON-LISP::PROG* SYSTEM::BREAK-STEP-INTO
         SLOOP::IN-PACKAGE-SLOOP-MAP SLOOP::SLOOP-FINISH
         SYSTEM::CHECK-SEQ-START-END SLOOP::SLOOP
         COMMON-LISP::MULTIPLE-VALUE-SETQ COMMON-LISP::ASSERT
         SLOOP::MINIMIZE-SLOOP-COLLECT COMMON-LISP::ROTATEF
         SYSTEM::LIST-TOGGLE-CASE SYSTEM::INCREMENT-CURSOR
         ANSI-LOOP::LOOP-COLLECT-ANSWER COMMON-LISP::PROG2
         SLOOP::SLOOP-SWAP COMMON-LISP::DEFTYPE
         SYSTEM::SETF-LOGICAL-PATHNAME-TRANSLATIONS SYSTEM::?PUSH
         COMMON-LISP::DO-EXTERNAL-SYMBOLS
         ANSI-LOOP::LOOP-COLLECT-RPLACD COMMON-LISP::TRACE
         ANSI-LOOP::LOOP-DO-IF ANSI-LOOP::MAKE-LOOP-MINIMAX
         SYSTEM::SUBSTRINGP COMMON-LISP::LOGORC2
         ANSI-LOOP::LOOP-DO-WHILE ANSI-LOOP::LOOP-LOOKUP-KEYWORD
         SLOOP::DEF-LOOP-COLLECT SYSTEM::SETF-HELPER
         COMMON-LISP::WITH-CONDITION-RESTARTS SYSTEM::INSPECT-PRINT
         SLOOP::PARSE-LOOP-MAP SYSTEM::KEYWORD-SUPPLIED-P
         COMMON-LISP::LOOP-FINISH ANSI-LOOP::LOOP-TASSOC
         SYSTEM::GET-LINE-OF-FORM ANSI-LOOP::LOOP-STORE-TABLE-DATA
         SLOOP::L-EQUAL COMMON-LISP::ETYPECASE
         SLOOP::THEREIS-SLOOP-COLLECT COMMON-LISP::RETURN
         SYSTEM::SUB-INTERVAL-P COMMON-LISP::ECASE
         COMMON-LISP::WRITE-BYTE SYSTEM::LOOKUP-KEYWORD
         COMMON-LISP::DEFSETF ANSI-LOOP::LOOP-DO-ALWAYS
         SYSTEM::PARSE-SLOT-DESCRIPTION COMMON-LISP::VECTOR-PUSH
         SYSTEM::GET-INFO-CHOICES SYSTEM::SETF-EXPAND
         SYSTEM::LEFT-PARENTHESIS-READER SLOOP::DEF-LOOP-FOR
         COMMON-LISP::PROG SYSTEM::OVERWRITE-SLOT-DESCRIPTIONS
         SYSTEM::SUPER-GO COMMON-LISP::LDB SYSTEM::NODE
         SYSTEM::COERCE-TO-PACKAGE COMMON-LISP::DO SYSTEM::TP-ERROR
         SYSTEM::GET-NODES SLOOP::THE-TYPE ANSI-LOOP::LOOP-TMEMBER
         ANSI-LOOP::LOOP-TEQUAL COMMON-LISP::DEFPARAMETER
         COMMON-LISP::WITH-OPEN-STREAM SYSTEM::DEFINE-SETF-METHOD
         SYSTEM::IF-ERROR ANSI-LOOP::HIDE-VARIABLE-REFERENCES
         SLOOP::DESETQ1 COMMON-LISP::LOOP COMMON-LISP::CTYPECASE
         COMMON-LISP::DEFSTRUCT COMMON-LISP::CASE SYSTEM::DOT-DIR-P
         SYSTEM::INSPECT-RECURSIVELY COMMON-LISP::DOTIMES
         SYSTEM::BREAK-STEP-NEXT SYSTEM::ALL-MATCHES
         COMMON-LISP::LOCALLY SLOOP::IN-TABLE-SLOOP-MAP
         SYSTEM::DISPLAY-ENV COMMON-LISP::MULTIPLE-VALUE-LIST
         COMMON-LISP::LDB-TEST COMMON-LISP::DECLAIM
         COMMON-LISP::WITH-STANDARD-IO-SYNTAX SYSTEM::SGEN
         SLOOP::ALWAYS-SLOOP-COLLECT COMMON-LISP::PUSHNEW
         COMMON-LISP::MULTIPLE-VALUE-BIND FPE::%-READER
         COMMON-LISP::CCASE SLOOP::DEF-LOOP-MACRO
         ANSI-LOOP::LOOP-REALLY-DESETQ SYSTEM::IN-INTERVAL-P
         SYSTEM::DBL-UP SLOOP::DEF-LOOP-MAP ANSI-LOOP::LOOP-BODY
         SYSTEM::SEQUENCE-CURSOR COMMON-LISP::COERCE
         COMMON-LISP::PATHNAME-MATCH-P SYSTEM::OBJLT
         COMMON-LISP::RESTART-CASE
         COMMON-LISP::WITH-HASH-TABLE-ITERATOR COMMON-LISP::STEP
         SYSTEM::QUOTATION-READER SYSTEM::PUT-AUX COMMON-LISP::TYPECASE
         SYSTEM::*BREAK-POINTS* COMMON-LISP::LOGTEST
         SYSTEM::CONDITION-PASS COMMON-LISP::DEFVAR
         COMMON-LISP::WITH-OUTPUT-TO-STRING SYSTEM::SET-BACK
         COMMON-LISP::NTHCDR COMMON-LISP::DO-ALL-SYMBOLS
         SYSTEM::INFO-AUX COMMON-LISP::LOGANDC1 COMMON-LISP::PROG1
         FPE::READ-OPERANDS SYSTEM::DISPLAY-COMPILED-ENV
         COMMON-LISP::DEFCONSTANT SYSTEM::DM-V SLOOP::LOOP-RETURN
         SYSTEM::ADD-FILE SYSTEM::WHILE SYSTEM::WITHOUT-INTERRUPTS
         COMMON-LISP::NTH-VALUE COMMON-LISP::OR
         ANSI-LOOP::LOOP-COPYLIST* SLOOP::IN-CAREFULLY-SLOOP-FOR
         ANSI-LOOP::LOOP-DECLARE-VARIABLE SYSTEM::GET-MATCH
         ANSI-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD
         ANSI-LOOP::LOOP-NOTE-MINIMAX-OPERATION SYSTEM::MV-SETQ
         SLOOP::COLLATE-SLOOP-COLLECT COMMON-LISP::LOGORC1
         SYSTEM::DM-NTH-CDR COMPILER::COMPILER-DEF-HOOK
         SYSTEM::CHECK-TYPE-EVAL COMMON-LISP::DECF
         COMMON-LISP::WITH-PACKAGE-ITERATOR SYSTEM::COERCE-TO-STRING
         COMMON-LISP::DEFINE-MODIFY-MACRO FPE::0-READER
         COMMON-LISP::WITH-COMPILATION-UNIT COMMON-LISP::LOGNAND
         COMMON-LISP::CHECK-TYPE COMMON-LISP::INCF
         SLOOP::MAXIMIZE-SLOOP-COLLECT SYSTEM::ITERATE-OVER-BKPTS
         SLOOP::LOGXOR-SLOOP-COLLECT SLOOP::NEVER-SLOOP-COLLECT
         SYSTEM::MV-VALUES SYSTEM::MSUB COMMON-LISP::DO*
         SLOOP::=-SLOOP-FOR COMMON-LISP::UNLESS
         SYSTEM::MATCH-DIMENSIONS COMMON-LISP::DOLIST
         ANSI-LOOP::LOOP-MAYBE-BIND-FORM SLOOP::LOCAL-FINISH
         COMMON-LISP::PSETQ COMMON-LISP::COND
         COMMON-LISP::WITH-SIMPLE-RESTART COMMON-LISP::DO-SYMBOLS
         COMMON-LISP::FILE-STRING-LENGTH COMMON-LISP::LAMBDA
         ANSI-LOOP::LOOP-ACCUMULATE-MINIMAX-VALUE
         SLOOP::IN-FRINGE-SLOOP-MAP SYSTEM::SET-DIR
         COMMON-LISP::WITH-INPUT-FROM-STRING SYSTEM::LIST-DELQ
         COMMON-LISP::BYTE COMMON-LISP::DOCUMENTATION SYSTEM::SAFE-EVAL
         COMMON-LISP::DEFMACRO SLOOP::DESETQ COMMON-LISP::POP
         SLOOP::COUNT-SLOOP-COLLECT SLOOP::LCASE
         COMMON-LISP::DEFPACKAGE COMMON-LISP::DEFUN COMMON-LISP::TIME
         COMMON-LISP::LOGNOR COMMON-LISP::RESTART-BIND
         COMMON-LISP::PUSH COMMON-LISP::SHIFTF COMMON-LISP::AND
         COMMON-LISP::WHEN SYSTEM::DM-NTH COMMON-LISP::WITH-OPEN-FILE
         SLOOP::MAKE-VALUE COMMON-LISP::UNTRACE FPE::PAREN-READER
         ANSI-LOOP::WITH-MINIMAX-VALUE COMMON-LISP::NTH
         FPE::READ-INSTRUCTION SLOOP::SUM-SLOOP-COLLECT
         COMMON-LISP::REMF COMMON-LISP::DESTRUCTURING-BIND
         SYSTEM::SET-PATH-STREAM-NAME FPE::RF COMMON-LISP::LOGANDC2)) 
(COMMON-LISP::PROCLAIM
    '(COMMON-LISP::FTYPE
         (COMMON-LISP::FUNCTION (COMMON-LISP::T COMMON-LISP::*)
             COMMON-LISP::*)
         COMMON-LISP::FCEILING COMMON-LISP::APROPOS-LIST
         COMMON-LISP::READ-FROM-STRING
         COMMON-LISP::ENSURE-DIRECTORIES-EXIST SYSTEM::APROPOS-DOC
         COMMON-LISP::FTRUNCATE SYSTEM::BREAK-FUNCTION
         SYSTEM::GET-SETF-METHOD-MULTIPLE-VALUE SYSTEM::STEPPER
         COMMON-LISP::DECODE-UNIVERSAL-TIME
         ANSI-LOOP::LOOP-CONSTANT-FOLD-IF-POSSIBLE
         COMMON-LISP::STORE-VALUE COMMON-LISP::GET-SETF-EXPANSION
         SYSTEM::PRINT-DOC SYSTEM::INFO COMMON-LISP::APROPOS
         COMMON-LISP::WRITE-TO-STRING COMMON-LISP::USE-VALUE
         COMMON-LISP::FROUND COMMON-LISP::PARSE-NAMESTRING
         COMMON-LISP::INVOKE-RESTART COMMON-LISP::FFLOOR
         SYSTEM::SHOW-INFO))