(SYSTEM::VERSION '(19990501.))
#0Y UTF-8
#Y(#:TOP-LEVEL-FORM-1 #17Y(00 00 00 00 00 00 00 00 00 01 DA 38 03 31 DE 19 01)
   "SYSTEM"
  )
#Y(#:TOP-LEVEL-FORM-2
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   SETF-SYMBOL REMOVE-OLD-DEFINITIONS
   #Y(SETF-SYMBOL
      #36Y(00 00 00 00 01 00 00 00 00 02 DA AE 72 87 92 00 0E C6 F8 DC B0 72 89
           DD 73 05 13 31 C9 19 02 14 31 CB 1B 6E
          )
      "(SETF " "#" ":" ")"
  )  )
#Y(#:TOP-LEVEL-FORM-3
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   GET-SETF-SYMBOL REMOVE-OLD-DEFINITIONS
   #Y(GET-SETF-SYMBOL
      #48Y(00 00 00 00 01 00 00 00 00 02 AD DA 38 01 32 81 1E 1C AD DB 38 01 8F
           81 0B DC 01 02 6E 03 03 DE AF 2D 03 05 AD 6F 06 AE DA AE 32 85 19 03
           19 02
          )
      SETF-FUNCTION SETF-EXPANDER
      "The function (~S ~S) is hidden by a SETF expander." LANGUAGE SETF WARN
      SETF-SYMBOL
  )  )
#Y(#:TOP-LEVEL-FORM-4
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   GET-FUNNAME-SYMBOL REMOVE-OLD-DEFINITIONS
   #Y(GET-FUNNAME-SYMBOL
      #23Y(00 00 00 00 01 00 00 00 00 02 9E 20 07 9E 5C 78 2F 00 19 02 9E 19 02
          )
      GET-SETF-SYMBOL
  )  )
#Y(#:TOP-LEVEL-FORM-5
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   GET-SETF-EXPANSION REMOVE-OLD-DEFINITIONS
   #Y(GET-SETF-EXPANSION
      #337Y(00 00 00 00 01 00 01 00 00 08 3B 01 06 01 02 82 02 00 01 9F 20 1B
            94 02 8F 03 16 94 02 AE C5 5F 14 8B 01 0D 94 02 DC 38 01 72 81 92
            00 80 5E 16 01 AE AF AF 80 58 03 23 5A AE 8E 03 80 CD 9F 20 06 94
            02 8E 03 80 D7 DF E6 01 02 6E 03 07 B0 33 01 1F 38 01 72 8D 01 02
            95 06 1B 0C 38 01 72 8D 84 02 94 00 84 01 83 00 9D 21 71 AD 81 46
            01 AE AE B1 7B 01 B3 B2 B4 7B 01 33 02 23 7A 94 0B A4 7A 40 05 19
            08 95 01 B1 B1 36 02 19 05 14 8E 03 41 94 00 AC 24 03 6E 01 03 DE
            95 08 63 1B 80 41 7D 06 C9 FA 93 06 23 1B 25 DF E0 01 02 6E 03 07
            AE 94 0D 33 02 1F AC 8F 8A 6F AC 84 03 1B 1E 87 01 00 AE B3 8C FE
            59 92 06 04 AE 8E 93 68 38 01 72 8D AC 84 06 AD 84 05 AC 84 04 16
            01 85 02 83 01 AD 8D 91 5A 16 03 94 07 AD 32 46 5D F8 A1 5C 78 38
            01 71 9C E2 70 09 AF 72 46 AF 72 46 AE A5 5C 79 B1 A2 77 01 B1 40
            05 19 09 38 01 72 8D 01 02 AE 7B 01 E4 B3 B1 7B 03 B3 40 05 19 04
            38 01 72 8D 01 02 95 05 1B 0C 38 01 72 8D 84 02 94 00 84 01 83 00
            9D 21 71 AD 81 46 01 AE AE B1 7B 01 E5 94 0A 7B 02 B3 A4 7C 02 94
            0A A4 7A 40 05 19 07
           )
      1. GLOBAL-IN-FENV-P SETF-EXPANDER -5. 0. SOURCE-PROGRAM-ERROR
      "The argument ~S to ~S should be a keyword." LANGUAGE #.#'GENSYM MAP-INTO
      SETQ SETF "Argument ~S is not a SETF place."
  )  )
#Y(#:TOP-LEVEL-FORM-6
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   GET-SETF-METHOD-MULTIPLE-VALUE REMOVE-OLD-DEFINITIONS
   #Y(GET-SETF-METHOD-MULTIPLE-VALUE
      #16Y(00 00 00 00 00 00 00 00 01 16 99 00 9F 9B 00 02) GET-SETF-EXPANSION
  )  )
#Y(#:TOP-LEVEL-FORM-7
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   GET-SETF-METHOD REMOVE-OLD-DEFINITIONS
   #Y(GET-SETF-METHOD
      #52Y(00 00 00 00 01 00 01 00 00 08 3B 01 06 01 02 82 02 00 01 AE AE 30 00
           42 05 9F 20 0D 9F 5C 1C 09 B0 B0 B0 B0 B0 40 05 19 08 DB DC 01 02 6E
           03 03 B5 33 01 1F
          )
      GET-SETF-EXPANSION SOURCE-PROGRAM-ERROR
      "SETF place ~S produces more than one store variable." LANGUAGE
  )  )
#Y(#:TOP-LEVEL-FORM-8
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   SIMPLE-ASSIGNMENT-P REMOVE-OLD-DEFINITIONS
   #Y(SIMPLE-ASSIGNMENT-P
      #58Y(00 00 00 00 02 00 00 00 00 03 AD 72 44 DA 33 01 2D 1F 25 AE 32 01 1F
           20 94 02 C6 5A 1F 1A AE 72 44 DC 33 01 2D 1F 11 9F 5C 78 32 03 1F 0A
           9F 5C 5C 78 94 02 30 03 19 03 19 03
          )
      1. SETQ 3. SIMPLE-USE-P
  )  )
#Y(#:TOP-LEVEL-FORM-9
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   SIMPLE-USE-P REMOVE-OLD-DEFINITIONS
   #Y(SIMPLE-USE-P
      #46Y(00 00 00 00 02 00 00 00 00 03 AE 9F 5A 1E 1D AE 32 01 1F 18 94 02 C5
           5A 1F 12 AE 72 44 DB 33 01 2D 1F 09 9F 5C 5C 78 AE 29 02 05 5E 19 03
          )
      THE 3.
  )  )
#Y(#:TOP-LEVEL-FORM-10
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   DOCUMENTATION REMOVE-OLD-DEFINITIONS
   #Y(DOCUMENTATION
      #41Y(00 00 00 00 02 00 00 00 00 03 AE 89 00 0F AE 6F 05 E0 38 01 72 81 AE
           38 01 32 82 19 03 DB DC 01 02 6E 03 03 DE B1 33 02 1F
          )
      FUNCTION-NAME-P ERROR "~S: first argument ~S is illegal, not a symbol"
      LANGUAGE DOCUMENTATION GET-FUNNAME-SYMBOL DOCUMENTATION-STRINGS
  )  )
#Y(#:TOP-LEVEL-FORM-11
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   %SET-DOCUMENTATION REMOVE-OLD-DEFINITIONS
   #Y(%SET-DOCUMENTATION
      #143Y(00 00 00 00 03 00 00 00 00 04 AF 89 00 1D AF 2F 05 FB 93 01 22 AF
            E0 38 01 72 81 AF AF 6E 03 08 93 00 05 B0 E0 AE 32 85 9F 19 05 DB
            DC 01 02 6E 03 03 DE B2 33 02 1F AF E0 38 01 72 81 AF 38 01 32 82
            1F 80 48 AF E0 38 01 72 81 AC 63 1B 34 DB E1 01 02 6E 03 03 33 00
            1F 79 9F 5C 79 31 A8 16 02 1B 25 92 00 73 9F 5C 5C FA B2 E0 B0 32
            85 16 02 1B 15 9E 5C 20 58 94 01 A3 22 67 9E 5C 79 9F F9 6A 01 9E
            21 6D 16 02 16 01 00 19 04 19 04
           )
      FUNCTION-NAME-P ERROR "~S: first argument ~S is illegal, not a symbol"
      LANGUAGE DOCUMENTATION GET-FUNNAME-SYMBOL DOCUMENTATION-STRINGS
      "REMF: property list with an odd length" %PUTF
  )  )
#Y(#:TOP-LEVEL-FORM-12
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01) PUSH
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(PUSH
      #135Y(00 00 00 00 01 00 01 00 00 08 3D 01 AE 72 44 DA 90 01 2E 27 9F 5C
            78 A0 5C 5C 78 AC B0 30 02 42 05 AD AF 8A 03 1A DF B1 B1 73 01 17
            AF 72 44 38 01 71 9C E0 70 07 63 B1 AE 1B 2D AE 2F 01 19 03 DE B3
            AE 7B 03 94 03 AF 38 03 31 AA 19 0A 16 03 1B 1B 94 01 9E 20 77 94
            01 AD DE AF AF 61 03 7A 84 04 16 02 83 01 83 00 9E 21 67 16 02 AC
            80 A2 00 B0 38 03 71 B0 E2 B2 B7 E3 B2 E2 B3 B6 B4 7B 04 7B 03 61
            04 19 0D
           )
      3. MACRO-CALL-ERROR GET-SETF-EXPANSION SIMPLE-ASSIGNMENT-P CONS #.#'LIST
      #.#'GENSYM MAP-INTO MULTIPLE-VALUE-BIND LET*
  )  )
#Y(#:TOP-LEVEL-FORM-13
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   DEFINE-SETF-EXPANDER REMOVE-OLD-DEFINITIONS MACRO
   #Y(DEFINE-SETF-EXPANDER
      #269Y(00 00 00 00 01 00 01 00 00 08 3D 01 AE 72 44 DA 90 01 2F 80 E4 9F
            5C 78 A0 5C 5C 78 A1 5C 5C 79 AE 8F 03 80 D9 AC 64 B2 31 5E 42 03
            92 02 02 CA FA E0 B2 72 89 73 02 13 71 C9 B1 AD 30 07 42 02 CD 10
            09 CD 10 0A 00 10 0B 00 10 0C 00 10 0D 00 10 0E BF E9 C2 EA 2D 04
            11 92 13 03 EC 84 16 EA 6F 13 EE 6B 0C 72 46 93 19 06 EF 04 1A 7A
            61 01 14 6B 0D F0 66 20 04 1E 7C 02 7B 01 33 03 23 7C 02 93 01 12
            F1 AE F2 F3 F4 F5 66 22 7B 02 03 1C 7C 04 AF 61 04 F8 F7 65 1E 65
            1F 63 65 20 F5 66 22 7B 02 03 21 7C 02 65 22 66 1C EA 92 1C 02 03
            23 14 7B 02 92 1C 80 51 03 24 14 B5 7B 01 33 02 23 7C 03 65 25 F5
            66 24 7B 02 65 26 65 27 65 28 65 29 66 22 7B 02 7B 03 7B 04 65 2A
            F5 66 25 7B 02 65 2B F5 66 22 7B 02 7B 04 F5 66 25 7B 02 7B 07 61
            03 16 02 12 06 19 0C AE 2F 01 19 03 DC DD 01 02 6E 03 04 B0 33 01
            1F 00 1B FF AD
           )
      3. MACRO-CALL-ERROR SOURCE-PROGRAM-ERROR
      "The name of the access function must be a symbol, not ~S" LANGUAGE (NIL)
      "SETF-" REMOVE-ENV-ARG 0. %ARG-COUNT %MIN-ARGS %RESTP %LET-LIST
      %KEYWORD-TESTS %DEFAULT-FORM (CDR %LAMBDA-LIST) %LAMBDA-LIST ANALYZE1
      (IGNORE %LAMBDA-LIST) MAKE-LENGTH-TEST LET* DECLARE BLOCK IF
      ERROR-OF-TYPE 'PROGRAM-ERROR
      (ENGLISH "The SETF expander for ~S may not be called with ~S arguments.")
      QUOTE ((1- (LENGTH %LAMBDA-LIST))) EVAL-WHEN (LOAD COMPILE EVAL) LET
      REMPROP ('DEFSTRUCT-WRITER) DEFUN ENV ((DECLARE (IGNORE ENV))) %PUT
      'SETF-EXPANDER CONS -5. FUNCTION %SET-DOCUMENTATION 'SETF
  )  )
#Y(#:TOP-LEVEL-FORM-14
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   DEFINE-SETF-METHOD REMOVE-OLD-DEFINITIONS MACRO
   #Y(DEFINE-SETF-METHOD
      #17Y(00 00 00 00 01 00 01 00 00 08 95 02 DA 9E 5D 19 04)
      DEFINE-SETF-EXPANDER
  )  )
#Y(#:TOP-LEVEL-FORM-15
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   DEFSETF REMOVE-OLD-DEFINITIONS MACRO
   #Y(DEFSETF
      #361Y(00 00 00 00 01 00 01 00 00 08 3D 01 AE 72 44 DA 90 01 2F 34 9F 5C
            78 A0 5C 79 9D 20 0B 94 00 8E 08 06 94 00 8E 03 80 41 9D 20 10 94
            00 8F 08 0B 9D 5C 20 07 9D 5C 78 8E 08 80 7A E6 65 2A 01 02 6E 03
            0E A0 14 33 01 1F AE 2F 01 19 03 E6 E7 01 02 6E 03 0E A8 5C 1B 6C
            A6 5C 5C 1C 70 E6 E9 01 02 6E 03 0E A8 5C 5B 1B 5B DC DD DE 63 DF
            E0 B3 7B 02 CC 7C 02 E2 E0 B4 7B 02 E3 E0 94 09 7B 02 7B 04 E4 E0
            B5 7B 02 E5 A6 5C 5C 1C 4B A6 5C 5B 1D 06 A6 5C 78 8F 04 40 A6 5C
            78 7B 04 E0 B5 7B 02 7B 06 61 03 19 05 E6 EA 01 02 6E 03 0E 33 00
            1F 0E 12 1B 37 9D 5C 5B 1D 6D 9D 5C 79 64 B1 31 5E 42 03 A0 5C 78
            63 94 05 D6 10 12 D6 10 13 00 10 14 00 10 15 00 10 16 00 10 17 BE
            F2 66 1B F3 2D 04 1A F5 BF 38 03 8C B2 47 03 1C 09 13 93 16 08 F7
            04 17 7A 61 01 09 16 65 1E F3 04 16 7A 04 14 59 1D 02 03 1F 14 66
            19 65 20 6B 15 72 46 66 1C 6B 16 65 21 66 22 04 21 7C 02 7B 01 33
            03 23 7C 02 7B 01 33 03 23 62 02 12 06 F8 DC 65 22 DE 63 DF E0 B9
            7B 02 03 23 7C 02 E2 E0 BA 7B 02 65 24 65 25 B6 B8 72 44 65 26 65
            27 C0 70 28 B9 7B 03 7B 04 7B 04 E4 E0 BB 7B 02 65 29 B8 7B 04 E0
            BB 7B 02 7B 06 61 03 19 0B
           )
      2. MACRO-CALL-ERROR EVAL-WHEN (LOAD COMPILE EVAL) LET REMPROP QUOTE
      ('DEFSTRUCT-WRITER) %PUT 'SETF-EXPANDER %SET-DOCUMENTATION 'SETF
      SOURCE-PROGRAM-ERROR "Too many arguments to DEFSETF: ~S" LANGUAGE
      "The doc string to DEFSETF must be a string: ~S"
      "Missing store variable in DEFSETF." 0. %ARG-COUNT %MIN-ARGS %RESTP
      %LET-LIST %KEYWORD-TESTS %DEFAULT-FORM (CDR %ACCESS-ARGLIST)
      %ACCESS-ARGLIST ANALYZE1 &KEY -1. DECLARE LAMBDA
      ((DECLARE (IGNORE %ACCESS-ARGLIST))) LET* BLOCK (LOAD COMPILE EVAL)
      ('DEFSTRUCT-WRITER) 'SETF-EXPANDER LIST* FUNCTION "SETF-" CONCAT-PNAMES
      'SETF "Illegal syntax in DEFSETF for ~S"
  )  )
#Y(#:TOP-LEVEL-FORM-16
   #32Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD DE CA 7C 02 32 85 DA
        E0 63 2D 03 07 C5 19 01
       )
   AREF DEFSTRUCT-WRITER SETF-EXPANDER -1. 1.
   #Y(SETF-AREF
      #29Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 A0 5C 79 DA AE AE B2 7B 01 33
           02 23 62 02 19 05
          )
      STORE
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-17
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01) %SETNTH
   REMOVE-OLD-DEFINITIONS
   #Y(%SETNTH
      #36Y(00 00 00 00 03 00 00 00 00 04 AF AF 71 9A 93 00 07 AC AF 31 A6 9F 19
           05 DA DB 01 02 6E 03 02 B2 B2 33 02 1F
          )
      ERROR "(SETF (NTH ...) ...) : index ~S is too large for ~S" LANGUAGE
  )  )
#Y(#:TOP-LEVEL-FORM-18
   #28Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD 32 85 DA DE 63 2D 03
        05 C5 19 01
       )
   NTH DEFSTRUCT-WRITER SETF-EXPANDER %SETNTH SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-19
   #28Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD 32 85 DA DE 63 2D 03
        05 C5 19 01
       )
   ELT DEFSTRUCT-WRITER SETF-EXPANDER %SETELT SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-20
   #28Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD 32 85 DA DE 63 2D 03
        05 C5 19 01
       )
   REST DEFSTRUCT-WRITER SETF-EXPANDER %RPLACD SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-21
   #28Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD 32 85 DA DE 63 2D 03
        05 C5 19 01
       )
   FIRST DEFSTRUCT-WRITER SETF-EXPANDER %RPLACA SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-22
   #32Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD DE CA 7C 02 32 85 DA
        E0 63 2D 03 07 C5 19 01
       )
   SECOND DEFSTRUCT-WRITER SETF-EXPANDER -1. 1.
   #Y(SETF-SECOND
      #23Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE 7B 02 B0 61 03 19 04
          )
      %RPLACA CDR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-23
   #32Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD DE CA 7C 02 32 85 DA
        E0 63 2D 03 07 C5 19 01
       )
   THIRD DEFSTRUCT-WRITER SETF-EXPANDER -1. 1.
   #Y(SETF-THIRD
      #23Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE 7B 02 B0 61 03 19 04
          )
      %RPLACA CDDR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-24
   #32Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD DE CA 7C 02 32 85 DA
        E0 63 2D 03 07 C5 19 01
       )
   FOURTH DEFSTRUCT-WRITER SETF-EXPANDER -1. 1.
   #Y(SETF-FOURTH
      #23Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE 7B 02 B0 61 03 19 04
          )
      %RPLACA CDDDR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-25
   #32Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD DE CA 7C 02 32 85 DA
        E0 63 2D 03 07 C5 19 01
       )
   FIFTH DEFSTRUCT-WRITER SETF-EXPANDER -1. 1.
   #Y(SETF-FIFTH
      #23Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE 7B 02 B0 61 03 19 04
          )
      %RPLACA CDDDDR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-26
   #32Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD DE CA 7C 02 32 85 DA
        E0 63 2D 03 07 C5 19 01
       )
   SIXTH DEFSTRUCT-WRITER SETF-EXPANDER -1. 1.
   #Y(SETF-SIXTH
      #26Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB DC AF 7B 02 7B 02 B0 61
           03 19 04
          )
      %RPLACA CDR CDDDDR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-27
   #32Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD DE CA 7C 02 32 85 DA
        E0 63 2D 03 07 C5 19 01
       )
   SEVENTH DEFSTRUCT-WRITER SETF-EXPANDER -1. 1.
   #Y(SETF-SEVENTH
      #26Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB DC AF 7B 02 7B 02 B0 61
           03 19 04
          )
      %RPLACA CDDR CDDDDR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-28
   #32Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD DE CA 7C 02 32 85 DA
        E0 63 2D 03 07 C5 19 01
       )
   EIGHTH DEFSTRUCT-WRITER SETF-EXPANDER -1. 1.
   #Y(SETF-EIGHTH
      #26Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB DC AF 7B 02 7B 02 B0 61
           03 19 04
          )
      %RPLACA CDDDR CDDDDR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-29
   #32Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD DE CA 7C 02 32 85 DA
        E0 63 2D 03 07 C5 19 01
       )
   NINTH DEFSTRUCT-WRITER SETF-EXPANDER -1. 1.
   #Y(SETF-NINTH
      #26Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB DB AF 7B 02 7B 02 B0 61
           03 19 04
          )
      %RPLACA CDDDDR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-30
   #32Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD DE CA 7C 02 32 85 DA
        E0 63 2D 03 07 C5 19 01
       )
   TENTH DEFSTRUCT-WRITER SETF-EXPANDER -1. 1.
   #Y(SETF-TENTH
      #29Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB DC DC B0 7B 02 7B 02 7B
           02 B0 61 03 19 04
          )
      %RPLACA CDR CDDDDR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-31
   #28Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD 32 85 DA DE 63 2D 03
        05 C5 19 01
       )
   CAR DEFSTRUCT-WRITER SETF-EXPANDER %RPLACA SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-32
   #28Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD 32 85 DA DE 63 2D 03
        05 C5 19 01
       )
   CDR DEFSTRUCT-WRITER SETF-EXPANDER %RPLACD SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-33
   #32Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD DE CA 7C 02 32 85 DA
        E0 63 2D 03 07 C5 19 01
       )
   CAAR DEFSTRUCT-WRITER SETF-EXPANDER -1. 1.
   #Y(SETF-CAAR
      #23Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE 7B 02 B0 61 03 19 04
          )
      %RPLACA CAR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-34
   #32Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD DE CA 7C 02 32 85 DA
        E0 63 2D 03 07 C5 19 01
       )
   CADR DEFSTRUCT-WRITER SETF-EXPANDER -1. 1.
   #Y(SETF-CADR
      #23Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE 7B 02 B0 61 03 19 04
          )
      %RPLACA CDR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-35
   #32Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD DE CA 7C 02 32 85 DA
        E0 63 2D 03 07 C5 19 01
       )
   CDAR DEFSTRUCT-WRITER SETF-EXPANDER -1. 1.
   #Y(SETF-CDAR
      #23Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE 7B 02 B0 61 03 19 04
          )
      %RPLACD CAR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-36
   #32Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD DE CA 7C 02 32 85 DA
        E0 63 2D 03 07 C5 19 01
       )
   CDDR DEFSTRUCT-WRITER SETF-EXPANDER -1. 1.
   #Y(SETF-CDDR
      #23Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE 7B 02 B0 61 03 19 04
          )
      %RPLACD CDR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-37
   #32Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD DE CA 7C 02 32 85 DA
        E0 63 2D 03 07 C5 19 01
       )
   CAAAR DEFSTRUCT-WRITER SETF-EXPANDER -1. 1.
   #Y(SETF-CAAAR
      #23Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE 7B 02 B0 61 03 19 04
          )
      %RPLACA CAAR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-38
   #32Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD DE CA 7C 02 32 85 DA
        E0 63 2D 03 07 C5 19 01
       )
   CAADR DEFSTRUCT-WRITER SETF-EXPANDER -1. 1.
   #Y(SETF-CAADR
      #23Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE 7B 02 B0 61 03 19 04
          )
      %RPLACA CADR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-39
   #32Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD DE CA 7C 02 32 85 DA
        E0 63 2D 03 07 C5 19 01
       )
   CADAR DEFSTRUCT-WRITER SETF-EXPANDER -1. 1.
   #Y(SETF-CADAR
      #23Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE 7B 02 B0 61 03 19 04
          )
      %RPLACA CDAR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-40
   #32Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD DE CA 7C 02 32 85 DA
        E0 63 2D 03 07 C5 19 01
       )
   CADDR DEFSTRUCT-WRITER SETF-EXPANDER -1. 1.
   #Y(SETF-CADDR
      #23Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE 7B 02 B0 61 03 19 04
          )
      %RPLACA CDDR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-41
   #32Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD DE CA 7C 02 32 85 DA
        E0 63 2D 03 07 C5 19 01
       )
   CDAAR DEFSTRUCT-WRITER SETF-EXPANDER -1. 1.
   #Y(SETF-CDAAR
      #23Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE 7B 02 B0 61 03 19 04
          )
      %RPLACD CAAR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-42
   #32Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD DE CA 7C 02 32 85 DA
        E0 63 2D 03 07 C5 19 01
       )
   CDADR DEFSTRUCT-WRITER SETF-EXPANDER -1. 1.
   #Y(SETF-CDADR
      #23Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE 7B 02 B0 61 03 19 04
          )
      %RPLACD CADR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-43
   #32Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD DE CA 7C 02 32 85 DA
        E0 63 2D 03 07 C5 19 01
       )
   CDDAR DEFSTRUCT-WRITER SETF-EXPANDER -1. 1.
   #Y(SETF-CDDAR
      #23Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE 7B 02 B0 61 03 19 04
          )
      %RPLACD CDAR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-44
   #32Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD DE CA 7C 02 32 85 DA
        E0 63 2D 03 07 C5 19 01
       )
   CDDDR DEFSTRUCT-WRITER SETF-EXPANDER -1. 1.
   #Y(SETF-CDDDR
      #23Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE 7B 02 B0 61 03 19 04
          )
      %RPLACD CDDR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-45
   #32Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD DE CA 7C 02 32 85 DA
        E0 63 2D 03 07 C5 19 01
       )
   CAAAAR DEFSTRUCT-WRITER SETF-EXPANDER -1. 1.
   #Y(SETF-CAAAAR
      #23Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE 7B 02 B0 61 03 19 04
          )
      %RPLACA CAAAR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-46
   #32Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD DE CA 7C 02 32 85 DA
        E0 63 2D 03 07 C5 19 01
       )
   CAAADR DEFSTRUCT-WRITER SETF-EXPANDER -1. 1.
   #Y(SETF-CAAADR
      #23Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE 7B 02 B0 61 03 19 04
          )
      %RPLACA CAADR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-47
   #32Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD DE CA 7C 02 32 85 DA
        E0 63 2D 03 07 C5 19 01
       )
   CAADAR DEFSTRUCT-WRITER SETF-EXPANDER -1. 1.
   #Y(SETF-CAADAR
      #23Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE 7B 02 B0 61 03 19 04
          )
      %RPLACA CADAR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-48
   #32Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD DE CA 7C 02 32 85 DA
        E0 63 2D 03 07 C5 19 01
       )
   CAADDR DEFSTRUCT-WRITER SETF-EXPANDER -1. 1.
   #Y(SETF-CAADDR
      #23Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE 7B 02 B0 61 03 19 04
          )
      %RPLACA CADDR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-49
   #32Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD DE CA 7C 02 32 85 DA
        E0 63 2D 03 07 C5 19 01
       )
   CADAAR DEFSTRUCT-WRITER SETF-EXPANDER -1. 1.
   #Y(SETF-CADAAR
      #23Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE 7B 02 B0 61 03 19 04
          )
      %RPLACA CDAAR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-50
   #32Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD DE CA 7C 02 32 85 DA
        E0 63 2D 03 07 C5 19 01
       )
   CADADR DEFSTRUCT-WRITER SETF-EXPANDER -1. 1.
   #Y(SETF-CADADR
      #23Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE 7B 02 B0 61 03 19 04
          )
      %RPLACA CDADR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-51
   #32Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD DE CA 7C 02 32 85 DA
        E0 63 2D 03 07 C5 19 01
       )
   CADDAR DEFSTRUCT-WRITER SETF-EXPANDER -1. 1.
   #Y(SETF-CADDAR
      #23Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE 7B 02 B0 61 03 19 04
          )
      %RPLACA CDDAR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-52
   #32Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD DE CA 7C 02 32 85 DA
        E0 63 2D 03 07 C5 19 01
       )
   CADDDR DEFSTRUCT-WRITER SETF-EXPANDER -1. 1.
   #Y(SETF-CADDDR
      #23Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE 7B 02 B0 61 03 19 04
          )
      %RPLACA CDDDR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-53
   #32Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD DE CA 7C 02 32 85 DA
        E0 63 2D 03 07 C5 19 01
       )
   CDAAAR DEFSTRUCT-WRITER SETF-EXPANDER -1. 1.
   #Y(SETF-CDAAAR
      #23Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE 7B 02 B0 61 03 19 04
          )
      %RPLACD CAAAR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-54
   #32Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD DE CA 7C 02 32 85 DA
        E0 63 2D 03 07 C5 19 01
       )
   CDAADR DEFSTRUCT-WRITER SETF-EXPANDER -1. 1.
   #Y(SETF-CDAADR
      #23Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE 7B 02 B0 61 03 19 04
          )
      %RPLACD CAADR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-55
   #32Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD DE CA 7C 02 32 85 DA
        E0 63 2D 03 07 C5 19 01
       )
   CDADAR DEFSTRUCT-WRITER SETF-EXPANDER -1. 1.
   #Y(SETF-CDADAR
      #23Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE 7B 02 B0 61 03 19 04
          )
      %RPLACD CADAR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-56
   #32Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD DE CA 7C 02 32 85 DA
        E0 63 2D 03 07 C5 19 01
       )
   CDADDR DEFSTRUCT-WRITER SETF-EXPANDER -1. 1.
   #Y(SETF-CDADDR
      #23Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE 7B 02 B0 61 03 19 04
          )
      %RPLACD CADDR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-57
   #32Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD DE CA 7C 02 32 85 DA
        E0 63 2D 03 07 C5 19 01
       )
   CDDAAR DEFSTRUCT-WRITER SETF-EXPANDER -1. 1.
   #Y(SETF-CDDAAR
      #23Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE 7B 02 B0 61 03 19 04
          )
      %RPLACD CDAAR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-58
   #32Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD DE CA 7C 02 32 85 DA
        E0 63 2D 03 07 C5 19 01
       )
   CDDADR DEFSTRUCT-WRITER SETF-EXPANDER -1. 1.
   #Y(SETF-CDDADR
      #23Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE 7B 02 B0 61 03 19 04
          )
      %RPLACD CDADR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-59
   #32Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD DE CA 7C 02 32 85 DA
        E0 63 2D 03 07 C5 19 01
       )
   CDDDAR DEFSTRUCT-WRITER SETF-EXPANDER -1. 1.
   #Y(SETF-CDDDAR
      #23Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE 7B 02 B0 61 03 19 04
          )
      %RPLACD CDDAR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-60
   #32Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD DE CA 7C 02 32 85 DA
        E0 63 2D 03 07 C5 19 01
       )
   CDDDDR DEFSTRUCT-WRITER SETF-EXPANDER -1. 1.
   #Y(SETF-CDDDDR
      #23Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE 7B 02 B0 61 03 19 04
          )
      %RPLACD CDDDR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-61
   #28Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD 32 85 DA DE 63 2D 03
        05 C5 19 01
       )
   SVREF DEFSTRUCT-WRITER SETF-EXPANDER SVSTORE SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-62
   #28Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD 32 85 DA DE 63 2D 03
        05 C5 19 01
       )
   ROW-MAJOR-AREF DEFSTRUCT-WRITER SETF-EXPANDER ROW-MAJOR-STORE SETF
   %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-63
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   DEVALUE-FORM REMOVE-OLD-DEFINITIONS
   #Y(DEVALUE-FORM
      #24Y(00 00 00 00 01 00 00 00 00 02 94 01 24 00 05 AD 61 01 19 02 9E 5C 19
           02
          )
      VALUES
  )  )
#Y(#:TOP-LEVEL-FORM-64
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01) POP
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(POP
      #191Y(00 00 00 00 01 00 01 00 00 08 3D 01 AE 72 44 DA 90 01 2E 2C 9F 5C
            78 AC AF 30 02 42 05 AC 8F 03 05 AD AF 8A 03 1F E1 B1 B1 73 01 17
            AF 72 44 E2 90 01 2D 25 E3 AD E5 B2 B1 E6 E7 63 B7 1B 80 49 AE 2F
            01 19 03 DE DF AE 7B 02 E0 AF 7B 02 94 05 B1 38 03 71 AA 61 03 19
            09 E3 AD 94 05 B0 7B 02 7B 01 73 02 23 DE DF 94 07 7B 02 E0 94 08
            7B 02 94 08 B4 38 03 71 AA 2F 0A 62 02 1B 3D 94 00 DF AD 7B 02 84
            02 16 01 83 00 9D 21 71 16 01 AC 31 A2 16 01 7A 63 B7 1B 0E 94 00
            AC E0 AE 61 02 7A 84 02 16 01 83 00 9D 21 6F 16 01 AC 80 A2 00 B6
            38 03 71 B0 2F 0A 7C 02 61 04 14 61 03 19 0A
           )
      2. MACRO-CALL-ERROR GET-SETF-EXPANSION SIMPLE-ASSIGNMENT-P PROG1 CAR CDR
      #.#'LIST 1. LET* DEVALUE-FORM MULTIPLE-VALUE-BIND MULTIPLE-VALUE-PROG1
      VALUES
  )  )
#Y(#:TOP-LEVEL-FORM-65
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   PSETF REMOVE-OLD-DEFINITIONS MACRO
   #Y(PSETF
      #41Y(00 00 00 00 01 00 01 00 00 08 00 2B 01 3B 02 01 00 0B 00 00 9D 2B 01
           7F 04 00 00 79 AD 6D 00 01 AD 9E 74 DB 33 02 23 19 07
          )
      #Y(LISP::PSETF-RECURSE
         #73Y(00 00 00 00 01 00 00 00 00 02 94 01 69 01 01 30 01 42 05 A3 5C 20
              25 DF E0 B2 B2 73 01 17 E1 B1 A7 5C 78 A8 5C 5C 1D 07 A8 5C 79 6C
              5D 61 01 14 B3 6F 08 33 02 23 7C 03 61 03 19 07 DC DD 01 02 6E 03
              04 69 00 01 33 01 1F
             )
         NIL GET-SETF-EXPANSION SOURCE-PROGRAM-ERROR
         "PSETF called with an odd number of arguments: ~S" LANGUAGE LET*
         #.#'LIST MULTIPLE-VALUE-BIND DEVALUE-FORM
        )
      (NIL)
  )  )
#Y(#:TOP-LEVEL-FORM-66
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   PUSHNEW REMOVE-OLD-DEFINITIONS MACRO
   #Y(PUSHNEW
      #142Y(00 00 00 00 01 00 01 00 00 08 3D 01 AE 72 44 DA 90 01 2F 2B 9F 5C
            78 A0 5C 5C 78 A1 5C 5C 79 AD B1 30 02 42 05 AD AF 8A 03 1A DF B1
            B1 73 01 17 AF 72 44 38 01 71 9C E0 70 07 63 B1 AE 1B 30 AE 2F 01
            19 03 DE B4 AE A5 7C 03 94 03 AF 38 03 31 AA 19 0B 16 03 1B 1D 94
            01 9E 20 77 94 01 AD DE AF AF 04 10 62 03 7A 84 04 16 02 83 01 83
            00 9E 21 65 16 02 AC 80 A2 00 B0 38 03 71 B0 E2 B2 B8 E3 B2 E2 B3
            B6 B4 7B 04 7B 03 61 04 19 0E
           )
      3. MACRO-CALL-ERROR GET-SETF-EXPANSION SIMPLE-ASSIGNMENT-P ADJOIN
      #.#'LIST #.#'GENSYM MAP-INTO MULTIPLE-VALUE-BIND LET*
  )  )
#Y(#:TOP-LEVEL-FORM-67
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01) REMF
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(REMF
      #171Y(00 00 00 00 01 00 01 00 00 08 3D 01 AE 72 44 DA 90 01 2E 80 87 9F
            5C 78 A0 5C 5C 78 AD B0 30 02 42 05 38 01 72 8D DD B2 B2 73 01 17
            94 04 AF 7B 02 AE B5 7B 02 7B 02 73 02 23 38 01 72 8D 38 01 72 8D
            DE AF DF B0 94 0A E0 B3 7B 02 7B 03 B0 63 B3 7B 03 7B 02 E1 B2 7B
            02 CD 7A E3 E1 E4 B5 7B 02 7B 02 D0 7A E6 E7 B6 7B 02 B8 7B 03 E8
            B5 E9 E4 B8 7B 02 E0 BA 7B 02 7B 03 E0 94 12 7B 02 BD BF 8A 10 1D
            EB EC 94 14 AF 7B 03 BF 61 03 F8 7B 04 D8 7C 02 7B 03 7B 04 61 03
            19 0E AE 2F 01 19 03 AC 94 13 BF 38 03 31 AA 1B 63
           )
      3. MACRO-CALL-ERROR GET-SETF-METHOD #.#'LIST LET* DO CDDR ATOM (NIL) COND
      CDR
      ((ERROR-OF-TYPE 'ERROR (ENGLISH "REMF: property list with an odd length")
      ))
      EQ CAR IF RPLACD SIMPLE-ASSIGNMENT-P PROGN SETQ ((RETURN T))
  )  )
#Y(#:TOP-LEVEL-FORM-68
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   ROTATEF REMOVE-OLD-DEFINITIONS MACRO
   #Y(ROTATEF
      #159Y(00 00 00 00 01 00 01 00 00 08 3D 01 95 02 93 00 80 7D 9D 5C 1D 80
            7B AC DC 01 02 7B 03 63 95 01 01 04 93 07 3C 94 07 B7 30 03 42 05
            DE B1 B1 73 01 17 B5 80 A1 08 DF B3 AE 63 7B 04 95 0A AD 31 A7 16
            01 A6 5C 5B 5C 5C 09 09 93 05 80 4C B6 6F 06 B4 80 A0 07 9F FE 9E
            09 0A 16 05 83 07 92 07 44 AF 72 46 95 07 AD 31 A7 16 01 A3 5C 5C
            78 95 00 AF 31 A7 16 01 B0 AF 72 46 B3 6F 06 73 02 24 31 A9 B2 38
            01 71 9B 63 7B 01 31 A9 A3 19 0C 00 19 04 DA 94 01 C6 62 02 19 04
            9F FD 1B FF B6
           )
      PROGN (NIL) LET* GET-SETF-EXPANSION #.#'LIST MULTIPLE-VALUE-BIND
      DEVALUE-FORM
  )  )
#Y(#:TOP-LEVEL-FORM-69
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   DEFINE-MODIFY-MACRO REMOVE-OLD-DEFINITIONS MACRO
   #Y(DEFINE-MODIFY-MACRO
      #282Y(00 00 00 00 01 00 01 00 00 08 DA AF 72 44 DB 91 02 31 80 4F 9F 5C
            78 A0 5C 5C 78 A1 5C 5C 5C 78 B1 71 94 01 02 B0 63 93 01 80 7A 87
            01 00 14 24 03 80 6C AC 24 04 80 42 AC 24 09 80 56 AC 24 0A 80 51
            AC 24 0B 80 4C AC 8E 03 80 4B AC 8F 08 06 94 00 8E 03 80 44 DF D2
            14 01 02 6E 03 07 9F 14 33 01 1F AE 2F 02 19 03 DF E0 01 02 6E 03
            07 B5 A1 5C 78 33 02 1F 16 02 1B 2D 9E 5C 78 8F 03 68 9E 5C 5B FA
            9E 5C 5C 1D 6D DF E2 01 02 6E 03 07 A0 1B 4C DF D1 1B 41 9D 1B 02
            9D 5B 14 84 03 83 01 92 01 FF 86 16 02 AD 81 46 01 E8 B2 E9 B3 EA
            33 02 23 7A B1 EB EC ED EE EF F0 F1 F2 F3 F4 F5 F6 BF 7B 02 F7 BE
            BE 7B 01 33 02 23 7C 03 03 1E 7C 02 7B 02 7B 03 65 1F 65 20 65 21
            65 22 65 23 65 20 65 24 65 25 F5 F6 C4 7B 02 F7 C3 C3 7B 01 33 02
            23 7C 03 7B 04 F5 F6 C2 7B 02 F7 C1 C1 7B 01 33 02 23 7C 03 7B 04
            7B 03 03 26 7C 02 03 27 7C 03 7B 03 7B 04 61 05 19 09
           )
      4. 5. MACRO-CALL-ERROR &OPTIONAL &REST SOURCE-PROGRAM-ERROR
      "In the definition of ~S: &REST variable ~S should be a symbol." LANGUAGE
      "Only one variable is allowed after &REST, not ~S" &KEY &ALLOW-OTHER-KEYS
      &AUX "Illegal in a DEFINE-MODIFY-MACRO lambda list: ~S"
      "lambda list may only contain symbols and lists, not ~S" DEFMACRO
      %REFERENCE (&ENVIRONMENT ENV) MULTIPLE-VALUE-BIND
      (DUMMIES VALS NEWVAL SETTER GETTER) (GET-SETF-METHOD %REFERENCE ENV) DO
      ((D DUMMIES (CDR D)) (V VALS (CDR V))
        (LET-LIST NIL (CONS (LIST (CAR D) (CAR V)) LET-LIST))
      )
      (NULL D) WHEN (SYMBOLP GETTER) RETURN SUBST LIST* QUOTE GETTER
      ((CAR NEWVAL) SETTER) PUSH LIST (CAR NEWVAL) IF
      (AND (LISTP %REFERENCE) (EQ (CAR %REFERENCE) 'THE)) 'THE
      (CADR %REFERENCE) (LET-LIST) ((LIST 'LET* (NREVERSE LET-LIST) SETTER))
  )  )
#Y(#:TOP-LEVEL-FORM-70
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01) DECF
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(DECF
      #140Y(00 00 00 00 01 00 01 00 00 08 3D 01 DA AF 72 44 DB 91 02 31 80 4D
            9F 5C 78 A0 5C 5C 1C 80 49 C8 14 AD B0 30 04 42 05 B0 B0 63 93 02
            13 95 02 95 02 94 04 94 04 7B 02 84 02 6A 02 6A 02 92 02 6D AF 8E
            03 2B 94 05 B6 8F 08 05 94 0A 24 06 2F DF B1 B7 00 62 03 14 7B 02
            84 00 E1 AD 72 46 B2 61 03 19 0D AE 2F 02 19 03 A0 5C 5C 5B 1B FF
            B1 DF B0 B6 00 7C 03 94 06 B2 38 03 31 AA 19 0D E0 A8 5C 78 DF B3
            B9 00 7C 03 61 03 1B 49
           )
      2. 3. MACRO-CALL-ERROR 1. GET-SETF-METHOD - THE LET*
  )  )
#Y(#:TOP-LEVEL-FORM-71
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01) INCF
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(INCF
      #140Y(00 00 00 00 01 00 01 00 00 08 3D 01 DA AF 72 44 DB 91 02 31 80 4D
            9F 5C 78 A0 5C 5C 1C 80 49 C8 14 AD B0 30 04 42 05 B0 B0 63 93 02
            13 95 02 95 02 94 04 94 04 7B 02 84 02 6A 02 6A 02 92 02 6D AF 8E
            03 2B 94 05 B6 8F 08 05 94 0A 24 06 2F DF B1 B7 00 62 03 14 7B 02
            84 00 E1 AD 72 46 B2 61 03 19 0D AE 2F 02 19 03 A0 5C 5C 5B 1B FF
            B1 DF B0 B6 00 7C 03 94 06 B2 38 03 31 AA 19 0D E0 A8 5C 78 DF B3
            B9 00 7C 03 61 03 1B 49
           )
      2. 3. MACRO-CALL-ERROR 1. GET-SETF-METHOD + THE LET*
  )  )
#Y(#:TOP-LEVEL-FORM-72
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01) SETF
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(SETF
      #370Y(00 00 00 00 01 00 01 00 00 08 3D 01 95 02 AC 72 44 AC 24 00 81 0B
            AC 8E 92 81 4B AD 63 93 01 11 E0 94 02 A0 5C 78 7B 03 84 00 9E 5C
            5C F9 92 01 6F F0 63 F1 AF 32 46 5D 14 61 03 19 07 AC 95 03 AF 7B
            01 33 02 23 5D 19 08 E0 A0 5C 5C 78 DE A2 5C 78 B1 7B 03 61 03 19
            08 E1 E0 A1 5C 78 E2 B1 7B 02 7B 03 61 02 19 08 E5 AD 94 05 B6 7B
            02 7B 01 73 02 23 A1 1B 80 85 15 16 01 1D 80 4C 1B 80 74 14 8E 03
            FF B7 94 02 25 04 07 AE 72 44 24 05 FF B7 94 02 25 07 07 AE 72 44
            24 00 FF BB AE B3 30 09 42 05 E4 B1 B1 73 01 17 AF 72 44 DB 90 01
            2D FF B5 9F 20 3F 94 02 25 0C 3A AF 95 03 92 01 26 9E 59 1C FF B2
            16 02 1D 2B E8 95 03 73 00 17 E5 AE E9 AF B8 7B 03 E6 A1 7A 61 04
            19 0F 95 01 83 01 6A 01 93 01 5A 93 00 57 94 00 94 02 7B 01 8A 0D
            6B 16 02 E5 AD EA B2 B7 B3 61 04 14 61 03 19 0E EB AE 9F 1B FF 30
            AD B2 30 09 42 05 E5 E4 B2 B2 73 01 17 B3 94 05 B1 38 03 71 AA 61
            03 19 0C 94 01 9F 5C 78 9E 20 1B 94 01 8F 03 16 94 01 B2 C6 5F 14
            8B 02 0D 94 01 DD 38 01 72 81 92 00 FF 3F 16 01 AD AE B3 80 58 02
            23 5A AD 8E 03 FF B1 A3 20 06 94 06 8E 03 FF AE EC ED 01 02 6E 03
            14 94 05 33 01 1F EC EF 01 02 6E 03 14 E0 B3 33 02 1F
           )
      2. 1. GLOBAL-IN-FENV-P SETF-EXPANDER THE 3. SETF VALUES-LIST
      MULTIPLE-VALUE-LIST GET-SETF-EXPANSION #.#'LIST LET* VALUES
      SIMPLE-ASSIGNMENT-P #.#'SECOND MULTIPLE-VALUE-SETQ MULTIPLE-VALUE-BIND
      SETQ SOURCE-PROGRAM-ERROR "Illegal SETF place: ~S" LANGUAGE
      "~S called with an odd number of arguments: ~S" LET PROGN
  )  )
#Y(#:TOP-LEVEL-FORM-73
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   SHIFTF REMOVE-OLD-DEFINITIONS MACRO
   #Y(SHIFTF
      #184Y(00 00 00 00 01 00 01 00 00 08 3D 01 95 02 AC 72 44 DA 90 01 2F 0F
            AC DE 01 02 7B 03 01 02 95 02 01 04 1B 80 4A DB DC 01 02 6E 03 03
            B1 33 01 1F B7 6F 07 B4 80 A0 07 E2 B3 AE 63 7B 04 95 0A AD 31 A7
            16 01 A6 5C 5B 5C 5C 09 09 1B 19 94 08 B8 30 05 42 05 E0 B1 B1 73
            01 17 B5 80 A1 08 92 05 4F 9F FD 9D 09 0A 9F FE 9E 09 0B 16 05 83
            08 A5 5C 1C 5A AF 72 46 95 08 AD 31 A7 16 01 E2 AE B7 38 01 31 9B
            78 63 7B 04 95 05 AD 31 A7 16 01 A1 5C 5B 5C 5C FC 14 AF 72 46 B4
            6F 07 73 02 24 31 A9 E2 AD B3 A7 5C 5C 78 E3 A2 7A 7B 05 A5 5C 79
            AD 31 A7 16 01 A4 19 0D
           )
      2. SOURCE-PROGRAM-ERROR "SHIFTF called with too few arguments: ~S"
      LANGUAGE LET* GET-SETF-EXPANSION #.#'LIST DEVALUE-FORM
      MULTIPLE-VALUE-BIND VALUES
  )  )
#Y(#:TOP-LEVEL-FORM-74
   #32Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD DE CA 7C 02 32 85 DA
        E0 63 2D 03 07 C5 19 01
       )
   GET DEFSTRUCT-WRITER SETF-EXPANDER -1. 1.
   #Y(SETF-GET
      #41Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 A0 5C 5C 78 A1 5C 5C 5C 78 DA
           AF AF B3 7B 04 92 01 03 15 19 06 DB AE AE 61 03 19 07
          )
      %PUT PROGN
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-75
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01) %PUTF
   REMOVE-OLD-DEFINITIONS
   #Y(%PUTF
      #54Y(00 00 00 00 03 00 00 00 00 04 AF 1B 1F DA DB 01 02 6E 03 02 33 00 1F
           95 00 AF 31 A6 00 19 05 9D 5C 20 6A 94 00 A1 22 6F 9D 5C 5C F8 9D 21
           70 AF AF A3 62 02 19 05
          )
      ERROR "(SETF (GETF ...) ...) : property list with an odd length" LANGUAGE
  )  )
#Y(#:TOP-LEVEL-FORM-76
   #38Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DC 2F 03 DC DE 32 7F DA DF E0
        98 02 7A 32 85 DA E1 63 2D 03 08 C5 19 01
       )
   GETF DEFSTRUCT-WRITER #1=#:SETF-GETF REMOVE-OLD-DEFINITIONS
   #Y(#1#
      #142Y(00 00 00 00 02 00 00 00 00 03 DA AF 72 44 DB 91 02 31 80 5B 9F 5C
            78 A0 5C 5C 78 A1 5C 5C 5C 78 AE B1 30 06 42 05 38 01 72 8D 38 01
            72 8D 92 07 80 4D 00 14 B3 AE 9F 7A 73 02 23 B3 B7 92 0B 80 47 00
            7A 73 02 23 B0 7B 01 E1 94 09 E2 B5 B4 B6 7B 04 7B 02 7B 01 B1 E3
            94 0C B8 7B 03 B5 7B 02 33 02 23 7C 02 DF B4 B3 A4 7C 03 40 05 19
            0E DC DD 01 02 6E 03 04 DF B1 72 44 72 95 33 02 1F 38 01 72 8D 61
            01 1B FF AB 14 61 01 1B FF B4
           )
      3. 4. PROGRAM-ERROR
      "The SETF expander for ~S may not be called with ~S arguments." LANGUAGE
      GETF GET-SETF-METHOD LET %PUTF WHEN
     )
   SETF-EXPANDER -5. SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-77
   #32Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD DE CA 7C 02 32 85 DA
        E0 63 2D 03 07 C5 19 01
       )
   GETHASH DEFSTRUCT-WRITER SETF-EXPANDER -1. 1.
   #Y(SETF-GETHASH
      #41Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 A0 5C 5C 78 A1 5C 5C 5C 78 DA
           AF AF B3 7B 04 92 01 03 15 19 06 DB AE AE 61 03 19 07
          )
      PUTHASH PROGN
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-78
   #28Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD 32 85 DA DE 63 2D 03
        03 C5 19 01
       )
   DOCUMENTATION DEFSTRUCT-WRITER SETF-EXPANDER %SET-DOCUMENTATION SETF
  )
#Y(#:TOP-LEVEL-FORM-79
   #28Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD 32 85 DA DE 63 2D 03
        05 C5 19 01
       )
   FILL-POINTER DEFSTRUCT-WRITER SETF-EXPANDER SET-FILL-POINTER SETF
   %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-80
   #28Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD 32 85 DA DE 63 2D 03
        05 C5 19 01
       )
   READTABLE-CASE DEFSTRUCT-WRITER SETF-EXPANDER SET-READTABLE-CASE SETF
   %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-81
   #28Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD 32 85 DA DE 63 2D 03
        05 C5 19 01
       )
   SYMBOL-VALUE DEFSTRUCT-WRITER SETF-EXPANDER SET-SYMBOL-VALUE SETF
   %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-82 #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 7F 19 01)
   SET #.#'SET-SYMBOL-VALUE
  )
#Y(#:TOP-LEVEL-FORM-83
   #28Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD 32 85 DA DE 63 2D 03
        05 C5 19 01
       )
   SYMBOL-FUNCTION DEFSTRUCT-WRITER SETF-EXPANDER %PUTD SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-84
   #28Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD 32 85 DA DE 63 2D 03
        05 C5 19 01
       )
   SYMBOL-PLIST DEFSTRUCT-WRITER SETF-EXPANDER %PUTPLIST SETF
   %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-85
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   SET-FDEFINITION REMOVE-OLD-DEFINITIONS
   #Y(SET-FDEFINITION
      #18Y(00 00 00 00 02 00 00 00 00 03 AE 6F 00 AE 32 7F 19 03)
      GET-FUNNAME-SYMBOL
  )  )
#Y(#:TOP-LEVEL-FORM-86
   #28Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD 32 85 DA DE 63 2D 03
        05 C5 19 01
       )
   FDEFINITION DEFSTRUCT-WRITER SETF-EXPANDER SET-FDEFINITION SETF
   %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-87
   #32Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD DE CA 7C 02 32 85 DA
        E0 63 2D 03 07 C5 19 01
       )
   MACRO-FUNCTION DEFSTRUCT-WRITER SETF-EXPANDER -1. 1.
   #Y(SETF-MACRO-FUNCTION
      #36Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB DC AF 7B 02 DD DE B3 7B
           03 7B 03 DF AF CB 7C 02 B1 61 04 19 04
          )
      PROGN SETF SYMBOL-FUNCTION CONS 'MACRO REMPROP ('MACRO)
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-88
   #28Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD 32 85 DA DE 63 2D 03
        05 C5 19 01
       )
   CHAR DEFSTRUCT-WRITER SETF-EXPANDER STORE-CHAR SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-89
   #28Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD 32 85 DA DE 63 2D 03
        05 C5 19 01
       )
   SCHAR DEFSTRUCT-WRITER SETF-EXPANDER STORE-SCHAR SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-90
   #28Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD 32 85 DA DE 63 2D 03
        05 C5 19 01
       )
   BIT DEFSTRUCT-WRITER SETF-EXPANDER STORE SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-91
   #28Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD 32 85 DA DE 63 2D 03
        05 C5 19 01
       )
   SBIT DEFSTRUCT-WRITER SETF-EXPANDER STORE SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-92
   #32Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD DE CA 7C 02 32 85 DA
        E0 63 2D 03 07 C5 19 01
       )
   SUBSEQ DEFSTRUCT-WRITER SETF-EXPANDER -1. 1.
   #Y(SETF-SUBSEQ
      #37Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 A0 5C 5C 78 A1 5C 5C 5C 78 DA
           DB B0 B3 DC B2 DD B3 7B 07 B2 61 03 19 06
          )
      PROGN REPLACE :START1 :END1
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-93
   #38Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DC 2F 03 DC DE 32 7F DA DF E0
        98 02 7A 32 85 DA E1 63 2D 03 08 C5 19 01
       )
   CHAR-BIT DEFSTRUCT-WRITER #1=#:SETF-CHAR-BIT REMOVE-OLD-DEFINITIONS
   #Y(#1#
      #99Y(00 00 00 00 02 00 00 00 00 03 AE 72 44 DA 90 01 2E 80 40 9F 5C 78 A0
           5C 5C 78 AD B0 30 05 42 05 38 01 72 8D 38 01 72 8D B2 AE 7B 01 73 02
           23 B2 B5 7B 01 73 02 23 AE 7B 01 E0 94 08 E1 B4 B4 B4 7B 04 7B 02 7B
           01 B4 B2 7B 04 DE B3 B3 7B 03 40 05 19 0C DB DC 01 02 6E 03 03 DE B1
           72 44 72 95 33 02 1F
          )
      3. PROGRAM-ERROR
      "The SETF expander for ~S may not be called with ~S arguments." LANGUAGE
      CHAR-BIT GET-SETF-METHOD LET SET-CHAR-BIT
     )
   SETF-EXPANDER -5. SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-94
   #38Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DC 2F 03 DC DE 32 7F DA DF E0
        98 02 7A 32 85 DA E1 63 2D 03 08 C5 19 01
       )
   LDB DEFSTRUCT-WRITER #1=#:SETF-LDB REMOVE-OLD-DEFINITIONS
   #Y(#1#
      #90Y(00 00 00 00 02 00 00 00 00 03 AE 72 44 DA 90 01 2E 38 9F 5C 78 A0 5C
           5C 78 AC B0 30 05 42 05 38 01 72 8D 38 01 72 8D AD A4 7A B5 A4 7A AE
           7B 01 E0 94 08 E1 B2 B4 B6 7B 04 7B 02 7B 01 B4 B2 7B 04 DE B2 B4 7B
           03 40 05 19 0C DB DC 01 02 6E 03 03 DE B1 72 44 72 95 33 02 1F
          )
      3. PROGRAM-ERROR
      "The SETF expander for ~S may not be called with ~S arguments." LANGUAGE
      LDB GET-SETF-METHOD LET DPB
     )
   SETF-EXPANDER -5. SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-95
   #38Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DC 2F 03 DC DE 32 7F DA DF E0
        98 02 7A 32 85 DA E1 63 2D 03 08 C5 19 01
       )
   MASK-FIELD DEFSTRUCT-WRITER #1=#:SETF-MASK-FIELD REMOVE-OLD-DEFINITIONS
   #Y(#1#
      #90Y(00 00 00 00 02 00 00 00 00 03 AE 72 44 DA 90 01 2E 38 9F 5C 78 A0 5C
           5C 78 AC B0 30 05 42 05 38 01 72 8D 38 01 72 8D AD A4 7A B5 A4 7A AE
           7B 01 E0 94 08 E1 B2 B4 B6 7B 04 7B 02 7B 01 B4 B2 7B 04 DE B2 B4 7B
           03 40 05 19 0C DB DC 01 02 6E 03 03 DE B1 72 44 72 95 33 02 1F
          )
      3. PROGRAM-ERROR
      "The SETF expander for ~S may not be called with ~S arguments." LANGUAGE
      MASK-FIELD GET-SETF-METHOD LET DEPOSIT-FIELD
     )
   SETF-EXPANDER -5. SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-96
   #38Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DC 2F 03 DC DE 32 7F DA DF E0
        98 02 7A 32 85 DA E1 63 2D 03 08 C5 19 01
       )
   THE DEFSTRUCT-WRITER #1=#:SETF-THE REMOVE-OLD-DEFINITIONS
   #Y(#1#
      #118Y(00 00 00 00 02 00 00 00 00 03 AE 72 44 DA 90 01 2E 1F 9F 5C 78 A0
            5C 5C 78 AC B0 30 05 42 05 B0 B0 B0 63 B2 A8 20 05 94 0B 24 06 15
            B7 7B 01 1B 2E DB DC 01 02 6E 03 03 DE B1 72 44 72 95 33 02 1F 95
            0B 1B 1A 16 03 1B 1B 94 01 9E 20 77 94 01 AD DE AE B0 61 03 7A 84
            04 16 02 83 01 83 00 9E 21 67 16 02 AC 80 A2 00 B1 38 03 71 B0 DE
            B7 B2 7B 03 40 05 19 0A
           )
      3. PROGRAM-ERROR
      "The SETF expander for ~S may not be called with ~S arguments." LANGUAGE
      THE GET-SETF-EXPANSION VALUES
     )
   SETF-EXPANDER -5. SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-97
   #38Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DC 2F 03 DC DE 32 7F DA DF E0
        98 02 7A 32 85 DA E1 63 2D 03 08 C5 19 01
       )
   APPLY DEFSTRUCT-WRITER #1=#:SETF-APPLY REMOVE-OLD-DEFINITIONS
   #Y(#1#
      #153Y(00 00 00 00 02 00 00 00 00 03 AE 72 44 DA 90 01 2F 80 61 9F 5C 78
            A0 5C 79 AD 8F 08 80 66 AD 71 92 25 00 80 5F 94 01 25 05 80 59 9E
            5C 78 8F 03 80 52 9E 5C 5B F9 AD 9E 7A B0 30 08 42 05 B1 38 01 31
            9B 78 B0 38 01 31 9B 5B 23 80 41 00 2B 01 B1 38 01 31 9B 5B 0B 00
            00 9D 2B 01 AC 2C 0A 01 0B 00 00 AC 6D 0B 01 B3 B3 B3 B3 A1 74 B3
            A2 74 40 05 19 0D DB DC 01 02 6E 03 03 DE B1 72 44 72 95 33 02 1F
            E0 E1 01 02 6E 03 03 33 00 1F E0 E3 01 02 6E 03 03 B4 33 01 1F
           )
      2. PROGRAM-ERROR
      "The SETF expander for ~S may not be called with ~S arguments." LANGUAGE
      APPLY FUNCTION SOURCE-PROGRAM-ERROR
      "SETF APPLY is only defined for functions of the form #'symbol."
      GET-SETF-EXPANSION "APPLY on ~S is not a SETF place."
      #Y(SPLICE
         #44Y(00 00 00 00 01 00 00 00 00 02 AD 8C 91 13 95 01 6C 78 94 02 69 01
              01 8C FE 0A 94 02 AD 30 02 19 03 00 19 02 69 01 01 AD 30 01 19 03
             )
         NIL BACKQUOTE-APPEND BACKQUOTE-CONS
        )
      #Y(CALL-SPLICING
         #64Y(00 00 00 00 01 00 00 00 00 02 94 01 95 02 07 00 01 74 93 00 21 9D
              20 05 94 00 24 01 19 DC DD AF 7B 02 9F 20 0A 94 02 24 04 12 94 02
              24 05 0D AE 61 01 62 02 19 04 AD 9E 5C 5D 19 04 9F 5C 1B 72
             )
         NIL LIST APPLY FUNCTION LIST* CONS
     )  )
   SETF-EXPANDER -5. SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-98
   #38Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DC 2F 03 DC DE 32 7F DA DF E0
        98 02 7A 32 85 DA E1 63 2D 03 08 C5 19 01
       )
   FUNCALL DEFSTRUCT-WRITER #1=#:SETF-FUNCALL REMOVE-OLD-DEFINITIONS
   #Y(#1#
      #98Y(00 00 00 00 02 00 00 00 00 03 AE 72 44 DA 90 01 2F 2F 9F 5C 78 A0 5C
           79 AD 8F 08 3C AD 71 92 25 00 36 94 01 AC CA 5A 1D 28 16 01 1D 2B 9E
           5C 78 8F 03 25 9E 5C 5B F9 1D 1F AD 9E 7A B0 30 09 19 05 DB DC 01 02
           6E 03 03 DE B1 72 44 72 95 33 02 1F AC CB 5A 16 01 1C 55 E1 E2 01 02
           6E 03 03 33 00 1F
          )
      2. PROGRAM-ERROR
      "The SETF expander for ~S may not be called with ~S arguments." LANGUAGE
      FUNCALL FUNCTION QUOTE SOURCE-PROGRAM-ERROR
      "SETF FUNCALL is only defined for functions of the form #'symbol."
      GET-SETF-EXPANSION
     )
   SETF-EXPANDER -5. SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-99
   #32Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD DE CA 7C 02 32 85 DA
        E0 63 2D 03 07 C5 19 01
       )
   GET-DISPATCH-MACRO-CHARACTER DEFSTRUCT-WRITER SETF-EXPANDER -1. 1.
   #Y(SETF-GET-DISPATCH-MACRO-CHARACTER
      #45Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 A0 5C 5C 78 A1 5C 5C 5C 1C 0F
           C5 14 DB DC B0 B0 B4 B1 7B 05 B2 61 03 19 06 A1 5C 5C 5C 5B 1B 6B
          )
      *READTABLE* PROGN SET-DISPATCH-MACRO-CHARACTER
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-100
   #28Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD 32 85 DA DE 63 2D 03
        05 C5 19 01
       )
   LONG-FLOAT-DIGITS DEFSTRUCT-WRITER SETF-EXPANDER %SET-LONG-FLOAT-DIGITS SETF
   %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-101
   #28Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD 32 85 DA DE 63 2D 03
        05 C5 19 01
       )
   LOGICAL-PATHNAME-TRANSLATIONS DEFSTRUCT-WRITER SETF-EXPANDER
   SET-LOGICAL-PATHNAME-TRANSLATIONS SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-102
   #28Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD 32 85 DA DE 63 2D 03
        05 C5 19 01
       )
   STREAM-EXTERNAL-FORMAT DEFSTRUCT-WRITER SETF-EXPANDER
   SET-STREAM-EXTERNAL-FORMAT SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-103
   #38Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DC 2F 03 DC DE 32 7F DA DF E0
        98 02 7A 32 85 DA E1 63 2D 03 08 C5 19 01
       )
   VALUES DEFSTRUCT-WRITER #1=#:SETF-VALUES REMOVE-OLD-DEFINITIONS
   #Y(#1#
      #31Y(00 00 00 00 02 00 00 00 00 03 95 02 AC AF 30 00 42 05 B0 B0 B0 DB A2
           7A DB A2 7A 40 05 19 09
          )
      SETF-VALUES-AUX VALUES
     )
   SETF-EXPANDER -5. SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-104
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   SETF-VALUES-AUX REMOVE-OLD-DEFINITIONS
   #Y(SETF-VALUES-AUX
      #79Y(00 00 00 00 02 00 00 00 00 03 01 05 B3 1B 20 94 00 83 01 B4 30 00 42
           05 B0 B7 80 A0 0A AF B6 80 A0 09 AE B5 80 A0 08 AD 84 07 AC 84 06 16
           05 9D 21 5D B1 81 46 05 B0 81 46 04 AF 81 46 03 AE 81 46 02 AD 81 46
           01 B1 B1 B1 B1 B1 40 05 19 09
          )
      GET-SETF-EXPANSION
  )  )
#Y(#:TOP-LEVEL-FORM-105
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   MULTIPLE-VALUE-SETF REMOVE-OLD-DEFINITIONS MACRO
   #Y(MULTIPLE-VALUE-SETF
      #62Y(00 00 00 00 01 00 01 00 00 08 3D 01 AE 72 44 DA 90 01 2E 25 9F 5C 78
           A0 5C 5C 78 AD B0 30 02 42 05 DD DE B2 B2 73 01 17 DF B1 B5 B2 94 08
           7B 01 33 02 23 7C 03 61 03 19 0A AE 2F 01 19 03
          )
      3. MACRO-CALL-ERROR SETF-VALUES-AUX LET* #.#'LIST MULTIPLE-VALUE-BIND
  )  )
#Y(#:TOP-LEVEL-FORM-106
   #25Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA 31 52 DA DC 6F 03 31 51 C5 19
        01
       )
   *ANSI* CHECK-NOT-SPECIAL-VARIABLE-P (ANSI) MAKE-SYMBOL-MACRO
  )
#Y(#:TOP-LEVEL-FORM-107
   #28Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD 32 85 DA DE 63 2D 03
        05 C5 19 01
       )
   ANSI DEFSTRUCT-WRITER SETF-EXPANDER SET-ANSI SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-108
   #18Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 2D 03 03 19 01) *ANSI* VARIABLE
   "This symbol-macro modifies some variables for maximum ANSI CL compliance.
Variables affected: `lisp:*floating-point-contagion-ansi*',
 `lisp:*merge-pathnames-ansi*', `lisp:*print-pathnames-ansi*',
 `lisp:*sequence-count-ansi*', `lisp:*coerce-fixnum-char-ansi*'.
Also, `:ansi-cl' is added to (or removed from) `*features*'.
Invoking CLISP with `-a' sets this to T."
   %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-109
   #25Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA 31 52 DA DC 6F 03 31 51 C5 19
        01
       )
   *DEFAULT-FILE-ENCODING* CHECK-NOT-SPECIAL-VARIABLE-P (DEFAULT-FILE-ENCODING)
   MAKE-SYMBOL-MACRO
  )
#Y(#:TOP-LEVEL-FORM-110
   #28Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD 32 85 DA DE 63 2D 03
        05 C5 19 01
       )
   DEFAULT-FILE-ENCODING DEFSTRUCT-WRITER SETF-EXPANDER
   SET-DEFAULT-FILE-ENCODING SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-111-1
   #25Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA 31 52 DA DC 6F 03 31 51 3E 19
        01
       )
   *PATHNAME-ENCODING* CHECK-NOT-SPECIAL-VARIABLE-P (PATHNAME-ENCODING)
   MAKE-SYMBOL-MACRO
  )
#Y(#:TOP-LEVEL-FORM-111-2
   #28Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD 32 85 DA DE 63 2D 03
        05 3E 19 01
       )
   PATHNAME-ENCODING DEFSTRUCT-WRITER SETF-EXPANDER SET-PATHNAME-ENCODING SETF
   %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-111-3
   #25Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA 31 52 DA DC 6F 03 31 51 3E 19
        01
       )
   *TERMINAL-ENCODING* CHECK-NOT-SPECIAL-VARIABLE-P (TERMINAL-ENCODING)
   MAKE-SYMBOL-MACRO
  )
#Y(#:TOP-LEVEL-FORM-111-4
   #28Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD 32 85 DA DE 63 2D 03
        05 3E 19 01
       )
   TERMINAL-ENCODING DEFSTRUCT-WRITER SETF-EXPANDER SET-TERMINAL-ENCODING SETF
   %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-111-5
   #25Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA 31 52 DA DC 6F 03 31 51 3E 19
        01
       )
   *MISC-ENCODING* CHECK-NOT-SPECIAL-VARIABLE-P (MISC-ENCODING)
   MAKE-SYMBOL-MACRO
  )
#Y(#:TOP-LEVEL-FORM-111-6
   #28Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD 32 85 DA DE 63 2D 03
        05 C5 19 01
       )
   MISC-ENCODING DEFSTRUCT-WRITER SETF-EXPANDER SET-MISC-ENCODING SETF
   %SET-DOCUMENTATION
  )
