(FILECREATED "22-Aug-86 16:17:12" ("compiled on " {ERIS}LIBRARY>CMLSETF.;39) "18-Aug-86 12:42:20" "COMPILE-FILEd" in "" dated "18-Aug-86 13:55:08") (FILECREATED "22-Aug-86 16:13:42" {ERIS}LIBRARY>CMLSETF.;39 38814 changes to: (SETFS GETF NTHCDR CL:APPLY) (VARS CMLSETFCOMS) previous date: "11-Jun-86 16:41:36" {ERIS}LIBRARY>CMLSETF.;38) (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 NTHCDR AREF SVREF CHAR BIT SCHAR SBIT DOCUMENTATION CL:NTH FILL-POINTER 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 (P 1 NEW-VAR P 0 TEMP I 1 ENVIRONMENT I 0 FORM) @dlhdIhg@Ih@ o@ @g' @g'X@H @g'X@AlH@g'X2gH g g@lm @hhhbbd@A Xd@o@ bI(262Q CL:ERROR 243Q MACROEXPAND-1 213Q PACK* 210Q SUBSTRING 174Q PACK* 165Q LAST 115Q GET-SIMPLE-SETF-METHOD 57Q CL:ERROR 44Q VALUES 16Q GENSYM) (177Q C 171Q R 161Q C 152Q CROPS 127Q SETF-METHOD-EXPANDER 105Q SETFN 71Q SETF-INVERSE 31Q SETQ) ( 255Q "~S is not a known location specifier for SETF." 53Q "~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 A12326 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 CL:NREVERSE 27Q CL: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"OLhO_MO _ O_"O_KhO_JK(110Q \MVLIST 105Q GET-SETF-METHOD 75Q \APPEND2 66Q CL:NREVERSE 61Q CL: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^NOOZ+O LhO_O"O_"MO_O_ O_KhO_JK(106Q \MVLIST 103Q GET-SETF-METHOD 73Q \APPEND2 64Q CL:NREVERSE 57Q CL: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 CL: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 CL: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) Q0@dIHhZH&J!@LL@OhMggNOhhM (116Q VALUES 53Q GENSYM 15Q GENSYM) (77Q RPLACA 74Q 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) Q0@dIHhZH&J!@LL@OhMggNOhhM (116Q VALUES 53Q GENSYM 15Q GENSYM) (77Q RPLACD 74Q 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) W0@dIHhZH&J!@LL@OhMgggNhOhhM (124Q VALUES 53Q GENSYM 15Q GENSYM) (102Q CAAAR 77Q RPLACA 74Q 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) W0@dIHhZH&J!@LL@OhMgggNhOhhM (124Q VALUES 53Q GENSYM 15Q GENSYM) (102Q CAADR 77Q RPLACA 74Q 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) W0@dIHhZH&J!@LL@OhMgggNhOhhM (124Q VALUES 53Q GENSYM 15Q GENSYM) (102Q CAAR 77Q RPLACA 74Q 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) W0@dIHhZH&J!@LL@OhMgggNhOhhM (124Q VALUES 53Q GENSYM 15Q GENSYM) (102Q CADAR 77Q RPLACA 74Q 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) W0@dIHhZH&J!@LL@OhMgggNhOhhM (124Q VALUES 53Q GENSYM 15Q GENSYM) (102Q CADDR 77Q RPLACA 74Q 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) W0@dIHhZH&J!@LL@OhMgggNhOhhM (124Q VALUES 53Q GENSYM 15Q GENSYM) (102Q CADR 77Q RPLACA 74Q 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) W0@dIHhZH&J!@LL@OhMgggNhOhhM (124Q VALUES 53Q GENSYM 15Q GENSYM) (102Q CAR 77Q RPLACA 74Q 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) W0@dIHhZH&J!@LL@OhMgggNhOhhM (124Q VALUES 53Q GENSYM 15Q GENSYM) (102Q CDAAR 77Q RPLACA 74Q 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) W0@dIHhZH&J!@LL@OhMgggNhOhhM (124Q VALUES 53Q GENSYM 15Q GENSYM) (102Q CDADR 77Q RPLACA 74Q 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) W0@dIHhZH&J!@LL@OhMgggNhOhhM (124Q VALUES 53Q GENSYM 15Q GENSYM) (102Q CDAR 77Q RPLACA 74Q 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) W0@dIHhZH&J!@LL@OhMgggNhOhhM (124Q VALUES 53Q GENSYM 15Q GENSYM) (102Q CDDAR 77Q RPLACA 74Q 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) W0@dIHhZH&J!@LL@OhMgggNhOhhM (124Q VALUES 53Q GENSYM 15Q GENSYM) (102Q CDDDR 77Q RPLACA 74Q 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) W0@dIHhZH&J!@LL@OhMgggNhOhhM (124Q VALUES 53Q GENSYM 15Q GENSYM) (102Q CDDR 77Q RPLACA 74Q 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) W0@dIHhZH&J!@LL@OhMgggNhOhhM (124Q VALUES 53Q GENSYM 15Q GENSYM) (102Q CDR 77Q RPLACA 74Q 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) W0@dIHhZH&J!@LL@OhMgggNhOhhM (124Q VALUES 53Q GENSYM 15Q GENSYM) (102Q CAAAR 77Q RPLACD 74Q 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) W0@dIHhZH&J!@LL@OhMgggNhOhhM (124Q VALUES 53Q GENSYM 15Q GENSYM) (102Q CAADR 77Q RPLACD 74Q 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) W0@dIHhZH&J!@LL@OhMgggNhOhhM (124Q VALUES 53Q GENSYM 15Q GENSYM) (102Q CAAR 77Q RPLACD 74Q 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) W0@dIHhZH&J!@LL@OhMgggNhOhhM (124Q VALUES 53Q GENSYM 15Q GENSYM) (102Q CADAR 77Q RPLACD 74Q 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) W0@dIHhZH&J!@LL@OhMgggNhOhhM (124Q VALUES 53Q GENSYM 15Q GENSYM) (102Q CADDR 77Q RPLACD 74Q 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) W0@dIHhZH&J!@LL@OhMgggNhOhhM (124Q VALUES 53Q GENSYM 15Q GENSYM) (102Q CADR 77Q RPLACD 74Q 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) W0@dIHhZH&J!@LL@OhMgggNhOhhM (124Q VALUES 53Q GENSYM 15Q GENSYM) (102Q CAR 77Q RPLACD 74Q 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) W0@dIHhZH&J!@LL@OhMgggNhOhhM (124Q VALUES 53Q GENSYM 15Q GENSYM) (102Q CDAAR 77Q RPLACD 74Q 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) W0@dIHhZH&J!@LL@OhMgggNhOhhM (124Q VALUES 53Q GENSYM 15Q GENSYM) (102Q CDADR 77Q RPLACD 74Q 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) W0@dIHhZH&J!@LL@OhMgggNhOhhM (124Q VALUES 53Q GENSYM 15Q GENSYM) (102Q CDAR 77Q RPLACD 74Q 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) W0@dIHhZH&J!@LL@OhMgggNhOhhM (124Q VALUES 53Q GENSYM 15Q GENSYM) (102Q CDDAR 77Q RPLACD 74Q 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) W0@dIHhZH&J!@LL@OhMgggNhOhhM (124Q VALUES 53Q GENSYM 15Q GENSYM) (102Q CDDDR 77Q RPLACD 74Q 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) W0@dIHhZH&J!@LL@OhMgggNhOhhM (124Q VALUES 53Q GENSYM 15Q GENSYM) (102Q CDDR 77Q RPLACD 74Q 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) W0@dIHhZH&J!@LL@OhMgggNhOhhM (124Q VALUES 53Q GENSYM 15Q GENSYM) (102Q CDR 77Q RPLACD 74Q 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) Q0@dIHhZH&J!@LL@OhMggNOhhM (116Q VALUES 53Q GENSYM 15Q GENSYM) (77Q RPLACA 74Q 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) W0@dIHhZH&J!@LL@OhMgggNhOhhM (124Q VALUES 53Q GENSYM 15Q GENSYM) (102Q CDR 77Q RPLACA 74Q 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) W0@dIHhZH&J!@LL@OhMgggNhOhhM (124Q VALUES 53Q GENSYM 15Q GENSYM) (102Q CDDR 77Q RPLACA 74Q 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) W0@dIHhZH&J!@LL@OhMgggNhOhhM (124Q VALUES 53Q GENSYM 15Q GENSYM) (102Q CDDDR 77Q RPLACA 74Q 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) W0@dIHhZH&J!@LL@OhMgggNhOhhM (124Q VALUES 53Q GENSYM 15Q GENSYM) (102Q CDDDDR 77Q RPLACA 74Q 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) ]0@dIHhZH&J!@LL@OhMggggNhhOhhM (132Q VALUES 53Q GENSYM 15Q GENSYM) (105Q CDDDDR 102Q CDR 77Q RPLACA 74Q 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) ]0@dIHhZH&J!@LL@OhMggggNhhOhhM (132Q VALUES 53Q GENSYM 15Q GENSYM) (105Q CDDDDR 102Q CDDR 77Q RPLACA 74Q 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) ]0@dIHhZH&J!@LL@OhMggggNhhOhhM (132Q VALUES 53Q GENSYM 15Q GENSYM) (105Q CDDDDR 102Q CDDDR 77Q RPLACA 74Q 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@dIHhZH&J!@LL@OhMgggdNhhOhhM (130Q VALUES 53Q GENSYM 15Q GENSYM) (102Q CDDDDR 77Q RPLACA 74Q 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) a0@dIHhZH&J!@LL@OhMggggdNhhhOhhM (136Q VALUES 53Q GENSYM 15Q GENSYM) (105Q CDDDDR 102Q CDR 77Q RPLACA 74Q CAR) () (PUTPROPS TENTH SETF-METHOD-EXPANDER TENTH-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) f @@dIHhZH&JA@L L@OhM__OggggOhNhOhhM (143Q VALUES 50Q GENSYM 13Q GENSYM) (113Q 1- 110Q NTHCDR 105Q RPLACD 102Q CDR) () (PUTPROPS NTHCDR SETF-METHOD-EXPANDER NTHCDR-setf-expander) (REMPROP (QUOTE AREF) (QUOTE SETF-INVERSE)) AREF-setf-expander D1 (P 11Q NEWVAL P 5 AREF-setf-form P 4 DUMMIES P 3 X I 0 ACCESS-FORM) Q @@dIHhZH&JA@L L@OhM__OgOONM (116Q VALUES 50Q GENSYM 13Q GENSYM) (101Q 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 (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)) @d l og@ HHAJK \L^_N__O__O___MIOOhgOgOOOhhhOOhgOOh (232Q VALUES 132Q GENSYM 127Q GENSYM 62Q \MVLIST 57Q GET-SETF-METHOD 34Q CL:ERROR 31Q CL:LENGTH 12Q %%= 5 CL:LENGTH) (216Q LDB 162Q DPB 154Q LET 24Q LDB) ( 21Q "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)) @d l og@  HH ZJ\L^_N__O___KIMOhgOgOOOhhhOOhgOOh (220Q VALUES 121Q GENSYM 116Q GENSYM 55Q \MVLIST 52Q GET-SETF-METHOD 34Q CL:ERROR 31Q CL:LENGTH 12Q %%= 5 CL:LENGTH) (204Q MASK-FIELD 150Q DEPOSIT-FIELD 142Q LET 24Q MASK-FIELD) ( 21Q "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)) @d l og@ HHAIK \L^_N__O__O___MOh OJh OhgOgOOOhhhOOhgOOh (245Q VALUES 160Q \APPEND2 150Q \APPEND2 132Q GENSYM 127Q GENSYM 62Q \MVLIST 57Q GET-SETF-METHOD 34Q CL:ERROR 31Q CL:LENGTH 12Q %%= 5 CL:LENGTH) (231Q CHAR-BIT 175Q SET-CHAR-BIT 167Q LET 24Q CHAR-BIT) ( 21Q "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)) } @d l og@  HHAJK \L^_N__O__O_MOOgIOhOO gIOh (172Q VALUES 154Q CL:SUBST 62Q \MVLIST 57Q GET-SETF-METHOD 34Q CL:ERROR 31Q CL:LENGTH 12Q %%= 5 CL:LENGTH) (157Q THE 134Q THE 24Q THE) ( 21Q "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