
(IN-PACKAGE "SYSTEM") 
(PROCLAIM '(FTYPE (FUNCTION (T T) T) 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 TYPEP 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) 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) 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) 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 PROCESS-SOME-ARGS
            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)) 