(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP") (filecreated "16-Oct-86 22:26:54" ("compiled on " {eris}sources>cmlsetf.\;9) "14-Oct-86 21:06:05" "COMPILE-FILEd" |in| "Xerox Lisp 14-Oct-86 ..." |dated| "14-Oct-86 22:24:47") (filecreated "16-Oct-86 22:26:06" {eris}sources>cmlsetf.\;9 34288 |changes| |to:| (vars cmlsetfcoms) (functions cl::get-setf-method-multiple-value) (setfs cl:gethash gethash) |previous| |date:| "15-Oct-86 17:40:36" {eris}sources>cmlsetf.\;7) (rpaqq cmlsetfcoms ((vars *default-default*) (fns cl:get-setf-method get-simple-setf-method) ( functions cl::get-setf-method-multiple-value) (define-types setfs) (functions cl:define-modify-macro cl:define-setf-method cl:defsetf) (functions cl:incf cl:decf) (functions cl:setf cl:psetf cl:shiftf cl:rotatef cl:push cl:pushnew cl:pop cl: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 cl:second cl:third cl:fourth cl:fifth cl:sixth cl:seventh cl:eighth cl:ninth cl:tenth cl:rest cl:nthcdr cl:nth cl:gethash cl:getf cl:apply ldb cl:mask-field cl:char-bit the) (setfs \\getbaseptr gethash) (prop filetype cmlsetf) (declare\: donteval@load doeval@compile dontcopy compilervars (addvars (nlama) (nlaml) (lama cl:get-setf-method))))) (rpaqq *default-default* nil) cl: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(175 cl:error 161 cl:macroexpand-1 137 pack* 134 substring 122 pack* 115 last 75 get-simple-setf-method 45 cl:error 34 cl:values 14 gensym) (125 c 119 r 111 c 104 crops 85 setf-method-expander 67 setfn 55 setf-inverse 23 cl:setq) ( 170 "~S is not a known location specifier for SETF." 41 "~S illegal atomic form for GET-SETF-METHOD.") get-simple-setf-method d1 (p 4 x p 3 a5877 p 2 vals p 1 vars p 0 new-var i 1 setf-inverse i 0 form) =!@KJ ZIJHhAIHh @I ILJK[(47 gensym 41 cl:values 32 \\append2 18 cl:nreverse 2 gensym) nil () cl::get-setf-method-multiple-value d1 (l (1 environment 0 form)) @A (4 cl:get-setf-method) nil () (addtovar prettydefmacros (setfs x (p * (mapcar (quote x) (function (lambda (item) (cl:do ((def ( getdef item (quote setfs)))) (def def) (cl: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* ((a5658 (quote setfs)) (a5659 *definition-hash-table*) (a5661 (cl:make-hash-table (quote :test) (quote cl:equal) (quote :size) 50 ( quote :rehash-size) 50))) (cl:puthash a5658 a5659 a5661)))) (addtovar filepkgtypes setfs) (putprops setfs getdef \\define-type-getdef) (putprops setfs filepkgcontents nill) (putprops setfs proptype setfs) cl::|expand-DEFINE-MODIFY-MACRO| d1 (l (1 $$macro-environment 0 $$macro-form)) . @  @HH[K]Md_ggh__Lh___gzOdg`O_O _gJgLo OgoogooggoO1ggNhgOOh (lOOO_OvggNhgOhoohhhhgoggggJhogIhhhhgJhh(163 \\append2 102 \\append2 84 reverse 4 remove-comments) (290 quote 270 quote 259 quote 256 \\define-type-save-defn 253 filepkgflg 250 and 243 cl:eval-when 201 getter 194 quote 191 list 154 getter 147 quote 144 list* 133 list 130 cl:push 119 cl:do 108 cl:multiple-value-bind 94 $$modify-macro-form 90 defmacro 68 &rest 59 &optional 36 without-filepkg 33 progn) ( 267 (quote functions) 247 (cl:eval) 220 ((bquote (let* (\\\, (reverse let-list)) (\\\, setter)))) 214 (let-list) 137 (car new-value) 127 (null d) 123 ((d dummy-variables (cdr d)) (v cl:values (cdr v)) (let-list nil (cons (list (car d) (car v)) let-list))) 116 (cl:get-setf-method $$modify-macro-form $$modify-macro-environment) 112 (dummy-variables cl:values new-value setter getter) 99 (&environment $$modify-macro-environment)) (setf-macro-function (quote cl:define-modify-macro) (quote cl::|expand-DEFINE-MODIFY-MACRO|)) (addtovar prettyprintmacros (cl:define-modify-macro . pprint-definer)) (let* ((a5666 (quote cl:define-modify-macro)) (a5667 (quote cl:function)) (a5668 "Creates a new read-modify-write macro like PUSH or INCF.")) (progn (cond ((cl:fboundp (quote set-documentation)) (set-documentation a5666 a5667 a5668))) a5668)) cl::|expand-DEFINE-SETF-METHOD| d1 (l (1 $$macro-environment 0 $$macro-form)) A@  @HH[KAM_ggoJhJ oJhJ oJhJ LOOJNgOgo __O__O_goggJhoggJhogOOOhOOh ggJhogOhhOgggJhoOhhhgoggggJhogIhhhhgJhh(188 \\append2 106 \\mvlist 103 parse-defmacro 77 xcl:pack 74 cl:symbol-package 62 xcl:pack 59 cl:symbol-package 47 xcl:pack 44 cl:symbol-package 4 remove-comments) (309 quote 289 quote 278 quote 275 \\define-type-save-defn 272 filepkgflg 269 and 262 cl:eval-when 231 quote 228 cl:documentation 225 cl:setf 208 quote 197 quote 194 putprop 170 cl:defun 157 quote 154 remprop 141 quote 138 remprop 131 cl:eval-when 95 :error-string 90 :environment 32 without-filepkg 29 progn) ( 286 (quote setfs) 266 (cl:eval) 239 ((quote cl:setf)) 205 (quote setf-method-expander) 165 ((quote setfn)) 149 ((quote setf-inverse)) 135 (eval cl:compile load) 99 "Setf expander for ~S cannot be called with ~S args." 66 "setf-expander-" 51 "env-" 36 "whole-") (setf-macro-function (quote cl:define-setf-method) (quote cl::|expand-DEFINE-SETF-METHOD|)) (addtovar prettyprintmacros (cl:define-setf-method . pprint-definer)) cl::|expand-DEFSETF| d1 (l (1 $$macro-environment 0 $$macro-form)) @ P@HHAggK olWKKggoggJhogJgMhhNgggJhoNhhIK_O5K/K_O"K_(_&O(_$_"_ O"_O$_Ooo JohJ JohJ __O&OOJL  __O_ggoggJhogggOhhggogoOoO ohggogO hOOhhhhhgJgOhhOgggJhoOhhoJ hgoggggJhogIhhhhgJhh(454 cl:error 256 \\mvlist 253 parse-defmacro 235 xcl:pack 232 cl:symbol-package 220 xcl:pack 217 cl:symbol-package 204 cl:cerror 4 remove-comments) (507 quote 487 quote 476 quote 473 \\define-type-save-defn 470 filepkgflg 467 and 460 cl:eval-when 425 quote 422 cl:documentation 419 cl:setf 399 setf-method-expander 395 putprops 361 list 354 dummies 351 cl:values 326 let* 319 lambda 316 function 305 quote 302 cl:symbol-function 299 cl:setf 286 quote 283 remprop 276 cl:eval-when 273 progn 106 quote 103 cl:documentation 100 cl:setf 83 setf-inverse 79 putprops 66 quote 63 remprop 56 cl:eval-when 53 progn 26 without-filepkg 23 progn) ( 484 (quote setfs) 464 (cl:eval) 450 "Ill-formed DEFSETF for ~S." 433 ((quote cl:setf)) 358 (cdr access-form) 343 ((gensym)) 336 ((cons (car access-form) dummies)) 330 (dummies (mapcar (cdr access-form) (function (lambda (x) (gensym))))) 323 (access-form) 294 ((quote setf-inverse)) 280 (eval cl:compile load) 225 "-setf-expander" 210 "-setf-form" 201 "Currently only one new-value variable is allowed in DEFSETF." 197 "Ignore the extra items in the list." 114 ((quote cl:setf)) 74 ((quote setf-method-expander)) 60 (load cl:compile eval) 33 "No body for DEFSETF of ~A") (setf-macro-function (quote cl:defsetf) (quote cl::|expand-DEFSETF|)) (addtovar prettyprintmacros (cl:defsetf . pprint-definer)) (let* ((a5674 (quote cl:defsetf)) (a5675 (quote cl:function)) (a5676 "Associates a SETF update function or macro with the specified access function or macro")) (progn ( cond ((cl:fboundp (quote set-documentation)) (set-documentation a5674 a5675 a5676))) a5676)) cl::|expand-INCF| d1 (l (1 $$macro-environment 0 $$macro-form)) @ HH^kAIK \L^_N__O__O_MOO)OgOJhhO_gO OhOOOhO___(96 reverse 23 \\mvlist 20 cl:get-setf-method) (91 let* 73 +) () (setf-macro-function (quote cl:incf) (quote cl::|expand-INCF|)) (let* ((a5686 (quote cl:incf)) (a5687 (quote cl:function)) (a5688 "The first argument is some location holding a number. This number is incremented by the second argument, DELTA, which defaults to 1.")) (progn (cond ((cl:fboundp (quote set-documentation)) (set-documentation a5686 a5687 a5688))) a5688)) cl::|expand-DECF| d1 (l (1 $$macro-environment 0 $$macro-form)) @ HH^kAIK \L^_N__O__O_MOO)OgOJhhO_gO OhOOOhO___(96 reverse 23 \\mvlist 20 cl:get-setf-method) (91 let* 73 -) () (setf-macro-function (quote cl:decf) (quote cl::|expand-DECF|)) (let* ((a5697 (quote cl:decf)) (a5698 (quote cl:function)) (a5699 "The first argument is some location holding a number. This number is decremented by the second argument, DELTA, which defaults to 1.")) (progn (cond ((cl:fboundp (quote set-documentation)) (set-documentation a5697 a5698 a5699))) a5699)) cl::|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(151 \\append2 125 \\append2 71 \\mvlist 68 cl:get-setf-method) (170 cl:setf 165 progn 103 let* 60 setfn 48 setf-inverse 28 setq) () (setf-macro-function (quote cl:setf) (quote cl::|expand-SETF|)) cl::|expand-PSETF| d1 (l (1 $$macro-environment 0 $$macro-form)) @ AH! OgO O o o OI __O__O^NOOK MOhO_LO_O_JhO_KJ(59 \\mvlist 56 cl:get-setf-method 48 cl:error 35 \\append2 28 cl:nreverse 23 cl:nreverse) (18 let*) ( 45 "Odd number of args to PSETF." 32 (nil)) (setf-macro-function (quote cl:psetf) (quote cl::|expand-PSETF|)) (let* ((a5709 (quote cl:psetf)) (a5710 (quote cl:function)) (a5711 "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 ((cl:fboundp (quote set-documentation)) (set-documentation a5709 a5710 a5711))) a5711)) cl::|expand-SHIFTF| d1 (l (1 $$macro-environment 0 $$macro-form)) @ AHHdo 2Od%OO"O  gO O Oh I __O__O__O^NOOZ O"hKhO_JKiOO"LhO_MO _ O_"O_j(77 \\mvlist 74 cl:get-setf-method 66 \\append2 59 cl:nreverse 54 cl:nreverse 46 dsubst 24 gensym 20 cl:error) (49 let*) ( 17 "SHIFTF needs at least two arguments") (setf-macro-function (quote cl:shiftf) (quote cl::|expand-SHIFTF|)) (let* ((a5713 (quote cl:shiftf)) (a5714 (quote cl:function)) (a5715 "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 ((cl:fboundp (quote set-documentation)) (set-documentation a5713 a5714 a5715))) a5715) ) cl::|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(70 \\mvlist 67 cl:get-setf-method 59 \\append2 52 cl:nreverse 47 cl:nreverse) (42 let* 17 progn) ( 56 (nil) 23 (nil)) (setf-macro-function (quote cl:rotatef) (quote cl::|expand-ROTATEF|)) (let* ((a5717 (quote cl:rotatef)) (a5718 (quote cl:function)) (a5719 "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 (( cl:fboundp (quote set-documentation)) (set-documentation a5717 a5718 a5719))) a5719)) cl::|expand-PUSH| d1 (l (1 $$macro-environment 0 $$macro-form)) @HHAJdlgJgIJhhK \L^_N__O__O_M_O_h_O&OgIOhhO_gO OhOhO_O_O_(127 cl:nreverse 47 \\mvlist 44 cl:get-setf-method) (122 let* 104 cons 29 cons 25 setq) () (setf-macro-function (quote cl:push) (quote cl::|expand-PUSH|)) (let* ((a5723 (quote cl:push)) (a5724 (quote cl:function)) (a5725 "Takes an object and a location holding a list. Conses the object onto the list, returning the modified list.")) (progn (cond ((cl:fboundp (quote set-documentation)) ( set-documentation a5723 a5724 a5725))) a5725)) cl::|expand-PUSHNEW| d1 (l (1 $$macro-environment 0 $$macro-form)) @ HHZJAKdlgKgIKLhM ^_N__O__O__O_O_O_ h_"O&OgIOLhO"_"gO" OhO hO"_"O_O _ (139 cl:nreverse 54 \\mvlist 51 cl:get-setf-method) (134 let* 116 cl:adjoin 36 cl:adjoin 32 setq) () (setf-macro-function (quote cl:pushnew) (quote cl::|expand-PUSHNEW|)) (let* ((a5729 (quote cl:pushnew)) (a5730 (quote cl:function)) (a5731 "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 ((cl:fboundp ( quote set-documentation)) (set-documentation a5729 a5730 a5731))) a5731)) cl::|expand-POP| d1 (l (1 $$macro-environment 0 $$macro-form)) @ AHdl!ggHhgHgHhhhI ZJ\L^_N__O_K_M_h_OBOOhO_gO ggOhgOgOhhOhhOhO_O_O_(120 cl:nreverse 53 \\mvlist 50 cl:get-setf-method) (141 cdr 135 setq 126 car 123 prog1 115 let* 33 cdr 29 setq 22 car 19 prog1) () (setf-macro-function (quote cl:pop) (quote cl::|expand-POP|)) (let* ((a5734 (quote cl:pop)) (a5735 (quote cl:function)) (a5736 "The argument is a location holding a list. Pops one item off the front of the list and returns it.")) (progn (cond ((cl:fboundp (quote set-documentation)) ( set-documentation a5734 a5735 a5736))) a5736)) cl::|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_(129 cl:nreverse 86 gensym 80 gensym 74 gensym 24 \\mvlist 21 cl:get-setf-method) (257 cddr 251 cl:setq 232 cddr 224 cdr 221 rplacd 216 cond 202 car 199 eq 183 cdr 180 cl:atom 177 cond 164 cl:atom 140 cddr 132 cl:do 124 let*) ( 273 ((return t)) 245 ((return t)) 195 ((cl:error "Odd-length property list in REMF.")) 173 (nil)) (setf-macro-function (quote cl:remf) (quote cl::|expand-REMF|)) (let* ((a5745 (quote cl:remf)) (a5746 (quote cl:function)) (a5747 "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 ((cl:fboundp (quote set-documentation)) (set-documentation a5745 a5746 a5747))) a5747) ) (remprop (quote car) (quote setf-inverse)) cl::|CAR-setf-expander| d1 (p 7 v p 5 cl::|CAR-setf-form| p 4 dummies p 3 x i 0 access-form) U0@dIhiHhZIH&J!@LL@OhMggNOhhM (82 cl:values 47 gensym 13 gensym) (67 rplaca 64 car) () (putprops car setf-method-expander cl::|CAR-setf-expander|) (remprop (quote cdr) (quote setf-inverse)) cl::|CDR-setf-expander| d1 (p 7 v p 5 cl::|CDR-setf-form| p 4 dummies p 3 x i 0 access-form) U0@dIhiHhZIH&J!@LL@OhMggNOhhM (82 cl:values 47 gensym 13 gensym) (67 rplacd 64 cdr) () (putprops cdr setf-method-expander cl::|CDR-setf-expander|) (remprop (quote caaaar) (quote setf-inverse)) cl::|CAAAAR-setf-expander| d1 (p 7 v p 5 cl::|CAAAAR-setf-form| p 4 dummies p 3 x i 0 access-form) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (88 cl:values 47 gensym 13 gensym) (70 caaar 67 rplaca 64 car) () (putprops caaaar setf-method-expander cl::|CAAAAR-setf-expander|) (remprop (quote caaadr) (quote setf-inverse)) cl::|CAAADR-setf-expander| d1 (p 7 v p 5 cl::|CAAADR-setf-form| p 4 dummies p 3 x i 0 access-form) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (88 cl:values 47 gensym 13 gensym) (70 caadr 67 rplaca 64 car) () (putprops caaadr setf-method-expander cl::|CAAADR-setf-expander|) (remprop (quote caaar) (quote setf-inverse)) cl::|CAAAR-setf-expander| d1 (p 7 v p 5 cl::|CAAAR-setf-form| p 4 dummies p 3 x i 0 access-form) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (88 cl:values 47 gensym 13 gensym) (70 caar 67 rplaca 64 car) () (putprops caaar setf-method-expander cl::|CAAAR-setf-expander|) (remprop (quote caadar) (quote setf-inverse)) cl::|CAADAR-setf-expander| d1 (p 7 v p 5 cl::|CAADAR-setf-form| p 4 dummies p 3 x i 0 access-form) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (88 cl:values 47 gensym 13 gensym) (70 cadar 67 rplaca 64 car) () (putprops caadar setf-method-expander cl::|CAADAR-setf-expander|) (remprop (quote caaddr) (quote setf-inverse)) cl::|CAADDR-setf-expander| d1 (p 7 v p 5 cl::|CAADDR-setf-form| p 4 dummies p 3 x i 0 access-form) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (88 cl:values 47 gensym 13 gensym) (70 caddr 67 rplaca 64 car) () (putprops caaddr setf-method-expander cl::|CAADDR-setf-expander|) (remprop (quote caadr) (quote setf-inverse)) cl::|CAADR-setf-expander| d1 (p 7 v p 5 cl::|CAADR-setf-form| p 4 dummies p 3 x i 0 access-form) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (88 cl:values 47 gensym 13 gensym) (70 cadr 67 rplaca 64 car) () (putprops caadr setf-method-expander cl::|CAADR-setf-expander|) (remprop (quote caar) (quote setf-inverse)) cl::|CAAR-setf-expander| d1 (p 7 v p 5 cl::|CAAR-setf-form| p 4 dummies p 3 x i 0 access-form) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (88 cl:values 47 gensym 13 gensym) (70 car 67 rplaca 64 car) () (putprops caar setf-method-expander cl::|CAAR-setf-expander|) (remprop (quote cadaar) (quote setf-inverse)) cl::|CADAAR-setf-expander| d1 (p 7 v p 5 cl::|CADAAR-setf-form| p 4 dummies p 3 x i 0 access-form) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (88 cl:values 47 gensym 13 gensym) (70 cdaar 67 rplaca 64 car) () (putprops cadaar setf-method-expander cl::|CADAAR-setf-expander|) (remprop (quote cadadr) (quote setf-inverse)) cl::|CADADR-setf-expander| d1 (p 7 v p 5 cl::|CADADR-setf-form| p 4 dummies p 3 x i 0 access-form) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (88 cl:values 47 gensym 13 gensym) (70 cdadr 67 rplaca 64 car) () (putprops cadadr setf-method-expander cl::|CADADR-setf-expander|) (remprop (quote cadar) (quote setf-inverse)) cl::|CADAR-setf-expander| d1 (p 7 v p 5 cl::|CADAR-setf-form| p 4 dummies p 3 x i 0 access-form) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (88 cl:values 47 gensym 13 gensym) (70 cdar 67 rplaca 64 car) () (putprops cadar setf-method-expander cl::|CADAR-setf-expander|) (remprop (quote caddar) (quote setf-inverse)) cl::|CADDAR-setf-expander| d1 (p 7 v p 5 cl::|CADDAR-setf-form| p 4 dummies p 3 x i 0 access-form) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (88 cl:values 47 gensym 13 gensym) (70 cddar 67 rplaca 64 car) () (putprops caddar setf-method-expander cl::|CADDAR-setf-expander|) (remprop (quote cadddr) (quote setf-inverse)) cl::|CADDDR-setf-expander| d1 (p 7 v p 5 cl::|CADDDR-setf-form| p 4 dummies p 3 x i 0 access-form) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (88 cl:values 47 gensym 13 gensym) (70 cdddr 67 rplaca 64 car) () (putprops cadddr setf-method-expander cl::|CADDDR-setf-expander|) (remprop (quote caddr) (quote setf-inverse)) cl::|CADDR-setf-expander| d1 (p 7 v p 5 cl::|CADDR-setf-form| p 4 dummies p 3 x i 0 access-form) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (88 cl:values 47 gensym 13 gensym) (70 cddr 67 rplaca 64 car) () (putprops caddr setf-method-expander cl::|CADDR-setf-expander|) (remprop (quote cadr) (quote setf-inverse)) cl::|CADR-setf-expander| d1 (p 7 v p 5 cl::|CADR-setf-form| p 4 dummies p 3 x i 0 access-form) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (88 cl:values 47 gensym 13 gensym) (70 cdr 67 rplaca 64 car) () (putprops cadr setf-method-expander cl::|CADR-setf-expander|) (remprop (quote cdaaar) (quote setf-inverse)) cl::|CDAAAR-setf-expander| d1 (p 7 v p 5 cl::|CDAAAR-setf-form| p 4 dummies p 3 x i 0 access-form) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (88 cl:values 47 gensym 13 gensym) (70 caaar 67 rplacd 64 cdr) () (putprops cdaaar setf-method-expander cl::|CDAAAR-setf-expander|) (remprop (quote cdaadr) (quote setf-inverse)) cl::|CDAADR-setf-expander| d1 (p 7 v p 5 cl::|CDAADR-setf-form| p 4 dummies p 3 x i 0 access-form) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (88 cl:values 47 gensym 13 gensym) (70 caadr 67 rplacd 64 cdr) () (putprops cdaadr setf-method-expander cl::|CDAADR-setf-expander|) (remprop (quote cdaar) (quote setf-inverse)) cl::|CDAAR-setf-expander| d1 (p 7 v p 5 cl::|CDAAR-setf-form| p 4 dummies p 3 x i 0 access-form) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (88 cl:values 47 gensym 13 gensym) (70 caar 67 rplacd 64 cdr) () (putprops cdaar setf-method-expander cl::|CDAAR-setf-expander|) (remprop (quote cdadar) (quote setf-inverse)) cl::|CDADAR-setf-expander| d1 (p 7 v p 5 cl::|CDADAR-setf-form| p 4 dummies p 3 x i 0 access-form) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (88 cl:values 47 gensym 13 gensym) (70 cadar 67 rplacd 64 cdr) () (putprops cdadar setf-method-expander cl::|CDADAR-setf-expander|) (remprop (quote cdaddr) (quote setf-inverse)) cl::|CDADDR-setf-expander| d1 (p 7 v p 5 cl::|CDADDR-setf-form| p 4 dummies p 3 x i 0 access-form) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (88 cl:values 47 gensym 13 gensym) (70 caddr 67 rplacd 64 cdr) () (putprops cdaddr setf-method-expander cl::|CDADDR-setf-expander|) (remprop (quote cdadr) (quote setf-inverse)) cl::|CDADR-setf-expander| d1 (p 7 v p 5 cl::|CDADR-setf-form| p 4 dummies p 3 x i 0 access-form) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (88 cl:values 47 gensym 13 gensym) (70 cadr 67 rplacd 64 cdr) () (putprops cdadr setf-method-expander cl::|CDADR-setf-expander|) (remprop (quote cdar) (quote setf-inverse)) cl::|CDAR-setf-expander| d1 (p 7 v p 5 cl::|CDAR-setf-form| p 4 dummies p 3 x i 0 access-form) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (88 cl:values 47 gensym 13 gensym) (70 car 67 rplacd 64 cdr) () (putprops cdar setf-method-expander cl::|CDAR-setf-expander|) (remprop (quote cddaar) (quote setf-inverse)) cl::|CDDAAR-setf-expander| d1 (p 7 v p 5 cl::|CDDAAR-setf-form| p 4 dummies p 3 x i 0 access-form) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (88 cl:values 47 gensym 13 gensym) (70 cdaar 67 rplacd 64 cdr) () (putprops cddaar setf-method-expander cl::|CDDAAR-setf-expander|) (remprop (quote cddadr) (quote setf-inverse)) cl::|CDDADR-setf-expander| d1 (p 7 v p 5 cl::|CDDADR-setf-form| p 4 dummies p 3 x i 0 access-form) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (88 cl:values 47 gensym 13 gensym) (70 cdadr 67 rplacd 64 cdr) () (putprops cddadr setf-method-expander cl::|CDDADR-setf-expander|) (remprop (quote cddar) (quote setf-inverse)) cl::|CDDAR-setf-expander| d1 (p 7 v p 5 cl::|CDDAR-setf-form| p 4 dummies p 3 x i 0 access-form) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (88 cl:values 47 gensym 13 gensym) (70 cdar 67 rplacd 64 cdr) () (putprops cddar setf-method-expander cl::|CDDAR-setf-expander|) (remprop (quote cdddar) (quote setf-inverse)) cl::|CDDDAR-setf-expander| d1 (p 7 v p 5 cl::|CDDDAR-setf-form| p 4 dummies p 3 x i 0 access-form) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (88 cl:values 47 gensym 13 gensym) (70 cddar 67 rplacd 64 cdr) () (putprops cdddar setf-method-expander cl::|CDDDAR-setf-expander|) (remprop (quote cddddr) (quote setf-inverse)) cl::|CDDDDR-setf-expander| d1 (p 7 v p 5 cl::|CDDDDR-setf-form| p 4 dummies p 3 x i 0 access-form) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (88 cl:values 47 gensym 13 gensym) (70 cdddr 67 rplacd 64 cdr) () (putprops cddddr setf-method-expander cl::|CDDDDR-setf-expander|) (remprop (quote cdddr) (quote setf-inverse)) cl::|CDDDR-setf-expander| d1 (p 7 v p 5 cl::|CDDDR-setf-form| p 4 dummies p 3 x i 0 access-form) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (88 cl:values 47 gensym 13 gensym) (70 cddr 67 rplacd 64 cdr) () (putprops cdddr setf-method-expander cl::|CDDDR-setf-expander|) (remprop (quote cddr) (quote setf-inverse)) cl::|CDDR-setf-expander| d1 (p 7 v p 5 cl::|CDDR-setf-form| p 4 dummies p 3 x i 0 access-form) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (88 cl:values 47 gensym 13 gensym) (70 cdr 67 rplacd 64 cdr) () (putprops cddr setf-method-expander cl::|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 (82 cl:values 47 gensym 13 gensym) (67 rplaca 64 car) () (putprops cl:first setf-method-expander cl:|FIRST-setf-expander|) (remprop (quote cl:second) (quote setf-inverse)) cl::|SECOND-setf-expander| d1 (p 7 v p 5 cl::|SECOND-setf-form| p 4 dummies p 3 x i 0 access-form) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (88 cl:values 47 gensym 13 gensym) (70 cdr 67 rplaca 64 car) () (putprops cl:second setf-method-expander cl::|SECOND-setf-expander|) (remprop (quote cl:third) (quote setf-inverse)) cl::|THIRD-setf-expander| d1 (p 7 v p 5 cl::|THIRD-setf-form| p 4 dummies p 3 x i 0 access-form) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (88 cl:values 47 gensym 13 gensym) (70 cddr 67 rplaca 64 car) () (putprops cl:third setf-method-expander cl::|THIRD-setf-expander|) (remprop (quote cl:fourth) (quote setf-inverse)) cl::|FOURTH-setf-expander| d1 (p 7 v p 5 cl::|FOURTH-setf-form| p 4 dummies p 3 x i 0 access-form) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (88 cl:values 47 gensym 13 gensym) (70 cdddr 67 rplaca 64 car) () (putprops cl:fourth setf-method-expander cl::|FOURTH-setf-expander|) (remprop (quote cl:fifth) (quote setf-inverse)) cl::|FIFTH-setf-expander| d1 (p 7 v p 5 cl::|FIFTH-setf-form| p 4 dummies p 3 x i 0 access-form) [0@dIhiHhZIH&J!@LL@OhMgggNhOhhM (88 cl:values 47 gensym 13 gensym) (70 cddddr 67 rplaca 64 car) () (putprops cl:fifth setf-method-expander cl::|FIFTH-setf-expander|) (remprop (quote cl:sixth) (quote setf-inverse)) cl::|SIXTH-setf-expander| d1 (p 7 v p 5 cl::|SIXTH-setf-form| p 4 dummies p 3 x i 0 access-form) a0@dIhiHhZIH&J!@LL@OhMggggNhhOhhM (94 cl:values 47 gensym 13 gensym) (73 cddddr 70 cdr 67 rplaca 64 car) () (putprops cl:sixth setf-method-expander cl::|SIXTH-setf-expander|) (remprop (quote cl:seventh) (quote setf-inverse)) cl::|SEVENTH-setf-expander| d1 (p 7 v p 5 cl::|SEVENTH-setf-form| p 4 dummies p 3 x i 0 access-form) a0@dIhiHhZIH&J!@LL@OhMggggNhhOhhM (94 cl:values 47 gensym 13 gensym) (73 cddddr 70 cddr 67 rplaca 64 car) () (putprops cl:seventh setf-method-expander cl::|SEVENTH-setf-expander|) (remprop (quote cl:eighth) (quote setf-inverse)) cl::|EIGHTH-setf-expander| d1 (p 7 v p 5 cl::|EIGHTH-setf-form| p 4 dummies p 3 x i 0 access-form) a0@dIhiHhZIH&J!@LL@OhMggggNhhOhhM (94 cl:values 47 gensym 13 gensym) (73 cddddr 70 cdddr 67 rplaca 64 car) () (putprops cl:eighth setf-method-expander cl::|EIGHTH-setf-expander|) (remprop (quote cl:ninth) (quote setf-inverse)) cl::|NINTH-setf-expander| d1 (p 7 v p 5 cl::|NINTH-setf-form| p 4 dummies p 3 x i 0 access-form) _0@dIhiHhZIH&J!@LL@OhMgggdNhhOhhM (92 cl:values 47 gensym 13 gensym) (70 cddddr 67 rplaca 64 car) () (putprops cl:ninth setf-method-expander cl::|NINTH-setf-expander|) (remprop (quote cl:tenth) (quote setf-inverse)) cl::|TENTH-setf-expander| d1 (p 7 v p 5 cl::|TENTH-setf-form| p 4 dummies p 3 x i 0 access-form) e0@dIhiHhZIH&J!@LL@OhMggggdNhhhOhhM (98 cl:values 47 gensym 13 gensym) (73 cddddr 70 cdr 67 rplaca 64 car) () (putprops cl:tenth setf-method-expander cl::|TENTH-setf-expander|) (remprop (quote cl:rest) (quote setf-inverse)) cl::|REST-setf-expander| d1 (p 7 v p 5 cl::|REST-setf-form| p 4 dummies p 3 x i 0 access-form) U0@dIhiHhZIH&J!@LL@OhMggNOhhM (82 cl:values 47 gensym 13 gensym) (67 rplacd 64 cdr) () (putprops cl:rest setf-method-expander cl::|REST-setf-expander|) (remprop (quote cl:nthcdr) (quote setf-inverse)) cl::|NTHCDR-setf-expander| d1 (p 9 newval p 5 cl::|NTHCDR-setf-form| p 4 dummies p 3 x i 0 access-form) j @@dIhiHhZIH&JA@L L@OhM__OggggOhNhOhhM (103 cl:values 44 gensym 11 gensym) (79 cl:1- 76 cl:nthcdr 73 rplacd 70 cdr) () (putprops cl:nthcdr setf-method-expander cl::|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)) cl::|setf-expander-GETHASH| d1 (l (1 cl::|env-GETHASH| 0 cl::|whole-GETHASH|)) } @ ll@ og@ @AHHZJdMNLOhIKLdhOhgMNOhgMNLOh (122 cl:values 64 gensym 61 gensym 58 gensym 55 gensym 32 cl:error 29 cl:length 15 cl:length 4 cl:length) (106 cl:gethash 94 cl:puthash 24 cl:gethash) ( 21 "Setf expander for ~S cannot be called with ~S args.") (putprop (quote cl:gethash) (quote setf-method-expander) (quote cl::|setf-expander-GETHASH|)) (remprop (quote cl:getf) (quote setf-inverse)) (remprop (quote cl:getf) (quote setfn)) cl::|setf-expander-GETF| d1 (l (1 cl::|env-GETF| 0 cl::|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,&_*(268 cl:values 190 \\append2 183 \\append2 146 \\append2 131 \\append2 109 gensym 106 gensym 103 gensym 62 \\mvlist 59 cl:get-setf-method 32 cl:error 29 cl:length 15 cl:length 4 cl:length) (249 cl:getf 227 listput 170 list 165 let* 156 null 153 cond 24 cl:getf) ( 21 "Setf expander for ~S cannot be called with ~S args.") (putprop (quote cl:getf) (quote setf-method-expander) (quote cl::|setf-expander-GETF|)) (remprop (quote cl:apply) (quote setf-inverse)) (remprop (quote cl:apply) (quote setfn)) cl::|setf-expander-APPLY| d1 (l (1 cl::|env-APPLY| 0 cl::|whole-APPLY|)) k@ og@ @ HHAIo IJK \L^_N__O__O_J O O M O M oI MOOggOhOggOhO  l fIo YIlNIYP(210 member 197 %= 192 cl:list-length 188 cl:values 144 cl:error 133 last 128 last 120 last 115 last 106 last 100 last 62 \\mvlist 59 cl:get-setf-method 51 cl:error 22 cl:error 19 cl:length 5 cl:length) (173 function 170 cl:apply 156 function 153 cl:apply 14 cl:apply) ( 207 (function cl:function quote) 140 "Apply of ~S not understood as a location for Setf." 48 "Setf of Apply is only defined for function args of form #'symbol." 11 "Setf expander for ~S cannot be called with ~S args.") (putprop (quote cl:apply) (quote setf-method-expander) (quote cl::|setf-expander-APPLY|)) (remprop (quote ldb) (quote setf-inverse)) (remprop (quote ldb) (quote setfn)) cl::|setf-expander-LDB| d1 (l (1 cl::|env-LDB| 0 cl::|whole-LDB|)) @ l hiog@ @HHAJK \L^_N__O__O___MIOOhgOgOOOhhhOOhgOOh (156 cl:values 92 gensym 89 gensym 52 \\mvlist 49 cl:get-setf-method 29 cl:error 26 cl:length 9 %= 4 cl:length) (144 ldb 116 dpb 110 let 21 ldb) ( 18 "Setf expander for ~S cannot be called with ~S args.") (putprop (quote ldb) (quote setf-method-expander) (quote cl::|setf-expander-LDB|)) (let* ((a5828 (quote ldb)) (a5829 (quote cl:setf)) (a5830 "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 ((cl:fboundp (quote set-documentation)) (set-documentation a5828 a5829 a5830))) a5830)) (remprop (quote cl:mask-field) (quote setf-inverse)) (remprop (quote cl:mask-field) (quote setfn)) cl::|setf-expander-MASK-FIELD| d1 (l (1 cl::|env-MASK-FIELD| 0 cl::|whole-MASK-FIELD|)) @ l hiog@ @ HH ZJ\L^_N__O___KIMOhgOgOOOhhhOOhgOOh (146 cl:values 83 gensym 80 gensym 47 \\mvlist 44 cl:get-setf-method 29 cl:error 26 cl:length 9 %= 4 cl:length) (134 cl:mask-field 106 cl:deposit-field 100 let 21 cl:mask-field) ( 18 "Setf expander for ~S cannot be called with ~S args.") (putprop (quote cl:mask-field) (quote setf-method-expander) (quote cl::|setf-expander-MASK-FIELD|)) (let* ((a5844 (quote cl:mask-field)) (a5845 (quote cl:setf)) (a5846 "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 ((cl:fboundp (quote set-documentation)) (set-documentation a5844 a5845 a5846))) a5846)) (remprop (quote cl:char-bit) (quote setf-inverse)) (remprop (quote cl:char-bit) (quote setfn)) cl::|setf-expander-CHAR-BIT| d1 (l (1 cl::|env-CHAR-BIT| 0 cl::|whole-CHAR-BIT|)) @ l hiog@ @HHAIK \L^_N__O__O___MOh OJh OhgOgOOOhhhOOhgOOh (167 cl:values 114 \\append2 106 \\append2 92 gensym 89 gensym 52 \\mvlist 49 cl:get-setf-method 29 cl:error 26 cl:length 9 %= 4 cl:length) (155 cl:char-bit 127 cl:set-char-bit 121 let 21 cl:char-bit) ( 18 "Setf expander for ~S cannot be called with ~S args.") (putprop (quote cl:char-bit) (quote setf-method-expander) (quote cl::|setf-expander-CHAR-BIT|)) (let* ((a5860 (quote cl:char-bit)) (a5861 (quote cl:setf)) (a5862 "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 ((cl:fboundp (quote set-documentation)) (set-documentation a5860 a5861 a5862))) a5862)) (remprop (quote the) (quote setf-inverse)) (remprop (quote the) (quote setfn)) cl::|setf-expander-THE| d1 (l (1 cl::|env-THE| 0 cl::|whole-THE|))  @ l hiog@ @ HHAJK \L^_N__O__O_MOOgIOhOO gIOh (124 cl:values 110 cl:subst 52 \\mvlist 49 cl:get-setf-method 29 cl:error 26 cl:length 9 %= 4 cl:length) (113 the 94 the 21 the) ( 18 "Setf expander for ~S cannot be called with ~S args.") (putprop (quote the) (quote setf-method-expander) (quote cl::|setf-expander-THE|)) (remprop (quote \\getbaseptr) (quote setf-method-expander)) (putprops \\getbaseptr setf-inverse \\putbaseptr) (remprop (quote gethash) (quote setf-inverse)) (remprop (quote gethash) (quote setfn)) |setf-expander-GETHASH| d1 (l (1 |env-GETHASH| 0 |whole-GETHASH|)) } @ ll@ og@ @AHHZJdMNLOhIKLdhOhgMONhgMNLOh (122 cl:values 64 gensym 61 gensym 58 gensym 55 gensym 32 cl:error 29 cl:length 15 cl:length 4 cl:length) (106 gethash 94 puthash 24 gethash) ( 21 "Setf expander for ~S cannot be called with ~S args.") (putprop (quote gethash) (quote setf-method-expander) (quote |setf-expander-GETHASH|)) (putprops cmlsetf filetype cl:compile-file) (putprops cmlsetf copyright ("Xerox Corporation" 1986)) nil