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