This file is indexed.

/usr/lib/gcl-2.6.10-prof/lsp/sys-proclaim.lisp is in gcl 2.6.10-2.

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
(IN-PACKAGE "SYSTEM") 
(PROCLAIM '(FTYPE (FUNCTION (T *) T) PROCESS-SOME-ARGS ERROR))
(PROCLAIM '(FTYPE (FUNCTION (T T) T) GETHASH1))
(PROCLAIM '(FTYPE (FUNCTION (T T FIXNUM) T) STRUCTURE-REF))
(PROCLAIM '(FTYPE (FUNCTION (T T FIXNUM T) T) STRUCTURE-SET))
(PROCLAIM '(FTYPE (FUNCTION (T) FIXNUM) STRUCTURE-LENGTH))
(PROCLAIM '(FTYPE (FUNCTION (T) T) STRUCTURE-DEF))

(PROCLAIM '(FTYPE (FUNCTION (T FIXNUM T) T) ASET1))
(PROCLAIM '(FTYPE (FUNCTION (T FIXNUM) T) ROW-MAJOR-AREF))
(PROCLAIM '(FTYPE (FUNCTION (T) FIXNUM) ARRAY-TOTAL-SIZE))
(PROCLAIM
    '(FTYPE (FUNCTION () T) ALLOC-SPICE))
(PROCLAIM
    '(FTYPE (FUNCTION (T) T) PATCH-SHARP))
(PROCLAIM
    '(FTYPE (FUNCTION (*) T) MAKE-CONTEXT))
(PROCLAIM
    '(FTYPE (FUNCTION (FIXNUM) T) GET-CONTEXT GET-CONTEXT))
(PROCLAIM
    '(FTYPE (FUNCTION (FIXNUM T) T) SMALLNTHCDR))
(PROCLAIM
    '(FTYPE (FUNCTION (T FIXNUM T T) T) BIGNTHCDR))
(PROCLAIM '(FTYPE (FUNCTION (T T) T) tp-error nth nthcdr OBJLT)) 
(PROCLAIM
    '(FTYPE (FUNCTION () T) DEFAULT-SYSTEM-BANNER LISP-IMPLEMENTATION-VERSION))
(PROCLAIM
    '(FTYPE (FUNCTION (T) FIXNUM) INSTREAM-LINE S-DATA-LENGTH
            S-DATA-SIZE THE-START)) 
(PROCLAIM '(FTYPE (FUNCTION (T) (VALUES T T)) LISP::MAKE-KEYWORD)) 
(PROCLAIM
    '(FTYPE (FUNCTION (T T) FIXNUM) RELATIVE-LINE THE-END
            GET-NODE-INDEX ANSI-LOOP::DUPLICATABLE-CODE-P)) 
(PROCLAIM '(FTYPE (FUNCTION (FIXNUM) FIXNUM) DBL-WHAT-FRAME)) 
(PROCLAIM '(FTYPE (FUNCTION (STRING FIXNUM) FIXNUM) ATOI)) 
(PROCLAIM
    '(FTYPE (FUNCTION (T T *) *) SUBTYPEP LISP::PARSE-BODY
            SLOOP::FIND-IN-ORDERED-LIST REDUCE SORT STABLE-SORT)) 
(PROCLAIM
    '(FTYPE (FUNCTION (T T T) *) LISP::VERIFY-KEYWORDS
            READ-INSPECT-COMMAND LISP::DEFMACRO-ERROR SHARP-S-READER
            ANSI-LOOP::LOOP-GET-COLLECTION-INFO LIST-MERGE-SORT)) 
(PROCLAIM
    '(FTYPE (FUNCTION (T T T T T *) *) LISP::PARSE-DEFMACRO-LAMBDA-LIST
            LISP::PARSE-DEFMACRO)) 
(PROCLAIM
    '(FTYPE (FUNCTION (T T T T T T T T) *) LISP::PUSH-OPTIONAL-BINDING)) 
(PROCLAIM '(FTYPE (FUNCTION (T T T T T T T) *) TRACE-CALL)) 
(PROCLAIM
    '(FTYPE (FUNCTION (T T T) T) ANSI-LOOP::LOOP-STANDARD-EXPANSION
	    WARN-VERSION
            ANSI-LOOP::LOOP-SUM-COLLECTION DEPOSIT-FIELD
            ANSI-LOOP::PRINT-LOOP-UNIVERSE CHECK-TRACE-ARGS
            MAKE-BREAK-POINT ANSI-LOOP::LOOP-ANSI-FOR-EQUALS DPB
            ANSI-LOOP::LOOP-FOR-ACROSS ANSI-LOOP::LOOP-FOR-IN
            ANSI-LOOP::LOOP-FOR-ON SETF-EXPAND-1
            ANSI-LOOP::LOOP-FOR-BEING APPLY-DISPLAY-FUN DM-VL
            SLOOP::LOOP-PARSE-ADDITIONAL-COLLECTIONS
            TYPECASE-ERROR-STRING ANSI-LOOP::HIDE-VARIABLE-REFERENCE
            SHARP-A-READER KEY-LIST SHARP-U-READER MAKE-T-TYPE
            GET-SLOT-POS CHECK-S-DATA
            ANSI-LOOP::LOOP-MAKE-ITERATION-VARIABLE DEFMACRO*
            ANSI-LOOP::LOOP-TRANSLATE)) 
(PROCLAIM
    '(FTYPE (FUNCTION (T T *) T) TYPEP INTERNAL-COUNT-IF-NOT COUNT-IF SUBSETP
            SLOOP::IN-ARRAY-SLOOP-FOR COUNT-IF-NOT UNION DELETE
            DELETE-IF VECTOR-PUSH-EXTEND DELETE-IF-NOT EVERY FILL FIND
            FIND-IF FIND-IF-NOT INTERSECTION SLOOP::PARSE-LOOP-MACRO
            SLOOP::LOOP-ADD-BINDING MAKE-SEQUENCE MISMATCH
            NINTERSECTION NOTANY NOTEVERY SET-DIFFERENCE-REV
            NSET-DIFFERENCE-REV NSET-DIFFERENCE NSET-EXCLUSIVE-OR
            NUNION POSITION POSITION-IF POSITION-IF-NOT BIT-AND REMOVE
            BIT-ANDC1 BIT-ANDC2 REMOVE-IF BIT-EQV REMOVE-IF-NOT BIT-IOR
            MAP-INTO REPLACE ANSI-LOOP::LOOP-CHECK-DATA-TYPE BIT-NAND
            BIT-NOR BIT-ORC1 BIT-ORC2 BREAK-CALL SEARCH BIT-XOR
            SET-DIFFERENCE SET-EXCLUSIVE-OR INTERNAL-COUNT SOME
            INTERNAL-COUNT-IF COUNT)) 
(PROCLAIM
    '(FTYPE (FUNCTION (T T T *) T) specific-error SUBSTITUTE SUBSTITUTE-IF
            SUBSTITUTE-IF-NOT ANSI-LOOP::LOOP-SEQUENCE-ELEMENTS-PATH
            LISP::PUSH-LET-BINDING
            ANSI-LOOP::LOOP-HASH-TABLE-ITERATION-PATH
            ANSI-LOOP::LOOP-PACKAGE-SYMBOLS-ITERATION-PATH
            SLOOP::LOOP-DECLARE-BINDING MAP NSUBSTITUTE NSUBSTITUTE-IF
            NSUBSTITUTE-IF-NOT ANSI-LOOP::LOOP-MAKE-VARIABLE
            COMPLETE-PROP ANSI-LOOP::ADD-LOOP-PATH)) 
(PROCLAIM
    '(FTYPE (FUNCTION (T T T T T) T) MAKE-CONSTRUCTOR MAKE-PREDICATE)) 
(PROCLAIM
    '(FTYPE (FUNCTION (T T T T) T) SLOOP::FIRST-USE-SLOOP-FOR
            SLOOP::FIRST-SLOOP-FOR MAYBE-BREAK SETF-STRUCTURE-ACCESS
            ANSI-LOOP::LOOP-FOR-ARITHMETIC FIND-LINE-IN-FUN CALL-TEST)) 
(PROCLAIM
    '(FTYPE (FUNCTION (T T T T T T T T T T) T)
            ANSI-LOOP::LOOP-SEQUENCER)) 
(PROCLAIM
    '(FTYPE (FUNCTION (T T T T T T T T T T T T *) T)
            MAKE-ACCESS-FUNCTION)) 
(PROCLAIM
    '(FTYPE (FUNCTION (T T T T T T T T T T T T T *) T)
            DEFINE-STRUCTURE)) 
(PROCLAIM
    '(FTYPE (FUNCTION (T T T T *) T) SLOOP::DEF-LOOP-INTERNAL
            PRINT-STACK-FRAME MERGE)) 
(PROCLAIM
    '(FTYPE (FUNCTION (T T T T T T) T) LISP::DO-ARG-COUNT-ERROR
            LISP::PUSH-SUB-LIST-BINDING)) 
(PROCLAIM '(FTYPE (FUNCTION (T T T T T T *) T) ENCODE-UNIVERSAL-TIME)) 
(PROCLAIM '(FTYPE (FUNCTION (T T T T T *) T) UNIVERSAL-ERROR-HANDLER)) 
(PROCLAIM '(FTYPE (FUNCTION (FIXNUM FIXNUM) FIXNUM) ROUND-UP)) 
(PROCLAIM
    '(FTYPE (FUNCTION NIL *) BREAK-MESSAGE BREAK-HELP
            ANSI-LOOP::LOOP-DO-FOR ANSI-LOOP::LOOP-POP-SOURCE
            ANSI-LOOP::LOOP-GET-FORM BREAK-CURRENT SIMPLE-BACKTRACE)) 
(PROCLAIM
    '(FTYPE (FUNCTION NIL T) GET-INDEX-NODE SLOOP::TYPE-ERROR TOP-LEVEL
            CLEANUP SETUP-LINEINFO ANSI-LOOP::LOOP-DO-WITH
            ALL-TRACE-DECLARATIONS INIT-BREAK-POINTS STEP-READ-LINE
            SLOOP::PARSE-LOOP1 SET-UP-TOP-LEVEL SLOOP::LOOP-PEEK
            SLOOP::LOOP-POP SLOOP::PARSE-LOOP-FOR
            ANSI-LOOP::LOOP-DO-REPEAT INSPECT-INDENT-1
            SLOOP::PARSE-LOOP-DO SLOOP::PARSE-LOOP-WHEN INSPECT-INDENT
            SLOOP::PARSE-LOOP-COLLECT INSPECT-READ-LINE
            DM-TOO-MANY-ARGUMENTS DBL SLOOP::LOOP-UN-POP
            DM-TOO-FEW-ARGUMENTS SLOOP::PARSE-ONE-WHEN-CLAUSE
            ANSI-LOOP::LOOP-CONTEXT ANSI-LOOP::LOOP-ITERATION-DRIVER
            DEFAULT-INFO-HOTLIST ANSI-LOOP::LOOP-BIND-BLOCK
            ANSI-LOOP::LOOP-GET-PROGN ILLEGAL-BOA SET-CURRENT
            ANSI-LOOP::LOOP-WHEN-IT-VARIABLE ANSI-LOOP::LOOP-DO-NAMED
            SET-ENV ANSI-LOOP::LOOP-DO-INITIALLY TEST-ERROR
            ANSI-LOOP::LOOP-DO-FINALLY ANSI-LOOP::LOOP-DO-DO
            ANSI-LOOP::LOOP-DO-RETURN)) 
(PROCLAIM
    '(FTYPE (FUNCTION (*) *) BREAK-NEXT BREAK-LOCAL BREAK-BDS
            IHS-BACKTRACE INFO-ERROR SHOW-BREAK-VARIABLES
            SERROR::INF-SIGNAL LOC DBL-BACKTRACE
            ANSI-LOOP::LOOP-DISALLOW-CONDITIONAL
            ANSI-LOOP::LOOP-OPTIONAL-TYPE BREAK-QUIT BREAK-PREVIOUS
            BREAK-VS)) 
(PROCLAIM
    '(FTYPE (FUNCTION (T) *) BREAK-GO ALOAD DESCRIBE INSTREAM-NAME
            INSPECT INSPECT-OBJECT GET-&ENVIRONMENT FIND-DECLARATIONS
            ANSI-LOOP::LOOP-OPTIMIZATION-QUANTITIES PRIN1-TO-STRING
            PRINC-TO-STRING INFO-SUBFILE ANSI-LOOP::LOOP-LIST-STEP
            WAITING IHS-FNAME ANSI-LOOP::NAMED-VARIABLE END-WAITING)) 
(PROCLAIM
    '(FTYPE (FUNCTION (*) T) BREAK-LOCALS DESCRIBE-ENVIRONMENT
            MAKE-INSTREAM Y-OR-N-P YES-OR-NO-P DRIBBLE CURRENT-STEP-FUN
            VECTOR SLOOP::PARSE-LOOP-WITH SLOOP::PARSE-LOOP-DECLARE
            ANSI-LOOP::MAKE-LOOP-MINIMAX-INTERNAL STEP-INTO
            ANSI-LOOP::LOOP-GENTEMP STEP-NEXT
            ANSI-LOOP::MAKE-LOOP-UNIVERSE SERROR::MAKE-ERROR-CONDITION
            ANSI-LOOP::MAKE-LOOP-COLLECTOR MAKE-S-DATA DBL-READ BREAK
            ANSI-LOOP::MAKE-LOOP-PATH
            ANSI-LOOP::MAKE-STANDARD-LOOP-UNIVERSE)) 
(PROCLAIM '(FTYPE (FUNCTION (T :DYNAMIC-EXTENT *) T) ADJUST-ARRAY)) 
(PROCLAIM '(FTYPE (FUNCTION (T FIXNUM FIXNUM T T) T) QUICK-SORT)) 
(PROCLAIM
    '(FTYPE (FUNCTION (STRING) T) COERCE-SLASH-TERMINATED
            RE-QUOTE-STRING)) 
(PROCLAIM
    '(FTYPE (FUNCTION (T) T) first second third fourth fifth sixth seventh eighth ninth tenth
	    RESET-SYS-PATHS ANSI-LOOP::LOOP-PATH-INCLUSIVE-PERMITTED
            ANSI-LOOP::LOOP-PATH-FUNCTION
            ANSI-LOOP::LOOP-PATH-USER-DATA INFO-GET-TAGS FIX-LOAD-PATH
            SERROR::ERROR-FUNCTION SERROR::ERROR-ERROR-HANDLER-ARGS
            TRACE-ONE SLOOP::SLOOP-SLOOP-MACRO TANH UNTRACE-ONE
            TERMINAL-INTERRUPT ANSI-LOOP::LOOP-MAXMIN-COLLECTION DO-F
            ANSI-LOOP::LOOP-MINIMAX-P SHOW-ENVIRONMENT S-DATA-P
            FREEZE-DEFSTRUCT VECTOR-POP ANSI-LOOP::LOOP-DO-THEREIS
            S-DATA-NAME INSTREAM-STREAM-NAME
            BREAK-BACKWARD-SEARCH-STACK GET-INSTREAM
            BREAK-FORWARD-SEARCH-STACK S-DATA-RAW
            USER::MAKE-DEFPACKAGE-FORM S-DATA-INCLUDED S-DATA-INCLUDES
            S-DATA-STATICP S-DATA-PRINT-FUNCTION
            ANSI-LOOP::LOOP-UNIVERSE-P S-DATA-SLOT-DESCRIPTIONS
            WALK-THROUGH S-DATA-SLOT-POSITION CHECK-DECLARATIONS
            S-DATA-HAS-HOLES CHECK-TRACE-SPEC S-DATA-FROZEN
            TRACE-ONE-PREPROCESS S-DATA-DOCUMENTATION
            RESET-TRACE-DECLARATIONS S-DATA-CONSTRUCTORS DWIM
            S-DATA-OFFSET S-DATA-NAMED SHOW-BREAK-POINT S-DATA-TYPE
            INSERT-BREAK-POINT S-DATA-CONC-NAME SHORT-NAME
            ANSI-LOOP::LOOP-COLLECTOR-P FIND-ALL-SYMBOLS
            SLOOP::PARSE-LOOP GET-NEXT-VISIBLE-FUN
            ANSI-LOOP::LOOP-PATH-P INSTREAM-STREAM
            SLOOP::SUBSTITUTE-SLOOP-BODY SLOOP::LOOP-LET-BINDINGS
            ANSI-LOOP::MAKE-ANSI-LOOP-UNIVERSE NODES-FROM-INDEX
            NEXT-STACK-FRAME COMPUTING-ARGS-P ISQRT SEARCH-STACK
            SLOOP::PARSE-LOOP-INITIALLY FIND-DOCUMENTATION
            INSPECT-SYMBOL INSPECT-PACKAGE DM-KEY-NOT-ALLOWED
            INSPECT-CHARACTER INSPECT-NUMBER SERROR:ERROR-NAME
            INSPECT-CONS SERROR:ERROR-STRING RATIONAL INSPECT-STRING
            SERROR:ERROR-CONTINUE-STRING LOGNOT INSPECT-VECTOR
            SERROR:ERROR-FORMAT-ARGS INSPECT-ARRAY INSTREAM-P
            SLOOP::POINTER-FOR-COLLECT SLOOP::LOOP-COLLECT-KEYWORD-P
            INSPECT-STRUCTURE IDESCRIBE DM-BAD-KEY SLOOP::PARSE-NO-BODY
            BKPT-FUNCTION ASK-FOR-FORM ANSI-LOOP::LOOP-TYPED-INIT
            BKPT-FILE-LINE TYPECASE-ERROR-STRINGS BKPT-FILE BOIN-P
            BKPT-FORM ANSI-LOOP::LOOP-MAKE-DESETQ SLOOP::TRANSLATE-NAME
            ANSI-LOOP::LOOP-MAKE-PSETQ
            ANSI-LOOP::LOOP-CODE-DUPLICATION-THRESHOLD
            ANSI-LOOP::DESTRUCTURING-SIZE SERROR::|WTA-tester|
            SERROR::|SUBSCRIPT-OUT-OF-BOUNDS-tester|
            SERROR::|ERROR-tester| SERROR::|WRONG-TYPE-ARGUMENT-tester|
            COMPILE-FILE-PATHNAME SERROR::|TOO-FEW-ARGUMENTS-tester|
            COMPLEMENT NODE-OFFSET SERROR::|TOO-MANY-ARGUMENTS-tester|
            CONSTANTLY ANSI-LOOP::LOOP-HACK-ITERATION
            INFO-NODE-FROM-POSITION SERROR::|UNEXPECTED-KEYWORD-tester|
            PHASE ABS SERROR::|INVALID-FORM-tester| ACOS
            ANSI-LOOP::LOOP-PSEUDO-BODY
            SERROR::|UNBOUND-VARIABLE-tester| ACOSH
            ANSI-LOOP::LOOP-CONSTRUCT-RETURN ADD-TO-HOTLIST
            SERROR::|INVALID-VARIABLE-tester|
            SERROR::|UNDEFINED-FUNCTION-tester|
            NUMBER-OF-DAYS-FROM-1900 SERROR::|INVALID-FUNCTION-tester|
            LEAP-YEAR-P PROVIDE ANSI-LOOP::LOOP-CONSTANTP
            ARRAY-DIMENSIONS ASIN ASINH ANSI-LOOP::LOOP-EMIT-BODY ATANH
            ANSI-LOOP::LOOP-MINIMAX-ANSWER-VARIABLE
            SERROR::ERROR-CONDITION-P PRINT-SYMBOL-APROPOS
            ANSI-LOOP::LOOP-COLLECTOR-NAME ANSI-LOOP::LOOP-MINIMAX-TYPE
            ANSI-LOOP::LOOP-MINIMAX-TEMP-VARIABLE
            ANSI-LOOP::LOOP-MINIMAX-FLAG-VARIABLE 
            ANSI-LOOP::LOOP-EMIT-FINAL-VALUE
            ANSI-LOOP::LOOP-MINIMAX-OPERATIONS
            ANSI-LOOP::LOOP-MINIMAX-INFINITY-DATA
            ANSI-LOOP::LOOP-UNIVERSE-KEYWORDS CLASSP
            ANSI-LOOP::LOOP-UNIVERSE-ITERATION-KEYWORDS
            CLASS-PRECEDENCE-LIST ANSI-LOOP::LOOP-UNIVERSE-FOR-KEYWORDS
            CLASS-OF ANSI-LOOP::LOOP-UNIVERSE-PATH-KEYWORDS
            ANSI-LOOP::LOOP-UNIVERSE-TYPE-SYMBOLS
            ANSI-LOOP::LOOP-UNIVERSE-TYPE-KEYWORDS INFO-GET-FILE
            ANSI-LOOP::LOOP-UNIVERSE-ANSI BEST-ARRAY-ELEMENT-TYPE
            SIMPLE-ARRAY-P BYTE-POSITION
            ANSI-LOOP::LOOP-UNIVERSE-IMPLICIT-FOR-REQUIRED IHS-VISIBLE
            FIND-CLASS BYTE-SIZE SLOOP::AVERAGING-SLOOP-MACRO
            NORMALIZE-TYPE SIGNUM SETUP-INFO KNOWN-TYPE-P SINH
            ANSI-LOOP::LOOP-COLLECTOR-CLASS SLOOP::REPEAT-SLOOP-MACRO
            CIS ANSI-LOOP::LOOP-COLLECTOR-HISTORY PRINT-IHS
            SLOOP::RETURN-SLOOP-MACRO SEQTYPE
            ANSI-LOOP::LOOP-COLLECTOR-TEMPVARS
            ANSI-LOOP::LOOP-COLLECTOR-DTYPE PRINT-FRS
            ANSI-LOOP::LOOP-COLLECTOR-DATA FRS-KIND COSH
            ANSI-LOOP::LOOP-PATH-NAMES ANSI-LOOP::LOOP-LIST-COLLECTION
            IHS-NOT-INTERPRETED-ENV
            ANSI-LOOP::LOOP-PATH-PREPOSITION-GROUPS)) 
(PROCLAIM
    '(FTYPE (FUNCTION (T *) *) DECODE-UNIVERSAL-TIME PRINT-DOC
            APROPOS-DOC STEPPER WRITE-TO-STRING BREAK-FUNCTION FCEILING
            FFLOOR FROUND FTRUNCATE GET-SETF-METHOD
            GET-SETF-METHOD-MULTIPLE-VALUE NLOAD SHOW-INFO
            ANSI-LOOP::LOOP-ERROR INFO APROPOS APROPOS-LIST
            READ-FROM-STRING REQUIRE
            ANSI-LOOP::LOOP-CONSTANT-FOLD-IF-POSSIBLE BAD-SEQ-LIMIT)) 
(PROCLAIM '(FTYPE (FUNCTION (STRING *) *) GET-COMMAND-ARG)) 
(PROCLAIM
    '(FTYPE (FUNCTION (T *) T) FILE-SEARCH WARN DELETE-DUPLICATES
            NTH-STACK-FRAME UPGRADED-ARRAY-ELEMENT-TYPE
            SLOOP::LOOP-ADD-TEMPS SLOOP::ADD-FROM-DATA MAKE-ARRAY
            ANSI-LOOP::LOOP-WARN BIT INFO-SEARCH LIST-MATCHES
            ARRAY-IN-BOUNDS-P ARRAY-ROW-MAJOR-INDEX REMOVE-DUPLICATES
            FILE-TO-STRING BIT-NOT SBIT BREAK-LEVEL
            ANSI-LOOP::LOOP-COLLECT-PREPOSITIONAL-PHRASES CONCATENATE)) 
(PROCLAIM
    '(FTYPE (FUNCTION (T T) *) NEWLINE NEW-SEMI-COLON-READER FIND-DOC
            ANSI-LOOP::ESTIMATE-CODE-SIZE-1
            ANSI-LOOP::ESTIMATE-CODE-SIZE)) 
(PROCLAIM
    '(FTYPE (FUNCTION (T T) T) LIST-DELQ BREAK-STEP-INTO
            ANSI-LOOP::HIDE-VARIABLE-REFERENCES BREAK-STEP-NEXT
            SLOOP::=-SLOOP-FOR DISPLAY-ENV SET-DIR DISPLAY-COMPILED-ENV
            SLOOP::IN-CAREFULLY-SLOOP-FOR ANSI-LOOP::LOOP-DO-ALWAYS
            SLOOP::COLLATE-SLOOP-COLLECT VECTOR-PUSH
            SLOOP::IN-FRINGE-SLOOP-MAP ANSI-LOOP::LOOP-DO-WHILE
            GET-MATCH ANSI-LOOP::LOOP-DO-IF LISP::KEYWORD-SUPPLIED-P
            LISP::LOOKUP-KEYWORD DOCUMENTATION
            ANSI-LOOP::LOOP-MAYBE-BIND-FORM ITERATE-OVER-BKPTS
            SETF-EXPAND SLOOP::DESETQ1 AUTOLOAD AUTOLOAD-MACRO
            GET-LINE-OF-FORM ADD-FILE SAFE-EVAL LDB SETF-HELPER
            LDB-TEST LOGANDC1 LOGANDC2 LOGNAND LOGNOR LOGORC1
            COMPILER::COMPILER-DEF-HOOK SEQUENCE-CURSOR LOGORC2
            DM-NTH-CDR INCREMENT-CURSOR LOGTEST GET-NODES
            SLOOP::MAKE-VALUE SUBSTRINGP DM-V DM-NTH
            SLOOP::PARSE-LOOP-MAP GET-INFO-CHOICES SLOOP::THE-TYPE
            INFO-AUX SLOOP::L-EQUAL MASK-FIELD DBL-UP SUPER-GO
            ALL-MATCHES ANSI-LOOP::LOOP-LOOKUP-KEYWORD
            ANSI-LOOP::LOOP-TMEMBER ANSI-LOOP::LOOP-TEQUAL
            ANSI-LOOP::LOOP-DECLARE-VARIABLE SLOOP::SUM-SLOOP-COLLECT
            SLOOP::LOGXOR-SLOOP-COLLECT SLOOP::MAXIMIZE-SLOOP-COLLECT
            SLOOP::MINIMIZE-SLOOP-COLLECT OVERWRITE-SLOT-DESCRIPTIONS
            SLOOP::COUNT-SLOOP-COLLECT SLOOP::THEREIS-SLOOP-COLLECT
            ANSI-LOOP::MAKE-LOOP-MINIMAX
            ANSI-LOOP::LOOP-NOTE-MINIMAX-OPERATION *BREAK-POINTS*
            SLOOP::ALWAYS-SLOOP-COLLECT SET-BACK IN-INTERVAL-P
            MATCH-DIMENSIONS LEFT-PARENTHESIS-READER
            SLOOP::NEVER-SLOOP-COLLECT BYTE QUOTATION-READER
            ANSI-LOOP::LOOP-TASSOC PARSE-SLOT-DESCRIPTION
            SUB-INTERVAL-P COERCE SLOOP::IN-TABLE-SLOOP-MAP
            CHECK-SEQ-START-END SLOOP::IN-PACKAGE-SLOOP-MAP))