(FILECREATED " 9-Sep-86 18:22:29" ("compiled on " {ERIS}LIBRARY>CMLSETF.;44) " 8-Sep-86 16:14:13" "COMPILE-FILEd" in "Xerox Lisp 8-Sep-86 ..." dated " 8-Sep-86 17:32:09") (FILECREATED " 9-Sep-86 18:20:00" {ERIS}LIBRARY>CMLSETF.;44 40468 changes to: (FNS GET-SETF-METHOD) previous date: "26-Aug-86 19:52:47" {ERIS}LIBRARY>CMLSETF.;43) (RPAQQ CMLSETFCOMS ((VARS *DEFAULT-DEFAULT*) (FNS GET-SETF-METHOD GET-SETF-METHOD-MULTIPLE-VALUE GET-SIMPLE-SETF-METHOD) (DEFINE-TYPES SETFS) (FUNCTIONS DEFINE-MODIFY-MACRO DEFINE-SETF-METHOD DEFSETF ) (FUNCTIONS INCF DECF) (FUNCTIONS SETF PSETF SHIFTF ROTATEF CL:PUSH CL:PUSHNEW CL:POP REMF) (SETFS CAR CDR CAAAAR CAAADR CAAAR CAADAR CAADDR CAADR CAAR CADAAR CADADR CADAR CADDAR CADDDR CADDR CADR CDAAAR CDAADR CDAAR CDADAR CDADDR CDADR CDAR CDDAAR CDDADR CDDAR CDDDAR CDDDDR CDDDR CDDR CL:FIRST SECOND THIRD FOURTH FIFTH SIXTH SEVENTH EIGHTH NINTH TENTH REST NTHCDR DOCUMENTATION CL:NTH GETHASH GETF CL:APPLY LDB MASK-FIELD CHAR-BIT THE) (SETFS \GETBASEPTR) (PROP FILETYPE CMLSETF) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA GET-SETF-METHOD-MULTIPLE-VALUE))))) (RPAQQ *DEFAULT-DEFAULT* NIL) GET-SETF-METHOD D1 (L (1 ENVIRONMENT 0 FORM))  @dlhdIhg@Ih@ o@ @g' @g'X@H @g'X@AlH@g'X2gH g g@lm @hhhbbf@A d@o@ bL(257Q CL:ERROR 241Q MACROEXPAND-1 211Q PACK* 206Q SUBSTRING 172Q PACK* 163Q LAST 113Q GET-SIMPLE-SETF-METHOD 55Q CL:ERROR 42Q VALUES 16Q GENSYM) (175Q C 167Q R 157Q C 150Q CROPS 125Q SETF-METHOD-EXPANDER 103Q SETFN 67Q SETF-INVERSE 27Q SETQ) ( 252Q "~S is not a known location specifier for SETF." 51Q "~S illegal atomic form for GET-SETF-METHOD.") GET-SETF-METHOD-MULTIPLE-VALUE D1 (L (1 ENVIRONMENT 0 FORM)) @A (4 GET-SETF-METHOD) NIL () GET-SIMPLE-SETF-METHOD D1 (P 4 X P 3 A0595 P 2 VALS P 1 VARS P 0 NEW-VAR I 1 SETF-INVERSE I 0 FORM) =!@KJ ZIJHhAIHh @I ILJK[(57Q GENSYM 51Q VALUES 40Q \APPEND2 22Q NREVERSE 2 GENSYM) NIL () (ADDTOVAR PRETTYDEFMACROS (SETFS X (P * (MAPCAR (QUOTE X) (FUNCTION (LAMBDA (ITEM) (CL:DO ((DEF (GET ITEM (QUOTE SETFS)))) (DEF DEF) (CERROR "Re-fetch the definition" "No ~S definition for ~S" (QUOTE SETFS) ITEM)))))))) (ADDTOVAR PRETTYTYPELST (CHANGEDSETFSLST SETFS "Common Lisp SETF definitions")) (ADDTOVAR FILEPKGTYPES SETFS) (PUTPROPS SETFS GETDEF \DEFINE-TYPE-GETDEF) (PUTPROPS SETFS FILEPKGCONTENTS NILL) (PUTPROPS SETFS PROPTYPE SETFS) expand-DEFINE-MODIFY-MACRO D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) ! @  @HH[K]Md_ggh__Lh___gzOdg`O_O _gJgLo OgoogooggoO1ggNhgOOh (lOOO_OvggNhgOhoohhhhgogggJgIhhhgJhh(243Q \APPEND2 146Q \APPEND2 124Q REVERSE 4 REMOVE-COMMENTS) (425Q QUOTE 404Q FUNCTIONS 400Q PUTPROPS 375Q FILEPKGFLG 372Q AND 363Q EVAL-WHEN 311Q GETTER 302Q QUOTE 277Q LIST 232Q GETTER 223Q QUOTE 220Q LIST* 205Q LIST 202Q CL:PUSH 167Q CL:DO 154Q MULTIPLE-VALUE-BIND 136Q $$MODIFY-MACRO-FORM 132Q DEFMACRO 104Q &REST 73Q &OPTIONAL 44Q WITHOUT-FILEPKG 41Q PROGN) ( 367Q (CL:EVAL) 334Q ((BQUOTE (LET* (\, (REVERSE LET-LIST)) (\, SETTER)))) 326Q (LET-LIST) 211Q (CAR NEW-VALUE) 177Q (NULL D) 173Q ((D DUMMY-VARIABLES (CDR D)) (V VALUES (CDR V)) (LET-LIST NIL (CONS (LIST (CAR D) (CAR V)) LET-LIST))) 164Q (GET-SETF-METHOD $$MODIFY-MACRO-FORM $$MODIFY-MACRO-ENVIRONMENT) 160Q (DUMMY-VARIABLES VALUES NEW-VALUE SETTER GETTER) 143Q (&ENVIRONMENT $$MODIFY-MACRO-ENVIRONMENT)) (SETF-MACRO-FUNCTION (QUOTE DEFINE-MODIFY-MACRO) (QUOTE expand-DEFINE-MODIFY-MACRO)) (ADDTOVAR PRETTYPRINTMACROS (DEFINE-MODIFY-MACRO . PPRINT-DEFINER)) expand-DEFINE-SETF-METHOD D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @  @HH[KAM_ggoJ oJ oJ  LOOJNgOgo __O_goggJhoggJhogOOOhOOh ggJhogOhhhhgogggJgIhhhgJhh(236Q \APPEND2 125Q \MVLIST 122Q PARSE-DEFMACRO 70Q PACK* 60Q PACK* 50Q PACK* 4 REMOVE-COMMENTS) (354Q QUOTE 333Q SETFS 327Q PUTPROPS 324Q FILEPKGFLG 321Q AND 312Q EVAL-WHEN 262Q QUOTE 247Q QUOTE 244Q PUTPROP 214Q DEFUN 177Q QUOTE 174Q REMPROP 157Q QUOTE 154Q REMPROP 145Q EVAL-WHEN 112Q :ERROR-STRING 105Q :ENVIRONMENT 40Q WITHOUT-FILEPKG 35Q PROGN) ( 316Q (CL:EVAL) 257Q (QUOTE SETF-METHOD-EXPANDER) 207Q ((QUOTE SETFN)) 167Q ((QUOTE SETF-INVERSE)) 151Q (EVAL CL:COMPILE LOAD) 116Q "Setf expander for ~S cannot be called with ~S args." 64Q "setf-expander-" 54Q "env-" 44Q "whole-") (SETF-MACRO-FUNCTION (QUOTE DEFINE-SETF-METHOD) (QUOTE expand-DEFINE-SETF-METHOD)) (ADDTOVAR PRETTYPRINTMACROS (DEFINE-SETF-METHOD . PPRINT-DEFINER)) expand-DEFSETF D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @  @HHAggKd0goggJhogJgMhh ^NKK_OK_"_ O"___O_O_Ooo Jo Jo __O OOJL  _goggJhogggOhhggogoOoOohggogOhOOhhhhhgJgOhhoJ hgogggJgIhhhgJhh(525Q CL:ERROR 275Q \MVLIST 272Q PARSE-DEFMACRO 250Q PACK* 240Q PACK* 227Q CERROR 4 REMOVE-COMMENTS) (575Q QUOTE 554Q SETFS 550Q PUTPROPS 545Q FILEPKGFLG 542Q AND 533Q EVAL-WHEN 477Q SETF-METHOD-EXPANDER 473Q PUTPROPS 431Q LIST 422Q DUMMIES 417Q VALUES 366Q LET* 357Q LAMBDA 354Q FUNCTION 341Q QUOTE 336Q SYMBOL-FUNCTION 333Q SETF 316Q QUOTE 313Q REMPROP 304Q EVAL-WHEN 100Q SETF-INVERSE 74Q PUTPROPS 57Q QUOTE 54Q REMPROP 45Q EVAL-WHEN 32Q WITHOUT-FILEPKG 27Q PROGN) ( 537Q (CL:EVAL) 521Q "Ill-formed DEFSETF for ~S." 426Q (CDR ACCESS-FORM) 407Q ((GENSYM)) 400Q ((CONS (CAR ACCESS-FORM) DUMMIES)) 372Q (DUMMIES (MAPCAR (CDR ACCESS-FORM) (FUNCTION (LAMBDA (X) (GENSYM))))) 363Q (ACCESS-FORM) 326Q ((QUOTE SETF-INVERSE)) 310Q (EVAL CL:COMPILE LOAD) 245Q "-setf-expander" 235Q "-setf-form" 224Q "Currently only one new-value variable is allowed in DEFSETF." 220Q "Ignore the extra items in the list." 67Q ((QUOTE SETF-METHOD-EXPANDER)) 51Q (LOAD CL:COMPILE EVAL)) (SETF-MACRO-FUNCTION (QUOTE DEFSETF) (QUOTE expand-DEFSETF)) (ADDTOVAR PRETTYPRINTMACROS (DEFSETF . PPRINT-DEFINER)) expand-INCF D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @ HH^kAIK \L^_N__O__O_MOO)OgOJhhO_gO OhOOOhO___(140Q REVERSE 27Q \MVLIST 24Q GET-SETF-METHOD) (133Q LET* 111Q +) () (SETF-MACRO-FUNCTION (QUOTE INCF) (QUOTE expand-INCF)) expand-DECF D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @ HH^kAIK \L^_N__O__O_MOO)OgOJhhO_gO OhOOOhO___(140Q REVERSE 27Q \MVLIST 24Q GET-SETF-METHOD) (133Q LET* 111Q -) () (SETF-MACRO-FUNCTION (QUOTE DECF) (QUOTE expand-DECF)) expand-SETF D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @ HHZJAIdlgIKzlIg'DIg'8IM __O__O__OgOOROIKh _&O+O OKhh Nh_LBgOgLh_(O&O(h_$O"O$h_"_ O_O_O$&_"O(227Q \APPEND2 175Q \APPEND2 107Q \MVLIST 104Q GET-SETF-METHOD) (252Q SETF 245Q PROGN 147Q LET* 74Q SETFN 60Q SETF-INVERSE 34Q SETQ) () (SETF-MACRO-FUNCTION (QUOTE SETF) (QUOTE expand-SETF)) expand-PSETF D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @ AH! OgO O o o OI __O__O^NOOK MOhO_LO_O_JhO_KJ(73Q \MVLIST 70Q GET-SETF-METHOD 60Q CL:ERROR 43Q \APPEND2 34Q NREVERSE 27Q NREVERSE) (22Q LET*) ( 55Q "Odd number of args to PSETF." 40Q (NIL)) (SETF-MACRO-FUNCTION (QUOTE PSETF) (QUOTE expand-PSETF)) expand-SHIFTF D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @ AHdHH2Od%OO"O  gO O Oh I __O__O__O^NOOZ O"hKhO_JKiOO"LhO_MO _ O_"O_j(110Q \MVLIST 105Q GET-SETF-METHOD 75Q \APPEND2 66Q NREVERSE 61Q NREVERSE 51Q DSUBST 23Q GENSYM) (54Q LET*) () (SETF-MACRO-FUNCTION (QUOTE SHIFTF) (QUOTE expand-SHIFTF)) expand-ROTATEF D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @ AHd5dgHoAOO"O gO O o I __O__O__O^NOOZO LhO_O"hKhO_JKiO_"MO_O_ O_p(106Q \MVLIST 103Q GET-SETF-METHOD 73Q \APPEND2 64Q NREVERSE 57Q NREVERSE) (52Q LET* 21Q PROGN) ( 70Q (NIL) 27Q (NIL)) (SETF-MACRO-FUNCTION (QUOTE ROTATEF) (QUOTE expand-ROTATEF)) expand-CL:PUSH D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @HHAJdlgJgIJhhK \L^_N__O__O_M_O_h_O&OgIOhhO_gO OhOhO_O_O_(177Q NREVERSE 57Q \MVLIST 54Q GET-SETF-METHOD) (172Q LET* 150Q CONS 35Q CONS 31Q SETQ) () (SETF-MACRO-FUNCTION (QUOTE CL:PUSH) (QUOTE expand-CL:PUSH)) expand-CL:PUSHNEW D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @ HHZJAKdlgKgIKLhM ^_N__O__O__O_O_O_ h_"O&OgIOLhO"_"gO" OhO hO"_"O_O _ (213Q NREVERSE 66Q \MVLIST 63Q GET-SETF-METHOD) (206Q LET* 164Q ADJOIN 44Q ADJOIN 40Q SETQ) () (SETF-MACRO-FUNCTION (QUOTE CL:PUSHNEW) (QUOTE expand-CL:PUSHNEW)) expand-CL:POP D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @ AHdl!ggHhgHgHhhhI ZJ\L^_N__O_K_M_h_OBOOhO_gO ggOhgOgOhhOhhOhO_O_O_(170Q NREVERSE 65Q \MVLIST 62Q GET-SETF-METHOD) (215Q CDR 207Q SETQ 176Q CAR 173Q PROG1 163Q LET* 41Q CDR 35Q SETQ 26Q CAR 23Q PROG1) () (SETF-MACRO-FUNCTION (QUOTE CL:POP) (QUOTE expand-CL:POP)) expand-REMF D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) G@0HHAIK \L^_N__O__O_M_O_h__ _"_$OOOhO_O JhO_gO gO"OgO"hhO$hO"hhgO"hogggO"hhoggO"hO hgO$ggO$hgO"hhoigOgOhhOohhhhhOhO_O_O_(201Q NREVERSE 126Q GENSYM 120Q GENSYM 112Q GENSYM 30Q \MVLIST 25Q GET-SETF-METHOD) (401Q CDDR 373Q CL:SETQ 350Q CDDR 340Q CDR 335Q RPLACD 330Q COND 312Q CAR 307Q EQ 267Q CDR 264Q CL:ATOM 261Q COND 244Q CL:ATOM 214Q CDDR 204Q CL:DO 174Q LET*) ( 421Q ((RETURN T)) 365Q ((RETURN T)) 303Q ((CL:ERROR "Odd-length property list in REMF.")) 255Q (NIL)) (SETF-MACRO-FUNCTION (QUOTE REMF) (QUOTE expand-REMF)) (REMPROP (QUOTE CAR) (QUOTE SETF-INVERSE)) CAR-setf-expander D1 (P 7 V P 5 CAR-setf-form P 4 DUMMIES P 3 X I 0 ACCESS-FORM) U0@dIhiHhZIH&J!@LL@OhMggNOhhM (122Q VALUES 57Q GENSYM 15Q GENSYM) (103Q RPLACA 100Q CAR) () (PUTPROPS CAR SETF-METHOD-EXPANDER CAR-setf-expander) (REMPROP (QUOTE CDR) (QUOTE SETF-INVERSE)) CDR-setf-expander D1 (P 7 V P 5 CDR-setf-form P 4 DUMMIES P 3 X I 0 ACCESS-FORM) U0@dIhiHhZIH&J!@LL@OhMggNOhhM (122Q VALUES 57Q GENSYM 15Q GENSYM) (103Q RPLACD 100Q CDR) () (PUTPROPS CDR SETF-METHOD-EXPANDER CDR-setf-expander) (REMPROP (QUOTE CAAAAR) (QUOTE SETF-INVERSE)) CAAAAR-setf-expander D1 (P 7 V P 5 CAAAAR-setf-form P 4 DUMMIES P 3 X I 0 ACCESS-FORM) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (130Q VALUES 57Q GENSYM 15Q GENSYM) (106Q CAAAR 103Q RPLACA 100Q CAR) () (PUTPROPS CAAAAR SETF-METHOD-EXPANDER CAAAAR-setf-expander) (REMPROP (QUOTE CAAADR) (QUOTE SETF-INVERSE)) CAAADR-setf-expander D1 (P 7 V P 5 CAAADR-setf-form P 4 DUMMIES P 3 X I 0 ACCESS-FORM) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (130Q VALUES 57Q GENSYM 15Q GENSYM) (106Q CAADR 103Q RPLACA 100Q CAR) () (PUTPROPS CAAADR SETF-METHOD-EXPANDER CAAADR-setf-expander) (REMPROP (QUOTE CAAAR) (QUOTE SETF-INVERSE)) CAAAR-setf-expander D1 (P 7 V P 5 CAAAR-setf-form P 4 DUMMIES P 3 X I 0 ACCESS-FORM) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (130Q VALUES 57Q GENSYM 15Q GENSYM) (106Q CAAR 103Q RPLACA 100Q CAR) () (PUTPROPS CAAAR SETF-METHOD-EXPANDER CAAAR-setf-expander) (REMPROP (QUOTE CAADAR) (QUOTE SETF-INVERSE)) CAADAR-setf-expander D1 (P 7 V P 5 CAADAR-setf-form P 4 DUMMIES P 3 X I 0 ACCESS-FORM) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (130Q VALUES 57Q GENSYM 15Q GENSYM) (106Q CADAR 103Q RPLACA 100Q CAR) () (PUTPROPS CAADAR SETF-METHOD-EXPANDER CAADAR-setf-expander) (REMPROP (QUOTE CAADDR) (QUOTE SETF-INVERSE)) CAADDR-setf-expander D1 (P 7 V P 5 CAADDR-setf-form P 4 DUMMIES P 3 X I 0 ACCESS-FORM) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (130Q VALUES 57Q GENSYM 15Q GENSYM) (106Q CADDR 103Q RPLACA 100Q CAR) () (PUTPROPS CAADDR SETF-METHOD-EXPANDER CAADDR-setf-expander) (REMPROP (QUOTE CAADR) (QUOTE SETF-INVERSE)) CAADR-setf-expander D1 (P 7 V P 5 CAADR-setf-form P 4 DUMMIES P 3 X I 0 ACCESS-FORM) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (130Q VALUES 57Q GENSYM 15Q GENSYM) (106Q CADR 103Q RPLACA 100Q CAR) () (PUTPROPS CAADR SETF-METHOD-EXPANDER CAADR-setf-expander) (REMPROP (QUOTE CAAR) (QUOTE SETF-INVERSE)) CAAR-setf-expander D1 (P 7 V P 5 CAAR-setf-form P 4 DUMMIES P 3 X I 0 ACCESS-FORM) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (130Q VALUES 57Q GENSYM 15Q GENSYM) (106Q CAR 103Q RPLACA 100Q CAR) () (PUTPROPS CAAR SETF-METHOD-EXPANDER CAAR-setf-expander) (REMPROP (QUOTE CADAAR) (QUOTE SETF-INVERSE)) CADAAR-setf-expander D1 (P 7 V P 5 CADAAR-setf-form P 4 DUMMIES P 3 X I 0 ACCESS-FORM) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (130Q VALUES 57Q GENSYM 15Q GENSYM) (106Q CDAAR 103Q RPLACA 100Q CAR) () (PUTPROPS CADAAR SETF-METHOD-EXPANDER CADAAR-setf-expander) (REMPROP (QUOTE CADADR) (QUOTE SETF-INVERSE)) CADADR-setf-expander D1 (P 7 V P 5 CADADR-setf-form P 4 DUMMIES P 3 X I 0 ACCESS-FORM) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (130Q VALUES 57Q GENSYM 15Q GENSYM) (106Q CDADR 103Q RPLACA 100Q CAR) () (PUTPROPS CADADR SETF-METHOD-EXPANDER CADADR-setf-expander) (REMPROP (QUOTE CADAR) (QUOTE SETF-INVERSE)) CADAR-setf-expander D1 (P 7 V P 5 CADAR-setf-form P 4 DUMMIES P 3 X I 0 ACCESS-FORM) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (130Q VALUES 57Q GENSYM 15Q GENSYM) (106Q CDAR 103Q RPLACA 100Q CAR) () (PUTPROPS CADAR SETF-METHOD-EXPANDER CADAR-setf-expander) (REMPROP (QUOTE CADDAR) (QUOTE SETF-INVERSE)) CADDAR-setf-expander D1 (P 7 V P 5 CADDAR-setf-form P 4 DUMMIES P 3 X I 0 ACCESS-FORM) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (130Q VALUES 57Q GENSYM 15Q GENSYM) (106Q CDDAR 103Q RPLACA 100Q CAR) () (PUTPROPS CADDAR SETF-METHOD-EXPANDER CADDAR-setf-expander) (REMPROP (QUOTE CADDDR) (QUOTE SETF-INVERSE)) CADDDR-setf-expander D1 (P 7 V P 5 CADDDR-setf-form P 4 DUMMIES P 3 X I 0 ACCESS-FORM) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (130Q VALUES 57Q GENSYM 15Q GENSYM) (106Q CDDDR 103Q RPLACA 100Q CAR) () (PUTPROPS CADDDR SETF-METHOD-EXPANDER CADDDR-setf-expander) (REMPROP (QUOTE CADDR) (QUOTE SETF-INVERSE)) CADDR-setf-expander D1 (P 7 V P 5 CADDR-setf-form P 4 DUMMIES P 3 X I 0 ACCESS-FORM) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (130Q VALUES 57Q GENSYM 15Q GENSYM) (106Q CDDR 103Q RPLACA 100Q CAR) () (PUTPROPS CADDR SETF-METHOD-EXPANDER CADDR-setf-expander) (REMPROP (QUOTE CADR) (QUOTE SETF-INVERSE)) CADR-setf-expander D1 (P 7 V P 5 CADR-setf-form P 4 DUMMIES P 3 X I 0 ACCESS-FORM) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (130Q VALUES 57Q GENSYM 15Q GENSYM) (106Q CDR 103Q RPLACA 100Q CAR) () (PUTPROPS CADR SETF-METHOD-EXPANDER CADR-setf-expander) (REMPROP (QUOTE CDAAAR) (QUOTE SETF-INVERSE)) CDAAAR-setf-expander D1 (P 7 V P 5 CDAAAR-setf-form P 4 DUMMIES P 3 X I 0 ACCESS-FORM) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (130Q VALUES 57Q GENSYM 15Q GENSYM) (106Q CAAAR 103Q RPLACD 100Q CDR) () (PUTPROPS CDAAAR SETF-METHOD-EXPANDER CDAAAR-setf-expander) (REMPROP (QUOTE CDAADR) (QUOTE SETF-INVERSE)) CDAADR-setf-expander D1 (P 7 V P 5 CDAADR-setf-form P 4 DUMMIES P 3 X I 0 ACCESS-FORM) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (130Q VALUES 57Q GENSYM 15Q GENSYM) (106Q CAADR 103Q RPLACD 100Q CDR) () (PUTPROPS CDAADR SETF-METHOD-EXPANDER CDAADR-setf-expander) (REMPROP (QUOTE CDAAR) (QUOTE SETF-INVERSE)) CDAAR-setf-expander D1 (P 7 V P 5 CDAAR-setf-form P 4 DUMMIES P 3 X I 0 ACCESS-FORM) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (130Q VALUES 57Q GENSYM 15Q GENSYM) (106Q CAAR 103Q RPLACD 100Q CDR) () (PUTPROPS CDAAR SETF-METHOD-EXPANDER CDAAR-setf-expander) (REMPROP (QUOTE CDADAR) (QUOTE SETF-INVERSE)) CDADAR-setf-expander D1 (P 7 V P 5 CDADAR-setf-form P 4 DUMMIES P 3 X I 0 ACCESS-FORM) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (130Q VALUES 57Q GENSYM 15Q GENSYM) (106Q CADAR 103Q RPLACD 100Q CDR) () (PUTPROPS CDADAR SETF-METHOD-EXPANDER CDADAR-setf-expander) (REMPROP (QUOTE CDADDR) (QUOTE SETF-INVERSE)) CDADDR-setf-expander D1 (P 7 V P 5 CDADDR-setf-form P 4 DUMMIES P 3 X I 0 ACCESS-FORM) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (130Q VALUES 57Q GENSYM 15Q GENSYM) (106Q CADDR 103Q RPLACD 100Q CDR) () (PUTPROPS CDADDR SETF-METHOD-EXPANDER CDADDR-setf-expander) (REMPROP (QUOTE CDADR) (QUOTE SETF-INVERSE)) CDADR-setf-expander D1 (P 7 V P 5 CDADR-setf-form P 4 DUMMIES P 3 X I 0 ACCESS-FORM) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (130Q VALUES 57Q GENSYM 15Q GENSYM) (106Q CADR 103Q RPLACD 100Q CDR) () (PUTPROPS CDADR SETF-METHOD-EXPANDER CDADR-setf-expander) (REMPROP (QUOTE CDAR) (QUOTE SETF-INVERSE)) CDAR-setf-expander D1 (P 7 V P 5 CDAR-setf-form P 4 DUMMIES P 3 X I 0 ACCESS-FORM) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (130Q VALUES 57Q GENSYM 15Q GENSYM) (106Q CAR 103Q RPLACD 100Q CDR) () (PUTPROPS CDAR SETF-METHOD-EXPANDER CDAR-setf-expander) (REMPROP (QUOTE CDDAAR) (QUOTE SETF-INVERSE)) CDDAAR-setf-expander D1 (P 7 V P 5 CDDAAR-setf-form P 4 DUMMIES P 3 X I 0 ACCESS-FORM) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (130Q VALUES 57Q GENSYM 15Q GENSYM) (106Q CDAAR 103Q RPLACD 100Q CDR) () (PUTPROPS CDDAAR SETF-METHOD-EXPANDER CDDAAR-setf-expander) (REMPROP (QUOTE CDDADR) (QUOTE SETF-INVERSE)) CDDADR-setf-expander D1 (P 7 V P 5 CDDADR-setf-form P 4 DUMMIES P 3 X I 0 ACCESS-FORM) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (130Q VALUES 57Q GENSYM 15Q GENSYM) (106Q CDADR 103Q RPLACD 100Q CDR) () (PUTPROPS CDDADR SETF-METHOD-EXPANDER CDDADR-setf-expander) (REMPROP (QUOTE CDDAR) (QUOTE SETF-INVERSE)) CDDAR-setf-expander D1 (P 7 V P 5 CDDAR-setf-form P 4 DUMMIES P 3 X I 0 ACCESS-FORM) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (130Q VALUES 57Q GENSYM 15Q GENSYM) (106Q CDAR 103Q RPLACD 100Q CDR) () (PUTPROPS CDDAR SETF-METHOD-EXPANDER CDDAR-setf-expander) (REMPROP (QUOTE CDDDAR) (QUOTE SETF-INVERSE)) CDDDAR-setf-expander D1 (P 7 V P 5 CDDDAR-setf-form P 4 DUMMIES P 3 X I 0 ACCESS-FORM) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (130Q VALUES 57Q GENSYM 15Q GENSYM) (106Q CDDAR 103Q RPLACD 100Q CDR) () (PUTPROPS CDDDAR SETF-METHOD-EXPANDER CDDDAR-setf-expander) (REMPROP (QUOTE CDDDDR) (QUOTE SETF-INVERSE)) CDDDDR-setf-expander D1 (P 7 V P 5 CDDDDR-setf-form P 4 DUMMIES P 3 X I 0 ACCESS-FORM) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (130Q VALUES 57Q GENSYM 15Q GENSYM) (106Q CDDDR 103Q RPLACD 100Q CDR) () (PUTPROPS CDDDDR SETF-METHOD-EXPANDER CDDDDR-setf-expander) (REMPROP (QUOTE CDDDR) (QUOTE SETF-INVERSE)) CDDDR-setf-expander D1 (P 7 V P 5 CDDDR-setf-form P 4 DUMMIES P 3 X I 0 ACCESS-FORM) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (130Q VALUES 57Q GENSYM 15Q GENSYM) (106Q CDDR 103Q RPLACD 100Q CDR) () (PUTPROPS CDDDR SETF-METHOD-EXPANDER CDDDR-setf-expander) (REMPROP (QUOTE CDDR) (QUOTE SETF-INVERSE)) CDDR-setf-expander D1 (P 7 V P 5 CDDR-setf-form P 4 DUMMIES P 3 X I 0 ACCESS-FORM) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (130Q VALUES 57Q GENSYM 15Q GENSYM) (106Q CDR 103Q RPLACD 100Q CDR) () (PUTPROPS CDDR SETF-METHOD-EXPANDER CDDR-setf-expander) (REMPROP (QUOTE CL:FIRST) (QUOTE SETF-INVERSE)) CL:FIRST-setf-expander D1 (P 7 V P 5 CL:FIRST-setf-form P 4 DUMMIES P 3 X I 0 ACCESS-FORM) U0@dIhiHhZIH&J!@LL@OhMggNOhhM (122Q VALUES 57Q GENSYM 15Q GENSYM) (103Q RPLACA 100Q CAR) () (PUTPROPS CL:FIRST SETF-METHOD-EXPANDER CL:FIRST-setf-expander) (REMPROP (QUOTE SECOND) (QUOTE SETF-INVERSE)) SECOND-setf-expander D1 (P 7 V P 5 SECOND-setf-form P 4 DUMMIES P 3 X I 0 ACCESS-FORM) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (130Q VALUES 57Q GENSYM 15Q GENSYM) (106Q CDR 103Q RPLACA 100Q CAR) () (PUTPROPS SECOND SETF-METHOD-EXPANDER SECOND-setf-expander) (REMPROP (QUOTE THIRD) (QUOTE SETF-INVERSE)) THIRD-setf-expander D1 (P 7 V P 5 THIRD-setf-form P 4 DUMMIES P 3 X I 0 ACCESS-FORM) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (130Q VALUES 57Q GENSYM 15Q GENSYM) (106Q CDDR 103Q RPLACA 100Q CAR) () (PUTPROPS THIRD SETF-METHOD-EXPANDER THIRD-setf-expander) (REMPROP (QUOTE FOURTH) (QUOTE SETF-INVERSE)) FOURTH-setf-expander D1 (P 7 V P 5 FOURTH-setf-form P 4 DUMMIES P 3 X I 0 ACCESS-FORM) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (130Q VALUES 57Q GENSYM 15Q GENSYM) (106Q CDDDR 103Q RPLACA 100Q CAR) () (PUTPROPS FOURTH SETF-METHOD-EXPANDER FOURTH-setf-expander) (REMPROP (QUOTE FIFTH) (QUOTE SETF-INVERSE)) FIFTH-setf-expander D1 (P 7 V P 5 FIFTH-setf-form P 4 DUMMIES P 3 X I 0 ACCESS-FORM) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (130Q VALUES 57Q GENSYM 15Q GENSYM) (106Q CDDDDR 103Q RPLACA 100Q CAR) () (PUTPROPS FIFTH SETF-METHOD-EXPANDER FIFTH-setf-expander) (REMPROP (QUOTE SIXTH) (QUOTE SETF-INVERSE)) SIXTH-setf-expander D1 (P 7 V P 5 SIXTH-setf-form P 4 DUMMIES P 3 X I 0 ACCESS-FORM) a0@dIhiHhZIH&J!@LL@OhMggggNhhOhhM (136Q VALUES 57Q GENSYM 15Q GENSYM) (111Q CDDDDR 106Q CDR 103Q RPLACA 100Q CAR) () (PUTPROPS SIXTH SETF-METHOD-EXPANDER SIXTH-setf-expander) (REMPROP (QUOTE SEVENTH) (QUOTE SETF-INVERSE)) SEVENTH-setf-expander D1 (P 7 V P 5 SEVENTH-setf-form P 4 DUMMIES P 3 X I 0 ACCESS-FORM) a0@dIhiHhZIH&J!@LL@OhMggggNhhOhhM (136Q VALUES 57Q GENSYM 15Q GENSYM) (111Q CDDDDR 106Q CDDR 103Q RPLACA 100Q CAR) () (PUTPROPS SEVENTH SETF-METHOD-EXPANDER SEVENTH-setf-expander) (REMPROP (QUOTE EIGHTH) (QUOTE SETF-INVERSE)) EIGHTH-setf-expander D1 (P 7 V P 5 EIGHTH-setf-form P 4 DUMMIES P 3 X I 0 ACCESS-FORM) a0@dIhiHhZIH&J!@LL@OhMggggNhhOhhM (136Q VALUES 57Q GENSYM 15Q GENSYM) (111Q CDDDDR 106Q CDDDR 103Q RPLACA 100Q CAR) () (PUTPROPS EIGHTH SETF-METHOD-EXPANDER EIGHTH-setf-expander) (REMPROP (QUOTE NINTH) (QUOTE SETF-INVERSE)) NINTH-setf-expander D1 (P 7 V P 5 NINTH-setf-form P 4 DUMMIES P 3 X I 0 ACCESS-FORM) _0@dIhiHhZIH&J!@LL@OhMgggdNhhOhhM (134Q VALUES 57Q GENSYM 15Q GENSYM) (106Q CDDDDR 103Q RPLACA 100Q CAR) () (PUTPROPS NINTH SETF-METHOD-EXPANDER NINTH-setf-expander) (REMPROP (QUOTE TENTH) (QUOTE SETF-INVERSE)) TENTH-setf-expander D1 (P 7 V P 5 TENTH-setf-form P 4 DUMMIES P 3 X I 0 ACCESS-FORM) e0@dIhiHhZIH&J!@LL@OhMggggdNhhhOhhM (142Q VALUES 57Q GENSYM 15Q GENSYM) (111Q CDDDDR 106Q CDR 103Q RPLACA 100Q CAR) () (PUTPROPS TENTH SETF-METHOD-EXPANDER TENTH-setf-expander) (REMPROP (QUOTE REST) (QUOTE SETF-INVERSE)) REST-setf-expander D1 (P 7 V P 5 REST-setf-form P 4 DUMMIES P 3 X I 0 ACCESS-FORM) U0@dIhiHhZIH&J!@LL@OhMggNOhhM (122Q VALUES 57Q GENSYM 15Q GENSYM) (103Q RPLACD 100Q CDR) () (PUTPROPS REST SETF-METHOD-EXPANDER REST-setf-expander) (REMPROP (QUOTE NTHCDR) (QUOTE SETF-INVERSE)) NTHCDR-setf-expander D1 (P 11Q NEWVAL P 5 NTHCDR-setf-form P 4 DUMMIES P 3 X I 0 ACCESS-FORM) j @@dIhiHhZIH&JA@L L@OhM__OggggOhNhOhhM (147Q VALUES 54Q GENSYM 13Q GENSYM) (117Q 1- 114Q NTHCDR 111Q RPLACD 106Q CDR) () (PUTPROPS NTHCDR SETF-METHOD-EXPANDER NTHCDR-setf-expander) (REMPROP (QUOTE DOCUMENTATION) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS DOCUMENTATION SETF-INVERSE SET-DOCUMENTATION) (REMPROP (QUOTE CL:NTH) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS CL:NTH SETF-INVERSE %%SETNTH) (REMPROP (QUOTE GETHASH) (QUOTE SETF-INVERSE)) (REMPROP (QUOTE GETHASH) (QUOTE SETFN)) setf-expander-GETHASH D1 (L (1 env-GETHASH 0 whole-GETHASH)) } @ ll@ og@ @AHHZJdMNLOhIKLdhOhgMNOhgMNLOh (172Q VALUES 100Q GENSYM 75Q GENSYM 72Q GENSYM 67Q GENSYM 40Q CL:ERROR 35Q CL:LENGTH 17Q CL:LENGTH 4 CL:LENGTH) (152Q GETHASH 136Q CL:PUTHASH 30Q GETHASH) ( 25Q "Setf expander for ~S cannot be called with ~S args.") (PUTPROP (QUOTE GETHASH) (QUOTE SETF-METHOD-EXPANDER) (QUOTE setf-expander-GETHASH)) (REMPROP (QUOTE GETF) (QUOTE SETF-INVERSE)) (REMPROP (QUOTE GETF) (QUOTE SETFN)) setf-expander-GETF D1 (L (1 env-GETF 0 whole-GETF)) @@ ll@ og@ @HHZJdAIM ^_N__O__O__O_OOO LO"h OOKLdh OhggOhgOgO Ohh OO RO&_.O$?O(OhOhigOO OhhhgOO LO"h _0O.O0h_,O*O,h_*_(O&_&O$_$O,&_*(414Q VALUES 276Q \APPEND2 267Q \APPEND2 222Q \APPEND2 203Q \APPEND2 155Q GENSYM 152Q GENSYM 147Q GENSYM 76Q \MVLIST 73Q GET-SETF-METHOD 40Q CL:ERROR 35Q CL:LENGTH 17Q CL:LENGTH 4 CL:LENGTH) (371Q GETF 343Q LISTPUT 252Q LIST 245Q LET* 234Q NULL 231Q COND 30Q GETF) ( 25Q "Setf expander for ~S cannot be called with ~S args.") (PUTPROP (QUOTE GETF) (QUOTE SETF-METHOD-EXPANDER) (QUOTE setf-expander-GETF)) (REMPROP (QUOTE CL:APPLY) (QUOTE SETF-INVERSE)) (REMPROP (QUOTE CL:APPLY) (QUOTE SETFN)) setf-expander-CL:APPLY D1 (L (1 env-CL:APPLY 0 whole-CL:APPLY)) k@ og@ @ HHAIo IJK \L^_N__O__O_J O O M O M oI MOOggOhOggOhO  l fIo YIlNIYP(322Q MEMBER 305Q %%= 300Q LIST-LENGTH 274Q VALUES 220Q CL:ERROR 205Q LAST 200Q LAST 170Q LAST 163Q LAST 152Q LAST 144Q LAST 76Q \MVLIST 73Q GET-SETF-METHOD 63Q CL:ERROR 26Q CL:ERROR 23Q CL:LENGTH 5 CL:LENGTH) (255Q FUNCTION 252Q CL:APPLY 234Q FUNCTION 231Q CL:APPLY 16Q CL:APPLY) ( 317Q (FUNCTION CL:FUNCTION QUOTE) 214Q "Apply of ~S not understood as a location for Setf." 60Q "Setf of Apply is only defined for function args of form #'symbol." 13Q "Setf expander for ~S cannot be called with ~S args.") (PUTPROP (QUOTE CL:APPLY) (QUOTE SETF-METHOD-EXPANDER) (QUOTE setf-expander-CL:APPLY)) (REMPROP (QUOTE LDB) (QUOTE SETF-INVERSE)) (REMPROP (QUOTE LDB) (QUOTE SETFN)) setf-expander-LDB D1 (L (1 env-LDB 0 whole-LDB)) @ l hiog@ @HHAJK \L^_N__O__O___MIOOhgOgOOOhhhOOhgOOh (234Q VALUES 134Q GENSYM 131Q GENSYM 64Q \MVLIST 61Q GET-SETF-METHOD 35Q CL:ERROR 32Q CL:LENGTH 11Q %%= 4 CL:LENGTH) (220Q LDB 164Q DPB 156Q LET 25Q LDB) ( 22Q "Setf expander for ~S cannot be called with ~S args.") (PUTPROP (QUOTE LDB) (QUOTE SETF-METHOD-EXPANDER) (QUOTE setf-expander-LDB)) (REMPROP (QUOTE MASK-FIELD) (QUOTE SETF-INVERSE)) (REMPROP (QUOTE MASK-FIELD) (QUOTE SETFN)) setf-expander-MASK-FIELD D1 (L (1 env-MASK-FIELD 0 whole-MASK-FIELD)) @ l hiog@ @ HH ZJ\L^_N__O___KIMOhgOgOOOhhhOOhgOOh (222Q VALUES 123Q GENSYM 120Q GENSYM 57Q \MVLIST 54Q GET-SETF-METHOD 35Q CL:ERROR 32Q CL:LENGTH 11Q %%= 4 CL:LENGTH) (206Q MASK-FIELD 152Q DEPOSIT-FIELD 144Q LET 25Q MASK-FIELD) ( 22Q "Setf expander for ~S cannot be called with ~S args.") (PUTPROP (QUOTE MASK-FIELD) (QUOTE SETF-METHOD-EXPANDER) (QUOTE setf-expander-MASK-FIELD)) (REMPROP (QUOTE CHAR-BIT) (QUOTE SETF-INVERSE)) (REMPROP (QUOTE CHAR-BIT) (QUOTE SETFN)) setf-expander-CHAR-BIT D1 (L (1 env-CHAR-BIT 0 whole-CHAR-BIT)) @ l hiog@ @HHAIK \L^_N__O__O___MOh OJh OhgOgOOOhhhOOhgOOh (247Q VALUES 162Q \APPEND2 152Q \APPEND2 134Q GENSYM 131Q GENSYM 64Q \MVLIST 61Q GET-SETF-METHOD 35Q CL:ERROR 32Q CL:LENGTH 11Q %%= 4 CL:LENGTH) (233Q CHAR-BIT 177Q SET-CHAR-BIT 171Q LET 25Q CHAR-BIT) ( 22Q "Setf expander for ~S cannot be called with ~S args.") (PUTPROP (QUOTE CHAR-BIT) (QUOTE SETF-METHOD-EXPANDER) (QUOTE setf-expander-CHAR-BIT)) (REMPROP (QUOTE THE) (QUOTE SETF-INVERSE)) (REMPROP (QUOTE THE) (QUOTE SETFN)) setf-expander-THE D1 (L (1 env-THE 0 whole-THE))  @ l hiog@ @ HHAJK \L^_N__O__O_MOOgIOhOO gIOh (174Q VALUES 156Q CL:SUBST 64Q \MVLIST 61Q GET-SETF-METHOD 35Q CL:ERROR 32Q CL:LENGTH 11Q %%= 4 CL:LENGTH) (161Q THE 136Q THE 25Q THE) ( 22Q "Setf expander for ~S cannot be called with ~S args.") (PUTPROP (QUOTE THE) (QUOTE SETF-METHOD-EXPANDER) (QUOTE setf-expander-THE)) (REMPROP (QUOTE \GETBASEPTR) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS \GETBASEPTR SETF-INVERSE \PUTBASEPTR) (PUTPROPS CMLSETF FILETYPE COMPILE-FILE) (RPAQQ CMLSETFCOMS ((VARS *DEFAULT-DEFAULT*) (FNS GET-SETF-METHOD GET-SETF-METHOD-MULTIPLE-VALUE GET-SIMPLE-SETF-METHOD) (DEFINE-TYPES SETFS) (FUNCTIONS DEFINE-MODIFY-MACRO DEFINE-SETF-METHOD DEFSETF ) (FUNCTIONS INCF DECF) (FUNCTIONS SETF PSETF SHIFTF ROTATEF CL:PUSH CL:PUSHNEW CL:POP REMF) (SETFS CAR CDR CAAAAR CAAADR CAAAR CAADAR CAADDR CAADR CAAR CADAAR CADADR CADAR CADDAR CADDDR CADDR CADR CDAAAR CDAADR CDAAR CDADAR CDADDR CDADR CDAR CDDAAR CDDADR CDDAR CDDDAR CDDDDR CDDDR CDDR CL:FIRST SECOND THIRD FOURTH FIFTH SIXTH SEVENTH EIGHTH NINTH TENTH REST NTHCDR DOCUMENTATION CL:NTH GETHASH GETF CL:APPLY LDB MASK-FIELD CHAR-BIT THE) (SETFS \GETBASEPTR) (PROP FILETYPE CMLSETF) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA GET-SETF-METHOD-MULTIPLE-VALUE GET-SETF-METHOD))))) (PUTPROPS CMLSETF COPYRIGHT ("Xerox Corporation" 1986)) STOP