(FILECREATED "10-Oct-86 12:21:44" ("compiled on " {ERIS}SOURCES>CMLSETF.;4) " 1-Oct-86 20:23:15" "COMPILE-FILEd" in "Xerox Lisp 1-Oct-86 ..." dated " 1-Oct-86 21:24:44") (FILECREATED " 9-Oct-86 16:23:14" {ERIS}SOURCES>CMLSETF.;4 38405 changes to: (SETFS CL:GETHASH) (VARS CMLSETFCOMS) previous date: " 1-Oct-86 18:05:45" {ERIS}SOURCES>CMLSETF.;3) (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 CL:NTH CL: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))))) (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 A0937 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 ( GETDEF 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")) (COND ((NOT (CL:GETHASH (QUOTE SETFS) *DEFINITION-HASH-TABLE*)) (LET* ((A0723 (QUOTE SETFS)) (A0724 *DEFINITION-HASH-TABLE*) (A0726 (MAKE-HASH-TABLE (QUOTE :TEST) (QUOTE CL:EQUAL) (QUOTE :SIZE) 50 ( QUOTE :REHASH-SIZE) 50))) (CL:PUTHASH A0723 A0724 A0726)))) (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_OvggNhgOhoohhhhgoggggJhogIhhhhgJhh(243Q \APPEND2 146Q \APPEND2 124Q REVERSE 4 REMOVE-COMMENTS) (442Q QUOTE 416Q QUOTE 403Q QUOTE 400Q \DEFINE-TYPE-SAVE-DEFN 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) ( 413Q (QUOTE FUNCTIONS) 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)) (LET* ((A0731 (QUOTE DEFINE-MODIFY-MACRO)) (A0732 (QUOTE CL:FUNCTION)) (A0733 "Creates a new read-modify-write macro like PUSH or INCF.")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A0731 A0732 A0733))) A0733)) expand-DEFINE-SETF-METHOD D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) ,@  @HH[KAM_ggoJ oJ oJ LOOJNgOgo __O__O_goggJhoggJhogOOOhOOh ggJhogOhhOgggJhoOhhhgoggggJhogIhhhhgJhh(247Q \APPEND2 125Q \MVLIST 122Q PARSE-DEFMACRO 70Q PACK* 60Q PACK* 50Q PACK* 4 REMOVE-COMMENTS) (440Q QUOTE 414Q QUOTE 401Q QUOTE 376Q \DEFINE-TYPE-SAVE-DEFN 373Q FILEPKGFLG 370Q AND 361Q EVAL-WHEN 322Q QUOTE 317Q DOCUMENTATION 314Q SETF 273Q QUOTE 260Q QUOTE 255Q PUTPROP 225Q DEFUN 210Q QUOTE 205Q REMPROP 170Q QUOTE 165Q REMPROP 156Q EVAL-WHEN 112Q :ERROR-STRING 105Q :ENVIRONMENT 40Q WITHOUT-FILEPKG 35Q PROGN) ( 411Q (QUOTE SETFS) 365Q (CL:EVAL) 332Q ((QUOTE SETF)) 270Q (QUOTE SETF-METHOD-EXPANDER) 220Q ((QUOTE SETFN)) 200Q ((QUOTE SETF-INVERSE)) 162Q (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)) @ @@HHAggKd0goggJhogJgMhh2^N!KK_OK_&_$O&_"_ _O _O"_Ooo Jo Jo __O$OOJL  __O_goggJhogggOhhggogoOoOohggogOhOOhhhhhgJgOhOgggJhoOhhoJ hgoggggJhogIhhhhgJhh(575Q CL:ERROR 275Q \MVLIST 272Q PARSE-DEFMACRO 250Q PACK* 240Q PACK* 227Q CERROR 4 REMOVE-COMMENTS) (662Q QUOTE 636Q QUOTE 623Q QUOTE 620Q \DEFINE-TYPE-SAVE-DEFN 615Q FILEPKGFLG 612Q AND 603Q EVAL-WHEN 535Q QUOTE 532Q DOCUMENTATION 527Q SETF 511Q SETF-METHOD-EXPANDER 505Q PUTPROPS 443Q LIST 434Q DUMMIES 431Q VALUES 400Q LET* 371Q LAMBDA 366Q FUNCTION 353Q QUOTE 350Q SYMBOL-FUNCTION 345Q SETF 330Q QUOTE 325Q REMPROP 316Q EVAL-WHEN 100Q SETF-INVERSE 74Q PUTPROPS 57Q QUOTE 54Q REMPROP 45Q EVAL-WHEN 32Q WITHOUT-FILEPKG 27Q PROGN) ( 633Q (QUOTE SETFS) 607Q (CL:EVAL) 571Q "Ill-formed DEFSETF for ~S." 545Q ((QUOTE SETF)) 440Q (CDR ACCESS-FORM) 421Q ((GENSYM)) 412Q ((CONS (CAR ACCESS-FORM) DUMMIES)) 404Q (DUMMIES (MAPCAR (CDR ACCESS-FORM) (FUNCTION (LAMBDA (X) (GENSYM))))) 375Q (ACCESS-FORM) 340Q ((QUOTE SETF-INVERSE)) 322Q (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)) (LET* ((A0739 (QUOTE DEFSETF)) (A0740 (QUOTE CL:FUNCTION)) (A0741 "Associates a SETF update function or macro with the specified access function or macro")) (PROGN ( COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A0739 A0740 A0741))) A0741)) 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)) (LET* ((A0751 (QUOTE INCF)) (A0752 (QUOTE CL:FUNCTION)) (A0753 "The first argument is some location holding a number. This number is incremented by the second argument, DELTA, which defaults to 1.")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A0751 A0752 A0753))) A0753)) 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)) (LET* ((A0762 (QUOTE DECF)) (A0763 (QUOTE CL:FUNCTION)) (A0764 "The first argument is some location holding a number. This number is decremented by the second argument, DELTA, which defaults to 1.")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A0762 A0763 A0764))) A0764)) 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)) (LET* ((A0774 (QUOTE PSETF)) (A0775 (QUOTE CL:FUNCTION)) (A0776 "This is to SETF as PSETQ is to SETQ. Args are alternating place expressions and values to go into those places. All of the subforms and values are determined, left to right, and only then are the locations updated. Returns NIL.")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A0774 A0775 A0776))) A0776)) 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)) (LET* ((A0778 (QUOTE SHIFTF)) (A0779 (QUOTE CL:FUNCTION)) (A0780 "Takes any number of SETF-style place expressions. Evaluates all of the expressions in turn, then assigns to each place the value of the form to its right. The rightmost form is not assigned to. SHIFTF returns the value of the first place before the assignments are made." )) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A0778 A0779 A0780))) A0780)) 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)) (LET* ((A0782 (QUOTE ROTATEF)) (A0783 (QUOTE CL:FUNCTION)) (A0784 "Takes any number of SETF-style place expressions. Evaluates all of the expressions in turn, then assigns to each place the value of the form to its right. The rightmost form gets the value of the leftmost. Returns NIL.")) (PROGN (COND (( FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A0782 A0783 A0784))) A0784)) 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)) (LET* ((A0788 (QUOTE CL:PUSH)) (A0789 (QUOTE CL:FUNCTION)) (A0790 "Takes an object and a location holding a list. Conses the object onto the list, returning the modified list.")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) ( SET-DOCUMENTATION A0788 A0789 A0790))) A0790)) 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)) (LET* ((A0794 (QUOTE CL:PUSHNEW)) (A0795 (QUOTE CL:FUNCTION)) (A0796 "Takes an object and a location holding a list. If the object is already in the list, does nothing. Else, conses the object onto the list. Returns NIL. If there is a :TEST keyword, this is used for the comparison.")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A0794 A0795 A0796))) A0796)) 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)) (LET* ((A0799 (QUOTE CL:POP)) (A0800 (QUOTE CL:FUNCTION)) (A0801 "The argument is a location holding a list. Pops one item off the front of the list and returns it.")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A0799 A0800 A0801))) A0801)) 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)) (LET* ((A0810 (QUOTE REMF)) (A0811 (QUOTE CL:FUNCTION)) (A0812 "Place may be any place expression acceptable to SETF, and is expected to hold a property list or (). This list is destructively altered to remove the property specified by the indicator. Returns T if such a property was present, NIL if not." )) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A0810 A0811 A0812))) A0812)) (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 CL:NTH) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS CL:NTH SETF-INVERSE %%SETNTH) (REMPROP (QUOTE CL:GETHASH) (QUOTE SETF-INVERSE)) (REMPROP (QUOTE CL:GETHASH) (QUOTE SETFN)) setf-expander-CL:GETHASH D1 (L (1 env-CL:GETHASH 0 whole-CL: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 CL:GETHASH 136Q CL:PUTHASH 30Q CL:GETHASH) ( 25Q "Setf expander for ~S cannot be called with ~S args.") (PUTPROP (QUOTE CL:GETHASH) (QUOTE SETF-METHOD-EXPANDER) (QUOTE setf-expander-CL: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)) (LET* ((A0893 (QUOTE LDB)) (A0894 (QUOTE SETF)) (A0895 "The first argument is a byte specifier. The second is any place form acceptable to SETF. Replaces the specified byte of the number in this place with bits from the low-order end of the new value.")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A0893 A0894 A0895))) A0895)) (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)) (LET* ((A0909 (QUOTE MASK-FIELD)) (A0910 (QUOTE SETF)) (A0911 "The first argument is a byte specifier. The second is any place form acceptable to SETF. Replaces the specified byte of the number in this place with bits from the corresponding position in the new value.")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A0909 A0910 A0911))) A0911)) (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)) (LET* ((A0925 (QUOTE CHAR-BIT)) (A0926 (QUOTE SETF)) (A0927 "The first argument is any place form acceptable to SETF. Replaces the specified bit of the character in this place with the new value.")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A0925 A0926 A0927))) A0927)) (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) (PUTPROPS CMLSETF COPYRIGHT ("Xerox Corporation" 1986)) NIL