(SYSTEM::VERSION '(SYSTEM::CLISP2 6. LISP:NIL 101293.))
#Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D8 37 02 30 E1 19 01) "SYSTEM")
#Y(#:TOP-LEVEL-FORM-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   SETF-SYMBOL REMOVE-OLD-DEFINITIONS
   #Y(SETF-SYMBOL
      #32Y(01 00 00 00 00 02 D8 AC 71 80 91 00 0E C4 F6 DA AE 71 82 DB 72 05 13
           30 CC 19 02 14 30 CE 1A 6E
          )
      "(SETF " "#" ":" ")"
  )  )
#Y(#:TOP-LEVEL-FORM-3 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   GET-SETF-SYMBOL REMOVE-OLD-DEFINITIONS
   #Y(GET-SETF-SYMBOL
      #44Y(01 00 00 00 00 02 AB D8 37 01 31 7A 1D 1C AB D9 37 01 8E 7A 0B DA DB
           DC 6D 03 05 DE AD 2C 03 07 AB 6E 08 AC D8 AC 31 7E 19 03 19 02
          )
      SETF-FUNCTION SETF-EXPANDER
      "The function (~S ~S) is hidden by a SETF expander."
      "Die Funktion (~S ~S) ist durch einen SETF-Expander verborgen."
      "La fonction (~S ~S) est cachée par une méthode SETF." LANGUAGE SETF WARN
      SETF-SYMBOL
  )  )
#Y(#:TOP-LEVEL-FORM-4 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   GET-FUNNAME-SYMBOL REMOVE-OLD-DEFINITIONS
   #Y(GET-FUNNAME-SYMBOL
      #19Y(01 00 00 00 00 02 9C 1F 07 9C 5B 77 2E 00 19 02 9C 19 02)
      GET-SETF-SYMBOL
  )  )
#Y(#:TOP-LEVEL-FORM-5 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   GET-SETF-METHOD-MULTIPLE-VALUE REMOVE-OLD-DEFINITIONS
   #Y(GET-SETF-METHOD-MULTIPLE-VALUE
      #328Y(01 00 01 00 00 08 3A 01 06 01 02 81 02 00 01 9D 1F 1B 93 02 8E 06
            16 93 02 AC C3 5E 14 8A 01 0D 93 02 DA 37 01 71 7A 91 00 80 5E 16
            01 AC AD AD 7F 5A 03 22 5A AC 8D 06 80 C8 9D 1F 06 93 02 8D 06 80
            D2 DD E4 E5 E6 6D 03 09 AE 32 01 1F 37 01 71 86 01 02 94 06 1A 0C
            37 01 71 86 83 02 93 00 83 01 82 00 9B 20 71 AB 80 47 01 AC AC AF
            7A 01 B1 B0 B2 7A 01 32 02 23 79 93 0B A2 79 3F 05 19 08 94 01 AF
            AF 35 02 19 05 14 8D 06 41 93 00 AA 23 03 6E 01 03 DC 94 08 62 1A
            80 41 7C 06 C7 F8 92 06 23 1A 25 DD DE DF E0 6D 03 09 AC 93 0D 32
            02 1F AA 8E 83 6F AA 83 03 1A 1E 86 01 00 AC B1 8D 01 59 91 06 04
            AC 8D 8C 68 37 01 71 86 AA 83 06 AB 83 05 AA 83 04 16 01 84 02 82
            01 AB 8C 94 5A 16 03 93 07 AB 31 47 5C F6 37 01 71 86 AD 71 47 AD
            71 47 AC 7A 01 94 08 AF AF 75 02 AF 3F 05 19 09 37 01 71 86 01 02
            AC 7A 01 E2 B1 AF 7A 03 B1 3F 05 19 04 37 01 71 86 01 02 94 05 1A
            0C 37 01 71 86 83 02 93 00 83 01 82 00 9B 20 71 AB 80 47 01 AC AC
            AF 7A 01 E3 93 0A 7A 02 B1 A2 7B 02 93 0A A2 79 3F 05 19 07
           )
      1. GLOBAL-IN-FENV-P SETF-EXPANDER -5. 0. PROGRAM-ERROR
      "The argument ~S to ~S should be a keyword."
      "Das Argument ~S zu ~S sollte ein Keyword sein."
      "L'argument ~S de ~S doit être un mot-clé." LANGUAGE SETQ SETF
      "Argument ~S is not a SETF place."
      "Das Argument muß eine 'SETF-place' sein, ist aber keine: ~S"
      "L'argument ~S doit représenter une place modifiable."
  )  )
#Y(#:TOP-LEVEL-FORM-6 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   GET-SETF-METHOD REMOVE-OLD-DEFINITIONS
   #Y(GET-SETF-METHOD
      #48Y(01 00 01 00 00 08 3A 01 06 01 02 81 02 00 01 AC AC 2F 00 41 05 9D 1F
           0D 9D 5B 1B 09 AE AE AE AE AE 3F 05 19 08 D9 DA DB DC 6D 03 05 B3 32
           01 1F
          )
      GET-SETF-METHOD-MULTIPLE-VALUE PROGRAM-ERROR
      "SETF place ~S produces more than one store variable."
      "Diese 'SETF-place' produziert mehrere 'Store-Variable': ~S"
      "La place modifiable ~S produit plusieurs variables de résultat."
      LANGUAGE
  )  )
#Y(#:TOP-LEVEL-FORM-7 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   SIMPLE-ASSIGNMENT-P REMOVE-OLD-DEFINITIONS
   #Y(SIMPLE-ASSIGNMENT-P
      #50Y(02 00 00 00 00 03 AB 71 45 C3 59 1E 23 AC 31 04 1E 1E 93 02 C4 59 1E
           18 AC 71 45 C5 59 1E 11 9D 5B 77 31 06 1E 0A 9D 5B 5B 77 93 02 2F 03
           19 03 19 03
          )
      1. SETQ 3. SIMPLE-USE-P
  )  )
#Y(#:TOP-LEVEL-FORM-8 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   SIMPLE-USE-P REMOVE-OLD-DEFINITIONS
   #Y(SIMPLE-USE-P
      #40Y(02 00 00 00 00 03 AC 9D 59 1D 1B AC 31 04 1E 16 93 02 C3 59 1E 10 AC
           71 45 C4 59 1E 09 9D 5B 5B 77 AC 28 02 05 60 19 03
          )
      THE 3.
  )  )
#Y(#:TOP-LEVEL-FORM-9 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DOCUMENTATION REMOVE-OLD-DEFINITIONS
   #Y(DOCUMENTATION
      #37Y(02 00 00 00 00 03 AC 88 00 0F AC 6E 07 E0 37 01 71 7A AC 37 01 31 7B
           19 03 D9 DA DB DC 6D 03 05 DE AF 32 02 1F
          )
      FUNCTION-NAME-P ERROR "~S: first argument ~S is illegal, not a symbol"
      "~S: Das ist als erstes Argument unzulässig, da kein Symbol: ~S"
      "~S : Le premier argument ~S est invalide car ce n'est pas un symbole."
      LANGUAGE DOCUMENTATION GET-FUNNAME-SYMBOL DOCUMENTATION-STRINGS
  )  )
#Y(#:TOP-LEVEL-FORM-10 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   %SET-DOCUMENTATION REMOVE-OLD-DEFINITIONS
   #Y(%SET-DOCUMENTATION
      #134Y(03 00 00 00 00 04 AD 88 00 1D AD 2E 07 F9 92 01 22 AD E0 37 01 71
            7A AD AD 6D 03 0C 92 00 05 AE E0 AC 31 7E 9D 19 05 D9 DA DB DC 6D
            03 05 DE B0 32 02 1F AD E0 37 01 71 7A AD 37 01 8E 7B 80 43 AD E0
            37 01 71 7A AA 62 1A 34 D9 E1 E2 E3 6D 03 05 32 00 1F 78 9D 5B 78
            30 AB 16 03 1A 25 91 00 73 9D 5B 5B F8 B0 E0 AE 31 7E 16 03 1A 15
            9C 5B 1F 58 93 01 A1 21 67 9C 5B 78 9D F7 69 01 9C 20 6D 16 03 00
            19 04
           )
      FUNCTION-NAME-P ERROR "~S: first argument ~S is illegal, not a symbol"
      "~S: Das ist als erstes Argument unzulässig, da kein Symbol: ~S"
      "~S : Le premier argument ~S est invalide car ce n'est pas un symbole."
      LANGUAGE DOCUMENTATION GET-FUNNAME-SYMBOL DOCUMENTATION-STRINGS
      "REMF: property list with an odd length"
      "REMF: Property-Liste ungerader Länge aufgetreten."
      "REMF : Occurence d'une liste de propriétés de longueur impaire." %PUTF
  )  )
#Y(#:TOP-LEVEL-FORM-11
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01) PUSH
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(PUSH
      #104Y(01 00 01 00 00 08 3C 01 AC 71 45 D8 8F 01 2E 38 9D 5B 77 9E 5B 5B
            77 37 01 71 86 AB AF 2F 02 41 05 DB AF AF 72 01 17 91 00 23 A3 FC
            DC B1 AD 7A 03 AD AF 89 05 1F AB 93 05 AC 7A 02 7A 01 81 02 24 01
            91 01 1C 9E 19 0D AC 2E 01 19 03 B0 B3 7A 02 83 00 1A 57 AA 93 05
            AF 37 03 7F AD 03 92 01 64 DE AC AF 60 03 19 0D
           )
      3. MACRO-CALL-ERROR GET-SETF-METHOD #.#'LIST CONS SIMPLE-ASSIGNMENT-P
      LET*
  )  )
#Y(#:TOP-LEVEL-FORM-12
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01)
   DEFINE-SETF-METHOD REMOVE-OLD-DEFINITIONS MACRO
   #Y(DEFINE-SETF-METHOD
      #253Y(01 00 01 00 00 08 3C 01 AC 71 45 D8 8F 01 2F 80 CF 9D 5B 77 9E 5B
            5B 77 9F 5B 5B 78 AC 8E 06 80 C4 AA 63 B0 30 60 41 03 91 02 02 CA
            F8 E0 B0 71 82 72 02 13 70 CC AF AB 2F 09 41 02 CD 10 0B CD 10 0C
            00 10 0D 00 10 0E 00 10 0F 00 10 10 BD E9 C0 EA 2C 04 13 91 13 03
            EC 83 16 EA 6E 15 EE 6A 0E 71 47 91 19 80 89 00 14 6A 0F 65 1C 32
            03 23 7B 02 92 01 12 F0 AC F1 F2 F3 F4 65 22 7A 02 03 1D 7B 04 AD
            60 04 F6 64 1E 64 1F 64 20 62 64 21 65 1B EA 91 1B 02 03 22 14 7A
            02 91 1B 80 5A 03 23 14 B2 7A 01 32 02 23 7B 03 64 24 F4 65 23 7A
            02 64 25 64 26 64 27 64 28 65 21 7A 02 7A 03 7A 04 64 29 F4 65 24
            7A 02 64 2A F4 65 21 7A 02 7A 04 F4 65 24 7A 02 7A 06 60 03 16 02
            12 06 19 0C AC 2E 01 19 03 DA DB DC DD 6D 03 06 AE 32 01 1F EF 04
            1A 79 60 01 1A FF 6F 00 1A FF A4
           )
      3. MACRO-CALL-ERROR PROGRAM-ERROR
      "The name of the access function must be a symbol, not ~S"
      "Der Name der Access-Function muß ein Symbol sein und nicht ~S."
      "Le nom de la fonction d'accès doit être un symbole et non ~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 IF ERROR-OF-TYPE
      'PROGRAM-ERROR
      (DEUTSCH
       "Der SETF-Expander für ~S kann nicht mit ~S Argumenten aufgerufen werden."
       ENGLISH "The SETF expander for ~S may not be called with ~S arguments."
       FRANCAIS
       "L'«expandeur» SETF pour ~S ne peut pas être appelé avec ~S arguments."
      )
      QUOTE ((1- (LENGTH %LAMBDA-LIST))) EVAL-WHEN (LOAD COMPILE EVAL) LET
      DEFUN ENV ((DECLARE (IGNORE ENV))) %PUT 'SETF-EXPANDER CONS -5. FUNCTION
      %SET-DOCUMENTATION 'SETF
  )  )
#Y(#:TOP-LEVEL-FORM-13
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01) DEFSETF
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(DEFSETF
      #373Y(01 00 01 00 00 08 3C 01 AC 71 45 D8 8F 01 2F 36 9D 5B 77 9E 5B 78
            9B 1F 0B 93 00 8D 0B 06 93 00 8D 06 80 43 9B 1F 10 93 00 8E 0B 0B
            9B 5B 1F 07 9B 5B 77 8D 0B 80 84 E2 64 34 64 35 64 36 6D 03 0E 9E
            14 32 01 1F AC 2E 01 19 03 E2 E3 E4 E5 6D 03 0E A5 5B 1A 6C A3 5B
            5B 1B 70 E2 E7 E8 E9 6D 03 0E A5 5B 5A 1A 5B DA DB DC 62 DD DE B1
            7A 02 DF DE 93 08 7A 02 7A 04 E0 DE B2 7A 02 E1 A3 5B 5B 1B 53 A3
            5B 5A 1C 06 A3 5B 77 8E 07 48 A3 5B 77 7A 04 DE B2 7A 02 7A 05 60
            03 19 05 E2 EC ED EE 6D 03 0E 32 00 1F 0E 1E 1A 80 68 03 2A 1A 80
            71 64 2C 04 1C 79 60 01 1A 80 73 9B 5B 77 71 45 EA 8F 01 2D 18 9B
            5B 77 71 45 EB 8F 01 2D 4E EF F0 F1 6D 03 0E F2 F3 F4 6D 03 0E 2F
            1D 9B 5B 78 63 AF 30 60 41 03 62 93 04 A0 5B 5A 77 D6 10 1E D6 10
            1F 00 10 20 00 10 21 00 10 22 00 10 23 BD 64 24 65 1B 64 25 2C 04
            26 64 27 BE 37 03 8B B5 FF 95 03 28 09 14 64 29 64 25 BE 7A 02 92
            15 FF 8B 00 14 64 2B 6A 21 71 47 91 1B FF 84 00 14 6A 22 65 1E 32
            03 23 7B 02 7A 01 32 02 23 61 02 12 06 16 01 F6 DA 64 2D DC 62 DD
            DE B6 7A 02 64 2E 64 2F B3 64 30 64 31 BB 6F 32 B5 7A 03 7A 03 7A
            04 E0 DE B7 7A 02 64 33 B4 7A 04 DE B7 7A 02 7A 05 60 03 19 0A
           )
      2. MACRO-CALL-ERROR EVAL-WHEN (LOAD COMPILE EVAL) LET %PUT QUOTE
      'SETF-EXPANDER %SET-DOCUMENTATION 'SETF PROGRAM-ERROR
      "Too many arguments to DEFSETF: ~S" "Zu viele Argumente für DEFSETF: ~S"
      "Trop d'arguments pour DEFSETF : ~S" LANGUAGE
      "The doc string to DEFSETF must be a string: ~S"
      "Der Dok.-String zu DEFSETF muß ein String sein: ~S"
      "La documentation pour DEFSETF doit être un chaîne : ~S" 1. 0.
      "Missing store variable in DEFSETF."
      "Bei DEFSETF muß genau eine 'Store-Variable' angegeben werden."
      "Une variable de résultat doit être précisée dans DEFSETF."
      "The excess variables will be ignored."
      "Die überzähligen Variablen werden ignoriert."
      "Les variables en excès seront ignorées."
      "Only one store variable is allowed in DEFSETF."
      "Bei DEFSETF ist nur eine 'Store-Variable' erlaubt."
      "Une seule variable de résultat est permise dans DEFSETF." CERROR
      %ARG-COUNT %MIN-ARGS %RESTP %LET-LIST %KEYWORD-TESTS %DEFAULT-FORM
      (CDR %ACCESS-ARGLIST) %ACCESS-ARGLIST ANALYZE1 &KEY -1. LAMBDA
      ((DECLARE (IGNORE %ACCESS-ARGLIST))) LET* DECLARE (LOAD COMPILE EVAL)
      'SETF-EXPANDER CONS FUNCTION "SETF-" CONCAT-PNAMES 'SETF
      "Illegal syntax in DEFSETF for ~S"
      "DEFSETF-Aufruf für ~S ist falsch aufgebaut."
      "Le DEFSETF ~S est mal formé."
  )  )
#Y(#:TOP-LEVEL-FORM-14
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01) POP
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(POP
      #126Y(01 00 01 00 00 08 3C 01 AC 71 45 D8 8F 01 2E 80 50 9D 5B 77 AA AD
            2F 02 41 05 AE AE 62 92 02 0F 93 02 93 02 7A 02 83 00 82 02 82 01
            91 02 71 AD 8E 06 05 AE B0 89 03 2E 93 05 AE 7A 02 83 00 A0 5A 14
            DC AB 7A 02 DD DE AD 7A 02 B2 B4 89 03 19 DF 93 0A AE 7A 03 B3 60
            02 7B 02 91 03 17 15 19 0E AC 2E 01 19 03 9E 1A 58 AC 93 0A B4 37
            03 70 AD 60 01 1A 64 E0 AE 71 47 AC 60 03 19 0F
           )
      2. MACRO-CALL-ERROR GET-SETF-METHOD SIMPLE-ASSIGNMENT-P CDR PROG1 CAR
      SETQ LET*
  )  )
#Y(#:TOP-LEVEL-FORM-15
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01) PSETF
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(PSETF
      #94Y(01 00 01 00 00 08 3C 01 94 02 AA 01 02 1A 3F D8 D9 DA DB 6D 03 04 DD
           B3 32 02 1F 9D 5B 1F 70 93 02 B0 2F 06 41 05 AE AE 92 01 0F 93 01 93
           01 7A 02 83 08 82 01 82 00 91 01 71 16 02 93 02 A3 5B 77 7A 02 83 06
           AB 83 05 16 05 9D 5B 5B F8 9D 20 4A DF AC 71 47 AC E0 32 02 23 61 02
           19 07
          )
      PROGRAM-ERROR "~S called with an odd number of arguments: ~S"
      "~S mit einer ungeraden Zahl von Argumenten aufgerufen: ~S"
      "~S fut appelé avec un nombre impair d'arguments : ~S" LANGUAGE PSETF
      GET-SETF-METHOD LET* (NIL)
  )  )
#Y(#:TOP-LEVEL-FORM-16
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01) PUSHNEW
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(PUSHNEW
      #109Y(01 00 01 00 00 08 3C 01 AC 71 45 D8 8F 01 2F 3D 9D 5B 77 9E 5B 5B
            77 9F 5B 5B 78 37 01 71 86 AC B0 2F 02 41 05 DB AF AF 72 01 17 91
            00 24 A4 FC DC B1 AD A5 7B 03 AD AF 89 05 1F AB 93 05 AC 7A 02 7A
            01 81 02 24 01 91 01 1C 9E 19 0E AC 2E 01 19 03 B0 B4 7A 02 83 00
            1A 56 AA 93 05 AF 37 03 7F AD 03 92 01 64 DE AC AF 60 03 19 0E
           )
      3. MACRO-CALL-ERROR GET-SETF-METHOD #.#'LIST ADJOIN SIMPLE-ASSIGNMENT-P
      LET*
  )  )
#Y(#:TOP-LEVEL-FORM-17
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01) REMF
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(REMF
      #183Y(01 00 01 00 00 08 3C 01 AC 71 45 D8 8F 01 2E 80 97 9D 5B 77 9E 5B
            5B 77 AB AE 2F 02 41 05 AE AE 62 37 01 71 86 37 01 71 86 37 01 71
            86 92 05 0F 93 05 93 05 7A 02 83 03 82 05 82 04 91 05 71 93 08 B1
            7A 02 83 03 AC B6 7A 02 83 03 DB AE 71 47 DC AE 93 0C DD B1 7A 02
            7A 03 AE 62 B1 7A 03 7A 02 DE B0 7A 02 CA 79 E0 DE E1 B3 7A 02 7A
            02 CD 79 E3 E4 B4 7A 02 B5 7A 03 E5 B3 E6 E1 B6 7A 02 DD B8 7A 02
            7A 03 DD 93 14 7A 02 BD BF 89 0F 1D E8 E9 93 16 AD 7A 03 BF 60 03
            F6 7A 04 D5 7B 02 7A 03 7A 04 60 03 19 10 AC 2E 01 19 03 AA 93 15
            BF 37 03 30 AD 1A 63
           )
      3. MACRO-CALL-ERROR GET-SETF-METHOD LET* DO CDDR ATOM (NIL) COND CDR
      ((ERROR-OF-TYPE 'ERROR
        (DEUTSCH "REMF: Property-Liste ungerader Länge aufgetreten." ENGLISH
         "REMF: property list with an odd length" FRANCAIS
         "REMF : Occurence d'une liste de propriétés de longueur impaire."
      )))
      EQ CAR IF RPLACD SIMPLE-ASSIGNMENT-P PROGN SETQ ((RETURN T))
  )  )
#Y(#:TOP-LEVEL-FORM-18
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01) ROTATEF
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(ROTATEF
      #106Y(01 00 01 00 00 08 3C 01 94 02 92 00 09 9B 5B 1C 08 AA 01 04 1A 3E
            00 19 04 D8 93 01 C4 61 02 19 04 93 04 B2 2F 02 41 05 AE AE 92 01
            0F 93 01 93 01 7A 02 83 0A 82 01 82 00 91 01 71 16 02 B0 AB 7A 02
            83 08 91 05 03 86 08 05 AB 83 07 86 02 06 16 05 82 04 9F 20 4A AA
            AC 30 AA DB AE 71 47 AE 71 47 DC 32 02 23 61 02 19 09
           )
      PROGN (NIL) GET-SETF-METHOD LET* (NIL)
  )  )
#Y(#:TOP-LEVEL-FORM-19
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01)
   DEFINE-MODIFY-MACRO REMOVE-OLD-DEFINITIONS MACRO
   #Y(DEFINE-MODIFY-MACRO
      #295Y(01 00 01 00 00 08 D8 AD 71 45 D9 90 02 31 80 50 9D 5B 77 9E 5B 5B
            77 9F 5B 5B 5B 77 AF 70 97 01 02 AE 62 92 01 80 7D 86 01 00 14 23
            03 80 6F AA 23 04 80 43 AA 23 0D 80 57 AA 23 0E 80 52 AA 23 0F 80
            4D AA 8D 06 80 4E AA 8E 0B 06 93 00 8D 06 80 47 DD EB EC 03 15 14
            6D 03 09 9D 14 32 01 1F AC 2E 02 19 03 DD DE DF E0 6D 03 09 B3 9F
            5B 77 32 02 1F 16 02 1A 2F 9C 5B 77 8E 06 68 9C 5B 5A F8 9C 5B 5B
            1C 6D DD E2 E3 E4 6D 03 09 9E 1A 4C DD E8 E9 D5 1A 41 9B 1A 02 9B
            5A 14 83 03 82 01 91 01 FF 83 16 02 AB 80 47 01 EE B0 EF B1 F0 32
            02 23 79 AF F1 F2 F3 F4 F5 64 1E 64 1F 64 20 64 21 64 22 64 23 64
            24 BD 7A 02 64 25 BC BC 7A 01 32 02 23 7B 03 03 26 7B 02 7A 02 7A
            03 64 27 64 28 64 29 64 2A 64 2B 64 28 64 2C 64 2D 64 23 64 24 C2
            7A 02 64 25 C1 C1 7A 01 32 02 23 7B 03 7A 04 64 23 64 24 C0 7A 02
            64 25 BF BF 7A 01 32 02 23 7B 03 7A 04 7A 03 03 2E 7B 02 03 2F 7B
            03 7A 03 7A 04 60 05 19 09
           )
      4. 5. MACRO-CALL-ERROR &OPTIONAL &REST PROGRAM-ERROR
      "In the definition of ~S: &REST variable ~S should be a symbol."
      "In der Definition von ~S ist die &REST-Variable kein Symbol: ~S"
      "Dans la définition de ~S la variable pour &REST n'est pas un symbole : ~S."
      LANGUAGE "Only one variable is allowed after &REST, not ~S"
      "Nach &REST ist nur eine Variable erlaubt; es kam: ~S"
      "Une seule variable est permise pour &REST et non ~S." &KEY
      &ALLOW-OTHER-KEYS &AUX "Illegal in a DEFINE-MODIFY-MACRO lambda list: ~S"
      "In einer DEFINE-MODIFY-MACRO-Lambdaliste ist ~S unzulässig."
      "~S n'est pas permis dans une liste lambda pour DEFINE-MODIFY-MACRO."
      "lambda list may only contain symbols and lists, not ~S"
      "Lambdalisten dürfen nur Symbole und Listen enthalten, nicht aber ~S"
      "Les listes lambda ne peuvent contenir que des symboles et des listes et non ~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-20
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01) DECF
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(DECF
      #136Y(01 00 01 00 00 08 3C 01 D8 AD 71 45 D9 90 02 31 80 4D 9D 5B 77 9E
            5B 5B 1B 80 49 C6 14 AB AE 2F 04 41 05 AE AE 62 92 02 13 94 02 94
            02 93 04 93 04 7A 02 83 02 69 02 69 02 91 02 6D AD 8D 06 2B 93 05
            B4 8E 0B 05 93 0A 23 06 2F DD AF B5 00 61 03 14 7A 02 83 00 DF AB
            71 47 B0 60 03 19 0D AC 2E 02 19 03 9E 5B 5B 5A 1A FF B1 DD AE B4
            00 7B 03 93 06 B0 37 03 30 AD 19 0D DE A6 5B 77 DD B1 B7 00 7B 03
            60 03 1A 49
           )
      2. 3. MACRO-CALL-ERROR 1. GET-SETF-METHOD - THE LET*
  )  )
#Y(#:TOP-LEVEL-FORM-21
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01) INCF
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(INCF
      #136Y(01 00 01 00 00 08 3C 01 D8 AD 71 45 D9 90 02 31 80 4D 9D 5B 77 9E
            5B 5B 1B 80 49 C6 14 AB AE 2F 04 41 05 AE AE 62 92 02 13 94 02 94
            02 93 04 93 04 7A 02 83 02 69 02 69 02 91 02 6D AD 8D 06 2B 93 05
            B4 8E 0B 05 93 0A 23 06 2F DD AF B5 00 61 03 14 7A 02 83 00 DF AB
            71 47 B0 60 03 19 0D AC 2E 02 19 03 9E 5B 5B 5A 1A FF B1 DD AE B4
            00 7B 03 93 06 B0 37 03 30 AD 19 0D DE A6 5B 77 DD B1 B7 00 7B 03
            60 03 1A 49
           )
      2. 3. MACRO-CALL-ERROR 1. GET-SETF-METHOD + THE LET*
  )  )
#Y(#:TOP-LEVEL-FORM-22
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01) SETF
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(SETF
      #382Y(01 00 01 00 00 08 3C 01 94 02 AA 71 45 AA 23 00 81 1B AA 8D 8B 81
            5B AB 62 92 01 11 DE 93 02 9E 5B 77 7A 03 83 00 9C 5B 5B F7 91 01
            6F F2 62 F3 AD 31 47 5C 14 60 03 19 07 AA 94 03 AD 7A 01 32 02 23
            5C 19 08 DE 9E 5B 5B 77 DC A0 5B 77 AF 7A 03 60 03 19 08 DF DE 9F
            5B 77 E0 AF 7A 02 7A 03 60 02 19 08 E2 93 06 B5 7A 02 9D 79 71 47
            A1 1A 80 97 15 16 01 1C 80 5A 1A 80 84 14 8D 06 FF B9 93 02 24 04
            07 AC 71 45 23 05 FF B9 93 02 24 07 07 AC 71 45 23 00 FF BD AC B1
            2F 09 41 05 AE AE 62 92 02 0F 93 02 93 02 7A 02 83 00 82 02 82 01
            91 02 71 AF 71 45 23 01 FF AA 9F 1F 80 41 93 04 24 0B 3C AF 94 05
            91 01 28 9C 58 1B FF A4 16 02 1C 2D E5 94 05 72 00 17 E2 AC 71 47
            E6 AD B8 7A 03 E3 9F 79 60 04 19 11 94 01 82 01 69 01 92 01 58 92
            00 55 93 00 93 02 7A 01 89 0C 6B 16 02 E2 AB 71 47 E7 B2 B7 B3 60
            04 14 60 03 19 10 E8 AC 9D 1A FF 20 AB B0 2F 09 41 05 E2 E9 B0 B0
            72 01 17 B1 93 05 AF 37 03 70 AD 60 03 19 0C 93 01 9D 5B 77 9C 1F
            1B 93 01 8E 06 16 93 01 B0 C4 5E 14 8A 02 0D 93 01 DB 37 01 71 7A
            91 00 FF 2D 16 01 AB AC B1 7F 5A 02 22 5A AB 8D 06 FF B1 A1 1F 06
            93 06 8D 06 FF AE EA EB EC ED 6D 03 16 93 05 32 01 1F EA EF F0 F1
            6D 03 16 DE B1 32 02 1F
           )
      2. 1. GLOBAL-IN-FENV-P SETF-EXPANDER THE 3. SETF VALUES-LIST
      MULTIPLE-VALUE-LIST GET-SETF-METHOD-MULTIPLE-VALUE LET* VALUES
      SIMPLE-ASSIGNMENT-P #.#'SECOND MULTIPLE-VALUE-SETQ MULTIPLE-VALUE-BIND
      SETQ #.#'LIST PROGRAM-ERROR "Illegal SETF place: ~S"
      "Das ist keine erlaubte 'SETF-Place' : ~S"
      "Ceci n'est pas une place modifiable valide : ~S" LANGUAGE
      "~S called with an odd number of arguments: ~S"
      "~S mit einer ungeraden Zahl von Argumenten aufgerufen: ~S"
      "~S fut appelé avec un nombre impair d'arguments : ~S" LET PROGN
  )  )
#Y(#:TOP-LEVEL-FORM-23
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01) SHIFTF
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(SHIFTF
      #112Y(01 00 01 00 00 08 3C 01 94 02 AA 71 45 D8 8F 01 2F 0A 37 01 71 86
            AB 01 02 AD 1A 38 D9 DA DB DC 6D 03 05 AF 32 01 1F 93 03 B2 2F 06
            41 05 AE AE 92 01 0F 93 01 93 01 7A 02 83 09 82 01 82 00 91 01 71
            16 02 AF AB 7A 02 83 07 AB 83 06 86 02 05 16 05 82 03 9E 5B 20 4F
            AA 93 04 7A 02 83 02 DF AD 71 47 AD 71 47 B1 7A 01 32 02 23 61 02
            19 09
           )
      2. PROGRAM-ERROR "SHIFTF called with too few arguments: ~S"
      "SHIFTF mit zu wenig Argumenten aufgerufen: ~S"
      "SHIFTF fut appelé avec trop peu d'arguments : ~S" LANGUAGE
      GET-SETF-METHOD LET*
  )  )
#Y(#:TOP-LEVEL-FORM-24
   #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 7E D8 DC 62 2C 03 05 C3 19 01) AREF
   SETF-EXPANDER -1.
   #Y(SETF-AREF
      #25Y(02 00 00 00 00 03 9D 5B 77 9E 5B 78 D8 AC AC B0 7A 01 32 02 23 61 02
           19 05
          )
      STORE
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-25 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   %SETNTH REMOVE-OLD-DEFINITIONS
   #Y(%SETNTH
      #32Y(03 00 00 00 00 04 AD AD 70 9D 92 00 07 AA AD 30 A9 9D 19 05 D8 D9 DA
           DB 6D 03 04 B0 B0 32 02 1F
          )
      ERROR "(SETF (NTH ...) ...) : index ~S is too large for ~S"
      "(SETF (NTH ...) ...) : Index ~S ist zu groß für ~S."
      "(SETF (NTH ...) ...) : L'index ~S est trop grand pour ~S." LANGUAGE
  )  )
#Y(#:TOP-LEVEL-FORM-26
   #20Y(00 00 00 00 00 01 D8 D9 DA 31 7E D8 DB 62 2C 03 04 C3 19 01) NTH
   SETF-EXPANDER %SETNTH SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-27
   #20Y(00 00 00 00 00 01 D8 D9 DA 31 7E D8 DB 62 2C 03 04 C3 19 01) ELT
   SETF-EXPANDER %SETELT SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-28
   #20Y(00 00 00 00 00 01 D8 D9 DA 31 7E D8 DB 62 2C 03 04 C3 19 01) REST
   SETF-EXPANDER %RPLACD SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-29
   #20Y(00 00 00 00 00 01 D8 D9 DA 31 7E D8 DB 62 2C 03 04 C3 19 01) FIRST
   SETF-EXPANDER %RPLACA SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-30
   #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 7E D8 DC 62 2C 03 05 C3 19 01)
   SECOND SETF-EXPANDER -1.
   #Y(SETF-SECOND
      #19Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04) %RPLACA
      CDR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-31
   #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 7E D8 DC 62 2C 03 05 C3 19 01)
   THIRD SETF-EXPANDER -1.
   #Y(SETF-THIRD #19Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04)
      %RPLACA CDDR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-32
   #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 7E D8 DC 62 2C 03 05 C3 19 01)
   FOURTH SETF-EXPANDER -1.
   #Y(SETF-FOURTH
      #19Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04) %RPLACA
      CDDDR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-33
   #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 7E D8 DC 62 2C 03 05 C3 19 01)
   FIFTH SETF-EXPANDER -1.
   #Y(SETF-FIFTH #19Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04)
      %RPLACA CDDDDR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-34
   #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 7E D8 DC 62 2C 03 05 C3 19 01)
   SIXTH SETF-EXPANDER -1.
   #Y(SETF-SIXTH
      #22Y(02 00 00 00 00 03 9D 5B 77 D8 D9 DA AD 7A 02 7A 02 AE 60 03 19 04)
      %RPLACA CDR CDDDDR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-35
   #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 7E D8 DC 62 2C 03 05 C3 19 01)
   SEVENTH SETF-EXPANDER -1.
   #Y(SETF-SEVENTH
      #22Y(02 00 00 00 00 03 9D 5B 77 D8 D9 DA AD 7A 02 7A 02 AE 60 03 19 04)
      %RPLACA CDDR CDDDDR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-36
   #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 7E D8 DC 62 2C 03 05 C3 19 01)
   EIGHTH SETF-EXPANDER -1.
   #Y(SETF-EIGHTH
      #22Y(02 00 00 00 00 03 9D 5B 77 D8 D9 DA AD 7A 02 7A 02 AE 60 03 19 04)
      %RPLACA CDDDR CDDDDR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-37
   #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 7E D8 DC 62 2C 03 05 C3 19 01)
   NINTH SETF-EXPANDER -1.
   #Y(SETF-NINTH
      #22Y(02 00 00 00 00 03 9D 5B 77 D8 D9 D9 AD 7A 02 7A 02 AE 60 03 19 04)
      %RPLACA CDDDDR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-38
   #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 7E D8 DC 62 2C 03 05 C3 19 01)
   TENTH SETF-EXPANDER -1.
   #Y(SETF-TENTH
      #25Y(02 00 00 00 00 03 9D 5B 77 D8 D9 DA DA AE 7A 02 7A 02 7A 02 AE 60 03
           19 04
          )
      %RPLACA CDR CDDDDR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-39
   #20Y(00 00 00 00 00 01 D8 D9 DA 31 7E D8 DB 62 2C 03 04 C3 19 01) CAR
   SETF-EXPANDER %RPLACA SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-40
   #20Y(00 00 00 00 00 01 D8 D9 DA 31 7E D8 DB 62 2C 03 04 C3 19 01) CDR
   SETF-EXPANDER %RPLACD SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-41
   #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 7E D8 DC 62 2C 03 05 C3 19 01) CAAR
   SETF-EXPANDER -1.
   #Y(SETF-CAAR #19Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04)
      %RPLACA CAR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-42
   #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 7E D8 DC 62 2C 03 05 C3 19 01) CADR
   SETF-EXPANDER -1.
   #Y(SETF-CADR #19Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04)
      %RPLACA CDR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-43
   #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 7E D8 DC 62 2C 03 05 C3 19 01) CDAR
   SETF-EXPANDER -1.
   #Y(SETF-CDAR #19Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04)
      %RPLACD CAR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-44
   #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 7E D8 DC 62 2C 03 05 C3 19 01) CDDR
   SETF-EXPANDER -1.
   #Y(SETF-CDDR #19Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04)
      %RPLACD CDR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-45
   #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 7E D8 DC 62 2C 03 05 C3 19 01)
   CAAAR SETF-EXPANDER -1.
   #Y(SETF-CAAAR #19Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04)
      %RPLACA CAAR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-46
   #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 7E D8 DC 62 2C 03 05 C3 19 01)
   CAADR SETF-EXPANDER -1.
   #Y(SETF-CAADR #19Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04)
      %RPLACA CADR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-47
   #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 7E D8 DC 62 2C 03 05 C3 19 01)
   CADAR SETF-EXPANDER -1.
   #Y(SETF-CADAR #19Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04)
      %RPLACA CDAR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-48
   #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 7E D8 DC 62 2C 03 05 C3 19 01)
   CADDR SETF-EXPANDER -1.
   #Y(SETF-CADDR #19Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04)
      %RPLACA CDDR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-49
   #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 7E D8 DC 62 2C 03 05 C3 19 01)
   CDAAR SETF-EXPANDER -1.
   #Y(SETF-CDAAR #19Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04)
      %RPLACD CAAR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-50
   #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 7E D8 DC 62 2C 03 05 C3 19 01)
   CDADR SETF-EXPANDER -1.
   #Y(SETF-CDADR #19Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04)
      %RPLACD CADR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-51
   #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 7E D8 DC 62 2C 03 05 C3 19 01)
   CDDAR SETF-EXPANDER -1.
   #Y(SETF-CDDAR #19Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04)
      %RPLACD CDAR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-52
   #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 7E D8 DC 62 2C 03 05 C3 19 01)
   CDDDR SETF-EXPANDER -1.
   #Y(SETF-CDDDR #19Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04)
      %RPLACD CDDR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-53
   #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 7E D8 DC 62 2C 03 05 C3 19 01)
   CAAAAR SETF-EXPANDER -1.
   #Y(SETF-CAAAAR
      #19Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04) %RPLACA
      CAAAR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-54
   #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 7E D8 DC 62 2C 03 05 C3 19 01)
   CAAADR SETF-EXPANDER -1.
   #Y(SETF-CAAADR
      #19Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04) %RPLACA
      CAADR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-55
   #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 7E D8 DC 62 2C 03 05 C3 19 01)
   CAADAR SETF-EXPANDER -1.
   #Y(SETF-CAADAR
      #19Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04) %RPLACA
      CADAR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-56
   #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 7E D8 DC 62 2C 03 05 C3 19 01)
   CAADDR SETF-EXPANDER -1.
   #Y(SETF-CAADDR
      #19Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04) %RPLACA
      CADDR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-57
   #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 7E D8 DC 62 2C 03 05 C3 19 01)
   CADAAR SETF-EXPANDER -1.
   #Y(SETF-CADAAR
      #19Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04) %RPLACA
      CDAAR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-58
   #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 7E D8 DC 62 2C 03 05 C3 19 01)
   CADADR SETF-EXPANDER -1.
   #Y(SETF-CADADR
      #19Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04) %RPLACA
      CDADR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-59
   #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 7E D8 DC 62 2C 03 05 C3 19 01)
   CADDAR SETF-EXPANDER -1.
   #Y(SETF-CADDAR
      #19Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04) %RPLACA
      CDDAR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-60
   #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 7E D8 DC 62 2C 03 05 C3 19 01)
   CADDDR SETF-EXPANDER -1.
   #Y(SETF-CADDDR
      #19Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04) %RPLACA
      CDDDR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-61
   #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 7E D8 DC 62 2C 03 05 C3 19 01)
   CDAAAR SETF-EXPANDER -1.
   #Y(SETF-CDAAAR
      #19Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04) %RPLACD
      CAAAR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-62
   #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 7E D8 DC 62 2C 03 05 C3 19 01)
   CDAADR SETF-EXPANDER -1.
   #Y(SETF-CDAADR
      #19Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04) %RPLACD
      CAADR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-63
   #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 7E D8 DC 62 2C 03 05 C3 19 01)
   CDADAR SETF-EXPANDER -1.
   #Y(SETF-CDADAR
      #19Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04) %RPLACD
      CADAR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-64
   #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 7E D8 DC 62 2C 03 05 C3 19 01)
   CDADDR SETF-EXPANDER -1.
   #Y(SETF-CDADDR
      #19Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04) %RPLACD
      CADDR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-65
   #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 7E D8 DC 62 2C 03 05 C3 19 01)
   CDDAAR SETF-EXPANDER -1.
   #Y(SETF-CDDAAR
      #19Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04) %RPLACD
      CDAAR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-66
   #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 7E D8 DC 62 2C 03 05 C3 19 01)
   CDDADR SETF-EXPANDER -1.
   #Y(SETF-CDDADR
      #19Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04) %RPLACD
      CDADR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-67
   #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 7E D8 DC 62 2C 03 05 C3 19 01)
   CDDDAR SETF-EXPANDER -1.
   #Y(SETF-CDDDAR
      #19Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04) %RPLACD
      CDDAR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-68
   #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 7E D8 DC 62 2C 03 05 C3 19 01)
   CDDDDR SETF-EXPANDER -1.
   #Y(SETF-CDDDDR
      #19Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04) %RPLACD
      CDDDR
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-69
   #20Y(00 00 00 00 00 01 D8 D9 DA 31 7E D8 DB 62 2C 03 04 C3 19 01) SVREF
   SETF-EXPANDER SVSTORE SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-70
   #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 7E D8 DC 62 2C 03 05 C3 19 01) GET
   SETF-EXPANDER -1.
   #Y(SETF-GET
      #37Y(02 00 00 00 00 03 9D 5B 77 9E 5B 5B 77 9F 5B 5B 5B 77 D8 AD AD B1 7A
           04 91 01 03 15 19 06 D9 AC AC 60 03 19 07
          )
      %PUT PROGN
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-71 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   %PUTF REMOVE-OLD-DEFINITIONS
   #Y(%PUTF
      #50Y(03 00 00 00 00 04 AD 1A 1F D8 D9 DA DB 6D 03 04 32 00 1F 94 00 AD 30
           A9 00 19 05 9B 5B 1F 6A 93 00 9F 21 6F 9B 5B 5B F6 9B 20 70 AD AD A1
           61 02 19 05
          )
      ERROR "(SETF (GETF ...) ...) : property list with an odd length"
      "(SETF (GETF ...) ...) : Property-Liste ungerader Länge aufgetaucht."
      "(SETF (GETF ...) ...) : Occurence d'une liste de propriétés de longueur impaire."
      LANGUAGE
  )  )
#Y(#:TOP-LEVEL-FORM-72
   #30Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 DB DC DD 97 00 79 31 7E DB DE 62
        2C 03 07 C6 19 01
       )
   #1=#:SETF-GETF REMOVE-OLD-DEFINITIONS
   #Y(#1#
      #138Y(02 00 00 00 00 03 D8 AD 71 45 D9 90 02 31 80 5B 9D 5B 77 9E 5B 5B
            77 9F 5B 5B 5B 77 AC AF 2F 08 41 05 37 01 71 86 37 01 71 86 91 07
            80 4D 00 14 B1 AC 9D 79 72 02 23 B1 B5 91 0B 80 47 00 79 72 02 23
            AE 7A 01 E1 93 09 E2 B3 B2 B4 7A 04 7A 02 7A 01 AF E3 93 0C B6 7A
            03 B3 7A 02 32 02 23 7B 02 DF B2 B1 A2 7B 03 3F 05 19 0E DA DB DC
            DD 6D 03 06 DF AF 71 45 71 8E 32 02 1F 37 01 71 86 60 01 1A FF AB
            14 60 01 1A FF B4
           )
      3. 4. PROGRAM-ERROR
      "The SETF expander for ~S may not be called with ~S arguments."
      "Der SETF-Expander für ~S kann nicht mit ~S Argumenten aufgerufen werden."
      "L'«expandeur» SETF pour ~S ne peut pas être appelé avec ~S arguments."
      LANGUAGE GETF GET-SETF-METHOD LET %PUTF WHEN
     )
   GETF SETF-EXPANDER -5. SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-73
   #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 7E D8 DC 62 2C 03 05 C3 19 01)
   GETHASH SETF-EXPANDER -1.
   #Y(SETF-GETHASH
      #37Y(02 00 00 00 00 03 9D 5B 77 9E 5B 5B 77 9F 5B 5B 5B 77 D8 AD AD B1 7A
           04 91 01 03 15 19 06 D9 AC AC 60 03 19 07
          )
      PUTHASH PROGN
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-74
   #20Y(00 00 00 00 00 01 D8 D9 DA 31 7E D8 DB 62 2C 03 02 C3 19 01)
   DOCUMENTATION SETF-EXPANDER %SET-DOCUMENTATION SETF
  )
#Y(#:TOP-LEVEL-FORM-75
   #20Y(00 00 00 00 00 01 D8 D9 DA 31 7E D8 DB 62 2C 03 04 C3 19 01)
   FILL-POINTER SETF-EXPANDER SET-FILL-POINTER SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-76
   #20Y(00 00 00 00 00 01 D8 D9 DA 31 7E D8 DB 62 2C 03 04 C3 19 01)
   READTABLE-CASE SETF-EXPANDER SET-READTABLE-CASE SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-77
   #20Y(00 00 00 00 00 01 D8 D9 DA 31 7E D8 DB 62 2C 03 04 C3 19 01)
   SYMBOL-VALUE SETF-EXPANDER SET SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-78
   #20Y(00 00 00 00 00 01 D8 D9 DA 31 7E D8 DB 62 2C 03 04 C3 19 01)
   SYMBOL-FUNCTION SETF-EXPANDER %PUTD SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-79
   #20Y(00 00 00 00 00 01 D8 D9 DA 31 7E D8 DB 62 2C 03 04 C3 19 01)
   SYMBOL-PLIST SETF-EXPANDER %PUTPLIST SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-80 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   SET-FDEFINITION REMOVE-OLD-DEFINITIONS
   #Y(SET-FDEFINITION #14Y(02 00 00 00 00 03 AC 6E 00 AC 31 78 19 03)
      GET-FUNNAME-SYMBOL
  )  )
#Y(#:TOP-LEVEL-FORM-81
   #20Y(00 00 00 00 00 01 D8 D9 DA 31 7E D8 DB 62 2C 03 04 C3 19 01)
   FDEFINITION SETF-EXPANDER SET-FDEFINITION SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-82
   #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 7E D8 DC 62 2C 03 05 C3 19 01)
   MACRO-FUNCTION SETF-EXPANDER -1.
   #Y(SETF-MACRO-FUNCTION
      #32Y(02 00 00 00 00 03 9D 5B 77 D8 D9 DA AD 7A 02 DB DC B1 7A 03 7A 03 DD
           AD C9 7B 02 AF 60 04 19 04
          )
      PROGN SETF SYMBOL-FUNCTION CONS 'MACRO REMPROP ('MACRO)
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-83
   #20Y(00 00 00 00 00 01 D8 D9 DA 31 7E D8 DB 62 2C 03 04 C3 19 01) CHAR
   SETF-EXPANDER STORE-CHAR SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-84
   #20Y(00 00 00 00 00 01 D8 D9 DA 31 7E D8 DB 62 2C 03 04 C3 19 01) SCHAR
   SETF-EXPANDER STORE-SCHAR SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-85
   #20Y(00 00 00 00 00 01 D8 D9 DA 31 7E D8 DB 62 2C 03 04 C3 19 01) BIT
   SETF-EXPANDER STORE SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-86
   #20Y(00 00 00 00 00 01 D8 D9 DA 31 7E D8 DB 62 2C 03 04 C3 19 01) SBIT
   SETF-EXPANDER STORE SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-87
   #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 7E D8 DC 62 2C 03 05 C3 19 01)
   SUBSEQ SETF-EXPANDER -1.
   #Y(SETF-SUBSEQ
      #33Y(02 00 00 00 00 03 9D 5B 77 9E 5B 5B 77 9F 5B 5B 5B 77 D8 D9 AE B1 DA
           B0 DB B1 7A 07 B0 60 03 19 06
          )
      PROGN REPLACE :START1 :END1
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-88
   #30Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 DB DC DD 97 00 79 31 7E DB DE 62
        2C 03 07 C6 19 01
       )
   #1=#:SETF-CHAR-BIT REMOVE-OLD-DEFINITIONS
   #Y(#1#
      #95Y(02 00 00 00 00 03 AC 71 45 D8 8F 01 2E 80 40 9D 5B 77 9E 5B 5B 77 AB
           AE 2F 07 41 05 37 01 71 86 37 01 71 86 B0 AC 7A 01 72 02 23 B0 B3 7A
           01 72 02 23 AC 7A 01 E0 93 08 E1 B2 B2 B2 7A 04 7A 02 7A 01 B2 B0 7A
           04 DE B1 B1 7A 03 3F 05 19 0C D9 DA DB DC 6D 03 05 DE AF 71 45 71 8E
           32 02 1F
          )
      3. PROGRAM-ERROR
      "The SETF expander for ~S may not be called with ~S arguments."
      "Der SETF-Expander für ~S kann nicht mit ~S Argumenten aufgerufen werden."
      "L'«expandeur» SETF pour ~S ne peut pas être appelé avec ~S arguments."
      LANGUAGE CHAR-BIT GET-SETF-METHOD LET SET-CHAR-BIT
     )
   CHAR-BIT SETF-EXPANDER -5. SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-89
   #30Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 DB DC DD 97 00 79 31 7E DB DE 62
        2C 03 07 C6 19 01
       )
   #1=#:SETF-LDB REMOVE-OLD-DEFINITIONS
   #Y(#1#
      #86Y(02 00 00 00 00 03 AC 71 45 D8 8F 01 2E 38 9D 5B 77 9E 5B 5B 77 AA AE
           2F 07 41 05 37 01 71 86 37 01 71 86 AB A2 79 B3 A2 79 AC 7A 01 E0 93
           08 E1 B0 B2 B4 7A 04 7A 02 7A 01 B2 B0 7A 04 DE B0 B2 7A 03 3F 05 19
           0C D9 DA DB DC 6D 03 05 DE AF 71 45 71 8E 32 02 1F
          )
      3. PROGRAM-ERROR
      "The SETF expander for ~S may not be called with ~S arguments."
      "Der SETF-Expander für ~S kann nicht mit ~S Argumenten aufgerufen werden."
      "L'«expandeur» SETF pour ~S ne peut pas être appelé avec ~S arguments."
      LANGUAGE LDB GET-SETF-METHOD LET DPB
     )
   LDB SETF-EXPANDER -5. SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-90
   #30Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 DB DC DD 97 00 79 31 7E DB DE 62
        2C 03 07 C6 19 01
       )
   #1=#:SETF-MASK-FIELD REMOVE-OLD-DEFINITIONS
   #Y(#1#
      #86Y(02 00 00 00 00 03 AC 71 45 D8 8F 01 2E 38 9D 5B 77 9E 5B 5B 77 AA AE
           2F 07 41 05 37 01 71 86 37 01 71 86 AB A2 79 B3 A2 79 AC 7A 01 E0 93
           08 E1 B0 B2 B4 7A 04 7A 02 7A 01 B2 B0 7A 04 DE B0 B2 7A 03 3F 05 19
           0C D9 DA DB DC 6D 03 05 DE AF 71 45 71 8E 32 02 1F
          )
      3. PROGRAM-ERROR
      "The SETF expander for ~S may not be called with ~S arguments."
      "Der SETF-Expander für ~S kann nicht mit ~S Argumenten aufgerufen werden."
      "L'«expandeur» SETF pour ~S ne peut pas être appelé avec ~S arguments."
      LANGUAGE MASK-FIELD GET-SETF-METHOD LET DEPOSIT-FIELD
     )
   MASK-FIELD SETF-EXPANDER -5. SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-91
   #30Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 DB DC DD 97 00 79 31 7E DB DE 62
        2C 03 07 C6 19 01
       )
   #1=#:SETF-THE REMOVE-OLD-DEFINITIONS
   #Y(#1#
      #68Y(02 00 00 00 00 03 AC 71 45 D8 8F 01 2E 26 9D 5B 77 9E 5B 5B 77 AA AE
           2F 07 41 05 AE AE AE DE B4 93 07 7A 03 93 06 B0 37 03 70 AD DE B5 B0
           7A 03 3F 05 19 0A D9 DA DB DC 6D 03 05 DE AF 71 45 71 8E 32 02 1F
          )
      3. PROGRAM-ERROR
      "The SETF expander for ~S may not be called with ~S arguments."
      "Der SETF-Expander für ~S kann nicht mit ~S Argumenten aufgerufen werden."
      "L'«expandeur» SETF pour ~S ne peut pas être appelé avec ~S arguments."
      LANGUAGE THE GET-SETF-METHOD
     )
   THE SETF-EXPANDER -5. SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-92
   #30Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 DB DC DD 97 00 79 31 7E DB DE 62
        2C 03 07 C6 19 01
       )
   #1=#:SETF-APPLY REMOVE-OLD-DEFINITIONS
   #Y(#1#
      #142Y(02 00 00 00 00 03 AC 71 45 D8 8F 01 2F 80 5A 9D 5B 77 9E 5B 78 AB
            8E 0B 80 5F AB 70 95 24 00 80 58 93 01 24 07 80 52 9C 5B 77 8E 06
            80 4B 9C 5B 5A F7 AB 9C 79 AE 2F 0B 41 05 AF 30 9E 77 AE 30 9E 5A
            22 3F 00 2A 01 AF 30 9E 5A 0B 00 00 9B 2A 01 AA 2B 0F 01 0B 00 00
            AA 6C 10 01 B1 B1 B1 B1 9F 73 B1 A0 73 3F 05 19 0D D9 DA DB DC 6D
            03 05 DE AF 71 45 71 8E 32 02 1F D9 E0 E1 E2 6D 03 05 32 00 1F D9
            E4 E5 E6 6D 03 05 B2 32 01 1F
           )
      2. PROGRAM-ERROR
      "The SETF expander for ~S may not be called with ~S arguments."
      "Der SETF-Expander für ~S kann nicht mit ~S Argumenten aufgerufen werden."
      "L'«expandeur» SETF pour ~S ne peut pas être appelé avec ~S arguments."
      LANGUAGE APPLY FUNCTION
      "SETF APPLY is only defined for functions of the form #'symbol."
      "SETF von APPLY ist nur für Funktionen der Form #'symbol als Argument definiert."
      "Un SETF de APPLY n'est défini que pour les fonctions de la forme #'symbole."
      GET-SETF-METHOD "APPLY on ~S is not a SETF place."
      "APPLY von ~S kann nicht als 'SETF-Place' aufgefaßt werden."
      "APPLY de ~S ne peux pas être considéré comme une place modifiable."
      #Y(SPLICE
         #40Y(01 00 00 00 00 02 AB 8B 94 13 94 01 6B 78 93 02 68 01 01 8D 01 0A
              93 02 AB 2F 02 19 03 00 19 02 68 01 01 AB 2F 01 19 03
             )
         NIL BACKQUOTE-APPEND BACKQUOTE-CONS
        )
      #Y(CALL-SPLICING
         #60Y(01 00 00 00 00 02 93 01 94 02 07 00 01 73 92 00 21 9B 1F 05 93 00
              23 01 19 DA DB AD 7A 02 9D 1F 0A 93 02 23 04 12 93 02 23 05 0D AC
              60 01 61 02 19 04 AB 9C 5B 5C 19 04 9D 5B 1A 72
             )
         NIL LIST APPLY FUNCTION LIST* CONS
     )  )
   APPLY SETF-EXPANDER -5. SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-93
   #30Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 DB DC DD 97 00 79 31 7E DB DE 62
        2C 03 07 C6 19 01
       )
   #1=#:SETF-FUNCALL REMOVE-OLD-DEFINITIONS
   #Y(#1#
      #94Y(02 00 00 00 00 03 AC 71 45 D8 8F 01 2F 2F 9D 5B 77 9E 5B 78 AB 8E 0B
           3C AB 70 95 24 00 36 93 01 AA CA 59 1C 28 16 01 1C 2B 9C 5B 77 8E 06
           25 9C 5B 5A F7 1C 1F AB 9C 79 AE 2F 0C 19 05 D9 DA DB DC 6D 03 05 DE
           AF 71 45 71 8E 32 02 1F AA CB 59 16 01 1B 55 D9 E1 E2 E3 6D 03 05 32
           00 1F
          )
      2. PROGRAM-ERROR
      "The SETF expander for ~S may not be called with ~S arguments."
      "Der SETF-Expander für ~S kann nicht mit ~S Argumenten aufgerufen werden."
      "L'«expandeur» SETF pour ~S ne peut pas être appelé avec ~S arguments."
      LANGUAGE FUNCALL FUNCTION QUOTE
      "SETF FUNCALL is only defined for functions of the form #'symbol."
      "SETF von FUNCALL ist nur für Funktionen der Form #'symbol definiert."
      "Un SETF de FUNCALL n'est défini que pour les fonctions de la forme #'symbole."
      GET-SETF-METHOD
     )
   FUNCALL SETF-EXPANDER -5. SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-94
   #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 7E D8 DC 62 2C 03 05 C3 19 01)
   GET-DISPATCH-MACRO-CHARACTER SETF-EXPANDER -1.
   #Y(SETF-GET-DISPATCH-MACRO-CHARACTER
      #41Y(02 00 00 00 00 03 9D 5B 77 9E 5B 5B 77 9F 5B 5B 5B 1B 0F C3 14 D9 DA
           AE AE B2 AF 7A 05 B0 60 03 19 06 9F 5B 5B 5B 5A 1A 6B
          )
      *READTABLE* PROGN SET-DISPATCH-MACRO-CHARACTER
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-95
   #20Y(00 00 00 00 00 01 D8 D9 DA 31 7E D8 DB 62 2C 03 04 C3 19 01)
   LONG-FLOAT-DIGITS SETF-EXPANDER %SET-LONG-FLOAT-DIGITS SETF
   %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-96
   #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 7E D8 DC 62 2C 03 05 C3 19 01)
   DEFAULT-DIRECTORY SETF-EXPANDER -1.
   #Y(SETF-DEFAULT-DIRECTORY
      #16Y(02 00 00 00 00 03 D8 D9 AD 7A 02 AD 60 03 19 03) PROGN CD
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-97
   #30Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 DB DC DD 97 00 79 31 7E DB DE 62
        2C 03 07 C6 19 01
       )
   #1=#:SETF-VALUES REMOVE-OLD-DEFINITIONS
   #Y(#1#
      #27Y(02 00 00 00 00 03 94 02 AA AD 2F 00 41 05 AE AE AE D9 A0 79 D9 A0 79
           3F 05 19 09
          )
      SETF-VALUES-AUX VALUES
     )
   VALUES SETF-EXPANDER -5. SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-98 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   SETF-VALUES-AUX REMOVE-OLD-DEFINITIONS
   #Y(SETF-VALUES-AUX
      #75Y(02 00 00 00 00 03 01 05 B1 1A 20 93 00 82 01 B2 2F 00 41 05 AE B5 7F
           A3 0A AD B4 7F A3 09 AC B3 7F A3 08 AB 83 07 AA 83 06 16 05 9B 20 5D
           AF 80 47 05 AE 80 47 04 AD 80 47 03 AC 80 47 02 AB 80 47 01 AF AF AF
           AF AF 3F 05 19 09
          )
      GET-SETF-METHOD
  )  )
#Y(#:TOP-LEVEL-FORM-99
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01)
   MULTIPLE-VALUE-SETF REMOVE-OLD-DEFINITIONS MACRO
   #Y(MULTIPLE-VALUE-SETF
      #55Y(01 00 01 00 00 08 3C 01 AC 71 45 D8 8F 01 2E 22 9D 5B 77 9E 5B 5B 77
           AB AE 2F 02 41 05 DB DC B0 B0 72 01 17 DD AF B3 B0 DE 32 02 23 7B 03
           60 03 19 0A AC 2E 01 19 03
          )
      3. MACRO-CALL-ERROR SETF-VALUES-AUX LET* #.#'LIST MULTIPLE-VALUE-BIND
      ((FIRST STORES))
  )  )