(SYSTEM::VERSION '(20020129.))
#0Y UTF-8
#Y(#:TOP-LEVEL-FORM-1 #17Y(00 00 00 00 00 00 00 00 00 01 DA 31 E2 0F 01 19 01)
   "COMMON-LISP" COMMON-LISP::*PACKAGE*)
#Y(#:TOP-LEVEL-FORM-2 #17Y(00 00 00 00 00 00 00 00 00 01 DA 38 01 31 D5 19 01)
   (COMMON-LISP::LOOP COMMON-LISP::LOOP-FINISH))
#Y(#:TOP-LEVEL-FORM-3
   #21Y(00 00 00 00 00 00 00 00 00 01 DA 6B 01 38 03 31 B6 0F 01 19 01) :LOOP
   COMMON-LISP::*FEATURES*)
#Y(#:TOP-LEVEL-FORM-4 #17Y(00 00 00 00 00 00 00 00 00 01 DA 31 E2 0F 01 19 01)
   "SYSTEM" COMMON-LISP::*PACKAGE*)
#Y(#:TOP-LEVEL-FORM-5-1
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::LOOP-KEYWORDP SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::LOOP-KEYWORDP
      #27Y(00 00 00 00 01 00 00 00 00 02 AD 32 04 1F 0A AD 72 8A DA 38 01 31 62
           19 02 19 02)
      #.(COMMON-LISP::MAKE-HASH-TABLE :TEST #'COMMON-LISP::EQUAL
         :INITIAL-CONTENTS
         (COMMON-LISP::MAPCAR
          #'(COMMON-LISP::LAMBDA (SYSTEM::S)
             (COMMON-LISP::CONS (COMMON-LISP::SYMBOL-NAME SYSTEM::S)
              SYSTEM::S))
          '(SYSTEM::NAMED SYSTEM::FOR SYSTEM::AS COMMON-LISP::AND SYSTEM::FROM
            SYSTEM::DOWNFROM SYSTEM::UPFROM SYSTEM::TO SYSTEM::DOWNTO
            SYSTEM::UPTO SYSTEM::BELOW SYSTEM::ABOVE SYSTEM::BY SYSTEM::IN
            SYSTEM::ON COMMON-LISP::= SYSTEM::THEN SYSTEM::ACROSS SYSTEM::BEING
            SYSTEM::EACH COMMON-LISP::THE SYSTEM::HASH-KEY SYSTEM::HASH-KEYS
            SYSTEM::HASH-VALUE SYSTEM::HASH-VALUES SYSTEM::OF SYSTEM::USING
            COMMON-LISP::SYMBOL SYSTEM::PRESENT-SYMBOL SYSTEM::INTERNAL-SYMBOL
            SYSTEM::EXTERNAL-SYMBOL SYSTEM::SYMBOLS SYSTEM::PRESENT-SYMBOLS
            SYSTEM::INTERNAL-SYMBOLS SYSTEM::EXTERNAL-SYMBOLS SYSTEM::REPEAT
            SYSTEM::WHILE SYSTEM::UNTIL SYSTEM::ALWAYS SYSTEM::NEVER
            SYSTEM::THEREIS SYSTEM::COLLECT SYSTEM::COLLECTING
            COMMON-LISP::APPEND SYSTEM::APPENDING COMMON-LISP::NCONC
            SYSTEM::NCONCING COMMON-LISP::COUNT SYSTEM::COUNTING SYSTEM::SUM
            SYSTEM::SUMMING SYSTEM::MAXIMIZE SYSTEM::MAXIMIZING
            SYSTEM::MINIMIZE SYSTEM::MINIMIZING SYSTEM::INTO SYSTEM::WITH
            COMMON-LISP::IF COMMON-LISP::WHEN COMMON-LISP::UNLESS SYSTEM::ELSE
            SYSTEM::END SYSTEM::IT COMMON-LISP::DO SYSTEM::DOING
            COMMON-LISP::RETURN SYSTEM::OF-TYPE SYSTEM::INITIALLY
            SYSTEM::FINALLY)))))
#Y(#:TOP-LEVEL-FORM-5-2 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 3E 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*WHOLE*))
#Y(#:TOP-LEVEL-FORM-5-3
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::LOOP-SYNTAX-ERROR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::LOOP-SYNTAX-ERROR
      #22Y(00 00 00 00 01 00 00 00 00 02 DA 6F 01 DC AF 72 8A 6B 03 33 03 1E)
      "~S: syntax error after ~A in ~S" SYSTEM::TEXT COMMON-LISP::LOOP
      SYSTEM::*WHOLE*))
#Y(#:TOP-LEVEL-FORM-5-4
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::DESTRUCTURE-VARS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DESTRUCTURE-VARS
      #33Y(00 00 00 00 01 00 00 00 00 02 00 2B 01 00 0B 00 00 AC 6D 00 01 AF 9E
           34 16 01 68 00 00 32 47 19 03)
      #Y(SYSTEM::DESTRUCTURE-VARS-ACCUMULATE
         #39Y(00 00 00 00 01 00 00 00 00 02 9E 59 1E 17 9E 20 0A 94 01 28 75 95
              01 29 01 03 6F AD 07 00 01 5D 0C 00 01 19 02 19 02)
         COMMON-LISP::NIL)))
#Y(#:TOP-LEVEL-FORM-5-5
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::EMPTY-TREE-P SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::EMPTY-TREE-P
      #39Y(00 00 00 00 01 00 00 00 00 02 92 01 09 02 19 02 00 19 02 93 01 77 9E
           20 77 94 01 28 76 1F 06 95 01 29 01 03 6E 19 02)))
#Y(#:TOP-LEVEL-FORM-5-6
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::DESTRUCTURE-TYPE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DESTRUCTURE-TYPE
      #34Y(00 00 00 00 02 00 00 00 00 03 00 2B 01 00 0B 00 00 AC 6D 00 01 B0 B0
           9F 34 16 01 68 00 00 32 47 19 04)
      #Y(SYSTEM::DESTRUCTURE-TYPE-ACCUMULATE
         #72Y(00 00 00 00 02 00 00 00 00 03 9F 59 1E 38 9F 20 17 9E 21 22 AE 6F
              02 9D 1F 2A DB AF 9F 7C 02 07 00 01 5D 0C 00 01 19 04 DB AE B0 7B
              03 07 00 01 5D 0C 00 01 19 03 94 02 94 02 28 4E 95 02 95 02 29 02
              05 46 19 04 19 03)
         COMMON-LISP::NIL COMMON-LISP::TYPE SYSTEM::DESTRUCTURE-VARS)))
#Y(#:TOP-LEVEL-FORM-5-7
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::SIMPLE-TYPE-P SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::SIMPLE-TYPE-P
      #37Y(00 00 00 00 01 00 00 00 00 02 9E 20 0C 94 01 28 79 1F 10 95 01 29 01
           03 71 9E 26 00 03 02 19 02 00 19 02 19 02)
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (COMMON-LISP::FLOAT . 1.)
         (COMMON-LISP::FIXNUM . 1.) (COMMON-LISP::T . 1.)
         (COMMON-LISP::NIL . 1.))))
#Y(#:TOP-LEVEL-FORM-5-8 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 3E 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*HELPVARS*))
#Y(#:TOP-LEVEL-FORM-5-9
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::HELPVAR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::HELPVAR
      #37Y(00 00 00 00 01 00 00 00 00 02 AD 6B 00 71 17 91 01 2E 0A 38 01 72 8E
           6B 00 38 01 31 1B 6B 00 AE 33 01 01 19 02)
      SYSTEM::*HELPVARS*))
#Y(#:TOP-LEVEL-FORM-5-10
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::DESTRUCTURE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DESTRUCTURE
      #29Y(00 00 00 00 02 00 00 00 00 03 AE AE DA C6 34 1E 0A DA 6F 02 AE 7B 02
           61 01 19 03 19 03)
      0.
      #Y(SYSTEM::DESTRUCTURE-DESTRUCTURE-TREE
         #87Y(00 00 00 00 03 00 00 00 00 04 AF 88 00 19 A0 20 19 94 03 88 00 1C
              95 03 89 00 1C 94 03 C7 14 B0 7B 02 AF 29 03 07 63 00 19 04 AF AF
              7B 02 61 01 19 04 95 03 C6 1B 67 AD 6F 03 94 04 DC DE AF B3 7B 03
              7B 02 96 04 6C 42 95 05 DB AF 7B 02 B1 6C FF B8 33 02 24 19 05)
         SYSTEM::EMPTY-TREE-P COMMON-LISP::CDR COMMON-LISP::CAR SYSTEM::HELPVAR
         COMMON-LISP::SETQ)
      SYSTEM::HELPVAR))
#Y(#:TOP-LEVEL-FORM-5-11
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::DEFAULT-BINDINGS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DEFAULT-BINDINGS
      #134Y(00 00 00 00 02 00 00 00 00 03 63 AF 1B 0C 94 00 AC 63 7B 02 84 02
            16 01 83 00 9D 21 71 16 01 AC 80 A2 00 AE 63 1B 80 55 A0 5C 79 63
            1B 14 87 01 00 14 B4 38 06 CA FA 72 5A 95 00 B0 31 A7 16 01 83 01
            AD 8D 91 68 16 05 1B 31 C8 F8 14 AE 8A 02 57 C9 F8 14 AE 8A 02 50
            E0 E1 B0 7B 03 95 04 AD 31 A7 16 04 1B 15 87 01 00 78 25 00 0E 9D
            5C 78 AC 6F 01 01 02 AE 8B 02 51 16 03 83 01 AD 8D 91 65 16 02 15
            19 03)
      COMMON-LISP::TYPE SYSTEM::TYPE-FOR-DISCRIMINATION COMMON-LISP::TYPEP 0.
      0.0f0 #.#'COMMON-LISP::FIRST COMMON-LISP::OR COMMON-LISP::NULL))
#Y(#:TOP-LEVEL-FORM-5-12
   #548Y(00 00 00 00 00 00 00 00 00 01 00 2B 01 DA DB DC 38 01 72 82 C8 5F 5D
         0B 00 00 DE 2F 05 DE AD 6D 06 01 32 80 DA DC 68 02 00 64 DE E1 73 04
         00 32 86 16 01 DA 2F 08 E3 31 59 E4 31 59 E5 2F 05 E5 E6 E7 32 86 E5
         E8 32 80 E5 E9 DA 32 86 EA 31 59 EB 31 59 EC 2F 05 EC E6 ED 32 86 EC
         EE 32 80 EC E9 DA 32 86 EF 31 59 F0 31 59 F1 2F 05 F1 E6 F2 32 86 F1
         F3 32 80 F1 E9 DA 32 86 F4 31 59 F5 31 59 F6 2F 05 F6 E6 F7 32 86 F6
         65 1E 32 80 F6 E9 DA 32 86 65 1F 31 59 65 20 31 59 65 21 2F 05 65 21
         E6 65 22 32 86 65 21 65 23 32 80 65 21 E9 DA 32 86 65 24 31 59 65 25
         31 59 65 26 2F 05 65 26 E6 65 27 32 86 65 26 65 28 32 80 65 26 E9 DA
         32 86 65 29 31 59 65 2A 31 59 65 2B 2F 05 65 2B E6 65 2C 32 86 65 2B
         65 2D 32 80 65 2B E9 DA 32 86 65 2E 31 59 65 2F 31 59 65 30 2F 05 65
         30 E6 65 31 32 86 65 30 65 32 32 80 65 30 E9 DA 32 86 E5 65 33 32 87
         E5 65 34 65 35 65 36 03 37 7C 02 32 86 E5 65 38 63 2D 03 39 E5 65 33
         DA 32 86 EC 65 33 32 87 EC 65 34 65 35 65 36 03 3A 7C 02 32 86 EC 65
         38 63 2D 03 39 EC 65 33 DA 32 86 F1 65 33 32 87 F1 65 34 65 35 65 36
         03 3B 7C 02 32 86 F1 65 38 63 2D 03 39 F1 65 33 DA 32 86 F6 65 33 32
         87 F6 65 34 65 35 65 36 03 3C 7C 02 32 86 F6 65 38 63 2D 03 39 F6 65
         33 DA 32 86 65 21 65 33 32 87 65 21 65 34 65 35 65 36 03 3D 7C 02 32
         86 65 21 65 38 63 2D 03 39 65 21 65 33 DA 32 86 65 26 65 33 32 87 65
         26 65 34 65 35 65 36 03 3E 7C 02 32 86 65 26 65 38 63 2D 03 39 65 26
         65 33 DA 32 86 65 2B 65 33 32 87 65 2B 65 34 65 35 65 36 03 3F 7C 02
         32 86 65 2B 65 38 63 2D 03 39 65 2B 65 33 DA 32 86 65 30 65 33 32 87
         65 30 65 34 65 35 65 36 03 40 7C 02 32 86 65 30 65 38 63 2D 03 39 65
         30 65 33 DA 32 86 DA 65 41 63 2D 03 39 DA 2F 42 3E 19 01)
   SYSTEM::LOOP-INITIALIZATION COMMON-LISP::STRUCTURE-OBJECT
   SYSTEM::DEFSTRUCT-DESCRIPTION 0. SYSTEM::MAKE-LOOP-INIT
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::MAKE-LOOP-INIT
      #87Y(00 00 00 00 00 00 00 00 80 1B 08 00 01 00 3D 08 3D 07 3D 06 3D 05 3D
           04 3D 03 3D 02 3D 01 69 00 01 E3 72 2E E4 AD E5 B8 32 2D E4 AD E6 B7
           32 2D E4 AD E7 B6 32 2D E4 AD E8 B5 32 2D E4 AD E9 B4 32 2D E4 AD EA
           B3 32 2D E4 AD EB B2 32 2D E4 AD EC B1 32 2D 15 19 09)
      COMMON-LISP::NIL :SPECFORM :BINDINGS :DECLSPECS :ENDTEST-FORMS :EVERYTIME
      :REQUIRES-STEPBEFORE :DEPENDS-PRECEDING :LATER-DEPEND 9.
      SYSTEM::LOOP-INITIALIZATION 1. 2. 3. 4. 5. 6. 7. 8.)
   (#(SYSTEM::SPECFORM (:SPECFORM) 1. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::BINDINGS (:BINDINGS) 2. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::DECLSPECS (:DECLSPECS) 3. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::ENDTEST-FORMS (:ENDTEST-FORMS) 4. (COMMON-LISP::NIL)
      COMMON-LISP::NIL COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::EVERYTIME (:EVERYTIME) 5. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::REQUIRES-STEPBEFORE (:REQUIRES-STEPBEFORE) 6. (COMMON-LISP::NIL)
      COMMON-LISP::NIL COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::DEPENDS-PRECEDING (:DEPENDS-PRECEDING) 7. (COMMON-LISP::NIL)
      COMMON-LISP::NIL COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::LATER-DEPEND (:LATER-DEPEND) 8. (COMMON-LISP::NIL)
      COMMON-LISP::NIL COMMON-LISP::T COMMON-LISP::NIL))
   CLOS::DEFINE-STRUCTURE-CLASS
   (COMMON-LISP::FUNCTION SYSTEM::LI-SPECFORM (SYSTEM::LOOP-INITIALIZATION)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::LI-SPECFORM) SYSTEM::LI-SPECFORM
   SYSTEM::INLINE-EXPANSION
   (#1=(SYSTEM::OBJECT)
    (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::LI-SPECFORM))
    (COMMON-LISP::BLOCK SYSTEM::LI-SPECFORM
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::LOOP-INITIALIZATION SYSTEM::OBJECT
       1.))))
   #Y(SYSTEM::LI-SPECFORM
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      SYSTEM::LOOP-INITIALIZATION 1.)
   SYSTEM::DEFSTRUCT-READER
   (COMMON-LISP::FUNCTION SYSTEM::LI-BINDINGS (SYSTEM::LOOP-INITIALIZATION)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::LI-BINDINGS) SYSTEM::LI-BINDINGS
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::LI-BINDINGS))
    (COMMON-LISP::BLOCK SYSTEM::LI-BINDINGS
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::LOOP-INITIALIZATION SYSTEM::OBJECT
       2.))))
   #Y(SYSTEM::LI-BINDINGS
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      SYSTEM::LOOP-INITIALIZATION 2.)
   (COMMON-LISP::FUNCTION SYSTEM::LI-DECLSPECS (SYSTEM::LOOP-INITIALIZATION)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::LI-DECLSPECS) SYSTEM::LI-DECLSPECS
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::LI-DECLSPECS))
    (COMMON-LISP::BLOCK SYSTEM::LI-DECLSPECS
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::LOOP-INITIALIZATION SYSTEM::OBJECT
       3.))))
   #Y(SYSTEM::LI-DECLSPECS
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      SYSTEM::LOOP-INITIALIZATION 3.)
   (COMMON-LISP::FUNCTION SYSTEM::LI-ENDTEST-FORMS
    (SYSTEM::LOOP-INITIALIZATION) COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::LI-ENDTEST-FORMS) SYSTEM::LI-ENDTEST-FORMS
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::LI-ENDTEST-FORMS))
    (COMMON-LISP::BLOCK SYSTEM::LI-ENDTEST-FORMS
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::LOOP-INITIALIZATION SYSTEM::OBJECT
       4.))))
   #Y(SYSTEM::LI-ENDTEST-FORMS
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      SYSTEM::LOOP-INITIALIZATION 4.)
   (COMMON-LISP::FUNCTION SYSTEM::LI-EVERYTIME (SYSTEM::LOOP-INITIALIZATION)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::LI-EVERYTIME) SYSTEM::LI-EVERYTIME
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::LI-EVERYTIME))
    (COMMON-LISP::BLOCK SYSTEM::LI-EVERYTIME
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::LOOP-INITIALIZATION SYSTEM::OBJECT
       5.))))
   #Y(SYSTEM::LI-EVERYTIME
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      SYSTEM::LOOP-INITIALIZATION 5.)
   (COMMON-LISP::FUNCTION SYSTEM::LI-REQUIRES-STEPBEFORE
    (SYSTEM::LOOP-INITIALIZATION) COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::LI-REQUIRES-STEPBEFORE)
   SYSTEM::LI-REQUIRES-STEPBEFORE
   (#1#
    (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::LI-REQUIRES-STEPBEFORE))
    (COMMON-LISP::BLOCK SYSTEM::LI-REQUIRES-STEPBEFORE
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::LOOP-INITIALIZATION SYSTEM::OBJECT
       6.))))
   #Y(SYSTEM::LI-REQUIRES-STEPBEFORE
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      SYSTEM::LOOP-INITIALIZATION 6.)
   (COMMON-LISP::FUNCTION SYSTEM::LI-DEPENDS-PRECEDING
    (SYSTEM::LOOP-INITIALIZATION) COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::LI-DEPENDS-PRECEDING)
   SYSTEM::LI-DEPENDS-PRECEDING
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::LI-DEPENDS-PRECEDING))
    (COMMON-LISP::BLOCK SYSTEM::LI-DEPENDS-PRECEDING
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::LOOP-INITIALIZATION SYSTEM::OBJECT
       7.))))
   #Y(SYSTEM::LI-DEPENDS-PRECEDING
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      SYSTEM::LOOP-INITIALIZATION 7.)
   (COMMON-LISP::FUNCTION SYSTEM::LI-LATER-DEPEND (SYSTEM::LOOP-INITIALIZATION)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::LI-LATER-DEPEND) SYSTEM::LI-LATER-DEPEND
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::LI-LATER-DEPEND))
    (COMMON-LISP::BLOCK SYSTEM::LI-LATER-DEPEND
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::LOOP-INITIALIZATION SYSTEM::OBJECT
       8.))))
   #Y(SYSTEM::LI-LATER-DEPEND
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      SYSTEM::LOOP-INITIALIZATION 8.)
   SYSTEM::DEFSTRUCT-WRITER SYSTEM::SETF-EXPANDER -1. 1.
   #Y(SYSTEM::SETF-LI-SPECFORM
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::LOOP-INITIALIZATION 1.)
   COMMON-LISP::SETF SYSTEM::%SET-DOCUMENTATION
   #Y(SYSTEM::SETF-LI-BINDINGS
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::LOOP-INITIALIZATION 2.)
   #Y(SYSTEM::SETF-LI-DECLSPECS
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::LOOP-INITIALIZATION 3.)
   #Y(SYSTEM::SETF-LI-ENDTEST-FORMS
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::LOOP-INITIALIZATION 4.)
   #Y(SYSTEM::SETF-LI-EVERYTIME
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::LOOP-INITIALIZATION 5.)
   #Y(SYSTEM::SETF-LI-REQUIRES-STEPBEFORE
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::LOOP-INITIALIZATION 6.)
   #Y(SYSTEM::SETF-LI-DEPENDS-PRECEDING
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::LOOP-INITIALIZATION 7.)
   #Y(SYSTEM::SETF-LI-LATER-DEPEND
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::LOOP-INITIALIZATION 8.)
   COMMON-LISP::STRUCTURE CLOS::DEFSTRUCT-REMOVE-PRINT-OBJECT-METHOD)
#Y(#:TOP-LEVEL-FORM-5-13
   #17Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 87 3E 19 01)
   SYSTEM::LOOP-INITIALIZATION SYSTEM::DEFSTRUCT-DESCRIPTION)
#Y(#:TOP-LEVEL-FORM-5-14
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::WRAP-INITIALIZATIONS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::WRAP-INITIALIZATIONS
      #78Y(00 00 00 00 02 00 00 00 00 03 AE 63 1B 37 9F 1B 1B AE 61 01 1B 16 87
           01 00 14 6F 00 AD 6F 01 AE 6F 02 AE AF 24 03 67 AF 24 04 66 00 14 93
           02 05 DF A0 7A 61 01 14 B2 6F 06 B6 7B 01 33 04 23 5D FE 16 03 83 01
           AD 8D 91 4D 16 02 9E 19 03)
      SYSTEM::LI-SPECFORM SYSTEM::LI-BINDINGS SYSTEM::LI-DECLSPECS
      COMMON-LISP::MULTIPLE-VALUE-BIND COMMON-LISP::LET COMMON-LISP::DECLARE
      SYSTEM::LI-ENDTEST-FORMS))
#Y(#:TOP-LEVEL-FORM-5-15 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 3E 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*LAST-IT*))
#Y(#:TOP-LEVEL-FORM-5-16 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 3E 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*USED-IT*))
#Y(#:TOP-LEVEL-FORM-5-17
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::EXPAND-LOOP SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::EXPAND-LOOP
      #2681Y(00 00 00 00 02 00 00 00 00 03 9F 10 00 00 2B 0D 7F 05 00 00 00 0B
             00 01 14 DB 64 38 06 C7 FA 31 1C 10 03 00 10 04 00 0B 07 02 0B 07
             03 0B 07 04 0B 07 05 0B 07 06 0B 07 07 0B 07 08 0B 07 09 0B 07 0A
             14 01 02 00 0B 0A 0B 14 00 0B 0B 0C A8 2B 08 AC 2C 05 01 0B 00 00
             AC 2C 06 01 0B 00 01 AC 2C 07 01 0B 00 02 AC 2C 08 01 0B 00 03 AC
             6D 09 01 AD 2C 0A 01 0B 01 04 AD 2C 0B 01 0B 01 05 AD 2C 0C 01 0B
             01 06 AD 2C 0D 01 0B 01 07 AD 6D 0E 01 AE 6D 0F 01 EA 06 04 01 34
             1D 87 2B 06 0F 00 20 07 06 0F 00 78 8E 04 03 EA 2F 11 06 0F 00 78
             06 10 00 5C 0B 10 00 15 0B 0F 01 1B 87 0A 7E 0F AC 84 06 16 01 1B
             87 00 06 03 06 74 92 00 6F 06 10 00 78 6F 12 9D 26 13 86 DD 06 11
             00 5C 0B 11 00 7E 10 AC 06 06 02 74 9E 26 14 80 56 EF AD 03 16 62
             02 1B 80 4E F1 AD 03 18 62 02 1B 80 45 64 06 13 0C 5D 0B 12 0C EF
             AD F3 68 15 01 03 1A 1B 10 64 06 13 0C 5D 0B 12 0C F1 AD F3 68 15
             01 03 1B 7C 02 61 03 1B 1D 38 01 72 8E F6 AD F3 68 16 01 F7 B2 F3
             B3 03 1E 7C 02 7B 03 7B 03 61 03 16 01 1B 01 00 14 84 08 16 03 1B
             86 7C 06 11 00 5C 0B 11 00 65 1F 06 06 04 34 7A 84 09 16 02 1B 86
             67 06 11 00 5C 0B 11 00 06 05 05 34 1C 07 65 1F 06 06 04 34 5D 14
             84 06 16 02 1B 86 4B 06 11 00 5C 0B 11 00 93 10 0C 65 20 6F 21 65
             22 AE 72 8A 2D 03 23 9D 26 24 86 2E 01 02 1B 12 65 25 06 0B 02 74
             AE AD 30 26 FB 16 01 1B 17 03 29 FA 63 A4 34 42 02 65 25 06 0B 01
             34 1C 61 AD 6F 27 AD 30 28 FA AE B1 80 A0 04 AC B0 80 A0 03 16 03
             65 29 06 08 01 34 1C 55 65 2A 65 2B 65 2C B0 72 47 65 2D B1 72 47
             65 2E 63 65 2F 63 65 30 64 2D 0C 31 1B 85 BD A2 2B 01 01 02 00 0B
             02 00 14 68 15 0A 63 B1 6D 32 01 A8 34 42 02 06 0E 00 74 9D 26 33
             83 3A 65 3A B1 61 02 1B 80 72 65 3B AF AF 61 03 1B 80 87 06 1B 00
             5C 0B 1B 00 AC 06 10 02 74 65 34 63 65 35 06 13 01 34 1D 07 65 35
             06 13 02 34 F9 9E 20 14 94 01 25 36 0F 9E 5C 20 0B 9E 5C 5C 1C 06
             9E 5C 78 8E 04 05 38 01 81 8E 00 38 01 72 8E AC B0 7B 02 84 0C 93
             01 06 14 AF 7B 02 84 0C F1 65 37 AE 7B 02 03 38 7C 02 04 11 74 A5
             34 65 2A 65 2B 65 2C B5 B4 24 39 FF 87 A1 14 70 26 65 2D B6 65 2E
             64 65 2F 68 28 0A 6E 0A 31 A5 34 AC 92 02 FF 76 A0 5C 78 AE 61 02
             14 7B 02 84 0A 16 04 1B 84 47 06 1B 00 5C 0B 1B 00 65 3C 06 10 02
             74 AC 65 3D 06 12 01 34 1D 07 65 3D 06 12 02 34 F8 B0 AE 70 26 B7
             80 A0 0A AF B6 80 A0 09 AD 38 01 8D 5D 06 AC 38 01 8C 5D 05 02 0B
             1D 09 FE B0 AD 70 26 B5 80 A0 08 16 02 1B 83 FF 06 1B 00 5C 0B 1B
             00 AC 06 10 02 74 38 01 72 8E 38 01 72 8E AD AF 7B 02 84 0B AC 03
             3E 7A 84 0B F1 65 3F AE 65 40 B1 7B 02 7B 03 03 41 7C 02 04 10 74
             A4 34 65 2A 65 2B 65 2C B4 65 42 B2 B2 7B 03 70 26 65 2D B5 65 2E
             64 65 2F 68 27 0A 6E 0A 31 A4 34 AC 65 43 AE 7B 02 7B 02 84 09 16
             03 1B 83 9D 06 1B 00 5C 0B 1B 00 06 0F 00 74 AC 24 44 08 AC 24 45
             04 65 46 2F 11 06 1C 00 5C 0B 1C 00 06 10 00 74 9D 26 47 20 AD 25
             45 1F 65 48 6F 21 03 22 1B 0A AD 25 44 13 65 49 6F 21 03 22 14 AF
             AF 72 8A 2D 04 23 1B 03 AD 2F 11 06 1D 00 5C 0B 1D 00 06 11 00 74
             AC 24 39 07 AC 24 4A 03 AD 2F 11 16 01 06 1D 00 5C 0B 1D 00 AC 06
             12 02 74 9E 26 4B 81 77 63 65 4C 06 14 01 34 1D 80 49 06 1F 00 20
             31 06 1F 00 5B 20 2B 06 1F 00 5B 5C 20 24 06 1F 00 5B 5C 5C 1C 1C
             06 1F 00 5B 78 2F 12 26 4D 12 AE 24 4E 12 AE 25 4F 0A 1B 0C AE 24
             50 08 AE 24 51 04 65 4C 2F 11 06 1F 00 78 06 20 00 5C 0B 20 00 15
             5C 5B F8 38 01 72 8E 38 01 72 8E 38 01 72 8E 38 01 72 8E A3 26 52
             2E AD 9E 1B 02 AC 9F 14 40 02 1B 24 00 1B 80 4B 65 2A 65 2B 65 2C
             B5 B0 70 26 65 2D 63 65 2E 64 65 2F 68 2E 0A 6E 0A 31 AB 34 16 0A
             1B 82 96 00 42 02 B1 65 53 B5 7B 02 7B 02 84 12 65 2A 65 54 65 2C
             B3 B3 B3 7B 03 65 55 B6 7B 02 7B 02 65 2D 92 0B FF B8 65 56 B2 7B
             02 61 01 14 65 57 EF B8 03 58 7C 02 7B 01 65 2E 64 65 2F 68 30 0A
             6E 0C 31 AB 34 65 2A 65 2B 65 2C BB B1 70 26 65 2D BC 65 2E 64 65
             2F 68 2E 0A 6E 0A 31 AB 34 92 06 FF 7F 16 0A 1B 82 2F 9E 26 59 10
             03 5A 1B 0D 03 5B 1B 09 03 5C 1B 05 03 5D 1B 01 00 14 38 01 72 8E
             38 01 72 8E 38 01 72 8E AE 65 5E B2 65 5F B3 7B 02 7B 03 7B 02 84
             0F 65 2A 65 54 65 2C B0 B0 7B 02 65 60 B3 7B 02 7B 02 65 2D 63 65
             57 EF B5 03 61 7C 02 7B 01 65 2E 64 65 2F 68 2D 0A 6E 0C 31 A8 34
             65 2A 65 2B 65 2C B8 B0 70 26 65 2D B9 65 2E 64 65 2F 68 2B 0A 6E
             0A 31 A8 34 16 07 1B 81 B4 16 03 1B 81 AF AE 8E 04 03 B6 2F 11 01
             08 92 07 80 B5 A5 26 62 24 7E 00 1B 08 03 63 F8 1B 03 03 64 F8 9D
             FF 06 23 00 5C 0B 23 00 B4 06 18 02 34 FC B6 B1 7B 02 84 10 1B 80
             83 7D 00 92 06 80 8B A5 26 65 09 7E 00 1B 11 03 63 F8 1B 0C 7D 00
             93 05 80 7B 1B 80 7C 03 64 F8 9D FE A5 F9 06 23 00 5C 0B 23 00 B4
             06 18 02 34 FB 14 38 01 8C 5D 80 4C 38 01 72 8E AC B1 7B 02 84 11
             9D FC 16 01 1B 3C 65 66 6F 21 65 22 04 14 1B 80 67 B3 24 63 71 B2
             24 63 6D 03 64 1B 80 4A 7E 05 06 23 00 5C 0B 23 00 65 35 06 18 02
             34 FA 14 38 01 8C 5D 0E 38 01 72 8E AC B0 7B 02 84 11 9D FB 16 01
             06 17 00 34 09 08 93 07 FF 4B 93 06 FF 75 92 05 04 B4 24 35 47 B5
             BC 80 A0 0F B3 24 64 FF B0 B2 24 64 FF AB 03 63 14 92 08 80 84 AC
             25 64 0D 65 67 6F 21 65 22 A8 14 32 8A 1B 81 AC C7 FD B7 B2 7B 02
             84 11 92 06 80 6B C6 FB 93 07 80 96 1B 80 65 03 3F 1B 80 6C AE 24
             68 77 03 69 1B 80 63 03 6B 1B 80 5E 9D 26 6D 1E 65 6E 03 6F 1B 08
             03 70 1B 0C 65 6E 03 70 14 BA 61 02 1B 04 03 6F 14 AA 14 61 02 1B
             80 4F 00 1B 80 4B 03 72 1B 80 5D 06 19 00 5C 0B 19 00 16 01 1B FB
             66 03 29 FF 06 0C 00 74 AC 24 74 69 AC 24 75 65 16 01 1B FB 52 93
             06 FF 95 93 07 2E AC 24 63 FF 9B AE 24 6A FF 9F 03 6C 14 B1 38 01
             8D 5D 07 B1 71 5A 8E 90 FF 94 AC B9 B3 61 03 14 F1 AD 03 71 7C 02
             04 18 74 04 0F 34 16 02 B7 AD 24 63 FF A0 03 73 14 B9 B2 7B 03 7B
             02 84 0F 16 09 16 03 65 29 06 0D 01 34 1C FF 99 16 01 65 76 AF 32
             47 37 00 FA 1D 0B 65 77 A0 7A 06 18 0B 5D 0B 17 0B 63 06 18 0B 5D
             0B 17 0B 65 2A 65 2B 65 2C B3 72 47 65 2D B4 72 47 65 2E 63 65 2F
             B6 65 30 B7 6E 0C 31 A7 34 68 05 00 72 47 63 1B 19 87 01 00 14 89
             78 0D 68 19 0B 65 79 AE 65 7A AF 32 2D 16 01 AC A9 34 83 01 AD 8D
             91 63 16 0A 1B 80 5D AC 06 06 02 74 38 01 72 8E 65 2A 65 2B 65 2C
             AF B1 7B 02 7B 01 65 2D 63 65 2E 63 65 2F 68 1C 0A 65 30 64 6E 0C
             31 A3 34 65 7B AD 65 7C AF 7B 02 7B 03 06 14 0B 5D 0B 13 0B EF 65
             70 AE 7B 02 03 7D 7C 02 A2 34 14 A3 34 16 04 1B 11 65 7E 6F 21 65
             22 06 13 00 78 6B 00 33 03 1E 16 02 06 0F 00 21 F8 FA 68 0F 0C 38
             06 03 7F F9 32 53 0B 0F 0C 14 72 45 DB 91 01 31 0D 65 80 80 6F 21
             65 22 0E 00 14 33 02 1E 06 0F 0C 1D 0B F3 68 10 01 06 11 0C 7C 02
             84 04 01 02 06 11 09 1C 22 06 11 08 1D 1D 1B 11 06 12 08 5C 0B 12
             08 AC 84 01 16 01 06 11 08 1D 0A 06 11 08 78 AC 88 78 67 16 01 63
             68 12 08 63 1B 2E 9E 5B 1B 80 66 65 80 87 AE 33 00 17 1B 80 5C 65
             80 88 A0 1B 80 67 87 01 00 93 02 09 65 79 AD 65 80 81 64 32 2D AC
             89 80 82 02 7E 02 83 01 AD 8D 91 64 16 03 68 11 08 32 47 0B 11 08
             06 11 08 1D 80 CB 06 11 08 78 06 12 08 5C 0B 12 08 AC 6F 78 AD 6F
             80 83 AE 6F 80 84 AF 6F 80 85 B0 6F 80 86 AE 24 54 FF 9B AE 24 2B
             FF 9B 00 14 AF 24 54 FF 9E AF 25 2B 80 48 65 7B 65 76 A1 37 00 7A
             61 01 1B 3D AC AE C0 71 A0 80 A0 12 B3 AD AF 95 0A 31 A0 1B 80 5A
             B4 88 80 8A 69 AC AE BF 31 A0 1B 80 57 65 2A 65 2B 65 2C B1 B3 70
             28 65 2D B4 6E 06 31 84 0A 92 07 5E AC AE C0 31 A0 1B 80 43 00 14
             B3 6F 80 89 92 06 5A 65 2A B2 65 2C B3 65 2D B4 6E 06 31 84 0A 93
             07 26 14 AE 95 09 71 A0 31 A9 B4 89 80 8A 10 AC BF 80 A0 12 B3 AD
             A6 5C 14 71 A0 31 A9 1B 10 AC 04 12 14 80 A0 11 1B 07 AC 04 13 14
             80 A0 12 16 09 06 11 08 1C FF 35 AD 81 47 01 65 2A 65 2B 65 2C 65
             80 8B 65 80 8C 6B 03 73 00 27 63 68 16 05 38 06 72 53 1B 0D 94 00
             AC 03 80 8D 7A 84 02 16 01 83 00 9D 21 70 16 01 AC 80 A2 00 63 68
             17 06 38 06 72 53 1B 0D 94 00 AC 03 80 8E 7A 84 02 16 01 83 00 9D
             21 70 16 01 AC 80 A2 00 73 03 23 65 2D 68 16 07 72 47 6E 06 31 84
             01 63 68 12 0B 38 07 32 4F 0B 11 0B 1B 14 B4 06 12 0B 78 06 13 0B
             5C 0B 13 0B 7B 01 82 02 24 08 83 09 A6 20 11 06 11 0B 20 0C 94 09
             06 12 0B 78 03 80 8F 34 1C 58 65 80 90 65 80 91 F6 68 14 01 B1 72
             47 65 80 90 65 80 92 65 80 93 93 11 08 65 1F BE 32 47 7A 61 01 14
             65 80 94 93 12 08 65 1F BF 32 47 7A 61 01 14 B7 72 47 65 1F C0 32
             47 7A 70 80 95 06 1D 0B 1D 0A 65 1F 68 1E 0B 32 47 7A 61 01 14 65
             80 96 65 80 97 01 02 1B 13 94 00 65 7B AD 65 80 98 AF 7B 02 7B 03
             84 02 16 01 83 00 9D 21 6A 16 01 AC 80 A2 00 65 80 90 65 80 99 C4
             32 47 7C 02 7B 01 33 02 23 7C 02 33 02 23 7A 33 02 23 7A 33 02 23
             7A 7B 03 70 80 95 7B 03 61 03 16 0A 12 02 16 02 11 19 03)
      SYSTEM::*WHOLE* 1. 0. SYSTEM::*HELPVARS* SYSTEM::*LAST-IT*
      #Y(SYSTEM::EXPAND-LOOP-NEXT-KW
         #27Y(00 00 00 00 00 00 00 00 00 01 69 01 01 32 02 1F 08 07 01 01 78 2F
              01 19 01 19 01)
         COMMON-LISP::NIL SYSTEM::LOOP-KEYWORDP)
      #Y(SYSTEM::EXPAND-LOOP-PARSE-KW-P
         #39Y(00 00 00 00 01 00 00 00 00 02 69 01 01 32 02 1F 14 07 01 01 78 6F
              01 9F 5A 1F 0A 07 01 01 5C 0C 01 01 02 19 02 19 02)
         COMMON-LISP::NIL SYSTEM::LOOP-KEYWORDP)
      #Y(SYSTEM::EXPAND-LOOP-PARSE-FORM
         #32Y(00 00 00 00 01 00 00 00 00 02 07 01 01 21 03 AD 2F 01 07 01 01 78
              07 01 01 5C 0C 01 01 15 19 02)
         COMMON-LISP::NIL SYSTEM::LOOP-SYNTAX-ERROR)
      #Y(SYSTEM::EXPAND-LOOP-PARSE-FORM-OR-IT
         #54Y(00 00 00 00 01 00 00 00 00 02 07 01 01 21 03 AD 2F 01 07 01 01 78
              07 01 01 5C 0C 01 01 AC 6F 02 24 03 0A 15 19 02 02 0F 05 0E 04 19
              03 0E 04 1C 75 DD 2F 01 19 03)
         COMMON-LISP::NIL SYSTEM::LOOP-SYNTAX-ERROR SYSTEM::LOOP-KEYWORDP
         SYSTEM::IT SYSTEM::*LAST-IT* SYSTEM::*USED-IT*)
      #Y(SYSTEM::EXPAND-LOOP-PARSE-VAR-TYPESPEC
         #110Y(00 00 00 00 00 00 00 00 00 01 07 01 01 20 38 07 01 01 78 07 01
               01 5C 0C 01 01 63 07 01 01 20 21 07 01 01 78 6F 04 93 00 25 AC
               25 08 3D 07 01 01 5C 0C 01 01 E2 07 00 03 34 F9 16 01 AD AD 30
               09 F8 AD AD 40 02 19 03 DB 6F 02 DD 33 01 1E 07 01 01 78 07 01
               01 5C 0C 01 01 6A 01 14 88 05 5B E0 6F 02 DD B0 B0 2D 04 07 1B
               50 16 01 1B 53)
         COMMON-LISP::NIL "~S: missing variable." SYSTEM::TEXT
         COMMON-LISP::LOOP SYSTEM::LOOP-KEYWORDP SYSTEM::SIMPLE-TYPE-P
         "~S: After ~S, ~S is interpreted as a type specification"
         COMMON-LISP::WARN SYSTEM::OF-TYPE SYSTEM::DESTRUCTURE-TYPE)
      #Y(SYSTEM::EXPAND-LOOP-PARSE-PROGN
         #43Y(00 00 00 00 00 00 00 00 00 01 63 1B 0D 07 01 01 78 07 01 01 5C 0C
              01 01 84 00 07 01 01 20 07 07 01 01 78 89 01 67 AC 32 47 19 02)
         COMMON-LISP::NIL SYSTEM::LOOP-KEYWORDP)
      #Y(SYSTEM::EXPAND-LOOP-PARSE-UNCONDITIONAL
         #56Y(00 00 00 00 00 00 00 00 00 01 07 00 01 74 9D 26 01 23 07 01 01 5C
              0C 01 01 DC 07 00 05 34 5D 19 02 07 01 01 5C 0C 01 01 DD 69 01 02
              AE 07 00 04 74 61 03 19 02 00 19 02)
         COMMON-LISP::NIL
         #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (COMMON-LISP::RETURN . 16.)
            (SYSTEM::DOING . 1.) (COMMON-LISP::DO . 1.))
         COMMON-LISP::PROGN COMMON-LISP::RETURN-FROM)
      #Y(SYSTEM::EXPAND-LOOP-PARSE-CLAUSE
         #642Y(00 00 00 00 00 00 00 00 00 01 07 00 06 34 1E 82 6F 07 00 01 74
               9D 26 01 82 63 07 01 01 5C 0C 01 01 AC 07 00 04 74 63 9F 26 02
               80 A5 C8 1B 80 A2 C9 1B 80 9E CA 1B 80 9A E0 2F 07 93 01 80 B7
               14 69 01 04 38 03 8C B9 0F AD AE 72 8A 72 8E 69 01 04 31 B7 0C
               01 04 5B 79 38 01 72 8E AF 07 01 06 5D 0C 01 06 AD 07 01 06 5D
               0C 01 06 E2 AD A1 26 09 0A CF 1B 01 D0 14 B3 61 02 1B 26 E6 E7
               B2 E8 E9 2E 10 14 EB EC 70 13 B7 33 06 1F EF B2 EF F0 B5 7B 02
               B4 61 03 1B 1F EF B3 EF B7 B5 61 03 1B 27 A3 14 7B 02 7B 01 EE
               B2 B2 24 03 5F EF B2 F1 F2 B5 B5 7B 03 61 02 14 7B 03 B3 24 03
               5A EF B3 F1 EF B8 B6 7B 03 61 02 14 7B 03 7B 04 61 03 19 07 00
               14 E0 07 00 02 34 1D 18 07 01 01 20 FF 58 07 01 01 78 07 01 01
               5C 0C 01 01 6A 01 14 8F 04 FF 46 92 01 FF 49 07 01 03 1C 07 38
               01 32 8E 0C 01 03 F9 14 07 01 06 5D 0C 01 06 F3 AE 7B 02 07 01
               0D 5D 0C 01 0D F4 AE AE B1 B1 7B 03 61 03 19 05 E0 2F 07 93 00
               80 6E 1B 80 80 07 01 01 78 07 01 01 5C 0C 01 01 15 1B 0F 93 00
               6F 07 01 01 5C 0C 01 01 F6 07 00 03 34 14 A1 26 1D 08 65 1E 65
               1F AE 61 03 F8 65 20 AD B0 7B 03 07 01 08 5D 0C 01 08 16 02 1B
               80 5A 07 01 01 5C 0C 01 01 AC 07 00 04 74 63 E0 07 00 02 34 1D
               18 07 01 01 20 FF A0 07 01 01 78 07 01 01 5C 0C 01 01 6A 00 14
               8F 04 FF 8E 92 00 15 07 01 05 1C 07 38 01 32 8E 0C 01 05 F8 14
               07 01 0D 5D 0C 01 0D 07 01 01 20 11 07 01 01 78 6F 1B 93 00 FF
               7F AC 24 1C FF 7A 16 01 9F 26 21 12 AC 07 01 06 5D 0C 01 06 1B
               08 AC 07 01 07 5D 0C 01 07 9F 26 22 27 65 23 AE 65 24 AF 61 02
               1B 18 F4 AD 65 25 AF A2 1B 0D F4 AD 03 26 1B 04 F4 AD 03 27 14
               B0 A1 14 61 03 14 61 03 19 04 00 19 04 65 2D B2 61 02 1B 80 64
               E2 B1 AE 61 03 19 08 07 01 01 5C 0C 01 01 AC 07 00 03 74 38 01
               72 8E 63 9E 10 28 00 10 29 B5 07 00 08 74 0E 29 FF 15 12 02 14
               63 65 2A 07 00 02 34 1D 17 A0 10 28 00 10 29 65 2A 07 00 08 74
               92 09 02 0E 29 09 09 15 12 02 F8 65 2B 07 00 02 34 93 02 0A AF
               B1 7B 02 7B 01 A1 FD 6A 03 EE B2 24 2C FF 95 A2 14 AF AF 7B 04
               92 03 FF 93 15 19 07 00 19 02 19 01)
         COMMON-LISP::NIL
         #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ
            (COMMON-LISP::UNLESS . 508.) (COMMON-LISP::WHEN . 508.)
            (COMMON-LISP::IF . 508.) (SYSTEM::MINIMIZING . 335.)
            (SYSTEM::MINIMIZE . 335.) (SYSTEM::MAXIMIZING . 335.)
            (SYSTEM::MAXIMIZE . 335.) (SYSTEM::SUMMING . 335.)
            (SYSTEM::SUM . 335.) (SYSTEM::COUNTING . 335.)
            (COMMON-LISP::COUNT . 335.) (SYSTEM::NCONCING . 2.)
            (COMMON-LISP::NCONC . 2.) (SYSTEM::APPENDING . 2.)
            (COMMON-LISP::APPEND . 2.) (SYSTEM::COLLECTING . 2.)
            (SYSTEM::COLLECT . 2.))
         #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (SYSTEM::NCONCING . 10.)
            (COMMON-LISP::NCONC . 10.) (SYSTEM::APPENDING . 6.)
            (COMMON-LISP::APPEND . 6.) (SYSTEM::COLLECTING . 2.)
            (SYSTEM::COLLECT . 2.))
         COMMON-LISP::CONS COMMON-LISP::REVAPPEND COMMON-LISP::NRECONC
         SYSTEM::INTO SYSTEM::LOOP-SYNTAX-ERROR COMMON-LISP::LET
         #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ
            (COMMON-LISP::NRECONC . 48.) (COMMON-LISP::REVAPPEND . 4.)
            (COMMON-LISP::CONS . 1.))
         COMMON-LISP::LIST COMMON-LISP::COPY-LIST COMMON-LISP::TYPE-ERROR
         :DATUM :EXPECTED-TYPE
         (COMMON-LISP::MEMBER COMMON-LISP::CONS COMMON-LISP::REVAPPEND
          COMMON-LISP::NRECONC)
         SYSTEM::TYPE-ERROR-STRING SYSTEM::ACCUFUNCSYM
         (COMMON-LISP::CONS COMMON-LISP::REVAPPEND COMMON-LISP::NRECONC)
         SYSTEM::CASE-ERROR-STRING COMMON-LISP::IF COMMON-LISP::SETF
         COMMON-LISP::CDR COMMON-LISP::LAST COMMON-LISP::RPLACD
         SYSTEM::LIST-NREVERSE COMMON-LISP::SETQ SYSTEM::LOOP-KEYWORDP
         SYSTEM::OF-TYPE
         #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (SYSTEM::MINIMIZING . 1.)
            (SYSTEM::MINIMIZE . 1.) (SYSTEM::MAXIMIZING . 1.)
            (SYSTEM::MAXIMIZE . 1.))
         COMMON-LISP::OR COMMON-LISP::NULL COMMON-LISP::TYPE
         #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (SYSTEM::SUMMING . 11.)
            (SYSTEM::SUM . 11.) (SYSTEM::COUNTING . 11.)
            (COMMON-LISP::COUNT . 11.) (SYSTEM::MINIMIZING . 1.)
            (SYSTEM::MINIMIZE . 1.) (SYSTEM::MAXIMIZING . 1.)
            (SYSTEM::MAXIMIZE . 1.))
         #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (SYSTEM::MINIMIZING . 25.)
            (SYSTEM::MINIMIZE . 25.) (SYSTEM::MAXIMIZING . 19.)
            (SYSTEM::MAXIMIZE . 19.) (SYSTEM::SUMMING . 11.)
            (SYSTEM::SUM . 11.) (SYSTEM::COUNTING . 1.)
            (COMMON-LISP::COUNT . 1.))
         COMMON-LISP::WHEN COMMON-LISP::INCF COMMON-LISP::+ SYSTEM::MAX-IF
         SYSTEM::MIN-IF SYSTEM::*LAST-IT* SYSTEM::*USED-IT* SYSTEM::ELSE
         SYSTEM::END COMMON-LISP::UNLESS COMMON-LISP::NOT)
      #Y(SYSTEM::EXPAND-LOOP-PARSE-CLAUSES
         #47Y(00 00 00 00 01 00 00 00 00 02 63 1B 05 C7 FA 00 0F 03 07 00 07 74
              92 00 03 AF 2F 01 AC 84 01 16 01 DC 07 00 02 34 1C 65 DE AD 32 47
              5D 19 03)
         COMMON-LISP::NIL SYSTEM::LOOP-SYNTAX-ERROR COMMON-LISP::AND
         SYSTEM::*LAST-IT* COMMON-LISP::PROGN)
      #Y(SYSTEM::EXPAND-LOOP-NOTE-INITIALIZATION
         #54Y(00 00 00 00 01 00 00 00 00 02 AD 88 01 09 AD 88 02 05 AD 2F 03 1F
              1D 07 01 0A 1D 06 DE AE DF 64 32 2D AD 89 03 04 02 0C 01 0B AD 07
              01 09 5D 0C 01 09 19 02 19 02)
         COMMON-LISP::NIL SYSTEM::LI-BINDINGS SYSTEM::LI-DECLSPECS
         SYSTEM::LI-ENDTEST-FORMS SYSTEM::LOOP-INITIALIZATION 6.)
      #Y(SYSTEM::EXPAND-LOOP-MAKE-ENDTEST
         #39Y(00 00 00 00 01 00 00 00 00 02 DB DC DD 63 DE 63 DF B4 7B 01 E0 63
              07 01 0C 5D 0C 01 0C 14 E1 69 01 0B 2D 0C 08 19 02)
         COMMON-LISP::NIL :SPECFORM COMMON-LISP::PROGN :BINDINGS :DECLSPECS
         :ENDTEST-FORMS :EVERYTIME :REQUIRES-STEPBEFORE SYSTEM::MAKE-LOOP-INIT)
      SYSTEM::NAMED SYSTEM::LOOP-SYNTAX-ERROR SYSTEM::LOOP-KEYWORDP
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (SYSTEM::REPEAT . 165.)
         (SYSTEM::AS . 165.) (SYSTEM::FOR . 165.) (SYSTEM::WITH . 165.)
         (SYSTEM::FINALLY . 137.) (SYSTEM::INITIALLY . 116.)
         (SYSTEM::THEREIS . 2.) (SYSTEM::NEVER . 2.) (SYSTEM::ALWAYS . 2.)
         (SYSTEM::UNTIL . 2.) (SYSTEM::WHILE . 2.))
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (SYSTEM::THEREIS . 60.)
         (SYSTEM::NEVER . 38.) (SYSTEM::ALWAYS . 20.) (SYSTEM::UNTIL . 11.)
         (SYSTEM::WHILE . 2.))
      COMMON-LISP::UNLESS ((COMMON-LISP::LOOP-FINISH)) COMMON-LISP::WHEN
      ((COMMON-LISP::LOOP-FINISH)) COMMON-LISP::RETURN-FROM ('COMMON-LISP::NIL)
      ('COMMON-LISP::NIL) COMMON-LISP::BLOCK COMMON-LISP::OR (COMMON-LISP::NIL)
      COMMON-LISP::PROGN
      "~S: ~A clauses should occur before the loop's main body" SYSTEM::TEXT
      COMMON-LISP::LOOP COMMON-LISP::WARN
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (SYSTEM::REPEAT . 1493.)
         (SYSTEM::AS . 93.) (SYSTEM::FOR . 93.) (SYSTEM::WITH . 2.))
      COMMON-LISP::= SYSTEM::DESTRUCTURE SYSTEM::DESTRUCTURE-VARS
      SYSTEM::DEFAULT-BINDINGS COMMON-LISP::AND :SPECFORM COMMON-LISP::LET
      :BINDINGS :DECLSPECS :EVERYTIME :REQUIRES-STEPBEFORE :DEPENDS-PRECEDING
      SYSTEM::MAKE-LOOP-INIT
      #Y(SYSTEM::EXPAND-LOOP-NOTE-INITIALIZATION
         #28Y(00 00 00 00 01 00 00 00 00 02 AD 89 01 04 02 0C 02 0B AD 07 00 01
              5D 0C 00 01 19 02)
         COMMON-LISP::NIL SYSTEM::LI-ENDTEST-FORMS)
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (SYSTEM::BEING . 334.)
         (SYSTEM::ACROSS . 236.) (COMMON-LISP::= . 164.) (SYSTEM::ON . 19.)
         (SYSTEM::IN . 19.))
      #'COMMON-LISP::CDR SYSTEM::BY COMMON-LISP::FUNCTION COMMON-LISP::ENDP
      ((COMMON-LISP::LOOP-FINISH)) SYSTEM::IN COMMON-LISP::CAR
      COMMON-LISP::FUNCALL SYSTEM::PREPOSITION SYSTEM::THEN (0.)
      COMMON-LISP::>= COMMON-LISP::LENGTH ((COMMON-LISP::LOOP-FINISH))
      COMMON-LISP::AREF COMMON-LISP::1+ SYSTEM::EACH COMMON-LISP::THE
      SYSTEM::BEING
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ
         (SYSTEM::EXTERNAL-SYMBOLS . 13.) (SYSTEM::INTERNAL-SYMBOLS . 13.)
         (SYSTEM::PRESENT-SYMBOLS . 13.) (SYSTEM::SYMBOLS . 13.)
         (SYSTEM::HASH-VALUES . 13.) (SYSTEM::HASH-KEYS . 13.)
         (SYSTEM::EXTERNAL-SYMBOL . 1.) (SYSTEM::INTERNAL-SYMBOL . 1.)
         (SYSTEM::PRESENT-SYMBOL . 1.) (COMMON-LISP::SYMBOL . 1.)
         (SYSTEM::HASH-VALUE . 1.) (SYSTEM::HASH-KEY . 1.))
      "~S: After ~S a plural loop keyword is required, not ~A"
      "~S: After ~S a singular loop keyword is required, not ~A" SYSTEM::OF
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ
         (SYSTEM::EXTERNAL-SYMBOLS . 254.) (SYSTEM::EXTERNAL-SYMBOL . 254.)
         (SYSTEM::INTERNAL-SYMBOLS . 254.) (SYSTEM::INTERNAL-SYMBOL . 254.)
         (SYSTEM::PRESENT-SYMBOLS . 254.) (SYSTEM::PRESENT-SYMBOL . 254.)
         (SYSTEM::SYMBOLS . 254.) (COMMON-LISP::SYMBOL . 254.)
         (SYSTEM::HASH-VALUES . 2.) (SYSTEM::HASH-VALUE . 2.)
         (SYSTEM::HASH-KEYS . 2.) (SYSTEM::HASH-KEY . 2.))
      SYSTEM::USING
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (SYSTEM::HASH-VALUES . 11.)
         (SYSTEM::HASH-VALUE . 11.) (SYSTEM::HASH-KEYS . 1.)
         (SYSTEM::HASH-KEY . 1.))
      SYSTEM::HASH-VALUE SYSTEM::HASH-VALUES SYSTEM::HASH-KEY SYSTEM::HASH-KEYS
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (SYSTEM::HASH-VALUES . 5.)
         (SYSTEM::HASH-VALUE . 5.) (SYSTEM::HASH-KEYS . 1.)
         (SYSTEM::HASH-KEY . 1.))
      SYSTEM::HASH-TABLE-ITERATOR COMMON-LISP::MULTIPLE-VALUE-BIND
      SYSTEM::HASH-TABLE-ITERATE COMMON-LISP::IGNORE :ENDTEST-FORMS
      ((COMMON-LISP::LOOP-FINISH))
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ
         (SYSTEM::EXTERNAL-SYMBOLS . 13.) (SYSTEM::EXTERNAL-SYMBOL . 13.)
         (SYSTEM::INTERNAL-SYMBOLS . 9.) (SYSTEM::INTERNAL-SYMBOL . 9.)
         (SYSTEM::PRESENT-SYMBOLS . 5.) (SYSTEM::PRESENT-SYMBOL . 5.)
         (SYSTEM::SYMBOLS . 1.) (COMMON-LISP::SYMBOL . 1.))
      (:INTERNAL :EXTERNAL :INHERITED) (:INTERNAL :EXTERNAL) (:INTERNAL)
      (:EXTERNAL) SYSTEM::PACKAGE-ITERATOR COMMON-LISP::QUOTE
      SYSTEM::PACKAGE-ITERATE ((COMMON-LISP::LOOP-FINISH))
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (SYSTEM::DOWNFROM . 10.)
         (SYSTEM::UPFROM . 5.) (SYSTEM::FROM . 1.))
      SYSTEM::UP SYSTEM::DOWN
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (SYSTEM::ABOVE . 19.)
         (SYSTEM::DOWNTO . 19.) (SYSTEM::BELOW . 5.) (SYSTEM::UPTO . 5.)
         (SYSTEM::TO . 1.))
      "~S: questionable iteration direction after ~A"
      "~S: specifying ~A requires FROM or DOWNFROM" SYSTEM::BELOW
      COMMON-LISP::> SYSTEM::ABOVE COMMON-LISP::<= COMMON-LISP::<
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (COMMON-LISP::< . 21.)
         (COMMON-LISP::<= . 11.) (COMMON-LISP::> . 7.) (COMMON-LISP::>= . 1.))
      COMMON-LISP::NOT COMMON-LISP::MINUSP COMMON-LISP::PLUSP
      ((COMMON-LISP::LOOP-FINISH)) COMMON-LISP::+ COMMON-LISP::- SYSTEM::FOR
      SYSTEM::AS #.#'COMMON-LISP::APPEND COMMON-LISP::PSETQ
      SYSTEM::LI-EVERYTIME SYSTEM::LOOP-INITIALIZATION 5. COMMON-LISP::SETQ
      COMMON-LISP::1- ((COMMON-LISP::LOOP-FINISH))
      "~S: illegal syntax near ~S in ~S" #.#'COMMON-LISP::EQUAL
      "~S: ambiguous result of loop ~S" 8. SYSTEM::LI-DEPENDS-PRECEDING
      SYSTEM::LI-REQUIRES-STEPBEFORE SYSTEM::LI-SPECFORM SYSTEM::LI-BINDINGS
      SYSTEM::LI-DECLSPECS #.#'COMMON-LISP::FIRST
      COMMON-LISP::MULTIPLE-VALUE-SETQ SYSTEM::LI-ENDTEST-FORMS
      SYSTEM::LI-LATER-DEPEND COMMON-LISP::LIST
      #Y(SYSTEM::EXPAND-LOOP-1
         #15Y(00 00 00 00 01 00 00 00 00 02 AD C5 5D 19 02) (COMMON-LISP::NIL))
      (COMMON-LISP::NIL) (0.)
      #Y(SYSTEM::EXPAND-LOOP-FORM-EQ
         #100Y(00 00 00 00 02 00 00 00 00 03 AE AE 31 FF 1E 80 51 AE 32 02 1F
               80 4B AD 32 02 1F 80 45 AE 72 45 AE 72 45 31 FF 1F 3B 94 02 9F
               5B 22 2B AE 72 45 AC 24 00 04 AC 25 01 18 16 01 94 02 AC 24 02
               04 AC 25 03 0C 16 01 94 01 AC 24 02 0A AC 24 03 06 00 16 01 3F
               19 03 16 01 DE 95 03 95 03 33 01 29 19 03 19 03)
         1. 3. COMMON-LISP::SETQ COMMON-LISP::PSETQ #.#'COMMON-LISP::EQ)
      COMMON-LISP::MACROLET
      ((COMMON-LISP::LOOP-FINISH COMMON-LISP::NIL (SYSTEM::LOOP-FINISH-ERROR)))
      ((COMMON-LISP::LOOP-FINISH COMMON-LISP::NIL
        '(COMMON-LISP::GO SYSTEM::END-LOOP)))
      COMMON-LISP::TAGBODY SYSTEM::BEGIN-LOOP SYSTEM::WRAP-INITIALIZATIONS
      (COMMON-LISP::GO SYSTEM::BEGIN-LOOP) SYSTEM::END-LOOP
      SYSTEM::LIST-NREVERSE
      ((COMMON-LISP::LOOP-FINISH COMMON-LISP::NIL (SYSTEM::LOOP-FINISH-WARN)
        '(COMMON-LISP::GO SYSTEM::END-LOOP)))))
#Y(#:TOP-LEVEL-FORM-5-18
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 3E 19 01)
   COMMON-LISP::LOOP SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::LOOP
      #49Y(00 00 00 00 01 00 01 00 00 08 95 02 99 00 AD 90 00 28 18 38 01 72 8E
           DC 63 DD AF B1 DE B2 7B 02 7B 01 33 02 23 7C 02 61 03 19 05 AF AD 30
           01 19 04)
      SYSTEM::LOOP-KEYWORDP SYSTEM::EXPAND-LOOP COMMON-LISP::BLOCK
      COMMON-LISP::TAGBODY COMMON-LISP::GO)
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-5-19
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 3E 19 01)
   COMMON-LISP::LOOP-FINISH SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::LOOP-FINISH
      #31Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 91 01 31 05 AE 2F 01 19 03
           DC 6F 03 AF DE 33 02 1E)
      1. SYSTEM::MACRO-CALL-ERROR "~S is possible only from within ~S"
      SYSTEM::TEXT COMMON-LISP::LOOP)
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-5-20
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::LOOP-FINISH-WARN SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::LOOP-FINISH-WARN
      #18Y(00 00 00 00 00 00 00 00 00 01 DA 6F 01 DC 30 03 19 01)
      "Use of ~S in FINALLY clauses is deprecated because it can lead to infinite loops."
      SYSTEM::TEXT (COMMON-LISP::LOOP-FINISH) COMMON-LISP::WARN))
#Y(#:TOP-LEVEL-FORM-5-21
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::LOOP-FINISH-ERROR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::LOOP-FINISH-ERROR
      #17Y(00 00 00 00 00 00 00 00 00 01 DA 6F 01 DC 33 01 1E)
      "~S is not possible here" SYSTEM::TEXT (COMMON-LISP::LOOP-FINISH)))
#Y(#:TOP-LEVEL-FORM-6
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::MAX-IF SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::MAX-IF
      #23Y(00 00 00 00 02 00 00 00 00 03 92 01 03 9F 19 03 AE AE 33 01 34 19
           03)))
#Y(#:TOP-LEVEL-FORM-7
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::MIN-IF SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::MIN-IF
      #23Y(00 00 00 00 02 00 00 00 00 03 92 01 03 9F 19 03 AE AE 33 01 35 19
           03)))
