home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / jËzyki_programowania / clisp / src / archive / clisp.faslsp.lha / places.fas < prev    next >
Text File  |  1996-06-17  |  48KB  |  1,107 lines
  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 13. LISP:T 130695.))
  2. #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D8 37 02 30 E3 19 01) "SYSTEM")
  3. #Y(#:TOP-LEVEL-FORM-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  4.    SETF-SYMBOL REMOVE-OLD-DEFINITIONS
  5.    #Y(SETF-SYMBOL
  6.       #32Y(00 01 00 00 00 02 D8 AC 71 8A 91 00 0E C4 F6 DA AE 71 8C DB 72 05 13
  7.            30 CE 19 02 14 30 D0 1A 6E
  8.           )
  9.       "(SETF " "#" ":" ")"
  10.   )  )
  11. #Y(#:TOP-LEVEL-FORM-3 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  12.    GET-SETF-SYMBOL REMOVE-OLD-DEFINITIONS
  13.    #Y(GET-SETF-SYMBOL
  14.       #44Y(00 01 00 00 00 02 AB D8 37 01 31 84 1D 1C AB D9 37 01 8E 84 0B DA DB
  15.            DC 6D 03 05 DE AD 2C 03 07 AB 6E 08 AC D8 AC 31 88 19 03 19 02
  16.           )
  17.       SETF-FUNCTION SETF-EXPANDER
  18.       "The function (~S ~S) is hidden by a SETF expander."
  19.       "Die Funktion (~S ~S) ist durch einen SETF-Expander verborgen."
  20.       "La fonction (~S ~S) est cachée par une méthode SETF." LANGUAGE SETF WARN
  21.       SETF-SYMBOL
  22.   )  )
  23. #Y(#:TOP-LEVEL-FORM-4 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  24.    GET-FUNNAME-SYMBOL REMOVE-OLD-DEFINITIONS
  25.    #Y(GET-FUNNAME-SYMBOL
  26.       #19Y(00 01 00 00 00 02 9C 1F 07 9C 5B 77 2E 00 19 02 9C 19 02)
  27.       GET-SETF-SYMBOL
  28.   )  )
  29. #Y(#:TOP-LEVEL-FORM-5 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  30.    GET-SETF-METHOD-MULTIPLE-VALUE REMOVE-OLD-DEFINITIONS
  31.    #Y(GET-SETF-METHOD-MULTIPLE-VALUE
  32.       #328Y(00 01 00 01 00 08 3A 01 06 01 02 81 02 00 01 9D 1F 1B 93 02 8E 08
  33.             16 93 02 AC C3 5E 14 8A 01 0D 93 02 DA 37 01 71 84 91 00 80 5E 16
  34.             01 AC AD AD 7F 5C 03 22 5A AC 8D 08 80 C8 9D 1F 06 93 02 8D 08 80
  35.             D2 DD E4 E5 E6 6D 03 09 AE 32 01 1F 37 01 71 90 01 02 94 06 1A 0C
  36.             37 01 71 90 83 02 93 00 83 01 82 00 9B 20 71 AB 80 4A 01 AC AC AF
  37.             7A 01 B1 B0 B2 7A 01 32 02 23 79 93 0B A2 79 3F 05 19 08 94 01 AF
  38.             AF 35 02 19 05 14 8D 08 41 93 00 AA 23 03 6E 01 03 DC 94 08 62 1A
  39.             80 41 7C 06 C7 F8 92 06 23 1A 25 DD DE DF E0 6D 03 09 AC 93 0D 32
  40.             02 1F AA 8E 8D 6F AA 83 03 1A 1E 86 01 00 AC B1 8D 03 59 91 06 04
  41.             AC 8D 96 68 37 01 71 90 AA 83 06 AB 83 05 AA 83 04 16 01 84 02 82
  42.             01 AB 8C 96 5A 16 03 93 07 AB 31 4A 5C F6 37 01 71 90 AD 71 4A AD
  43.             71 4A AC 7A 01 94 08 AF AF 75 02 AF 3F 05 19 09 37 01 71 90 01 02
  44.             AC 7A 01 E2 B1 AF 7A 03 B1 3F 05 19 04 37 01 71 90 01 02 94 05 1A
  45.             0C 37 01 71 90 83 02 93 00 83 01 82 00 9B 20 71 AB 80 4A 01 AC AC
  46.             AF 7A 01 E3 93 0A 7A 02 B1 A2 7B 02 93 0A A2 79 3F 05 19 07
  47.            )
  48.       1. GLOBAL-IN-FENV-P SETF-EXPANDER -5. 0. PROGRAM-ERROR
  49.       "The argument ~S to ~S should be a keyword."
  50.       "Das Argument ~S zu ~S sollte ein Keyword sein."
  51.       "L'argument ~S de ~S doit être un mot-clé." LANGUAGE SETQ SETF
  52.       "Argument ~S is not a SETF place."
  53.       "Das Argument muß eine 'SETF-place' sein, ist aber keine: ~S"
  54.       "L'argument ~S doit représenter une place modifiable."
  55.   )  )
  56. #Y(#:TOP-LEVEL-FORM-6 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  57.    GET-SETF-METHOD REMOVE-OLD-DEFINITIONS
  58.    #Y(GET-SETF-METHOD
  59.       #48Y(00 01 00 01 00 08 3A 01 06 01 02 81 02 00 01 AC AC 2F 00 41 05 9D 1F
  60.            0D 9D 5B 1B 09 AE AE AE AE AE 3F 05 19 08 D9 DA DB DC 6D 03 05 B3 32
  61.            01 1F
  62.           )
  63.       GET-SETF-METHOD-MULTIPLE-VALUE PROGRAM-ERROR
  64.       "SETF place ~S produces more than one store variable."
  65.       "Diese 'SETF-place' produziert mehrere 'Store-Variable': ~S"
  66.       "La place modifiable ~S produit plusieurs variables de résultat."
  67.       LANGUAGE
  68.   )  )
  69. #Y(#:TOP-LEVEL-FORM-7 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  70.    SIMPLE-ASSIGNMENT-P REMOVE-OLD-DEFINITIONS
  71.    #Y(SIMPLE-ASSIGNMENT-P
  72.       #50Y(00 02 00 00 00 03 AB 71 48 C3 59 1E 23 AC 31 06 1E 1E 93 02 C4 59 1E
  73.            18 AC 71 48 C5 59 1E 11 9D 5B 77 31 08 1E 0A 9D 5B 5B 77 93 02 2F 03
  74.            19 03 19 03
  75.           )
  76.       1. SETQ 3. SIMPLE-USE-P
  77.   )  )
  78. #Y(#:TOP-LEVEL-FORM-8 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  79.    SIMPLE-USE-P REMOVE-OLD-DEFINITIONS
  80.    #Y(SIMPLE-USE-P
  81.       #40Y(00 02 00 00 00 03 AC 9D 59 1D 1B AC 31 06 1E 16 93 02 C3 59 1E 10 AC
  82.            71 48 C4 59 1E 09 9D 5B 5B 77 AC 28 02 05 60 19 03
  83.           )
  84.       THE 3.
  85.   )  )
  86. #Y(#:TOP-LEVEL-FORM-9 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  87.    DOCUMENTATION REMOVE-OLD-DEFINITIONS
  88.    #Y(DOCUMENTATION
  89.       #37Y(00 02 00 00 00 03 AC 88 00 0F AC 6E 07 E0 37 01 71 84 AC 37 01 31 85
  90.            19 03 D9 DA DB DC 6D 03 05 DE AF 32 02 1F
  91.           )
  92.       FUNCTION-NAME-P ERROR "~S: first argument ~S is illegal, not a symbol"
  93.       "~S: Das ist als erstes Argument unzulässig, da kein Symbol: ~S"
  94.       "~S : Le premier argument ~S est invalide car ce n'est pas un symbole."
  95.       LANGUAGE DOCUMENTATION GET-FUNNAME-SYMBOL DOCUMENTATION-STRINGS
  96.   )  )
  97. #Y(#:TOP-LEVEL-FORM-10 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  98.    %SET-DOCUMENTATION REMOVE-OLD-DEFINITIONS
  99.    #Y(%SET-DOCUMENTATION
  100.       #134Y(00 03 00 00 00 04 AD 88 00 1D AD 2E 07 F9 92 01 22 AD E0 37 01 71
  101.             84 AD AD 6D 03 0C 92 00 05 AE E0 AC 31 88 9D 19 05 D9 DA DB DC 6D
  102.             03 05 DE B0 32 02 1F AD E0 37 01 71 84 AD 37 01 8E 85 80 43 AD E0
  103.             37 01 71 84 AA 62 1A 34 D9 E1 E2 E3 6D 03 05 32 00 1F 78 9D 5B 78
  104.             30 AD 16 03 1A 25 91 00 73 9D 5B 5B F8 B0 E0 AE 31 88 16 03 1A 15
  105.             9C 5B 1F 58 93 01 A1 21 67 9C 5B 78 9D F7 69 01 9C 20 6D 16 03 00
  106.             19 04
  107.            )
  108.       FUNCTION-NAME-P ERROR "~S: first argument ~S is illegal, not a symbol"
  109.       "~S: Das ist als erstes Argument unzulässig, da kein Symbol: ~S"
  110.       "~S : Le premier argument ~S est invalide car ce n'est pas un symbole."
  111.       LANGUAGE DOCUMENTATION GET-FUNNAME-SYMBOL DOCUMENTATION-STRINGS
  112.       "REMF: property list with an odd length"
  113.       "REMF: Property-Liste ungerader Länge aufgetreten."
  114.       "REMF : Occurence d'une liste de propriétés de longueur impaire." %PUTF
  115.   )  )
  116. #Y(#:TOP-LEVEL-FORM-11
  117.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) PUSH
  118.    REMOVE-OLD-DEFINITIONS MACRO
  119.    #Y(PUSH
  120.       #104Y(00 01 00 01 00 08 3C 01 AC 71 48 D8 8F 01 2E 38 9D 5B 77 9E 5B 5B
  121.             77 37 01 71 90 AB AF 2F 02 41 05 DB AF AF 72 01 17 91 00 23 A3 FC
  122.             DC B1 AD 7A 03 AD AF 89 05 1F AB 93 05 AC 7A 02 7A 01 81 02 24 01
  123.             91 01 1C 9E 19 0D AC 2E 01 19 03 B0 B3 7A 02 83 00 1A 57 AA 93 05
  124.             AF 37 03 7F AF 03 92 01 64 DE AC AF 60 03 19 0D
  125.            )
  126.       3. MACRO-CALL-ERROR GET-SETF-METHOD #.#'LIST CONS SIMPLE-ASSIGNMENT-P
  127.       LET*
  128.   )  )
  129. #Y(#:TOP-LEVEL-FORM-12
  130.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01)
  131.    DEFINE-SETF-METHOD REMOVE-OLD-DEFINITIONS MACRO
  132.    #Y(DEFINE-SETF-METHOD
  133.       #260Y(00 01 00 01 00 08 3C 01 AC 71 48 D8 8F 01 2F 80 D6 9D 5B 77 9E 5B
  134.             5B 77 9F 5B 5B 78 AC 8E 08 80 CB AA 63 B0 30 62 41 03 91 02 02 CA
  135.             F8 E0 B0 71 8C 72 02 13 70 CE AF AB 2F 09 41 02 CD 10 0B CD 10 0C
  136.             00 10 0D 00 10 0E 00 10 0F 00 10 10 BD E9 C0 EA 2C 04 13 91 13 03
  137.             EC 83 16 EA 6E 15 EE 6A 0E 71 4A 91 19 80 90 00 14 6A 0F F0 65 20
  138.             04 1E 7B 02 7A 01 32 03 23 7B 02 92 01 12 F1 AC F2 F3 F4 F5 65 22
  139.             7A 02 03 1E 7B 04 AD 60 04 F6 64 1F 64 20 64 21 62 64 22 65 1B EA
  140.             91 1B 02 03 23 14 7A 02 91 1B 80 5A 03 24 14 B2 7A 01 32 02 23 7B
  141.             03 64 25 F5 65 23 7A 02 64 26 64 27 64 28 64 29 65 21 7A 02 7A 03
  142.             7A 04 64 2A F5 65 24 7A 02 64 2B F5 65 21 7A 02 7A 04 F5 65 24 7A
  143.             02 7A 06 60 03 16 02 12 06 19 0C AC 2E 01 19 03 DA DB DC DD 6D 03
  144.             06 AE 32 01 1F EF 04 1A 79 60 01 1A FF 68 00 1A FF A4
  145.            )
  146.       3. MACRO-CALL-ERROR PROGRAM-ERROR
  147.       "The name of the access function must be a symbol, not ~S"
  148.       "Der Name der Access-Function muß ein Symbol sein und nicht ~S."
  149.       "Le nom de la fonction d'accès doit être un symbole et non ~S." LANGUAGE
  150.       (NIL) "SETF-" REMOVE-ENV-ARG 0. %ARG-COUNT %MIN-ARGS %RESTP %LET-LIST
  151.       %KEYWORD-TESTS %DEFAULT-FORM (CDR %LAMBDA-LIST) %LAMBDA-LIST ANALYZE1
  152.       (IGNORE %LAMBDA-LIST) MAKE-LENGTH-TEST LET* DECLARE BLOCK IF
  153.       ERROR-OF-TYPE 'PROGRAM-ERROR
  154.       (LANGUAGE "The SETF expander for ~S may not be called with ~S arguments."
  155.         "Der SETF-Expander für ~S kann nicht mit ~S Argumenten aufgerufen werden."
  156.         "L'«expandeur» SETF pour ~S ne peut pas être appelé avec ~S arguments."
  157.       )
  158.       QUOTE ((1- (LENGTH %LAMBDA-LIST))) EVAL-WHEN (LOAD COMPILE EVAL) LET
  159.       DEFUN ENV ((DECLARE (IGNORE ENV))) %PUT 'SETF-EXPANDER CONS -5. FUNCTION
  160.       %SET-DOCUMENTATION 'SETF
  161.   )  )
  162. #Y(#:TOP-LEVEL-FORM-13
  163.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) DEFSETF
  164.    REMOVE-OLD-DEFINITIONS MACRO
  165.    #Y(DEFSETF
  166.       #381Y(00 01 00 01 00 08 3C 01 AC 71 48 D8 8F 01 2F 36 9D 5B 77 9E 5B 78
  167.             9B 1F 0B 93 00 8D 0D 06 93 00 8D 08 80 43 9B 1F 10 93 00 8E 0D 0B
  168.             9B 5B 1F 07 9B 5B 77 8D 0D 80 7A E2 64 35 64 36 64 37 6D 03 0E 9E
  169.             14 32 01 1F AC 2E 01 19 03 E2 E3 E4 E5 6D 03 0E A5 5B 1A 6C A3 5B
  170.             5B 1B 70 E2 E7 E8 E9 6D 03 0E A5 5B 5A 1A 5B DA DB DC 62 DD DE B1
  171.             7A 02 DF DE 93 08 7A 02 7A 04 E0 DE B2 7A 02 E1 A3 5B 5B 1B 53 A3
  172.             5B 5A 1C 06 A3 5B 77 8E 09 48 A3 5B 77 7A 04 DE B2 7A 02 7A 05 60
  173.             03 19 05 E2 EC ED EE 6D 03 0E 32 00 1F 0E 1E 1A 80 5E 03 2B 1A 80
  174.             73 9B 5B 77 71 48 EA 8F 01 2D 18 9B 5B 77 71 48 EB 8F 01 2D 58 EF
  175.             F0 F1 6D 03 0E F2 F3 F4 6D 03 0E 2F 1D 9B 5B 78 63 AF 30 62 41 03
  176.             62 93 04 A0 5B 5A 77 D6 10 1E D6 10 1F 00 10 20 00 10 21 00 10 22
  177.             00 10 23 BD 64 24 65 1B 64 25 2C 04 26 64 27 BE 37 03 8B B7 FF 9F
  178.             03 28 09 14 92 16 09 64 29 04 17 79 60 01 09 16 64 2A 64 25 BE 7A
  179.             02 92 15 FF 89 00 14 65 19 64 2C 6A 21 71 4A 65 1C 6A 22 64 2D 65
  180.             22 04 21 7B 02 7A 01 32 03 23 7B 02 7A 01 32 03 23 61 02 12 06 16
  181.             01 F6 DA 64 2E DC 62 DD DE B6 7A 02 64 2F 64 30 B3 64 31 64 32 BB
  182.             6F 33 B5 7A 03 7A 03 7A 04 E0 DE B7 7A 02 64 34 B4 7A 04 DE B7 7A
  183.             02 7A 05 60 03 19 0A
  184.            )
  185.       2. MACRO-CALL-ERROR EVAL-WHEN (LOAD COMPILE EVAL) LET %PUT QUOTE
  186.       'SETF-EXPANDER %SET-DOCUMENTATION 'SETF PROGRAM-ERROR
  187.       "Too many arguments to DEFSETF: ~S" "Zu viele Argumente für DEFSETF: ~S"
  188.       "Trop d'arguments pour DEFSETF : ~S" LANGUAGE
  189.       "The doc string to DEFSETF must be a string: ~S"
  190.       "Der Dok.-String zu DEFSETF muß ein String sein: ~S"
  191.       "La documentation pour DEFSETF doit être un chaîne : ~S" 1. 0.
  192.       "Missing store variable in DEFSETF."
  193.       "Bei DEFSETF muß genau eine 'Store-Variable' angegeben werden."
  194.       "Une variable de résultat doit être précisée dans DEFSETF."
  195.       "The excess variables will be ignored."
  196.       "Die überzähligen Variablen werden ignoriert."
  197.       "Les variables en excès seront ignorées."
  198.       "Only one store variable is allowed in DEFSETF."
  199.       "Bei DEFSETF ist nur eine 'Store-Variable' erlaubt."
  200.       "Une seule variable de résultat est permise dans DEFSETF." CERROR
  201.       %ARG-COUNT %MIN-ARGS %RESTP %LET-LIST %KEYWORD-TESTS %DEFAULT-FORM
  202.       (CDR %ACCESS-ARGLIST) %ACCESS-ARGLIST ANALYZE1 &KEY -1. DECLARE LAMBDA
  203.       ((DECLARE (IGNORE %ACCESS-ARGLIST))) LET* BLOCK (LOAD COMPILE EVAL)
  204.       'SETF-EXPANDER CONS FUNCTION "SETF-" CONCAT-PNAMES 'SETF
  205.       "Illegal syntax in DEFSETF for ~S"
  206.       "DEFSETF-Aufruf für ~S ist falsch aufgebaut."
  207.       "Le DEFSETF ~S est mal formé."
  208.   )  )
  209. #Y(#:TOP-LEVEL-FORM-14
  210.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) POP
  211.    REMOVE-OLD-DEFINITIONS MACRO
  212.    #Y(POP
  213.       #126Y(00 01 00 01 00 08 3C 01 AC 71 48 D8 8F 01 2E 80 50 9D 5B 77 AA AD
  214.             2F 02 41 05 AE AE 62 92 02 0F 93 02 93 02 7A 02 83 00 82 02 82 01
  215.             91 02 71 AD 8E 08 05 AE B0 89 03 2E 93 05 AE 7A 02 83 00 A0 5A 14
  216.             DC AB 7A 02 DD DE AD 7A 02 B2 B4 89 03 19 DF 93 0A AE 7A 03 B3 60
  217.             02 7B 02 91 03 17 15 19 0E AC 2E 01 19 03 9E 1A 58 AC 93 0A B4 37
  218.             03 70 AF 60 01 1A 64 E0 AE 71 4A AC 60 03 19 0F
  219.            )
  220.       2. MACRO-CALL-ERROR GET-SETF-METHOD SIMPLE-ASSIGNMENT-P CDR PROG1 CAR
  221.       SETQ LET*
  222.   )  )
  223. #Y(#:TOP-LEVEL-FORM-15
  224.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) PSETF
  225.    REMOVE-OLD-DEFINITIONS MACRO
  226.    #Y(PSETF
  227.       #94Y(00 01 00 01 00 08 3C 01 94 02 AA 01 02 1A 3F D8 D9 DA DB 6D 03 04 DD
  228.            B3 32 02 1F 9D 5B 1F 70 93 02 B0 2F 06 41 05 AE AE 92 01 0F 93 01 93
  229.            01 7A 02 83 08 82 01 82 00 91 01 71 16 02 93 02 A3 5B 77 7A 02 83 06
  230.            AB 83 05 16 05 9D 5B 5B F8 9D 20 4A DF AC 71 4A AC E0 32 02 23 61 02
  231.            19 07
  232.           )
  233.       PROGRAM-ERROR "~S called with an odd number of arguments: ~S"
  234.       "~S mit einer ungeraden Zahl von Argumenten aufgerufen: ~S"
  235.       "~S fut appelé avec un nombre impair d'arguments : ~S" LANGUAGE PSETF
  236.       GET-SETF-METHOD LET* (NIL)
  237.   )  )
  238. #Y(#:TOP-LEVEL-FORM-16
  239.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) PUSHNEW
  240.    REMOVE-OLD-DEFINITIONS MACRO
  241.    #Y(PUSHNEW
  242.       #109Y(00 01 00 01 00 08 3C 01 AC 71 48 D8 8F 01 2F 3D 9D 5B 77 9E 5B 5B
  243.             77 9F 5B 5B 78 37 01 71 90 AC B0 2F 02 41 05 DB AF AF 72 01 17 91
  244.             00 24 A4 FC DC B1 AD A5 7B 03 AD AF 89 05 1F AB 93 05 AC 7A 02 7A
  245.             01 81 02 24 01 91 01 1C 9E 19 0E AC 2E 01 19 03 B0 B4 7A 02 83 00
  246.             1A 56 AA 93 05 AF 37 03 7F AF 03 92 01 64 DE AC AF 60 03 19 0E
  247.            )
  248.       3. MACRO-CALL-ERROR GET-SETF-METHOD #.#'LIST ADJOIN SIMPLE-ASSIGNMENT-P
  249.       LET*
  250.   )  )
  251. #Y(#:TOP-LEVEL-FORM-17
  252.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) REMF
  253.    REMOVE-OLD-DEFINITIONS MACRO
  254.    #Y(REMF
  255.       #183Y(00 01 00 01 00 08 3C 01 AC 71 48 D8 8F 01 2E 80 97 9D 5B 77 9E 5B
  256.             5B 77 AB AE 2F 02 41 05 AE AE 62 37 01 71 90 37 01 71 90 37 01 71
  257.             90 92 05 0F 93 05 93 05 7A 02 83 03 82 05 82 04 91 05 71 93 08 B1
  258.             7A 02 83 03 AC B6 7A 02 83 03 DB AE 71 4A DC AE 93 0C DD B1 7A 02
  259.             7A 03 AE 62 B1 7A 03 7A 02 DE B0 7A 02 CA 79 E0 DE E1 B3 7A 02 7A
  260.             02 CD 79 E3 E4 B4 7A 02 B5 7A 03 E5 B3 E6 E1 B6 7A 02 DD B8 7A 02
  261.             7A 03 DD 93 14 7A 02 BD BF 89 0F 1D E8 E9 93 16 AD 7A 03 BF 60 03
  262.             F6 7A 04 D5 7B 02 7A 03 7A 04 60 03 19 10 AC 2E 01 19 03 AA 93 15
  263.             BF 37 03 30 AF 1A 63
  264.            )
  265.       3. MACRO-CALL-ERROR GET-SETF-METHOD LET* DO CDDR ATOM (NIL) COND CDR
  266.       ((ERROR-OF-TYPE 'ERROR
  267.           (LANGUAGE "REMF: property list with an odd length"
  268.             "REMF: Property-Liste ungerader Länge aufgetreten."
  269.             "REMF : Occurence d'une liste de propriétés de longueur impaire."
  270.       ))  )
  271.       EQ CAR IF RPLACD SIMPLE-ASSIGNMENT-P PROGN SETQ ((RETURN T))
  272.   )  )
  273. #Y(#:TOP-LEVEL-FORM-18
  274.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) ROTATEF
  275.    REMOVE-OLD-DEFINITIONS MACRO
  276.    #Y(ROTATEF
  277.       #106Y(00 01 00 01 00 08 3C 01 94 02 92 00 09 9B 5B 1C 08 AA 01 04 1A 3E
  278.             00 19 04 D8 93 01 C4 61 02 19 04 93 04 B2 2F 02 41 05 AE AE 92 01
  279.             0F 93 01 93 01 7A 02 83 0A 82 01 82 00 91 01 71 16 02 B0 AB 7A 02
  280.             83 08 91 05 03 86 08 05 AB 83 07 86 02 06 16 05 82 04 9F 20 4A AA
  281.             AC 30 AC DB AE 71 4A AE 71 4A DC 32 02 23 61 02 19 09
  282.            )
  283.       PROGN (NIL) GET-SETF-METHOD LET* (NIL)
  284.   )  )
  285. #Y(#:TOP-LEVEL-FORM-19
  286.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01)
  287.    DEFINE-MODIFY-MACRO REMOVE-OLD-DEFINITIONS MACRO
  288.    #Y(DEFINE-MODIFY-MACRO
  289.       #295Y(00 01 00 01 00 08 D8 AD 71 48 D9 90 02 31 80 50 9D 5B 77 9E 5B 5B
  290.             77 9F 5B 5B 5B 77 AF 70 99 01 02 AE 62 92 01 80 7D 86 01 00 14 23
  291.             03 80 6F AA 23 04 80 43 AA 23 0D 80 57 AA 23 0E 80 52 AA 23 0F 80
  292.             4D AA 8D 08 80 4E AA 8E 0D 06 93 00 8D 08 80 47 DD EB EC 03 15 14
  293.             6D 03 09 9D 14 32 01 1F AC 2E 02 19 03 DD DE DF E0 6D 03 09 B3 9F
  294.             5B 77 32 02 1F 16 02 1A 2F 9C 5B 77 8E 08 68 9C 5B 5A F8 9C 5B 5B
  295.             1C 6D DD E2 E3 E4 6D 03 09 9E 1A 4C DD E8 E9 D5 1A 41 9B 1A 02 9B
  296.             5A 14 83 03 82 01 91 01 FF 83 16 02 AB 80 4A 01 EE B0 EF B1 F0 32
  297.             02 23 79 AF F1 F2 F3 F4 F5 64 1E 64 1F 64 20 64 21 64 22 64 23 64
  298.             24 BD 7A 02 64 25 BC BC 7A 01 32 02 23 7B 03 03 26 7B 02 7A 02 7A
  299.             03 64 27 64 28 64 29 64 2A 64 2B 64 28 64 2C 64 2D 64 23 64 24 C2
  300.             7A 02 64 25 C1 C1 7A 01 32 02 23 7B 03 7A 04 64 23 64 24 C0 7A 02
  301.             64 25 BF BF 7A 01 32 02 23 7B 03 7A 04 7A 03 03 2E 7B 02 03 2F 7B
  302.             03 7A 03 7A 04 60 05 19 09
  303.            )
  304.       4. 5. MACRO-CALL-ERROR &OPTIONAL &REST PROGRAM-ERROR
  305.       "In the definition of ~S: &REST variable ~S should be a symbol."
  306.       "In der Definition von ~S ist die &REST-Variable kein Symbol: ~S"
  307.       "Dans la définition de ~S la variable pour &REST n'est pas un symbole : ~S."
  308.       LANGUAGE "Only one variable is allowed after &REST, not ~S"
  309.       "Nach &REST ist nur eine Variable erlaubt; es kam: ~S"
  310.       "Une seule variable est permise pour &REST et non ~S." &KEY
  311.       &ALLOW-OTHER-KEYS &AUX "Illegal in a DEFINE-MODIFY-MACRO lambda list: ~S"
  312.       "In einer DEFINE-MODIFY-MACRO-Lambdaliste ist ~S unzulässig."
  313.       "~S n'est pas permis dans une liste lambda pour DEFINE-MODIFY-MACRO."
  314.       "lambda list may only contain symbols and lists, not ~S"
  315.       "Lambdalisten dürfen nur Symbole und Listen enthalten, nicht aber ~S"
  316.       "Les listes lambda ne peuvent contenir que des symboles et des listes et non ~S."
  317.       DEFMACRO %REFERENCE (&ENVIRONMENT ENV) MULTIPLE-VALUE-BIND
  318.       (DUMMIES VALS NEWVAL SETTER GETTER) (GET-SETF-METHOD %REFERENCE ENV) DO
  319.       ((D DUMMIES (CDR D)) (V VALS (CDR V))
  320.         (LET-LIST NIL (CONS (LIST (CAR D) (CAR V)) LET-LIST))
  321.       )
  322.       (NULL D) WHEN (SYMBOLP GETTER) RETURN SUBST LIST* QUOTE GETTER
  323.       ((CAR NEWVAL) SETTER) PUSH LIST (CAR NEWVAL) IF
  324.       (AND (LISTP %REFERENCE) (EQ (CAR %REFERENCE) 'THE)) 'THE
  325.       (CADR %REFERENCE) (LET-LIST) ((LIST 'LET* (NREVERSE LET-LIST) SETTER))
  326.   )  )
  327. #Y(#:TOP-LEVEL-FORM-20
  328.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) DECF
  329.    REMOVE-OLD-DEFINITIONS MACRO
  330.    #Y(DECF
  331.       #136Y(00 01 00 01 00 08 3C 01 D8 AD 71 48 D9 90 02 31 80 4D 9D 5B 77 9E
  332.             5B 5B 1B 80 49 C6 14 AB AE 2F 04 41 05 AE AE 62 92 02 13 94 02 94
  333.             02 93 04 93 04 7A 02 83 02 69 02 69 02 91 02 6D AD 8D 08 2B 93 05
  334.             B4 8E 0D 05 93 0A 23 06 2F DD AF B5 00 61 03 14 7A 02 83 00 DF AB
  335.             71 4A B0 60 03 19 0D AC 2E 02 19 03 9E 5B 5B 5A 1A FF B1 DD AE B4
  336.             00 7B 03 93 06 B0 37 03 30 AF 19 0D DE A6 5B 77 DD B1 B7 00 7B 03
  337.             60 03 1A 49
  338.            )
  339.       2. 3. MACRO-CALL-ERROR 1. GET-SETF-METHOD - THE LET*
  340.   )  )
  341. #Y(#:TOP-LEVEL-FORM-21
  342.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) INCF
  343.    REMOVE-OLD-DEFINITIONS MACRO
  344.    #Y(INCF
  345.       #136Y(00 01 00 01 00 08 3C 01 D8 AD 71 48 D9 90 02 31 80 4D 9D 5B 77 9E
  346.             5B 5B 1B 80 49 C6 14 AB AE 2F 04 41 05 AE AE 62 92 02 13 94 02 94
  347.             02 93 04 93 04 7A 02 83 02 69 02 69 02 91 02 6D AD 8D 08 2B 93 05
  348.             B4 8E 0D 05 93 0A 23 06 2F DD AF B5 00 61 03 14 7A 02 83 00 DF AB
  349.             71 4A B0 60 03 19 0D AC 2E 02 19 03 9E 5B 5B 5A 1A FF B1 DD AE B4
  350.             00 7B 03 93 06 B0 37 03 30 AF 19 0D DE A6 5B 77 DD B1 B7 00 7B 03
  351.             60 03 1A 49
  352.            )
  353.       2. 3. MACRO-CALL-ERROR 1. GET-SETF-METHOD + THE LET*
  354.   )  )
  355. #Y(#:TOP-LEVEL-FORM-22
  356.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) SETF
  357.    REMOVE-OLD-DEFINITIONS MACRO
  358.    #Y(SETF
  359.       #382Y(00 01 00 01 00 08 3C 01 94 02 AA 71 48 AA 23 00 81 1B AA 8D 95 81
  360.             5B AB 62 92 01 11 DE 93 02 9E 5B 77 7A 03 83 00 9C 5B 5B F7 91 01
  361.             6F F2 62 F3 AD 31 4A 5C 14 60 03 19 07 AA 94 03 AD 7A 01 32 02 23
  362.             5C 19 08 DE 9E 5B 5B 77 DC A0 5B 77 AF 7A 03 60 03 19 08 DF DE 9F
  363.             5B 77 E0 AF 7A 02 7A 03 60 02 19 08 E2 93 06 B5 7A 02 9D 79 71 4A
  364.             A1 1A 80 97 15 16 01 1C 80 5A 1A 80 84 14 8D 08 FF B9 93 02 24 04
  365.             07 AC 71 48 23 05 FF B9 93 02 24 07 07 AC 71 48 23 00 FF BD AC B1
  366.             2F 09 41 05 AE AE 62 92 02 0F 93 02 93 02 7A 02 83 00 82 02 82 01
  367.             91 02 71 AF 71 48 23 01 FF AA 9F 1F 80 41 93 04 24 0B 3C AF 94 05
  368.             91 01 28 9C 58 1B FF A4 16 02 1C 2D E5 94 05 72 00 17 E2 AC 71 4A
  369.             E6 AD B8 7A 03 E3 9F 79 60 04 19 11 94 01 82 01 69 01 92 01 58 92
  370.             00 55 93 00 93 02 7A 01 89 0C 6B 16 02 E2 AB 71 4A E7 B2 B7 B3 60
  371.             04 14 60 03 19 10 E8 AC 9D 1A FF 20 AB B0 2F 09 41 05 E2 E9 B0 B0
  372.             72 01 17 B1 93 05 AF 37 03 70 AF 60 03 19 0C 93 01 9D 5B 77 9C 1F
  373.             1B 93 01 8E 08 16 93 01 B0 C4 5E 14 8A 02 0D 93 01 DB 37 01 71 84
  374.             91 00 FF 2D 16 01 AB AC B1 7F 5C 02 22 5A AB 8D 08 FF B1 A1 1F 06
  375.             93 06 8D 08 FF AE EA EB EC ED 6D 03 16 93 05 32 01 1F EA EF F0 F1
  376.             6D 03 16 DE B1 32 02 1F
  377.            )
  378.       2. 1. GLOBAL-IN-FENV-P SETF-EXPANDER THE 3. SETF VALUES-LIST
  379.       MULTIPLE-VALUE-LIST GET-SETF-METHOD-MULTIPLE-VALUE LET* VALUES
  380.       SIMPLE-ASSIGNMENT-P #.#'SECOND MULTIPLE-VALUE-SETQ MULTIPLE-VALUE-BIND
  381.       SETQ #.#'LIST PROGRAM-ERROR "Illegal SETF place: ~S"
  382.       "Das ist keine erlaubte 'SETF-Place' : ~S"
  383.       "Ceci n'est pas une place modifiable valide : ~S" LANGUAGE
  384.       "~S called with an odd number of arguments: ~S"
  385.       "~S mit einer ungeraden Zahl von Argumenten aufgerufen: ~S"
  386.       "~S fut appelé avec un nombre impair d'arguments : ~S" LET PROGN
  387.   )  )
  388. #Y(#:TOP-LEVEL-FORM-23
  389.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) SHIFTF
  390.    REMOVE-OLD-DEFINITIONS MACRO
  391.    #Y(SHIFTF
  392.       #112Y(00 01 00 01 00 08 3C 01 94 02 AA 71 48 D8 8F 01 2F 0A 37 01 71 90
  393.             AB 01 02 AD 1A 38 D9 DA DB DC 6D 03 05 AF 32 01 1F 93 03 B2 2F 06
  394.             41 05 AE AE 92 01 0F 93 01 93 01 7A 02 83 09 82 01 82 00 91 01 71
  395.             16 02 AF AB 7A 02 83 07 AB 83 06 86 02 05 16 05 82 03 9E 5B 20 4F
  396.             AA 93 04 7A 02 83 02 DF AD 71 4A AD 71 4A B1 7A 01 32 02 23 61 02
  397.             19 09
  398.            )
  399.       2. PROGRAM-ERROR "SHIFTF called with too few arguments: ~S"
  400.       "SHIFTF mit zu wenig Argumenten aufgerufen: ~S"
  401.       "SHIFTF fut appelé avec trop peu d'arguments : ~S" LANGUAGE
  402.       GET-SETF-METHOD LET*
  403.   )  )
  404. #Y(#:TOP-LEVEL-FORM-24
  405.    #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 88 D8 DC 62 2C 03 05 C3 19 01) AREF
  406.    SETF-EXPANDER -1.
  407.    #Y(SETF-AREF
  408.       #25Y(00 02 00 00 00 03 9D 5B 77 9E 5B 78 D8 AC AC B0 7A 01 32 02 23 61 02
  409.            19 05
  410.           )
  411.       STORE
  412.      )
  413.    SETF %SET-DOCUMENTATION
  414.   )
  415. #Y(#:TOP-LEVEL-FORM-25 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  416.    %SETNTH REMOVE-OLD-DEFINITIONS
  417.    #Y(%SETNTH
  418.       #32Y(00 03 00 00 00 04 AD AD 70 9F 92 00 07 AA AD 30 AB 9D 19 05 D8 D9 DA
  419.            DB 6D 03 04 B0 B0 32 02 1F
  420.           )
  421.       ERROR "(SETF (NTH ...) ...) : index ~S is too large for ~S"
  422.       "(SETF (NTH ...) ...) : Index ~S ist zu groß für ~S."
  423.       "(SETF (NTH ...) ...) : L'index ~S est trop grand pour ~S." LANGUAGE
  424.   )  )
  425. #Y(#:TOP-LEVEL-FORM-26
  426.    #20Y(00 00 00 00 00 01 D8 D9 DA 31 88 D8 DB 62 2C 03 04 C3 19 01) NTH
  427.    SETF-EXPANDER %SETNTH SETF %SET-DOCUMENTATION
  428.   )
  429. #Y(#:TOP-LEVEL-FORM-27
  430.    #20Y(00 00 00 00 00 01 D8 D9 DA 31 88 D8 DB 62 2C 03 04 C3 19 01) ELT
  431.    SETF-EXPANDER %SETELT SETF %SET-DOCUMENTATION
  432.   )
  433. #Y(#:TOP-LEVEL-FORM-28
  434.    #20Y(00 00 00 00 00 01 D8 D9 DA 31 88 D8 DB 62 2C 03 04 C3 19 01) REST
  435.    SETF-EXPANDER %RPLACD SETF %SET-DOCUMENTATION
  436.   )
  437. #Y(#:TOP-LEVEL-FORM-29
  438.    #20Y(00 00 00 00 00 01 D8 D9 DA 31 88 D8 DB 62 2C 03 04 C3 19 01) FIRST
  439.    SETF-EXPANDER %RPLACA SETF %SET-DOCUMENTATION
  440.   )
  441. #Y(#:TOP-LEVEL-FORM-30
  442.    #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 88 D8 DC 62 2C 03 05 C3 19 01)
  443.    SECOND SETF-EXPANDER -1.
  444.    #Y(SETF-SECOND
  445.       #19Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04) %RPLACA
  446.       CDR
  447.      )
  448.    SETF %SET-DOCUMENTATION
  449.   )
  450. #Y(#:TOP-LEVEL-FORM-31
  451.    #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 88 D8 DC 62 2C 03 05 C3 19 01)
  452.    THIRD SETF-EXPANDER -1.
  453.    #Y(SETF-THIRD #19Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04)
  454.       %RPLACA CDDR
  455.      )
  456.    SETF %SET-DOCUMENTATION
  457.   )
  458. #Y(#:TOP-LEVEL-FORM-32
  459.    #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 88 D8 DC 62 2C 03 05 C3 19 01)
  460.    FOURTH SETF-EXPANDER -1.
  461.    #Y(SETF-FOURTH
  462.       #19Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04) %RPLACA
  463.       CDDDR
  464.      )
  465.    SETF %SET-DOCUMENTATION
  466.   )
  467. #Y(#:TOP-LEVEL-FORM-33
  468.    #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 88 D8 DC 62 2C 03 05 C3 19 01)
  469.    FIFTH SETF-EXPANDER -1.
  470.    #Y(SETF-FIFTH #19Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04)
  471.       %RPLACA CDDDDR
  472.      )
  473.    SETF %SET-DOCUMENTATION
  474.   )
  475. #Y(#:TOP-LEVEL-FORM-34
  476.    #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 88 D8 DC 62 2C 03 05 C3 19 01)
  477.    SIXTH SETF-EXPANDER -1.
  478.    #Y(SETF-SIXTH
  479.       #22Y(00 02 00 00 00 03 9D 5B 77 D8 D9 DA AD 7A 02 7A 02 AE 60 03 19 04)
  480.       %RPLACA CDR CDDDDR
  481.      )
  482.    SETF %SET-DOCUMENTATION
  483.   )
  484. #Y(#:TOP-LEVEL-FORM-35
  485.    #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 88 D8 DC 62 2C 03 05 C3 19 01)
  486.    SEVENTH SETF-EXPANDER -1.
  487.    #Y(SETF-SEVENTH
  488.       #22Y(00 02 00 00 00 03 9D 5B 77 D8 D9 DA AD 7A 02 7A 02 AE 60 03 19 04)
  489.       %RPLACA CDDR CDDDDR
  490.      )
  491.    SETF %SET-DOCUMENTATION
  492.   )
  493. #Y(#:TOP-LEVEL-FORM-36
  494.    #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 88 D8 DC 62 2C 03 05 C3 19 01)
  495.    EIGHTH SETF-EXPANDER -1.
  496.    #Y(SETF-EIGHTH
  497.       #22Y(00 02 00 00 00 03 9D 5B 77 D8 D9 DA AD 7A 02 7A 02 AE 60 03 19 04)
  498.       %RPLACA CDDDR CDDDDR
  499.      )
  500.    SETF %SET-DOCUMENTATION
  501.   )
  502. #Y(#:TOP-LEVEL-FORM-37
  503.    #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 88 D8 DC 62 2C 03 05 C3 19 01)
  504.    NINTH SETF-EXPANDER -1.
  505.    #Y(SETF-NINTH
  506.       #22Y(00 02 00 00 00 03 9D 5B 77 D8 D9 D9 AD 7A 02 7A 02 AE 60 03 19 04)
  507.       %RPLACA CDDDDR
  508.      )
  509.    SETF %SET-DOCUMENTATION
  510.   )
  511. #Y(#:TOP-LEVEL-FORM-38
  512.    #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 88 D8 DC 62 2C 03 05 C3 19 01)
  513.    TENTH SETF-EXPANDER -1.
  514.    #Y(SETF-TENTH
  515.       #25Y(00 02 00 00 00 03 9D 5B 77 D8 D9 DA DA AE 7A 02 7A 02 7A 02 AE 60 03
  516.            19 04
  517.           )
  518.       %RPLACA CDR CDDDDR
  519.      )
  520.    SETF %SET-DOCUMENTATION
  521.   )
  522. #Y(#:TOP-LEVEL-FORM-39
  523.    #20Y(00 00 00 00 00 01 D8 D9 DA 31 88 D8 DB 62 2C 03 04 C3 19 01) CAR
  524.    SETF-EXPANDER %RPLACA SETF %SET-DOCUMENTATION
  525.   )
  526. #Y(#:TOP-LEVEL-FORM-40
  527.    #20Y(00 00 00 00 00 01 D8 D9 DA 31 88 D8 DB 62 2C 03 04 C3 19 01) CDR
  528.    SETF-EXPANDER %RPLACD SETF %SET-DOCUMENTATION
  529.   )
  530. #Y(#:TOP-LEVEL-FORM-41
  531.    #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 88 D8 DC 62 2C 03 05 C3 19 01) CAAR
  532.    SETF-EXPANDER -1.
  533.    #Y(SETF-CAAR #19Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04)
  534.       %RPLACA CAR
  535.      )
  536.    SETF %SET-DOCUMENTATION
  537.   )
  538. #Y(#:TOP-LEVEL-FORM-42
  539.    #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 88 D8 DC 62 2C 03 05 C3 19 01) CADR
  540.    SETF-EXPANDER -1.
  541.    #Y(SETF-CADR #19Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04)
  542.       %RPLACA CDR
  543.      )
  544.    SETF %SET-DOCUMENTATION
  545.   )
  546. #Y(#:TOP-LEVEL-FORM-43
  547.    #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 88 D8 DC 62 2C 03 05 C3 19 01) CDAR
  548.    SETF-EXPANDER -1.
  549.    #Y(SETF-CDAR #19Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04)
  550.       %RPLACD CAR
  551.      )
  552.    SETF %SET-DOCUMENTATION
  553.   )
  554. #Y(#:TOP-LEVEL-FORM-44
  555.    #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 88 D8 DC 62 2C 03 05 C3 19 01) CDDR
  556.    SETF-EXPANDER -1.
  557.    #Y(SETF-CDDR #19Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04)
  558.       %RPLACD CDR
  559.      )
  560.    SETF %SET-DOCUMENTATION
  561.   )
  562. #Y(#:TOP-LEVEL-FORM-45
  563.    #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 88 D8 DC 62 2C 03 05 C3 19 01)
  564.    CAAAR SETF-EXPANDER -1.
  565.    #Y(SETF-CAAAR #19Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04)
  566.       %RPLACA CAAR
  567.      )
  568.    SETF %SET-DOCUMENTATION
  569.   )
  570. #Y(#:TOP-LEVEL-FORM-46
  571.    #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 88 D8 DC 62 2C 03 05 C3 19 01)
  572.    CAADR SETF-EXPANDER -1.
  573.    #Y(SETF-CAADR #19Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04)
  574.       %RPLACA CADR
  575.      )
  576.    SETF %SET-DOCUMENTATION
  577.   )
  578. #Y(#:TOP-LEVEL-FORM-47
  579.    #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 88 D8 DC 62 2C 03 05 C3 19 01)
  580.    CADAR SETF-EXPANDER -1.
  581.    #Y(SETF-CADAR #19Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04)
  582.       %RPLACA CDAR
  583.      )
  584.    SETF %SET-DOCUMENTATION
  585.   )
  586. #Y(#:TOP-LEVEL-FORM-48
  587.    #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 88 D8 DC 62 2C 03 05 C3 19 01)
  588.    CADDR SETF-EXPANDER -1.
  589.    #Y(SETF-CADDR #19Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04)
  590.       %RPLACA CDDR
  591.      )
  592.    SETF %SET-DOCUMENTATION
  593.   )
  594. #Y(#:TOP-LEVEL-FORM-49
  595.    #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 88 D8 DC 62 2C 03 05 C3 19 01)
  596.    CDAAR SETF-EXPANDER -1.
  597.    #Y(SETF-CDAAR #19Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04)
  598.       %RPLACD CAAR
  599.      )
  600.    SETF %SET-DOCUMENTATION
  601.   )
  602. #Y(#:TOP-LEVEL-FORM-50
  603.    #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 88 D8 DC 62 2C 03 05 C3 19 01)
  604.    CDADR SETF-EXPANDER -1.
  605.    #Y(SETF-CDADR #19Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04)
  606.       %RPLACD CADR
  607.      )
  608.    SETF %SET-DOCUMENTATION
  609.   )
  610. #Y(#:TOP-LEVEL-FORM-51
  611.    #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 88 D8 DC 62 2C 03 05 C3 19 01)
  612.    CDDAR SETF-EXPANDER -1.
  613.    #Y(SETF-CDDAR #19Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04)
  614.       %RPLACD CDAR
  615.      )
  616.    SETF %SET-DOCUMENTATION
  617.   )
  618. #Y(#:TOP-LEVEL-FORM-52
  619.    #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 88 D8 DC 62 2C 03 05 C3 19 01)
  620.    CDDDR SETF-EXPANDER -1.
  621.    #Y(SETF-CDDDR #19Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04)
  622.       %RPLACD CDDR
  623.      )
  624.    SETF %SET-DOCUMENTATION
  625.   )
  626. #Y(#:TOP-LEVEL-FORM-53
  627.    #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 88 D8 DC 62 2C 03 05 C3 19 01)
  628.    CAAAAR SETF-EXPANDER -1.
  629.    #Y(SETF-CAAAAR
  630.       #19Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04) %RPLACA
  631.       CAAAR
  632.      )
  633.    SETF %SET-DOCUMENTATION
  634.   )
  635. #Y(#:TOP-LEVEL-FORM-54
  636.    #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 88 D8 DC 62 2C 03 05 C3 19 01)
  637.    CAAADR SETF-EXPANDER -1.
  638.    #Y(SETF-CAAADR
  639.       #19Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04) %RPLACA
  640.       CAADR
  641.      )
  642.    SETF %SET-DOCUMENTATION
  643.   )
  644. #Y(#:TOP-LEVEL-FORM-55
  645.    #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 88 D8 DC 62 2C 03 05 C3 19 01)
  646.    CAADAR SETF-EXPANDER -1.
  647.    #Y(SETF-CAADAR
  648.       #19Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04) %RPLACA
  649.       CADAR
  650.      )
  651.    SETF %SET-DOCUMENTATION
  652.   )
  653. #Y(#:TOP-LEVEL-FORM-56
  654.    #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 88 D8 DC 62 2C 03 05 C3 19 01)
  655.    CAADDR SETF-EXPANDER -1.
  656.    #Y(SETF-CAADDR
  657.       #19Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04) %RPLACA
  658.       CADDR
  659.      )
  660.    SETF %SET-DOCUMENTATION
  661.   )
  662. #Y(#:TOP-LEVEL-FORM-57
  663.    #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 88 D8 DC 62 2C 03 05 C3 19 01)
  664.    CADAAR SETF-EXPANDER -1.
  665.    #Y(SETF-CADAAR
  666.       #19Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04) %RPLACA
  667.       CDAAR
  668.      )
  669.    SETF %SET-DOCUMENTATION
  670.   )
  671. #Y(#:TOP-LEVEL-FORM-58
  672.    #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 88 D8 DC 62 2C 03 05 C3 19 01)
  673.    CADADR SETF-EXPANDER -1.
  674.    #Y(SETF-CADADR
  675.       #19Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04) %RPLACA
  676.       CDADR
  677.      )
  678.    SETF %SET-DOCUMENTATION
  679.   )
  680. #Y(#:TOP-LEVEL-FORM-59
  681.    #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 88 D8 DC 62 2C 03 05 C3 19 01)
  682.    CADDAR SETF-EXPANDER -1.
  683.    #Y(SETF-CADDAR
  684.       #19Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04) %RPLACA
  685.       CDDAR
  686.      )
  687.    SETF %SET-DOCUMENTATION
  688.   )
  689. #Y(#:TOP-LEVEL-FORM-60
  690.    #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 88 D8 DC 62 2C 03 05 C3 19 01)
  691.    CADDDR SETF-EXPANDER -1.
  692.    #Y(SETF-CADDDR
  693.       #19Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04) %RPLACA
  694.       CDDDR
  695.      )
  696.    SETF %SET-DOCUMENTATION
  697.   )
  698. #Y(#:TOP-LEVEL-FORM-61
  699.    #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 88 D8 DC 62 2C 03 05 C3 19 01)
  700.    CDAAAR SETF-EXPANDER -1.
  701.    #Y(SETF-CDAAAR
  702.       #19Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04) %RPLACD
  703.       CAAAR
  704.      )
  705.    SETF %SET-DOCUMENTATION
  706.   )
  707. #Y(#:TOP-LEVEL-FORM-62
  708.    #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 88 D8 DC 62 2C 03 05 C3 19 01)
  709.    CDAADR SETF-EXPANDER -1.
  710.    #Y(SETF-CDAADR
  711.       #19Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04) %RPLACD
  712.       CAADR
  713.      )
  714.    SETF %SET-DOCUMENTATION
  715.   )
  716. #Y(#:TOP-LEVEL-FORM-63
  717.    #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 88 D8 DC 62 2C 03 05 C3 19 01)
  718.    CDADAR SETF-EXPANDER -1.
  719.    #Y(SETF-CDADAR
  720.       #19Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04) %RPLACD
  721.       CADAR
  722.      )
  723.    SETF %SET-DOCUMENTATION
  724.   )
  725. #Y(#:TOP-LEVEL-FORM-64
  726.    #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 88 D8 DC 62 2C 03 05 C3 19 01)
  727.    CDADDR SETF-EXPANDER -1.
  728.    #Y(SETF-CDADDR
  729.       #19Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04) %RPLACD
  730.       CADDR
  731.      )
  732.    SETF %SET-DOCUMENTATION
  733.   )
  734. #Y(#:TOP-LEVEL-FORM-65
  735.    #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 88 D8 DC 62 2C 03 05 C3 19 01)
  736.    CDDAAR SETF-EXPANDER -1.
  737.    #Y(SETF-CDDAAR
  738.       #19Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04) %RPLACD
  739.       CDAAR
  740.      )
  741.    SETF %SET-DOCUMENTATION
  742.   )
  743. #Y(#:TOP-LEVEL-FORM-66
  744.    #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 88 D8 DC 62 2C 03 05 C3 19 01)
  745.    CDDADR SETF-EXPANDER -1.
  746.    #Y(SETF-CDDADR
  747.       #19Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04) %RPLACD
  748.       CDADR
  749.      )
  750.    SETF %SET-DOCUMENTATION
  751.   )
  752. #Y(#:TOP-LEVEL-FORM-67
  753.    #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 88 D8 DC 62 2C 03 05 C3 19 01)
  754.    CDDDAR SETF-EXPANDER -1.
  755.    #Y(SETF-CDDDAR
  756.       #19Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04) %RPLACD
  757.       CDDAR
  758.      )
  759.    SETF %SET-DOCUMENTATION
  760.   )
  761. #Y(#:TOP-LEVEL-FORM-68
  762.    #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 88 D8 DC 62 2C 03 05 C3 19 01)
  763.    CDDDDR SETF-EXPANDER -1.
  764.    #Y(SETF-CDDDDR
  765.       #19Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04) %RPLACD
  766.       CDDDR
  767.      )
  768.    SETF %SET-DOCUMENTATION
  769.   )
  770. #Y(#:TOP-LEVEL-FORM-69
  771.    #20Y(00 00 00 00 00 01 D8 D9 DA 31 88 D8 DB 62 2C 03 04 C3 19 01) SVREF
  772.    SETF-EXPANDER SVSTORE SETF %SET-DOCUMENTATION
  773.   )
  774. #Y(#:TOP-LEVEL-FORM-70
  775.    #20Y(00 00 00 00 00 01 D8 D9 DA 31 88 D8 DB 62 2C 03 04 C3 19 01)
  776.    ROW-MAJOR-AREF SETF-EXPANDER ROW-MAJOR-STORE SETF %SET-DOCUMENTATION
  777.   )
  778. #Y(#:TOP-LEVEL-FORM-71
  779.    #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 88 D8 DC 62 2C 03 05 C3 19 01) GET
  780.    SETF-EXPANDER -1.
  781.    #Y(SETF-GET
  782.       #37Y(00 02 00 00 00 03 9D 5B 77 9E 5B 5B 77 9F 5B 5B 5B 77 D8 AD AD B1 7A
  783.            04 91 01 03 15 19 06 D9 AC AC 60 03 19 07
  784.           )
  785.       %PUT PROGN
  786.      )
  787.    SETF %SET-DOCUMENTATION
  788.   )
  789. #Y(#:TOP-LEVEL-FORM-72 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  790.    %PUTF REMOVE-OLD-DEFINITIONS
  791.    #Y(%PUTF
  792.       #50Y(00 03 00 00 00 04 AD 1A 1F D8 D9 DA DB 6D 03 04 32 00 1F 94 00 AD 30
  793.            AB 00 19 05 9B 5B 1F 6A 93 00 9F 21 6F 9B 5B 5B F6 9B 20 70 AD AD A1
  794.            61 02 19 05
  795.           )
  796.       ERROR "(SETF (GETF ...) ...) : property list with an odd length"
  797.       "(SETF (GETF ...) ...) : Property-Liste ungerader Länge aufgetaucht."
  798.       "(SETF (GETF ...) ...) : Occurence d'une liste de propriétés de longueur impaire."
  799.       LANGUAGE
  800.   )  )
  801. #Y(#:TOP-LEVEL-FORM-73
  802.    #30Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 DB DC DD 97 00 79 31 88 DB DE 62
  803.         2C 03 07 C6 19 01
  804.        )
  805.    #1=#:SETF-GETF REMOVE-OLD-DEFINITIONS
  806.    #Y(#1#
  807.       #138Y(00 02 00 00 00 03 D8 AD 71 48 D9 90 02 31 80 5B 9D 5B 77 9E 5B 5B
  808.             77 9F 5B 5B 5B 77 AC AF 2F 08 41 05 37 01 71 90 37 01 71 90 91 07
  809.             80 4D 00 14 B1 AC 9D 79 72 02 23 B1 B5 91 0B 80 47 00 79 72 02 23
  810.             AE 7A 01 E1 93 09 E2 B3 B2 B4 7A 04 7A 02 7A 01 AF E3 93 0C B6 7A
  811.             03 B3 7A 02 32 02 23 7B 02 DF B2 B1 A2 7B 03 3F 05 19 0E DA DB DC
  812.             DD 6D 03 06 DF AF 71 48 71 98 32 02 1F 37 01 71 90 60 01 1A FF AB
  813.             14 60 01 1A FF B4
  814.            )
  815.       3. 4. PROGRAM-ERROR
  816.       "The SETF expander for ~S may not be called with ~S arguments."
  817.       "Der SETF-Expander für ~S kann nicht mit ~S Argumenten aufgerufen werden."
  818.       "L'«expandeur» SETF pour ~S ne peut pas être appelé avec ~S arguments."
  819.       LANGUAGE GETF GET-SETF-METHOD LET %PUTF WHEN
  820.      )
  821.    GETF SETF-EXPANDER -5. SETF %SET-DOCUMENTATION
  822.   )
  823. #Y(#:TOP-LEVEL-FORM-74
  824.    #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 88 D8 DC 62 2C 03 05 C3 19 01)
  825.    GETHASH SETF-EXPANDER -1.
  826.    #Y(SETF-GETHASH
  827.       #37Y(00 02 00 00 00 03 9D 5B 77 9E 5B 5B 77 9F 5B 5B 5B 77 D8 AD AD B1 7A
  828.            04 91 01 03 15 19 06 D9 AC AC 60 03 19 07
  829.           )
  830.       PUTHASH PROGN
  831.      )
  832.    SETF %SET-DOCUMENTATION
  833.   )
  834. #Y(#:TOP-LEVEL-FORM-75
  835.    #20Y(00 00 00 00 00 01 D8 D9 DA 31 88 D8 DB 62 2C 03 02 C3 19 01)
  836.    DOCUMENTATION SETF-EXPANDER %SET-DOCUMENTATION SETF
  837.   )
  838. #Y(#:TOP-LEVEL-FORM-76
  839.    #20Y(00 00 00 00 00 01 D8 D9 DA 31 88 D8 DB 62 2C 03 04 C3 19 01)
  840.    FILL-POINTER SETF-EXPANDER SET-FILL-POINTER SETF %SET-DOCUMENTATION
  841.   )
  842. #Y(#:TOP-LEVEL-FORM-77
  843.    #20Y(00 00 00 00 00 01 D8 D9 DA 31 88 D8 DB 62 2C 03 04 C3 19 01)
  844.    READTABLE-CASE SETF-EXPANDER SET-READTABLE-CASE SETF %SET-DOCUMENTATION
  845.   )
  846. #Y(#:TOP-LEVEL-FORM-78
  847.    #20Y(00 00 00 00 00 01 D8 D9 DA 31 88 D8 DB 62 2C 03 04 C3 19 01)
  848.    SYMBOL-VALUE SETF-EXPANDER SET SETF %SET-DOCUMENTATION
  849.   )
  850. #Y(#:TOP-LEVEL-FORM-79
  851.    #20Y(00 00 00 00 00 01 D8 D9 DA 31 88 D8 DB 62 2C 03 04 C3 19 01)
  852.    SYMBOL-FUNCTION SETF-EXPANDER %PUTD SETF %SET-DOCUMENTATION
  853.   )
  854. #Y(#:TOP-LEVEL-FORM-80
  855.    #20Y(00 00 00 00 00 01 D8 D9 DA 31 88 D8 DB 62 2C 03 04 C3 19 01)
  856.    SYMBOL-PLIST SETF-EXPANDER %PUTPLIST SETF %SET-DOCUMENTATION
  857.   )
  858. #Y(#:TOP-LEVEL-FORM-81 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  859.    SET-FDEFINITION REMOVE-OLD-DEFINITIONS
  860.    #Y(SET-FDEFINITION #14Y(00 02 00 00 00 03 AC 6E 00 AC 31 82 19 03)
  861.       GET-FUNNAME-SYMBOL
  862.   )  )
  863. #Y(#:TOP-LEVEL-FORM-82
  864.    #20Y(00 00 00 00 00 01 D8 D9 DA 31 88 D8 DB 62 2C 03 04 C3 19 01)
  865.    FDEFINITION SETF-EXPANDER SET-FDEFINITION SETF %SET-DOCUMENTATION
  866.   )
  867. #Y(#:TOP-LEVEL-FORM-83
  868.    #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 88 D8 DC 62 2C 03 05 C3 19 01)
  869.    MACRO-FUNCTION SETF-EXPANDER -1.
  870.    #Y(SETF-MACRO-FUNCTION
  871.       #32Y(00 02 00 00 00 03 9D 5B 77 D8 D9 DA AD 7A 02 DB DC B1 7A 03 7A 03 DD
  872.            AD C9 7B 02 AF 60 04 19 04
  873.           )
  874.       PROGN SETF SYMBOL-FUNCTION CONS 'MACRO REMPROP ('MACRO)
  875.      )
  876.    SETF %SET-DOCUMENTATION
  877.   )
  878. #Y(#:TOP-LEVEL-FORM-84
  879.    #20Y(00 00 00 00 00 01 D8 D9 DA 31 88 D8 DB 62 2C 03 04 C3 19 01) CHAR
  880.    SETF-EXPANDER STORE-CHAR SETF %SET-DOCUMENTATION
  881.   )
  882. #Y(#:TOP-LEVEL-FORM-85
  883.    #20Y(00 00 00 00 00 01 D8 D9 DA 31 88 D8 DB 62 2C 03 04 C3 19 01) SCHAR
  884.    SETF-EXPANDER STORE-SCHAR SETF %SET-DOCUMENTATION
  885.   )
  886. #Y(#:TOP-LEVEL-FORM-86
  887.    #20Y(00 00 00 00 00 01 D8 D9 DA 31 88 D8 DB 62 2C 03 04 C3 19 01) BIT
  888.    SETF-EXPANDER STORE SETF %SET-DOCUMENTATION
  889.   )
  890. #Y(#:TOP-LEVEL-FORM-87
  891.    #20Y(00 00 00 00 00 01 D8 D9 DA 31 88 D8 DB 62 2C 03 04 C3 19 01) SBIT
  892.    SETF-EXPANDER STORE SETF %SET-DOCUMENTATION
  893.   )
  894. #Y(#:TOP-LEVEL-FORM-88
  895.    #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 88 D8 DC 62 2C 03 05 C3 19 01)
  896.    SUBSEQ SETF-EXPANDER -1.
  897.    #Y(SETF-SUBSEQ
  898.       #33Y(00 02 00 00 00 03 9D 5B 77 9E 5B 5B 77 9F 5B 5B 5B 77 D8 D9 AE B1 DA
  899.            B0 DB B1 7A 07 B0 60 03 19 06
  900.           )
  901.       PROGN REPLACE :START1 :END1
  902.      )
  903.    SETF %SET-DOCUMENTATION
  904.   )
  905. #Y(#:TOP-LEVEL-FORM-89
  906.    #30Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 DB DC DD 97 00 79 31 88 DB DE 62
  907.         2C 03 07 C6 19 01
  908.        )
  909.    #1=#:SETF-CHAR-BIT REMOVE-OLD-DEFINITIONS
  910.    #Y(#1#
  911.       #95Y(00 02 00 00 00 03 AC 71 48 D8 8F 01 2E 80 40 9D 5B 77 9E 5B 5B 77 AB
  912.            AE 2F 07 41 05 37 01 71 90 37 01 71 90 B0 AC 7A 01 72 02 23 B0 B3 7A
  913.            01 72 02 23 AC 7A 01 E0 93 08 E1 B2 B2 B2 7A 04 7A 02 7A 01 B2 B0 7A
  914.            04 DE B1 B1 7A 03 3F 05 19 0C D9 DA DB DC 6D 03 05 DE AF 71 48 71 98
  915.            32 02 1F
  916.           )
  917.       3. PROGRAM-ERROR
  918.       "The SETF expander for ~S may not be called with ~S arguments."
  919.       "Der SETF-Expander für ~S kann nicht mit ~S Argumenten aufgerufen werden."
  920.       "L'«expandeur» SETF pour ~S ne peut pas être appelé avec ~S arguments."
  921.       LANGUAGE CHAR-BIT GET-SETF-METHOD LET SET-CHAR-BIT
  922.      )
  923.    CHAR-BIT SETF-EXPANDER -5. SETF %SET-DOCUMENTATION
  924.   )
  925. #Y(#:TOP-LEVEL-FORM-90
  926.    #30Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 DB DC DD 97 00 79 31 88 DB DE 62
  927.         2C 03 07 C6 19 01
  928.        )
  929.    #1=#:SETF-LDB REMOVE-OLD-DEFINITIONS
  930.    #Y(#1#
  931.       #86Y(00 02 00 00 00 03 AC 71 48 D8 8F 01 2E 38 9D 5B 77 9E 5B 5B 77 AA AE
  932.            2F 07 41 05 37 01 71 90 37 01 71 90 AB A2 79 B3 A2 79 AC 7A 01 E0 93
  933.            08 E1 B0 B2 B4 7A 04 7A 02 7A 01 B2 B0 7A 04 DE B0 B2 7A 03 3F 05 19
  934.            0C D9 DA DB DC 6D 03 05 DE AF 71 48 71 98 32 02 1F
  935.           )
  936.       3. PROGRAM-ERROR
  937.       "The SETF expander for ~S may not be called with ~S arguments."
  938.       "Der SETF-Expander für ~S kann nicht mit ~S Argumenten aufgerufen werden."
  939.       "L'«expandeur» SETF pour ~S ne peut pas être appelé avec ~S arguments."
  940.       LANGUAGE LDB GET-SETF-METHOD LET DPB
  941.      )
  942.    LDB SETF-EXPANDER -5. SETF %SET-DOCUMENTATION
  943.   )
  944. #Y(#:TOP-LEVEL-FORM-91
  945.    #30Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 DB DC DD 97 00 79 31 88 DB DE 62
  946.         2C 03 07 C6 19 01
  947.        )
  948.    #1=#:SETF-MASK-FIELD REMOVE-OLD-DEFINITIONS
  949.    #Y(#1#
  950.       #86Y(00 02 00 00 00 03 AC 71 48 D8 8F 01 2E 38 9D 5B 77 9E 5B 5B 77 AA AE
  951.            2F 07 41 05 37 01 71 90 37 01 71 90 AB A2 79 B3 A2 79 AC 7A 01 E0 93
  952.            08 E1 B0 B2 B4 7A 04 7A 02 7A 01 B2 B0 7A 04 DE B0 B2 7A 03 3F 05 19
  953.            0C D9 DA DB DC 6D 03 05 DE AF 71 48 71 98 32 02 1F
  954.           )
  955.       3. PROGRAM-ERROR
  956.       "The SETF expander for ~S may not be called with ~S arguments."
  957.       "Der SETF-Expander für ~S kann nicht mit ~S Argumenten aufgerufen werden."
  958.       "L'«expandeur» SETF pour ~S ne peut pas être appelé avec ~S arguments."
  959.       LANGUAGE MASK-FIELD GET-SETF-METHOD LET DEPOSIT-FIELD
  960.      )
  961.    MASK-FIELD SETF-EXPANDER -5. SETF %SET-DOCUMENTATION
  962.   )
  963. #Y(#:TOP-LEVEL-FORM-92
  964.    #30Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 DB DC DD 97 00 79 31 88 DB DE 62
  965.         2C 03 07 C6 19 01
  966.        )
  967.    #1=#:SETF-THE REMOVE-OLD-DEFINITIONS
  968.    #Y(#1#
  969.       #68Y(00 02 00 00 00 03 AC 71 48 D8 8F 01 2E 26 9D 5B 77 9E 5B 5B 77 AA AE
  970.            2F 07 41 05 AE AE AE DE B4 93 07 7A 03 93 06 B0 37 03 70 AF DE B5 B0
  971.            7A 03 3F 05 19 0A D9 DA DB DC 6D 03 05 DE AF 71 48 71 98 32 02 1F
  972.           )
  973.       3. PROGRAM-ERROR
  974.       "The SETF expander for ~S may not be called with ~S arguments."
  975.       "Der SETF-Expander für ~S kann nicht mit ~S Argumenten aufgerufen werden."
  976.       "L'«expandeur» SETF pour ~S ne peut pas être appelé avec ~S arguments."
  977.       LANGUAGE THE GET-SETF-METHOD
  978.      )
  979.    THE SETF-EXPANDER -5. SETF %SET-DOCUMENTATION
  980.   )
  981. #Y(#:TOP-LEVEL-FORM-93
  982.    #30Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 DB DC DD 97 00 79 31 88 DB DE 62
  983.         2C 03 07 C6 19 01
  984.        )
  985.    #1=#:SETF-APPLY REMOVE-OLD-DEFINITIONS
  986.    #Y(#1#
  987.       #149Y(00 02 00 00 00 03 AC 71 48 D8 8F 01 2F 80 61 9D 5B 77 9E 5B 78 AB
  988.             8E 0D 80 66 AB 70 97 24 00 80 5F 93 01 24 07 80 59 9C 5B 77 8E 08
  989.             80 52 9C 5B 5A F7 AB 9C 79 AE 2F 0B 41 05 AF 37 01 30 A0 77 AE 37
  990.             01 30 A0 5A 22 80 41 00 2A 01 AF 37 01 30 A0 5A 0B 00 00 9B 2A 01
  991.             AA 2B 0F 01 0B 00 00 AA 6C 10 01 B1 B1 B1 B1 9F 73 B1 A0 73 3F 05
  992.             19 0D D9 DA DB DC 6D 03 05 DE AF 71 48 71 98 32 02 1F D9 E0 E1 E2
  993.             6D 03 05 32 00 1F D9 E4 E5 E6 6D 03 05 B2 32 01 1F
  994.            )
  995.       2. PROGRAM-ERROR
  996.       "The SETF expander for ~S may not be called with ~S arguments."
  997.       "Der SETF-Expander für ~S kann nicht mit ~S Argumenten aufgerufen werden."
  998.       "L'«expandeur» SETF pour ~S ne peut pas être appelé avec ~S arguments."
  999.       LANGUAGE APPLY FUNCTION
  1000.       "SETF APPLY is only defined for functions of the form #'symbol."
  1001.       "SETF von APPLY ist nur für Funktionen der Form #'symbol als Argument definiert."
  1002.       "Un SETF de APPLY n'est défini que pour les fonctions de la forme #'symbole."
  1003.       GET-SETF-METHOD "APPLY on ~S is not a SETF place."
  1004.       "APPLY von ~S kann nicht als 'SETF-Place' aufgefaßt werden."
  1005.       "APPLY de ~S ne peux pas être considéré comme une place modifiable."
  1006.       #Y(SPLICE
  1007.          #40Y(00 01 00 00 00 02 AB 8B 96 13 94 01 6B 78 93 02 68 01 01 8D 03 0A
  1008.               93 02 AB 2F 02 19 03 00 19 02 68 01 01 AB 2F 01 19 03
  1009.              )
  1010.          NIL BACKQUOTE-APPEND BACKQUOTE-CONS
  1011.         )
  1012.       #Y(CALL-SPLICING
  1013.          #60Y(00 01 00 00 00 02 93 01 94 02 07 00 01 73 92 00 21 9B 1F 05 93 00
  1014.               23 01 19 DA DB AD 7A 02 9D 1F 0A 93 02 23 04 12 93 02 23 05 0D AC
  1015.               60 01 61 02 19 04 AB 9C 5B 5C 19 04 9D 5B 1A 72
  1016.              )
  1017.          NIL LIST APPLY FUNCTION LIST* CONS
  1018.      )  )
  1019.    APPLY SETF-EXPANDER -5. SETF %SET-DOCUMENTATION
  1020.   )
  1021. #Y(#:TOP-LEVEL-FORM-94
  1022.    #30Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 DB DC DD 97 00 79 31 88 DB DE 62
  1023.         2C 03 07 C6 19 01
  1024.        )
  1025.    #1=#:SETF-FUNCALL REMOVE-OLD-DEFINITIONS
  1026.    #Y(#1#
  1027.       #94Y(00 02 00 00 00 03 AC 71 48 D8 8F 01 2F 2F 9D 5B 77 9E 5B 78 AB 8E 0D
  1028.            3C AB 70 97 24 00 36 93 01 AA CA 59 1C 28 16 01 1C 2B 9C 5B 77 8E 08
  1029.            25 9C 5B 5A F7 1C 1F AB 9C 79 AE 2F 0C 19 05 D9 DA DB DC 6D 03 05 DE
  1030.            AF 71 48 71 98 32 02 1F AA CB 59 16 01 1B 55 D9 E1 E2 E3 6D 03 05 32
  1031.            00 1F
  1032.           )
  1033.       2. PROGRAM-ERROR
  1034.       "The SETF expander for ~S may not be called with ~S arguments."
  1035.       "Der SETF-Expander für ~S kann nicht mit ~S Argumenten aufgerufen werden."
  1036.       "L'«expandeur» SETF pour ~S ne peut pas être appelé avec ~S arguments."
  1037.       LANGUAGE FUNCALL FUNCTION QUOTE
  1038.       "SETF FUNCALL is only defined for functions of the form #'symbol."
  1039.       "SETF von FUNCALL ist nur für Funktionen der Form #'symbol definiert."
  1040.       "Un SETF de FUNCALL n'est défini que pour les fonctions de la forme #'symbole."
  1041.       GET-SETF-METHOD
  1042.      )
  1043.    FUNCALL SETF-EXPANDER -5. SETF %SET-DOCUMENTATION
  1044.   )
  1045. #Y(#:TOP-LEVEL-FORM-95
  1046.    #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 88 D8 DC 62 2C 03 05 C3 19 01)
  1047.    GET-DISPATCH-MACRO-CHARACTER SETF-EXPANDER -1.
  1048.    #Y(SETF-GET-DISPATCH-MACRO-CHARACTER
  1049.       #41Y(00 02 00 00 00 03 9D 5B 77 9E 5B 5B 77 9F 5B 5B 5B 1B 0F C3 14 D9 DA
  1050.            AE AE B2 AF 7A 05 B0 60 03 19 06 9F 5B 5B 5B 5A 1A 6B
  1051.           )
  1052.       *READTABLE* PROGN SET-DISPATCH-MACRO-CHARACTER
  1053.      )
  1054.    SETF %SET-DOCUMENTATION
  1055.   )
  1056. #Y(#:TOP-LEVEL-FORM-96
  1057.    #20Y(00 00 00 00 00 01 D8 D9 DA 31 88 D8 DB 62 2C 03 04 C3 19 01)
  1058.    LONG-FLOAT-DIGITS SETF-EXPANDER %SET-LONG-FLOAT-DIGITS SETF
  1059.    %SET-DOCUMENTATION
  1060.   )
  1061. #Y(#:TOP-LEVEL-FORM-97
  1062.    #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 88 D8 DC 62 2C 03 05 C3 19 01)
  1063.    DEFAULT-DIRECTORY SETF-EXPANDER -1.
  1064.    #Y(SETF-DEFAULT-DIRECTORY
  1065.       #16Y(00 02 00 00 00 03 D8 D9 AD 7A 02 AD 60 03 19 03) PROGN CD
  1066.      )
  1067.    SETF %SET-DOCUMENTATION
  1068.   )
  1069. #Y(#:TOP-LEVEL-FORM-98
  1070.    #20Y(00 00 00 00 00 01 D8 D9 DA 31 88 D8 DB 62 2C 03 04 C3 19 01)
  1071.    LOGICAL-PATHNAME-TRANSLATIONS SETF-EXPANDER
  1072.    SET-LOGICAL-PATHNAME-TRANSLATIONS SETF %SET-DOCUMENTATION
  1073.   )
  1074. #Y(#:TOP-LEVEL-FORM-99
  1075.    #30Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 DB DC DD 97 00 79 31 88 DB DE 62
  1076.         2C 03 07 C6 19 01
  1077.        )
  1078.    #1=#:SETF-VALUES REMOVE-OLD-DEFINITIONS
  1079.    #Y(#1#
  1080.       #27Y(00 02 00 00 00 03 94 02 AA AD 2F 00 41 05 AE AE AE D9 A0 79 D9 A0 79
  1081.            3F 05 19 09
  1082.           )
  1083.       SETF-VALUES-AUX VALUES
  1084.      )
  1085.    VALUES SETF-EXPANDER -5. SETF %SET-DOCUMENTATION
  1086.   )
  1087. #Y(#:TOP-LEVEL-FORM-100 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  1088.    SETF-VALUES-AUX REMOVE-OLD-DEFINITIONS
  1089.    #Y(SETF-VALUES-AUX
  1090.       #75Y(00 02 00 00 00 03 01 05 B1 1A 20 93 00 82 01 B2 2F 00 41 05 AE B5 7F
  1091.            A5 0A AD B4 7F A5 09 AC B3 7F A5 08 AB 83 07 AA 83 06 16 05 9B 20 5D
  1092.            AF 80 4A 05 AE 80 4A 04 AD 80 4A 03 AC 80 4A 02 AB 80 4A 01 AF AF AF
  1093.            AF AF 3F 05 19 09
  1094.           )
  1095.       GET-SETF-METHOD
  1096.   )  )
  1097. #Y(#:TOP-LEVEL-FORM-101
  1098.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01)
  1099.    MULTIPLE-VALUE-SETF REMOVE-OLD-DEFINITIONS MACRO
  1100.    #Y(MULTIPLE-VALUE-SETF
  1101.       #58Y(00 01 00 01 00 08 3C 01 AC 71 48 D8 8F 01 2E 25 9D 5B 77 9E 5B 5B 77
  1102.            AB AE 2F 02 41 05 DB DC B0 B0 72 01 17 DD AF B3 B0 93 08 7A 01 32 02
  1103.            23 7B 03 60 03 19 0A AC 2E 01 19 03
  1104.           )
  1105.       3. MACRO-CALL-ERROR SETF-VALUES-AUX LET* #.#'LIST MULTIPLE-VALUE-BIND
  1106.   )  )
  1107.