(FILECREATED "19-Jun-86 13:14:58" ("compiled on " {ERIS}LIBRARY>CMLSETF.;38) "19-Jun-86 12:46:19" "COMPILE-FILEd" in "Xerox Lisp 19-Jun-86 ..." dated "19-Jun-86 12:58:11") (FILECREATED "11-Jun-86 16:41:36" {ERIS}LIBRARY>CMLSETF.;38 38211 changes to: (VARS CMLSETFCOMS) previous date: " 5-Jun-86 23:31:38" {ERIS}LIBRARY>CMLSETF.;37) (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 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 (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 (L (1 SETF-INVERSE 0 FORM)) 7A@[J ZIJHhAIHh @I ILJK(53Q GENSYM 45Q VALUES 34Q \APPEND2 16Q 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(240Q \APPEND2 143Q \APPEND2 121Q REVERSE) (422Q QUOTE 401Q FUNCTIONS 375Q PUTPROPS 372Q FILEPKGFLG 367Q AND 360Q EVAL-WHEN 306Q GETTER 277Q QUOTE 274Q LIST 227Q GETTER 220Q QUOTE 215Q LIST* 202Q LIST 177Q CL:PUSH 164Q CL:DO 151Q MULTIPLE-VALUE-BIND 133Q $$MODIFY-MACRO-FORM 127Q DEFMACRO 101Q &REST 70Q &OPTIONAL 41Q WITHOUT-FILEPKG 36Q PROGN) ( 364Q (CL:EVAL) 331Q ((BQUOTE (LET* (\, (REVERSE LET-LIST)) (\, SETTER)))) 323Q (LET-LIST) 206Q (CAR NEW-VALUE) 174Q (NULL D) 170Q ((D DUMMY-VARIABLES (CDR D)) (V VALUES (CDR V)) (LET-LIST NIL (CONS (LIST (CAR D) (CAR V)) LET-LIST))) 161Q (GET-SETF-METHOD $$MODIFY-MACRO-FORM $$MODIFY-MACRO-ENVIRONMENT) 155Q (DUMMY-VARIABLES VALUES NEW-VALUE SETTER GETTER) 140Q (&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(233Q \APPEND2 122Q \MVLIST 117Q PARSE-DEFMACRO 65Q PACK* 55Q PACK* 45Q PACK*) (351Q QUOTE 330Q SETFS 324Q PUTPROPS 321Q FILEPKGFLG 316Q AND 307Q EVAL-WHEN 257Q QUOTE 244Q QUOTE 241Q PUTPROP 211Q DEFUN 174Q QUOTE 171Q REMPROP 154Q QUOTE 151Q REMPROP 142Q EVAL-WHEN 107Q :ERROR-STRING 102Q :ENVIRONMENT 35Q WITHOUT-FILEPKG 32Q PROGN) ( 313Q (CL:EVAL) 254Q (QUOTE SETF-METHOD-EXPANDER) 204Q ((QUOTE SETFN)) 164Q ((QUOTE SETF-INVERSE)) 146Q (EVAL CL:COMPILE LOAD) 113Q "Setf expander for ~S cannot be called with ~S args." 61Q "setf-expander-" 51Q "env-" 41Q "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(522Q CL:ERROR 272Q \MVLIST 267Q PARSE-DEFMACRO 245Q PACK* 235Q PACK* 224Q CERROR) (572Q QUOTE 551Q SETFS 545Q PUTPROPS 542Q FILEPKGFLG 537Q AND 530Q EVAL-WHEN 474Q SETF-METHOD-EXPANDER 470Q PUTPROPS 426Q LIST 417Q DUMMIES 414Q VALUES 363Q LET* 354Q LAMBDA 351Q FUNCTION 336Q QUOTE 333Q SYMBOL-FUNCTION 330Q SETF 313Q QUOTE 310Q REMPROP 301Q EVAL-WHEN 75Q SETF-INVERSE 71Q PUTPROPS 54Q QUOTE 51Q REMPROP 42Q EVAL-WHEN 27Q WITHOUT-FILEPKG 24Q PROGN) ( 534Q (CL:EVAL) 516Q "Ill-formed DEFSETF for ~S." 423Q (CDR ACCESS-FORM) 404Q ((GENSYM)) 375Q ((CONS (CAR ACCESS-FORM) DUMMIES)) 367Q (DUMMIES (MAPCAR (CDR ACCESS-FORM) (FUNCTION (LAMBDA (X) (GENSYM))))) 360Q (ACCESS-FORM) 323Q ((QUOTE SETF-INVERSE)) 305Q (EVAL CL:COMPILE LOAD) 242Q "-setf-expander" 232Q "-setf-form" 221Q "Currently only one new-value variable is allowed in DEFSETF." 215Q "Ignore the extra items in the list." 64Q ((QUOTE SETF-METHOD-EXPANDER)) 46Q (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 (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 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 (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_OOOLOh OOKLdh OhgOOOhgOOLOh (263Q VALUES 212Q \APPEND2 173Q \APPEND2 145Q GENSYM 142Q GENSYM 137Q GENSYM 76Q \MVLIST 73Q GET-SETF-METHOD 40Q CL:ERROR 35Q CL:LENGTH 17Q CL:LENGTH 4 CL:LENGTH) (240Q GETF 221Q LISTPUT 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 fIg\IlQIYS(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) (316Q FUNCTION 255Q FUNCTION 252Q CL:APPLY 234Q FUNCTION 231Q CL:APPLY 16Q CL:APPLY) ( 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