(FILECREATED " 6-Jun-86 00:05:41" ("compiled on " {ERIS}LIBRARY>CMLSETF.;37) " 5-Jun-86 22:02:28" "COMPILE-FILEd" in "Xerox Lisp 5-Jun-86 ..." dated " 5-Jun-86 22:15:02") (FILECREATED " 5-Jun-86 23:31:38" {ERIS}LIBRARY>CMLSETF.;37 38892 changes to: (FUNCTIONS DEFSETF) previous date: " 5-Jun-86 17:10:58" {ERIS}LIBRARY>CMLSETF.;36) (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 CL:ELT AREF SVREF CHAR BIT SCHAR SBIT DOCUMENTATION CL:NTH FILL-POINTER GETHASH GETF SUBSEQ 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 (0 -args-)) ekalHhlaIJ (30Q GET-SETF-METHOD) NIL () GET-SIMPLE-SETF-METHOD D1 (L (1 SETF-INVERSE 0 FORM)) 8A@[J ZIJHhAIHh @I ILJK(54Q GENSYM 46Q VALUES 35Q \APPEND2 17Q NREVERSE 2 GENSYM) NIL () (ADDTOVAR PRETTYDEFMACROS (SETFS X (P * (MAPCAR (QUOTE X) (FUNCTION (LAMBDA (ITEM) (OR (GET ITEM ( QUOTE SETFS)) (CERROR "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 (0 -args-)) +eka IIJJ]M__Od_ggh__Nh___g{OdgaO_O _gLgNo OgoogooggoO2ggOhgOOh )lOOO_OuggOhgOhoohhhhgogggLgKhhhgLhh(254Q \APPEND2 156Q \APPEND2 134Q REVERSE) (437Q QUOTE 416Q FUNCTIONS 412Q PUTPROPS 407Q FILEPKGFLG 404Q AND 375Q EVAL-WHEN 323Q GETTER 313Q QUOTE 310Q LIST 243Q GETTER 233Q QUOTE 230Q LIST* 215Q LIST 212Q CL:PUSH 177Q CL:DO 164Q MULTIPLE-VALUE-BIND 146Q $$MODIFY-MACRO-FORM 142Q DEFMACRO 114Q &REST 103Q &OPTIONAL 54Q WITHOUT-FILEPKG 51Q PROGN) ( 401Q (CL:EVAL) 346Q ((BQUOTE (LET* (\, (REVERSE LET-LIST)) (\, SETTER)))) 340Q (LET-LIST) 221Q (CAR NEW-VALUE) 207Q (NULL D) 203Q ((D DUMMY-VARIABLES (CDR D)) (V VALUES (CDR V)) (LET-LIST NIL (CONS (LIST (CAR D) (CAR V)) LET-LIST))) 174Q (GET-SETF-METHOD $$MODIFY-MACRO-FORM $$MODIFY-MACRO-ENVIRONMENT) 170Q (DUMMY-VARIABLES VALUES NEW-VALUE SETTER GETTER) 153Q (&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 (0 -args-))  eka laIIKK^_N_J_O_ggoM oM oM OOOMOgOgo __O_goggMhoggMhogO OOhOOh ggMhogO hhhhgogggMgLhhhgMhh(257Q \APPEND2 146Q \MVLIST 143Q PARSE-DEFMACRO 107Q PACK* 77Q PACK* 67Q PACK*) (375Q QUOTE 354Q SETFS 350Q PUTPROPS 345Q FILEPKGFLG 342Q AND 333Q EVAL-WHEN 303Q QUOTE 270Q QUOTE 265Q PUTPROP 235Q DEFUN 220Q QUOTE 215Q REMPROP 200Q QUOTE 175Q REMPROP 166Q EVAL-WHEN 133Q :ERROR-STRING 126Q :ENVIRONMENT 57Q WITHOUT-FILEPKG 54Q PROGN) ( 337Q (CL:EVAL) 300Q (QUOTE SETF-METHOD-EXPANDER) 230Q ((QUOTE SETFN)) 210Q ((QUOTE SETF-INVERSE)) 172Q (EVAL CL:COMPILE LOAD) 137Q "Setf expander for ~S cannot be called with ~S args." 103Q "setf-expander-" 73Q "env-" 63Q "whole-") (SETF-MACRO-FUNCTION (QUOTE DEFINE-SETF-METHOD) (QUOTE expand-DEFINE-SETF-METHOD)) (ADDTOVAR PRETTYPRINTMACROS (DEFINE-SETF-METHOD . PPRINT-DEFINER)) expand-DEFSETF D1 (L (0 -args-)) eka@laIIKKJ_ggNd3_goggMhogMgOhh _ONN_ON_(_&O(_$_"_ O"_O$_Ooo Mo Mo __O&OOMO  _goggMhogggOhhggogoOoO ohggogO hOOhhhhhgMgOhhoM hgogggMgLhhhgMhh(545Q CL:ERROR 315Q \MVLIST 312Q PARSE-DEFMACRO 267Q PACK* 257Q PACK* 246Q CERROR) (615Q QUOTE 574Q SETFS 570Q PUTPROPS 565Q FILEPKGFLG 562Q AND 553Q EVAL-WHEN 517Q SETF-METHOD-EXPANDER 513Q PUTPROPS 451Q LIST 442Q DUMMIES 437Q VALUES 406Q LET* 377Q LAMBDA 374Q FUNCTION 361Q QUOTE 356Q SYMBOL-FUNCTION 353Q SETF 336Q QUOTE 333Q REMPROP 324Q EVAL-WHEN 114Q SETF-INVERSE 110Q PUTPROPS 73Q QUOTE 70Q REMPROP 61Q EVAL-WHEN 44Q WITHOUT-FILEPKG 41Q PROGN) ( 557Q (CL:EVAL) 541Q "Ill-formed DEFSETF for ~S." 446Q (CDR ACCESS-FORM) 427Q ((GENSYM)) 420Q ((CONS (CAR ACCESS-FORM) DUMMIES)) 412Q (DUMMIES (MAPCAR (CDR ACCESS-FORM) (FUNCTION (LAMBDA (X) (GENSYM))))) 403Q (ACCESS-FORM) 346Q ((QUOTE SETF-INVERSE)) 330Q (EVAL CL:COMPILE LOAD) 264Q "-setf-expander" 254Q "-setf-form" 243Q "Currently only one new-value variable is allowed in DEFSETF." 237Q "Ignore the extra items in the list." 103Q ((QUOTE SETF-METHOD-EXPANDER)) 65Q (LOAD CL:COMPILE EVAL)) (SETF-MACRO-FUNCTION (QUOTE DEFSETF) (QUOTE expand-DEFSETF)) (ADDTOVAR PRETTYPRINTMACROS (DEFSETF . PPRINT-DEFINER)) expand-INCF D1 (L (0 -args-)) ekalaI[KekJLN __O__O__O__O_OOO )OgOMhhO$_$gO$ OhO"O O"hO$_$_"_ (161Q REVERSE 41Q \MVLIST 36Q GET-SETF-METHOD) (154Q LET* 132Q +) () (SETF-MACRO-FUNCTION (QUOTE INCF) (QUOTE expand-INCF)) expand-DECF D1 (L (0 -args-)) ekalaI[KekJLN __O__O__O__O_OOO )OgOMhhO$_$gO$ OhO"O O"hO$_$_"_ (161Q REVERSE 41Q \MVLIST 36Q GET-SETF-METHOD) (154Q LET* 132Q -) () (SETF-MACRO-FUNCTION (QUOTE DECF) (QUOTE expand-DECF)) expand-SETF D1 (L (0 -args-)) ekalaI[K]M_J_LdlgLN~lLg'GLg';LO __O__O__O_gOORO$LNh _,O".O&ONhh Oh_ OCgO gOh_.O,O.h_*O(O*h_(_&O$_$O"_"O*&_(O (250Q \APPEND2 216Q \APPEND2 126Q \MVLIST 123Q GET-SETF-METHOD) (275Q SETF 270Q PROGN 170Q LET* 112Q SETFN 76Q SETF-INVERSE 52Q SETQ) () (SETF-MACRO-FUNCTION (QUOTE SETF) (QUOTE expand-SETF)) expand-PSETF D1 (L (0 -args-)) eka laIJK!OgO O o o OL __O__O__O_OON"OOhO_OO _ O_MhO_NM(106Q \MVLIST 103Q GET-SETF-METHOD 73Q CL:ERROR 56Q \APPEND2 47Q CL:NREVERSE 42Q CL:NREVERSE) (35Q LET*) ( 70Q "Odd number of args to PSETF." 53Q (NIL)) (SETF-MACRO-FUNCTION (QUOTE PSETF) (QUOTE expand-PSETF)) expand-SHIFTF D1 (L (0 -args-)) ekalaIJKdKK2O d%O O(O& gO$ O& O"h L __O__O__O__O_OO])O(O"OhO$_$OO&_&O_(O _ |NhO$_$MN(123Q \MVLIST 120Q GET-SETF-METHOD 110Q \APPEND2 101Q CL:NREVERSE 74Q CL:NREVERSE 64Q DSUBST 36Q GENSYM) (67Q LET*) () (SETF-MACRO-FUNCTION (QUOTE SHIFTF) (QUOTE expand-SHIFTF)) expand-ROTATEF D1 (L (0 -args-)) ekalaIJKd5dgKoAO O(O&gO" O$ o L __O__O__O__O_OO].O&OhO"_"O(O"_(OO$_$O_&O _ NhO"_"MN(121Q \MVLIST 116Q GET-SETF-METHOD 106Q \APPEND2 77Q CL:NREVERSE 72Q CL:NREVERSE) (65Q LET* 34Q PROGN) ( 103Q (NIL) 42Q (NIL)) (SETF-MACRO-FUNCTION (QUOTE ROTATEF) (QUOTE expand-ROTATEF)) expand-CL:PUSH D1 (L (0 -args-)) eka laI[KJMdlgMgLMhhN __O__O__O__O_O_ O_"h_$O &OgLOhhO$_$gO$ OhO"hO$_$O _ O"_"(223Q NREVERSE 74Q \MVLIST 71Q GET-SETF-METHOD) (216Q LET* 174Q CONS 52Q CONS 46Q SETQ) () (SETF-MACRO-FUNCTION (QUOTE CL:PUSH) (QUOTE expand-CL:PUSH)) expand-CL:PUSHNEW D1 (L (0 -args-)) eka@laI[K]M_J_NdlgNgLNOhO __O__O__O__ O_"O_$O_&h_(O$'OgLO"OhO(_(gO( O hO&hO(_(O$_$O&_&(236Q NREVERSE 106Q \MVLIST 103Q GET-SETF-METHOD) (231Q LET* 206Q ADJOIN 62Q ADJOIN 56Q SETQ) () (SETF-MACRO-FUNCTION (QUOTE CL:PUSHNEW) (QUOTE expand-CL:PUSHNEW)) expand-CL:POP D1 (L (0 -args-)) ekalaIJKdl!ggKhgKgKhhhL ]M__O__O__O_N_O_h_ OBOOhO _ gO ggOhgOgOhhOhhOhO _ O_O_(212Q CL:NREVERSE 100Q \MVLIST 75Q GET-SETF-METHOD) (237Q CDR 231Q SETQ 220Q CAR 215Q PROG1 205Q LET* 54Q CDR 50Q SETQ 41Q CAR 36Q PROG1) () (SETF-MACRO-FUNCTION (QUOTE CL:POP) (QUOTE expand-CL:POP)) expand-REMF D1 (L (0 -args-)) XekaPlaI[KJLN __O__O__O__O_O_ O_"h_$_&_(_*O OOhO$_$O&MhO$_$gO$ gO(OgO(hhO*hO(hhgO(hogggO(hhoggO(hO&hgO*ggO*hgO(hhoigOgOhhOohhhhhO"hO$_$O _ O"_"(222Q CL:NREVERSE 147Q GENSYM 141Q GENSYM 133Q GENSYM 42Q \MVLIST 37Q GET-SETF-METHOD) (422Q CDDR 414Q CL:SETQ 371Q CDDR 361Q CDR 356Q RPLACD 351Q COND 333Q CAR 330Q EQ 310Q CDR 305Q CL:ATOM 302Q COND 265Q CL:ATOM 235Q CDDR 225Q CL:DO 215Q LET*) ( 442Q ((RETURN T)) 406Q ((RETURN T)) 324Q ((CL:ERROR "Odd-length property list in REMF.")) 276Q (NIL)) (SETF-MACRO-FUNCTION (QUOTE REMF) (QUOTE expand-REMF)) (REMPROP (QUOTE CAR) (QUOTE SETF-INVERSE)) CAR-setf-expander D1 (L (0 ACCESS-FORM)) F0@IHhZH&J1@HH@JhIggKJhhI (103Q VALUES 44Q GENSYM 7 GENSYM) (65Q RPLACA 62Q CAR) () (PUTPROPS CAR SETF-METHOD-EXPANDER CAR-setf-expander) (REMPROP (QUOTE CDR) (QUOTE SETF-INVERSE)) CDR-setf-expander D1 (L (0 ACCESS-FORM)) F0@IHhZH&J1@HH@JhIggKJhhI (103Q VALUES 44Q GENSYM 7 GENSYM) (65Q RPLACD 62Q CDR) () (PUTPROPS CDR SETF-METHOD-EXPANDER CDR-setf-expander) (REMPROP (QUOTE CAAAAR) (QUOTE SETF-INVERSE)) CAAAAR-setf-expander D1 (L (0 ACCESS-FORM)) L0@IHhZH&J1@HH@JhIgggKhJhhI (111Q VALUES 44Q GENSYM 7 GENSYM) (70Q CAAAR 65Q RPLACA 62Q CAR) () (PUTPROPS CAAAAR SETF-METHOD-EXPANDER CAAAAR-setf-expander) (REMPROP (QUOTE CAAADR) (QUOTE SETF-INVERSE)) CAAADR-setf-expander D1 (L (0 ACCESS-FORM)) L0@IHhZH&J1@HH@JhIgggKhJhhI (111Q VALUES 44Q GENSYM 7 GENSYM) (70Q CAADR 65Q RPLACA 62Q CAR) () (PUTPROPS CAAADR SETF-METHOD-EXPANDER CAAADR-setf-expander) (REMPROP (QUOTE CAAAR) (QUOTE SETF-INVERSE)) CAAAR-setf-expander D1 (L (0 ACCESS-FORM)) L0@IHhZH&J1@HH@JhIgggKhJhhI (111Q VALUES 44Q GENSYM 7 GENSYM) (70Q CAAR 65Q RPLACA 62Q CAR) () (PUTPROPS CAAAR SETF-METHOD-EXPANDER CAAAR-setf-expander) (REMPROP (QUOTE CAADAR) (QUOTE SETF-INVERSE)) CAADAR-setf-expander D1 (L (0 ACCESS-FORM)) L0@IHhZH&J1@HH@JhIgggKhJhhI (111Q VALUES 44Q GENSYM 7 GENSYM) (70Q CADAR 65Q RPLACA 62Q CAR) () (PUTPROPS CAADAR SETF-METHOD-EXPANDER CAADAR-setf-expander) (REMPROP (QUOTE CAADDR) (QUOTE SETF-INVERSE)) CAADDR-setf-expander D1 (L (0 ACCESS-FORM)) L0@IHhZH&J1@HH@JhIgggKhJhhI (111Q VALUES 44Q GENSYM 7 GENSYM) (70Q CADDR 65Q RPLACA 62Q CAR) () (PUTPROPS CAADDR SETF-METHOD-EXPANDER CAADDR-setf-expander) (REMPROP (QUOTE CAADR) (QUOTE SETF-INVERSE)) CAADR-setf-expander D1 (L (0 ACCESS-FORM)) L0@IHhZH&J1@HH@JhIgggKhJhhI (111Q VALUES 44Q GENSYM 7 GENSYM) (70Q CADR 65Q RPLACA 62Q CAR) () (PUTPROPS CAADR SETF-METHOD-EXPANDER CAADR-setf-expander) (REMPROP (QUOTE CAAR) (QUOTE SETF-INVERSE)) CAAR-setf-expander D1 (L (0 ACCESS-FORM)) L0@IHhZH&J1@HH@JhIgggKhJhhI (111Q VALUES 44Q GENSYM 7 GENSYM) (70Q CAR 65Q RPLACA 62Q CAR) () (PUTPROPS CAAR SETF-METHOD-EXPANDER CAAR-setf-expander) (REMPROP (QUOTE CADAAR) (QUOTE SETF-INVERSE)) CADAAR-setf-expander D1 (L (0 ACCESS-FORM)) L0@IHhZH&J1@HH@JhIgggKhJhhI (111Q VALUES 44Q GENSYM 7 GENSYM) (70Q CDAAR 65Q RPLACA 62Q CAR) () (PUTPROPS CADAAR SETF-METHOD-EXPANDER CADAAR-setf-expander) (REMPROP (QUOTE CADADR) (QUOTE SETF-INVERSE)) CADADR-setf-expander D1 (L (0 ACCESS-FORM)) L0@IHhZH&J1@HH@JhIgggKhJhhI (111Q VALUES 44Q GENSYM 7 GENSYM) (70Q CDADR 65Q RPLACA 62Q CAR) () (PUTPROPS CADADR SETF-METHOD-EXPANDER CADADR-setf-expander) (REMPROP (QUOTE CADAR) (QUOTE SETF-INVERSE)) CADAR-setf-expander D1 (L (0 ACCESS-FORM)) L0@IHhZH&J1@HH@JhIgggKhJhhI (111Q VALUES 44Q GENSYM 7 GENSYM) (70Q CDAR 65Q RPLACA 62Q CAR) () (PUTPROPS CADAR SETF-METHOD-EXPANDER CADAR-setf-expander) (REMPROP (QUOTE CADDAR) (QUOTE SETF-INVERSE)) CADDAR-setf-expander D1 (L (0 ACCESS-FORM)) L0@IHhZH&J1@HH@JhIgggKhJhhI (111Q VALUES 44Q GENSYM 7 GENSYM) (70Q CDDAR 65Q RPLACA 62Q CAR) () (PUTPROPS CADDAR SETF-METHOD-EXPANDER CADDAR-setf-expander) (REMPROP (QUOTE CADDDR) (QUOTE SETF-INVERSE)) CADDDR-setf-expander D1 (L (0 ACCESS-FORM)) L0@IHhZH&J1@HH@JhIgggKhJhhI (111Q VALUES 44Q GENSYM 7 GENSYM) (70Q CDDDR 65Q RPLACA 62Q CAR) () (PUTPROPS CADDDR SETF-METHOD-EXPANDER CADDDR-setf-expander) (REMPROP (QUOTE CADDR) (QUOTE SETF-INVERSE)) CADDR-setf-expander D1 (L (0 ACCESS-FORM)) L0@IHhZH&J1@HH@JhIgggKhJhhI (111Q VALUES 44Q GENSYM 7 GENSYM) (70Q CDDR 65Q RPLACA 62Q CAR) () (PUTPROPS CADDR SETF-METHOD-EXPANDER CADDR-setf-expander) (REMPROP (QUOTE CADR) (QUOTE SETF-INVERSE)) CADR-setf-expander D1 (L (0 ACCESS-FORM)) L0@IHhZH&J1@HH@JhIgggKhJhhI (111Q VALUES 44Q GENSYM 7 GENSYM) (70Q CDR 65Q RPLACA 62Q CAR) () (PUTPROPS CADR SETF-METHOD-EXPANDER CADR-setf-expander) (REMPROP (QUOTE CDAAAR) (QUOTE SETF-INVERSE)) CDAAAR-setf-expander D1 (L (0 ACCESS-FORM)) L0@IHhZH&J1@HH@JhIgggKhJhhI (111Q VALUES 44Q GENSYM 7 GENSYM) (70Q CAAAR 65Q RPLACD 62Q CDR) () (PUTPROPS CDAAAR SETF-METHOD-EXPANDER CDAAAR-setf-expander) (REMPROP (QUOTE CDAADR) (QUOTE SETF-INVERSE)) CDAADR-setf-expander D1 (L (0 ACCESS-FORM)) L0@IHhZH&J1@HH@JhIgggKhJhhI (111Q VALUES 44Q GENSYM 7 GENSYM) (70Q CAADR 65Q RPLACD 62Q CDR) () (PUTPROPS CDAADR SETF-METHOD-EXPANDER CDAADR-setf-expander) (REMPROP (QUOTE CDAAR) (QUOTE SETF-INVERSE)) CDAAR-setf-expander D1 (L (0 ACCESS-FORM)) L0@IHhZH&J1@HH@JhIgggKhJhhI (111Q VALUES 44Q GENSYM 7 GENSYM) (70Q CAAR 65Q RPLACD 62Q CDR) () (PUTPROPS CDAAR SETF-METHOD-EXPANDER CDAAR-setf-expander) (REMPROP (QUOTE CDADAR) (QUOTE SETF-INVERSE)) CDADAR-setf-expander D1 (L (0 ACCESS-FORM)) L0@IHhZH&J1@HH@JhIgggKhJhhI (111Q VALUES 44Q GENSYM 7 GENSYM) (70Q CADAR 65Q RPLACD 62Q CDR) () (PUTPROPS CDADAR SETF-METHOD-EXPANDER CDADAR-setf-expander) (REMPROP (QUOTE CDADDR) (QUOTE SETF-INVERSE)) CDADDR-setf-expander D1 (L (0 ACCESS-FORM)) L0@IHhZH&J1@HH@JhIgggKhJhhI (111Q VALUES 44Q GENSYM 7 GENSYM) (70Q CADDR 65Q RPLACD 62Q CDR) () (PUTPROPS CDADDR SETF-METHOD-EXPANDER CDADDR-setf-expander) (REMPROP (QUOTE CDADR) (QUOTE SETF-INVERSE)) CDADR-setf-expander D1 (L (0 ACCESS-FORM)) L0@IHhZH&J1@HH@JhIgggKhJhhI (111Q VALUES 44Q GENSYM 7 GENSYM) (70Q CADR 65Q RPLACD 62Q CDR) () (PUTPROPS CDADR SETF-METHOD-EXPANDER CDADR-setf-expander) (REMPROP (QUOTE CDAR) (QUOTE SETF-INVERSE)) CDAR-setf-expander D1 (L (0 ACCESS-FORM)) L0@IHhZH&J1@HH@JhIgggKhJhhI (111Q VALUES 44Q GENSYM 7 GENSYM) (70Q CAR 65Q RPLACD 62Q CDR) () (PUTPROPS CDAR SETF-METHOD-EXPANDER CDAR-setf-expander) (REMPROP (QUOTE CDDAAR) (QUOTE SETF-INVERSE)) CDDAAR-setf-expander D1 (L (0 ACCESS-FORM)) L0@IHhZH&J1@HH@JhIgggKhJhhI (111Q VALUES 44Q GENSYM 7 GENSYM) (70Q CDAAR 65Q RPLACD 62Q CDR) () (PUTPROPS CDDAAR SETF-METHOD-EXPANDER CDDAAR-setf-expander) (REMPROP (QUOTE CDDADR) (QUOTE SETF-INVERSE)) CDDADR-setf-expander D1 (L (0 ACCESS-FORM)) L0@IHhZH&J1@HH@JhIgggKhJhhI (111Q VALUES 44Q GENSYM 7 GENSYM) (70Q CDADR 65Q RPLACD 62Q CDR) () (PUTPROPS CDDADR SETF-METHOD-EXPANDER CDDADR-setf-expander) (REMPROP (QUOTE CDDAR) (QUOTE SETF-INVERSE)) CDDAR-setf-expander D1 (L (0 ACCESS-FORM)) L0@IHhZH&J1@HH@JhIgggKhJhhI (111Q VALUES 44Q GENSYM 7 GENSYM) (70Q CDAR 65Q RPLACD 62Q CDR) () (PUTPROPS CDDAR SETF-METHOD-EXPANDER CDDAR-setf-expander) (REMPROP (QUOTE CDDDAR) (QUOTE SETF-INVERSE)) CDDDAR-setf-expander D1 (L (0 ACCESS-FORM)) L0@IHhZH&J1@HH@JhIgggKhJhhI (111Q VALUES 44Q GENSYM 7 GENSYM) (70Q CDDAR 65Q RPLACD 62Q CDR) () (PUTPROPS CDDDAR SETF-METHOD-EXPANDER CDDDAR-setf-expander) (REMPROP (QUOTE CDDDDR) (QUOTE SETF-INVERSE)) CDDDDR-setf-expander D1 (L (0 ACCESS-FORM)) L0@IHhZH&J1@HH@JhIgggKhJhhI (111Q VALUES 44Q GENSYM 7 GENSYM) (70Q CDDDR 65Q RPLACD 62Q CDR) () (PUTPROPS CDDDDR SETF-METHOD-EXPANDER CDDDDR-setf-expander) (REMPROP (QUOTE CDDDR) (QUOTE SETF-INVERSE)) CDDDR-setf-expander D1 (L (0 ACCESS-FORM)) L0@IHhZH&J1@HH@JhIgggKhJhhI (111Q VALUES 44Q GENSYM 7 GENSYM) (70Q CDDR 65Q RPLACD 62Q CDR) () (PUTPROPS CDDDR SETF-METHOD-EXPANDER CDDDR-setf-expander) (REMPROP (QUOTE CDDR) (QUOTE SETF-INVERSE)) CDDR-setf-expander D1 (L (0 ACCESS-FORM)) L0@IHhZH&J1@HH@JhIgggKhJhhI (111Q VALUES 44Q GENSYM 7 GENSYM) (70Q CDR 65Q RPLACD 62Q CDR) () (PUTPROPS CDDR SETF-METHOD-EXPANDER CDDR-setf-expander) (REMPROP (QUOTE CL:FIRST) (QUOTE SETF-INVERSE)) CL:FIRST-setf-expander D1 (L (0 ACCESS-FORM)) F0@IHhZH&J1@HH@JhIggKJhhI (103Q VALUES 44Q GENSYM 7 GENSYM) (65Q RPLACA 62Q CAR) () (PUTPROPS CL:FIRST SETF-METHOD-EXPANDER CL:FIRST-setf-expander) (REMPROP (QUOTE SECOND) (QUOTE SETF-INVERSE)) SECOND-setf-expander D1 (L (0 ACCESS-FORM)) L0@IHhZH&J1@HH@JhIgggKhJhhI (111Q VALUES 44Q GENSYM 7 GENSYM) (70Q CDR 65Q RPLACA 62Q CAR) () (PUTPROPS SECOND SETF-METHOD-EXPANDER SECOND-setf-expander) (REMPROP (QUOTE THIRD) (QUOTE SETF-INVERSE)) THIRD-setf-expander D1 (L (0 ACCESS-FORM)) L0@IHhZH&J1@HH@JhIgggKhJhhI (111Q VALUES 44Q GENSYM 7 GENSYM) (70Q CDDR 65Q RPLACA 62Q CAR) () (PUTPROPS THIRD SETF-METHOD-EXPANDER THIRD-setf-expander) (REMPROP (QUOTE FOURTH) (QUOTE SETF-INVERSE)) FOURTH-setf-expander D1 (L (0 ACCESS-FORM)) L0@IHhZH&J1@HH@JhIgggKhJhhI (111Q VALUES 44Q GENSYM 7 GENSYM) (70Q CDDDR 65Q RPLACA 62Q CAR) () (PUTPROPS FOURTH SETF-METHOD-EXPANDER FOURTH-setf-expander) (REMPROP (QUOTE FIFTH) (QUOTE SETF-INVERSE)) FIFTH-setf-expander D1 (L (0 ACCESS-FORM)) L0@IHhZH&J1@HH@JhIgggKhJhhI (111Q VALUES 44Q GENSYM 7 GENSYM) (70Q CDDDDR 65Q RPLACA 62Q CAR) () (PUTPROPS FIFTH SETF-METHOD-EXPANDER FIFTH-setf-expander) (REMPROP (QUOTE SIXTH) (QUOTE SETF-INVERSE)) SIXTH-setf-expander D1 (L (0 ACCESS-FORM)) R0@IHhZH&J1@HH@JhIggggKhhJhhI (117Q VALUES 44Q GENSYM 7 GENSYM) (73Q CDDDDR 70Q CDR 65Q RPLACA 62Q CAR) () (PUTPROPS SIXTH SETF-METHOD-EXPANDER SIXTH-setf-expander) (REMPROP (QUOTE SEVENTH) (QUOTE SETF-INVERSE)) SEVENTH-setf-expander D1 (L (0 ACCESS-FORM)) R0@IHhZH&J1@HH@JhIggggKhhJhhI (117Q VALUES 44Q GENSYM 7 GENSYM) (73Q CDDDDR 70Q CDDR 65Q RPLACA 62Q CAR) () (PUTPROPS SEVENTH SETF-METHOD-EXPANDER SEVENTH-setf-expander) (REMPROP (QUOTE EIGHTH) (QUOTE SETF-INVERSE)) EIGHTH-setf-expander D1 (L (0 ACCESS-FORM)) R0@IHhZH&J1@HH@JhIggggKhhJhhI (117Q VALUES 44Q GENSYM 7 GENSYM) (73Q CDDDDR 70Q CDDDR 65Q RPLACA 62Q CAR) () (PUTPROPS EIGHTH SETF-METHOD-EXPANDER EIGHTH-setf-expander) (REMPROP (QUOTE NINTH) (QUOTE SETF-INVERSE)) NINTH-setf-expander D1 (L (0 ACCESS-FORM)) P0@IHhZH&J1@HH@JhIgggdKhhJhhI (115Q VALUES 44Q GENSYM 7 GENSYM) (70Q CDDDDR 65Q RPLACA 62Q CAR) () (PUTPROPS NINTH SETF-METHOD-EXPANDER NINTH-setf-expander) (REMPROP (QUOTE TENTH) (QUOTE SETF-INVERSE)) TENTH-setf-expander D1 (L (0 ACCESS-FORM)) V0@IHhZH&J1@HH@JhIggggdKhhhJhhI (123Q VALUES 44Q GENSYM 7 GENSYM) (73Q CDDDDR 70Q CDR 65Q RPLACA 62Q CAR) () (PUTPROPS TENTH SETF-METHOD-EXPANDER TENTH-setf-expander) (REMPROP (QUOTE REST) (QUOTE SETF-INVERSE)) REST-setf-expander D1 (L (0 ACCESS-FORM)) F0@IHhZH&J1@HH@JhIggKJhhI (103Q VALUES 44Q GENSYM 7 GENSYM) (65Q RPLACD 62Q CDR) () (PUTPROPS REST SETF-METHOD-EXPANDER REST-setf-expander) (REMPROP (QUOTE CL:ELT) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS CL:ELT SETF-INVERSE CL:\SETELT) (REMPROP (QUOTE AREF) (QUOTE SETF-INVERSE)) AREF-setf-expander D1 (L (0 ACCESS-FORM)) D0@IHhZH&JQ@HH@JhI]MgJLKI (101Q VALUES 44Q GENSYM 7 GENSYM) (66Q ASET) () (PUTPROPS AREF SETF-METHOD-EXPANDER AREF-setf-expander) (REMPROP (QUOTE SVREF) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS SVREF SETF-INVERSE SVSET) (REMPROP (QUOTE CHAR) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS CHAR SETF-INVERSE SCHARSET) (REMPROP (QUOTE BIT) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS BIT SETF-INVERSE SBITSET) (REMPROP (QUOTE SCHAR) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS SCHAR SETF-INVERSE SCHARSET) (REMPROP (QUOTE SBIT) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS SBIT SETF-INVERSE SBITSET) (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 FILL-POINTER) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS FILL-POINTER SETF-INVERSE FILL-POINTER-SET) (REMPROP (QUOTE GETHASH) (QUOTE SETF-INVERSE)) (REMPROP (QUOTE GETHASH) (QUOTE SETFN)) setf-expander-GETHASH D1 (L (0 -args-)) ekaQI llI ogI IZJ\Ld OONOhKMNdhOhgOOOhgOONOh (206Q VALUES 106Q GENSYM 103Q GENSYM 100Q GENSYM 75Q GENSYM 51Q CL:ERROR 46Q CL:LENGTH 30Q CL:LENGTH 15Q CL:LENGTH) (164Q GETHASH 146Q CL:PUTHASH 41Q GETHASH) ( 36Q "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 (0 -args-)) ekalaI llI ogI I[K]Md_J_LO __O__O__O_OOO"OO$h OONOdh O hgOO"O hgOO"OO$h (307Q VALUES 235Q \APPEND2 215Q \APPEND2 166Q GENSYM 163Q GENSYM 160Q GENSYM 115Q \MVLIST 112Q GET-SETF-METHOD 55Q CL:ERROR 52Q CL:LENGTH 34Q CL:LENGTH 21Q CL:LENGTH) (263Q GETF 244Q LISTPUT 45Q GETF) ( 42Q "Setf expander for ~S cannot be called with ~S args.") (PUTPROP (QUOTE GETF) (QUOTE SETF-METHOD-EXPANDER) (QUOTE setf-expander-GETF)) (REMPROP (QUOTE SUBSEQ) (QUOTE SETF-INVERSE)) SUBSEQ-setf-expander D1 (L (0 ACCESS-FORM)) b0@IHhZH&Jq@HH@JhI_O]MdggNJgLgKhJhI (137Q VALUES 44Q GENSYM 7 GENSYM) (114Q :END1 110Q :START1 103Q CL:REPLACE 100Q PROGN) () (PUTPROPS SUBSEQ SETF-METHOD-EXPANDER SUBSEQ-setf-expander) (REMPROP (QUOTE CL:APPLY) (QUOTE SETF-INVERSE)) (REMPROP (QUOTE CL:APPLY) (QUOTE SETFN)) setf-expander-CL:APPLY D1 (L (0 -args-)) ekalakI ogI I[KJLo LMN __O__O__O__O_M O O O O O oL OOOggOhOggOhO  l ]LgSLlHL\J(330Q %%= 323Q LIST-LENGTH 317Q VALUES 242Q CL:ERROR 227Q LAST 221Q LAST 211Q LAST 203Q LAST 172Q LAST 164Q LAST 110Q \MVLIST 105Q GET-SETF-METHOD 75Q CL:ERROR 43Q CL:ERROR 40Q CL:LENGTH 22Q CL:LENGTH) (341Q FUNCTION 300Q FUNCTION 275Q CL:APPLY 257Q FUNCTION 254Q CL:APPLY 33Q CL:APPLY) ( 236Q "Apply of ~S not understood as a location for Setf." 72Q "Setf of Apply is only defined for function args of form #'symbol." 30Q "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 (0 -args-)) ekalaId l ogI [KJMN __O__O__O__O__"_ OLOO"hgOgO"O OhhhOO"hgO Oh (256Q VALUES 155Q GENSYM 152Q GENSYM 77Q \MVLIST 74Q GET-SETF-METHOD 54Q CL:ERROR 51Q CL:LENGTH 32Q %%= 25Q CL:LENGTH) (242Q LDB 206Q DPB 200Q LET 44Q LDB) ( 41Q "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 (0 -args-)) ekaId l ogI ZJ \L^_N__O__O___MKOOhgOgOOOhhhOOhgOOh (233Q VALUES 133Q GENSYM 130Q GENSYM 63Q \MVLIST 60Q GET-SETF-METHOD 45Q CL:ERROR 42Q CL:LENGTH 23Q %%= 16Q CL:LENGTH) (217Q MASK-FIELD 163Q DEPOSIT-FIELD 155Q LET 35Q MASK-FIELD) ( 32Q "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 (0 -args-)) ekalaId l ogI [KJLN __O__O__O__O__"_ OO h OMh O"hgOgOO O"hhhOO"hgOO h (271Q VALUES 204Q \APPEND2 174Q \APPEND2 155Q GENSYM 152Q GENSYM 77Q \MVLIST 74Q GET-SETF-METHOD 54Q CL:ERROR 51Q CL:LENGTH 32Q %%= 25Q CL:LENGTH) (255Q CHAR-BIT 221Q SET-CHAR-BIT 213Q LET 44Q CHAR-BIT) ( 41Q "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 (0 -args-)) ekalaId l ogI [KJMN __O__O__O__O_OOOgLOhOO gLOh (213Q VALUES 175Q CL:SUBST 74Q \MVLIST 71Q GET-SETF-METHOD 51Q CL:ERROR 46Q CL:LENGTH 27Q %%= 22Q CL:LENGTH) (200Q THE 155Q THE 41Q THE) ( 36Q "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) (PUTPROPS CMLSETF COPYRIGHT ("Xerox Corporation" 1986)) STOP