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