
(IN-PACKAGE "COMPILER") 
(MAPC (LAMBDA (X) (SETF (GET X 'PROCLAIMED-CLOSURE) T))
      '(CMP-TMP-MACRO COMPILE DISASSEMBLE CMP-ANON)) 
(PROCLAIM '(FTYPE (FUNCTION (STRING *) T) TS)) 
(PROCLAIM
    '(FTYPE (FUNCTION (T) T) VAR-REP-LOC C1FUNOB C1STRUCTURE-REF
            T1PROGN GET-RETURN-TYPE ADD-REG1 C1VAR C1ECASE
            C1SHARP-COMMA C1ASH LTVP CTOP-WRITE C2FUNCTION
            DECLARATION-TYPE C1TERPRI C1FUNCALL VAR-REGISTER C1ASSOC
            CONS-TO-LISTA WT-LIST C1NTHCDR-CONDITION
            C1MULTIPLE-VALUE-CALL CHECK-DOWNWARD TYPE-FILTER
            C2TAGBODY-LOCAL BLK-NAME C1FSET T1DEFENTRY C1MEMBER
            C1GETHASH C2GO-CCB SCH-LOCAL-FUN C1RPLACD C1RPLACA-NTHCDR
            INLINE-POSSIBLE C1MAPC C2VAR WT-FUNCALL-C C1ADD-GLOBALS
            FUN-NAME SAVE-FUNOB FUN-CFUN PROCLAIM TAG-REF-CCB
            FIXNUM-LOC-P UNWIND-NO-EXIT WT-H1 MAXARGS C1GO INFO-P TAG-P
            C1AND INLINE-TYPE VAR-REF-CCB C1MULTIPLE-VALUE-BIND C1THE
            C2DM-RESERVE-VL WT-DOWNWARD-CLOSURE-MACRO VAR-NAME C1THROW
            INFO-TYPE C1ASH-CONDITION LTVP-EVAL CHARACTER-LOC-P
            C2DOWNWARD-FUNCTION C1EXPR C1TAGBODY BLK-REF INFO-VOLATILE
            VAR-REF CONSTANT-FOLD-P WT-DATA-PACKAGE-OPERATION FUN-P
            VAR-LOC C1PROGN C1NTHCDR VOLATILE TAG-UNWIND-EXIT
            REPLACE-CONSTANT NAME-TO-SD SET-TOP C1GET PUSH-ARGS
            FUN-REF-CCB INLINE-BOOLE3-STRING C1SETQ C1LOCAL-CLOSURE
            CLINK GET-INCLUDED SET-PUSH-CATCH-FRAME FUNCTION-ARG-TYPES
            T2DECLARE OBJECT-TYPE CHECK-VREF COPY-INFO
            T1DEFINE-STRUCTURE C1BOOLE3 FUN-LEVEL C1NTH C2GET FIX-OPT
            C1OR FUNCTION-RETURN-TYPE T1DEFUN T1CLINES FLAGS-POS
            SAVE-AVMA WT-DOWN C2GO-CLB C1SWITCH WT-SWITCH-CASE
            C1FUNCTION C2RPLACD C1LABELS C1MULTIPLE-VALUE-SETQ WT-VV
            C2TAGBODY-CLB WT-CADR C1MAPCAR MACRO-DEF-P T1DEFMACRO
            SET-RETURN THE-PARAMETER BLK-REF-CCB AET-C-TYPE
            PUSH-ARGS-LISPCALL WRITE-BLOCK-OPEN SET-UP-VAR-CVS TAG-VAR
            INFO-SP-CHANGE ADD-LOOP-REGISTERS C1MULTIPLE-VALUE-PROG1
            WT-VS C2LOCATION C1COMPILER-LET T3CLINES RESULT-TYPE
            PROCLAMATION C1MAPL C1PRINC TAG-LABEL C2FUNCALL-AUX BLK-VAR
            TAG-REF-CLB C2TAGBODY-CCB VERIFY-DATA-VECTOR C1MAPCAN
            BLK-EXIT WT-VS-BASE REGISTER UNDEFINED-VARIABLE
            SYSTEM:UNDEF-COMPILER-MACRO C1BLOCK C1MAPLIST
            ARGS-CAUSE-SIDE-EFFECT C2BIND C1LET WT-SYMBOL-FUNCTION
            CMP-MACRO-FUNCTION WT1 C1MEMQ BLK-REF-CLB ADD-ADDRESS
            GET-LOCAL-ARG-TYPES C1UNWIND-PROTECT REP-TYPE ADD-CONSTANT
            C1IF C1QUOTE C1FMLA-CONSTANT WT-DATA1 NAME-SD1 BLK-P
            C1CATCH CMP-MACROEXPAND SHORT-FLOAT-LOC-P T3ORDINARY
            C1LENGTH NEED-TO-SET-VS-POINTERS C1DOWNWARD-FUNCTION C1FLET
            TAG-SWITCH TAG-REF PARSE-CVSPECS TAG-NAME VAR-P VAR-KIND
            C1VREF C2GETHASH LONG-FLOAT-LOC-P C1MAPCON C1NTH-CONDITION
            WT-FUNCTION-LINK WT-VAR-DECL C1STACK-LET ADD-SYMBOL T1DEFLA
            C2EXPR* C1LOAD-TIME-VALUE C1DM-BAD-KEY C1PROGV FSET-FN-NAME
            C2VALUES FUN-REF C2VAR-KIND C1PSETQ VARARG-P T1ORDINARY
            C2GO-LOCAL C1LET* C2DM-RESERVE-V PUSH-DATA-INCF
            C1DEFINE-STRUCTURE DEFAULT-INIT MDELETE-FILE
            C1BOOLE-CONDITION C2RPLACA C1VALUES GET-ARG-TYPES WT-CAR
            FUN-INFO C1DECLARE C1STRUCTURE-SET WT-VS* CMP-MACROEXPAND-1
            SCH-GLOBAL GET-LOCAL-RETURN-TYPE C1EVAL-WHEN C2TAGBODY-BODY
            C1APPLY C1LOCAL-FUN C1MACROLET ADD-OBJECT C1RETURN-FROM
            SAFE-SYSTEM RESET-INFO-TYPE T1DEFCFUN C1RPLACA WT-CDR
            VAR-TYPE T1MACROLET C1LIST-NTH INFO-CHANGED-ARRAY
            INFO-REFERRED-ARRAY BLK-VALUE-TO-GO ADD-OBJECT2 WT-CCB-VS)) 
(PROCLAIM '(FTYPE (FUNCTION (*) *) INLINE-BOOLE3)) 
(PROCLAIM '(FTYPE (FUNCTION (T) FIXNUM) F-TYPE)) 
(PROCLAIM
    '(FTYPE (FUNCTION (T (VECTOR T) FIXNUM T) FIXNUM) PUSH-ARRAY)) 
(PROCLAIM
    '(FTYPE (FUNCTION (T (VECTOR T) FIXNUM FIXNUM T) FIXNUM)
            BSEARCHLEQ)) 
(PROCLAIM
    '(FTYPE (FUNCTION (T) *) C2EXPR WT-FIXNUM-LOC WT-LONG-FLOAT-LOC
            C2OR WT-SHORT-FLOAT-LOC CMP-EVAL C2PROGN WT-TO-STRING
            SET-LOC CMP-TOPLEVEL-EVAL VV-STR T1EXPR T1EVAL-WHEN WT-LOC
            C2AND WT-CHARACTER-LOC)) 
(PROCLAIM
    '(FTYPE (FUNCTION (*) T) FCALLN-INLINE MAKE-BLK MAKE-FUN
            LIST*-INLINE WT-CLINK COMPILE-FILE C2FSET MAKE-TAG CS-PUSH
            LIST-INLINE MAKE-VAR COMPILER-COMMAND MAKE-INFO)) 
(PROCLAIM
    '(FTYPE (FUNCTION (STRING FIXNUM FIXNUM) T) DASH-TO-UNDERSCORE-INT)) 
(PROCLAIM
    '(FTYPE (FUNCTION (T T T) *) C2COMPILER-LET C2FLET C2LABELS C2IF
            WT-INLINE)) 
(PROCLAIM '(FTYPE (FUNCTION (T T *) *) T3DEFUN-AUX)) 
(PROCLAIM
    '(FTYPE (FUNCTION (T T T T) *) C1DM-V C2RETURN-FROM C2DM C1DM-VL
            C2APPLY-OPTIMIZE)) 
(PROCLAIM
    '(FTYPE (FUNCTION (T T) T) C2APPLY C2RETURN-CCB C2BIND-INIT
            PROCLAIM-VAR PRIN1-CMP C2LAMBDA-EXPR-WITH-KEY
            SYSTEM::ADD-DEBUG C2LAMBDA-EXPR-WITHOUT-KEY C2STACK-LET
            MULTIPLE-VALUE-CHECK C1DECL-BODY COMPILER-CC C1EXPR*
            C2MULTIPLE-VALUE-PROG1 CO1VECTOR-PUSH
            ARGS-INFO-CHANGED-VARS C2DM-BIND-INIT C1PROGN*
            CO1WRITE-CHAR COERCE-LOC WT-FIXNUM-VALUE IS-REP-REFERRED
            C2MULTIPLE-VALUE-CALL CO1SPECIAL-FIX-DECL INLINE-PROC
            WT-CHARACTER-VALUE SET-VS C2PSETQ T3SHARP-COMMA
            STRUCT-TYPE-OPT WT-MAKE-DCLOSURE C2DM-BIND-VL SET-JUMP-TRUE
            DO-MACRO-EXPANSION CO1SCHAR C2BLOCK-CLB
            C2LIST-NTH-IMMEDIATE C2DM-BIND-LOC WT-LONG-FLOAT-VALUE
            CO1CONS COMPILER-CLEAR-COMPILER-PROPERTIES C2EXPR-TOP
            ARGS-INFO-REFERRED-VARS C2MEMBER!2 C2MULTIPLE-VALUE-SETQ
            C2SETQ ADD-DEBUG-INFO GET-INLINE-LOC RESULT-TYPE-FROM-ARGS
            C2BIND-LOC CO1STRUCTURE-PREDICATE C1ARGS SHIFT<< UNWIND-BDS
            MAYBE-EVAL C2UNWIND-PROTECT TYPE-AND C2CALL-LOCAL C2THROW
            CO1TYPEP SET-BDS-BIND C1SETQ1 C2CATCH TYPE>= C1LAMBDA-FUN
            NEED-TO-PROTECT C2ASSOC!2 CO1READ-BYTE CO1LDB
            CONVERT-CASE-TO-SWITCH FAST-READ MAKE-USER-INIT
            CO1CONSTANT-FOLD C1FMLA CHECK-FNAME-ARGS
            COERCE-LOC-STRUCTURE-REF WT-SHORT-FLOAT-VALUE C2BLOCK-CCB
            ADD-INFO CAN-BE-REPLACED CO1READ-CHAR C2CALL-LAMBDA
            CFAST-WRITE PUSH-CHANGED-VARS SHIFT>> JUMPS-TO-P CO1SUBLIS
            C1CONSTANT-VALUE C2RETURN-CLB WT-VAR CHECK-END C2EXPR-TOP*
            WT-V*-MACROS SET-JUMP-FALSE CMPFIX-ARGS SET-DBIND
            CO1WRITE-BYTE CO1EQL COMPILER-DEF-HOOK WT-REQUIREDS)) 
(PROCLAIM '(FTYPE (FUNCTION (T *) *) COMPILE-FILE1)) 
(PROCLAIM '(FTYPE (FUNCTION (FIXNUM FIXNUM) T) MLIN)) 
(PROCLAIM '(FTYPE (FUNCTION (STRING) T) DASH-TO-UNDERSCORE)) 
(PROCLAIM
    '(FTYPE (FUNCTION (T T) FIXNUM) PROCLAIMED-ARGD ANALYZE-REGS1
            ANALYZE-REGS)) 
(PROCLAIM '(FTYPE (FUNCTION (T FIXNUM) T) MEMOIZED-HASH-EQUAL)) 
(PROCLAIM '(FTYPE (FUNCTION ((VECTOR T)) T) COPY-ARRAY)) 
(PROCLAIM
    '(FTYPE (FUNCTION (T T) *) C2BLOCK-LOCAL C1SYMBOL-FUN C1BODY
            C2BLOCK C2DECL-BODY C2RETURN-LOCAL NCONC-FILES
            WT-INLINE-LOC COMPILER-BUILD)) 
(PROCLAIM
    '(FTYPE (FUNCTION (T *) T) WT-CVAR C1LAMBDA-EXPR UNWIND-EXIT
            CMPWARN WT-COMMENT WT-INTEGER-LOC CMPERR ADD-INIT
            FAST-LINK-PROCLAIMED-TYPE-P CMPNOTE C1CASE INIT-NAME)) 
(PROCLAIM
    '(FTYPE (FUNCTION (T T T T) T) T3DEFUN-VARARG C2STRUCTURE-REF
            C2CALL-UNKNOWN-GLOBAL C1MAKE-VAR C2SWITCH WT-GLOBAL-ENTRY
            C2CALL-GLOBAL T3INIT-FUN MY-CALL T3DEFUN-NORMAL)) 
(PROCLAIM
    '(FTYPE (FUNCTION (T T T) T) CJT WT-INLINE-INTEGER CMP-EXPAND-MACRO
            CHECK-FORM-TYPE SET-VAR C2CASE ADD-FUNCTION-PROCLAMATION
            INLINE-TYPE-MATCHES T3DEFCFUN C2MAPCAN AND-FORM-TYPE
            C2PROGV C1DM WT-INLINE-CHARACTER C2MULTIPLE-VALUE-BIND
            C2FUNCALL-SFUN C2LET MYSUB C-FUNCTION-NAME WT-MAKE-CCLOSURE
            C2GO WT-INLINE-COND ADD-FAST-LINK C1STRUCTURE-REF1 C2MAPCAR
            BOOLE3 TOO-FEW-ARGS FIX-DOWN-ARGS COMPILER-PASS2
            GET-INLINE-INFO C2LET* WT-INLINE-SHORT-FLOAT
            WT-IF-PROCLAIMED C2PRINC ASSIGN-DOWN-VARS
            WT-INLINE-LONG-FLOAT C2TAGBODY C1MAP-FUNCTIONS CHECK-VDECL
            MAKE-INLINE-STRING WT-INLINE-FIXNUM C2MAPC CAN-BE-REPLACED*
            SUBLIS1-INLINE TOO-MANY-ARGS ADD-FUNCTION-DECLARATION CJF)) 
(PROCLAIM
    '(FTYPE (FUNCTION (T T T T T *) T) T3LOCAL-DCFUN T3LOCAL-FUN)) 
(PROCLAIM
    '(FTYPE (FUNCTION (T T T T T) T) T2DEFUN T3DEFUN C2STRUCTURE-SET
            C1APPLY-OPTIMIZE T3DEFUN-LOCAL-ENTRY)) 
(PROCLAIM
    '(FTYPE (FUNCTION (T T T *) T) WT-SIMPLE-CALL GET-OUTPUT-PATHNAME)) 
(PROCLAIM
    '(FTYPE (FUNCTION (T T *) T) INLINE-ARGS C2FUNCALL C2LAMBDA-EXPR
            LINK)) 
(PROCLAIM
    '(FTYPE (FUNCTION (T T T T T T) T) T3DEFMACRO DEFSYSFUN T2DEFENTRY
            T2DEFMACRO T3DEFENTRY)) 
(PROCLAIM
    '(FTYPE (FUNCTION NIL T) WT-DATA-BEGIN PRINT-COMPILER-INFO
            GAZONK-NAME CCB-VS-PUSH INC-INLINE-BLOCKS
            PRINT-CURRENT-FORM C1NIL WT-DATA-FILE
            ADD-LOAD-TIME-SHARP-COMMA CVS-PUSH RESET-TOP WT-CVARS
            BABOON WT-FASD-DATA-FILE WT-DATA-END INIT-ENV
            TAIL-RECURSION-POSSIBLE WFS-ERROR C1T VS-PUSH
            WT-NEXT-VAR-ARG WT-FIRST-VAR-ARG WT-C-PUSH
            CLOSE-INLINE-BLOCKS)) 