‘XCL Compiler output for source file {DSK}sources>CMLSETF.;1 Source file created Wednesday, 13 June 1990, 0:19:02. FASL file created Sunday, 25 January 1998, 10:52:44. ÿ˜–#oggo ˜•ŒFILECREATEDLOC˜Œ*STANDARD-INPUT*˜Œ1 top-level form˜ŒFUNCTION˜“€˜•ŒDEFINE-FILE-INFO˜ŒOPEN˜ŒOUTPUT˜Œ DIRECTION˜“˜Œ READTABLE˜ŒXCL˜ŒPACKAGE˜ŒLISP˜Œ{Null}˜–!ggo¿o˜Œ2 top-level forms™˜“€˜•ŒPUTPROP˜•ŒCMLSETFCOMS˜•Œ FILEDATES˜•ŒCMLSETF˜“˜“˜•Œ FUNCTIONS˜ŒGET-SETF-METHOD˜ŒGET-SIMPLE-SETF-METHOD˜ŒGET-SETF-METHOD-MULTIPLE-VALUE˜“˜•ŒDEFINE-TYPES˜•ŒSETFS˜“™˜ŒDEFSETF˜ŒDEFINE-MODIFY-MACRO˜ŒDEFINE-SETF-METHOD˜“˜•ŒCOMS˜“˜•Œ*˜•Œ;;˜Œ"Support for defstruct and friends ˜“™˜ŒDEFINE-SHARED-SETF-MACRO˜ŒDEFINE-SHARED-SETF˜ŒGET-SHARED-SETF-METHOD˜“™˜ŒSETF˜Œ SETF-ERROR˜“™˜ŒPSETF˜ŒSHIFTF˜ŒROTATEF˜ŒPOP˜ŒREMF˜“™˜ŒINCF˜ŒDECF˜“™˜ŒMAYBE-MAKE-BINDING-FORM˜ŒCOUNT-OCCURRENCES˜“™˜ŒPUSH˜ŒPUSHNEW˜“2™˜Œ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˜ŒFIRST˜ŒSECOND˜ŒTHIRD˜ŒFOURTH˜ŒFIFTH˜ŒSIXTH˜ŒSEVENTH˜ŒEIGHTH˜ŒNINTH˜ŒTENTH˜ŒREST˜ŒNTHCDR˜ŒNTH˜ŒGETF˜ŒAPPLY˜ŒLDB˜Œ MASK-FIELD˜ŒCHAR-BIT˜ŒTHE˜“™"˜“™#˜•Œ;˜Œ,Some IL setfs, for no especially good reason˜“™˜•ŒGETHASH˜“™˜•Œ%SET-IL-GETHASH˜“˜•ŒPROP˜•ŒPROPTYPE˜ŒSETF-METHOD-EXPANDER˜ŒSETF-INVERSE˜ŒSHARED-SETF-INVERSE˜“™x˜“˜•ŒFILETYPE˜•ŒMAKEFILE-ENVIRONMENT™˜“˜•ŒDECLARE:˜•Œ DONTEVAL@LOAD˜•ŒDOEVAL@COMPILE˜•ŒDONTCOPY˜•ŒCOMPILERVARS˜“˜•ŒADDVARS˜“˜•ŒNLAMA˜“˜•ŒNLAML˜“˜•ŒLAMA˜“˜”˜Œ13-Jun-90 16:19:18•Œ+{PELE:MV:ENVOS}SOURCES>CMLSETF.;6œ™˜–‚2h¸@d3@ð²hhXhg@Hh@$@‘i€h¢±@A Xœ@AlHA @ÁÉg'Y’I°@ÁÉg'Z‘J‹@ÁÉg'X—@H @ÁÉg'X—@H @ÁÉg'Y‘I‹@ÁÉg'X²M@AlH YºI[¼K]¾M__¿O_¿N kÿ¯o ¿Nh¾JLNOO$@A YºI[—J@ð‘h‚i€h—JA @@ @ ™ ™˜“˜“˜ŒFORM˜Œ &OPTIONAL˜ŒENVIRONMENT ‚,™-‚%™-‚™‚˜•Œ\MVLIST‚þ˜Œ MACROEXPAND-1‚æ˜ŒWARN‚Ù˜ŒLENGTH‚·™‚š‚Œ™)v™?™1˜•ŒLOCAL-MACRO-FUNCTION˜•ŒGENSYM‚¨˜•ŒSETF-METHOD-EXPANDER‚˜™z‚‚™|l˜•ŒSETFN\˜•ŒSETF-INVERSEK™{˜ŒSETQ‚á˜ŒYSETF method contains more than one store variable. Only top of the elements was accepted.œ™˜–‚§¸h¹hºh»h¼h½@¾h_¿h_¿h_¿N£O°PN_‘i€h™Ogð†O “O°OJº_I¹O_¿O˜OO&_¿ˆOh__¿N¾°®»AKHh ¼@K ½I YJ ZHhLM$™™˜“˜“˜ŒFORM˜ŒSETF-INVERSE‚˜˜ŒNREVERSE‚‘™‚ª‚Š™‚›‚€™‚›z˜ŒAPPENDK™‚Ÿ<˜Œ CONSTANTP™‚Ÿ3˜ŒQUOTEœ™˜–‚íh¸@d3@ð²hhXhg@Hh@$@‘i€h¢±»@A Xœ@AlHA @ÁÉg'Y’I°@ÁÉg'Z‘J‹@ÁÉg'X—@H @ÁÉg'X—@H @ÁÉg'Y‘I‹@ÁÉg'X–@AlH@A YºI[—J@ð‘h‚i€h—JA @@ @ ™™˜“˜“˜ŒFORM™‚–˜ŒENVIRONMENT ‚ç™-‚à™-‚×™‚¾™‚š‚¹™‚›‚Œ™)v™?™1™‚ž™‚Ÿ‚¨™‚ ‚˜™z‚‚™|l™‚¡\™‚¢K™{™‚£˜–‚"ggo¿oRggc¿oSggc¿o ¿g X¦h¿g` ³0g`gggl2gl2 ¿Q¸gQ‘H†gHc¿ggg¿ggg¿ggg¿ggg¿ggg˜•ŒFILEPKGTYPES˜•ŒPRETTYDEFMACROS˜•Œ PRETTYTYPELST˜ŒXCL:DEF-DEFINE-TYPE IL:SETFS™˜“€ ‚™‚™‚ò™‚Ý™‚È™‚˜ŒPUTHASH‚˜˜ŒMAKE-HASH-TABLEn™sV˜ŒBOUNDPK˜ŒPROCLAIM>˜ŒADJOIN&™‚½˜•ŒSET-DOCUMENTATION!‚˜•ŒNILL‚˜•ŒFILEPKGCONTENTS‚ ™‚˜’Œ%DEFINE-TYPE-FILEGETDEF˜‘˜ŒXEROX-COMMON-LISP‚ý˜•Œ FILEGETDEF‚ø™‚í˜’Œ%DEFINE-TYPE-PUTDEF™‚Â‚è˜•ŒPUTDEF‚ã™‚Ø˜’Œ%DEFINE-TYPE-DELDEF™‚Â‚Ó˜•ŒDELDEF‚Î™‚Ã˜’Œ%DEFINE-TYPE-GETDEF™‚Â‚¾˜•ŒGETDEF‚¹™‚¯™‚¥™‚˜ŒREHASH-SIZE‚‰˜ŒSIZE‚„˜ŒEQUAL˜ŒTESTz˜’Œ*DEFINITION-HASH-TABLE*™‚Âu™i™‚Ïd™^˜•ŒCHANGEDSETFSLSTQ™‚Ð9™‚Í4™‚Î!™‚Í™‚Î™™F˜“˜’ŒGLOBAL™‚Â™‚Ð.˜“™‚Ð™˜ŒCommon Lisp SETF definitions˜“™˜’ŒX™‚Â˜“˜•ŒP™#˜“˜’Œ%DEFINE-TYPE-FILE-DEFINITIONS™‚Â˜“™‚™˜“™‚™‚Õ™‚Ó˜–Gggg¿gggÁÉg'¸gH‘H†gH˜ŒXCL:DEFDEFINER DEFSETF™˜“€A™™ :™0™)˜Œ DEFINED-BY ™™‚à™™˜ŒDEFINER-FOR™œ˜Œdefinition-expander-DEFSETF˜–‚<@X¹HZ»A¼J¢±"J]‘h€i^‘N…M‘i€h²J²J]‘h€i^‘N‰M‘i„h‚h€h¢±J½J^__¿O_¿N__¿OŸoo ¿IohI _¿IohI _¿IohI _¿MOOILgO __ ¿O_"_$¿ggogggOhhgggOhgoOoOohggogOhgIO hOhhhhhggIhgOhhhO$²%gggIhoO$hh€hJd3@ð²`K½K¾ggoggIhgMhhhN²$gggIhoNhh€hoI oI ™‚ã™˜“˜“˜Œ$$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT‚6˜ŒERROR‚*™‚è‚È™‚š‚Ã˜•ŒPARSE-DEFMACRO‚¬˜’ŒPACK™‚Â‚§˜ŒSYMBOL-PACKAGE‚•™‚ê‚™‚ë~™‚êy™‚ëi˜ŒCERROR‚™‚‚˜Œ DOCUMENTATION‚þ™,‚ê™‚‚á™‚‚Ü˜ŒSET-SETF-INVERSE‚Ò˜Œ EVAL-WHEN‚Í˜ŒPROGN‚¡™‚‚œ™‚í‚—™,‚€™‚‚w™‚‚r˜ŒSET-SETF-METHOD-EXPANDER‚N˜ŒBLOCK‚D˜ŒLIST‚:˜ŒDUMMIES‚5˜ŒVALUES‚˜ŒLET*‚ ˜ŒACCESS-FORM‚˜ŒLAMBDA‚˜ŒFUNCTION‚ö™‚‚ñ˜ŒSYMBOL-FUNCTION‚ì™,‚â™‚ï‚Ý™‚ð‚»˜ŒENVIRONMENT‚0˜ŒNo body for DEFSETF of ~A‚$˜ŒIll-formed DEFSETF for ~S.‚˜“˜“™‚™,‚×˜“˜ŒLOAD˜ŒCOMPILE˜ŒEVAL‚ª˜“˜“™‚™,‚?˜“™?™‚÷‚+˜“˜“™‚Ÿ‚#˜“˜“˜ŒCONS˜“™>™‚÷™‚ô‚˜“™‚ô˜“˜ŒMAPCAR˜“™‚ù˜“™‚ø˜“˜ŒX˜“™‚Ÿ˜“™?™‚÷‚ç˜“™‚™‚™‚‚ž˜Œ-setf-expander‚‡˜Œ -setf-envp˜Œ -setf-formd˜Œ˜ŒNEWVALS‚³˜“™‚ ˜“™‚ù™‚ó™‚ô˜ŒVALS‚©˜“™‚™‚ö‚Ÿ˜“™™‚J˜’Œ%$$MODIFY-MACRO-ENVIRONMENT™‚I‚š˜“™‚ô™‚R™‚O™‚M™‚E‚ˆ˜“™‚9™‚U˜–+ggg¿ggg™‚=™˜“€%™™ ™]™‚™™‚@™‚™œ˜Œ prototype-fn-DEFINE-MODIFY-MACRO˜–@d3@ðg@h™‚\™˜“˜“˜ŒNAME ˜’Œ%MAKE-FUNCTION-PROTOTYPE™‚Â™˜–Cggg¿ggo¿oPggc™‚(™‚=™˜“€;™‚½%™‚¾™‚*6™‚Í1™‚Î™‚ù™™‚\™™+˜”™’ŒPPRINT-DEFINER™‚Â ˜Œ8Creates a new read-modify-write macro like PUSH or INCF.œ˜Œexpand-DEFINE-MODIFY-MACRO˜–ggg@Ah™‚f™˜“˜“˜Œ$$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT™™™‚2˜–&gg ¿ggo™‚=™˜“€ ™™‚5™‚6™™‚f™˜“™‚7˜ŒXCL::DEFINITION™‚9˜ŒXCL::ENV˜–Gggg¿gggÁÉg'¸gH‘H†gH˜Œ!XCL:DEFDEFINER DEFINE-SETF-METHOD™˜“€A™™ :™ 0™ )™‚à ™™‚à™™™‚á™ œ˜Œ&definition-expander-DEFINE-SETF-METHOD˜–‚@X¹HZ»J¼A½L¾oIhI _¿oIhI _¿oIhI _¿KONIMgOgo __¿O__¿O_¿gogOOOhOgIOhh ggIhgOhhO²%gggIhoOhh€h™‚t™˜“˜“˜Œ$$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ‚·™‚«t™‚šo™‚éO™‚êJ™‚ë8™‚ê3™‚ë!™‚ê™‚ë‚é™‚‚ä™‚í‚ß™,‚Í™‚‚Ä™‚‚¿™‚ñ‚©™‚ò‚™˜ŒDEFUN‚™‚ïd˜ŒERROR-STRING]™‚û‚ò˜“˜“™‚™,‚”˜“™‚™‚™‚i˜Œ3Setf expander for ~S cannot be called with ~S args.@˜Œsetf-expander-)˜Œenv-˜Œwhole-˜–+ggg¿ggg™‚q™˜“€%™™ ™]™‚™ ™‚t™‚™ œ˜Œprototype-fn-DEFINE-SETF-METHOD˜–@d3@ðg@oh™‚…™˜“˜“˜ŒNAME™ ˜“˜“˜ŒArg list˜ŒBody˜–Cggg¿ggo¿oPggc™‚(™‚q™˜“€;™‚½%™™‚*6™‚Í1™‚Î˜ŒDEFINITION-PRINT-TEMPLATE™ ™‚…™ ™+˜”™ ’ŒPPRINT-DEFINER™‚Â ˜“˜ŒNAME€€˜ŒBODYœ˜Œexpand-DEFINE-SETF-METHOD˜–ggg@Ah™‚•™˜“˜“˜Œ$$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT™ ™™‚2˜–&gg ¿ggo™‚q™˜“€ ™™‚5™‚6™ ™‚•™ ˜“™‚7˜ŒXCL::DEFINITION™‚9˜ŒXCL::ENV˜–Gggg¿gggÁÉg'¸gH‘H†gH˜Œ'XCL:DEFDEFINER DEFINE-SHARED-SETF-MACRO™˜“€A™™ :™'0™')™‚à ™™‚à™™™‚á™'œ˜Œ,definition-expander-DEFINE-SHARED-SETF-MACRO˜–‚‡@X¹HZ»J\½L^_¿N__¿A_¿O‘i€h™kO ð€h¬oO ¿OOi __¿O__¿O_¿gIKMO OOO™‚£™˜“˜“˜Œ$$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT~™‚«r™‚«M™‚šH˜’Œ PARSE-BODY™‚Â=™‚è-™‚h™‚K6˜Œ-Store-var should be a list of one element: ~s˜–Xggg¿ggg¿ggo¿oPggc™‚(™‚ ™˜“€P™‚½:™%™™ K™‚ÍF™‚Î0™‚+™' ™]™‚™'™‚£™‚™'@˜”™'’ŒPPRINT-DEFINER™‚Â5˜“™‚‘€€€™‚’œ˜Œexpand-DEFINE-SHARED-SETF-MACRO˜–ggg@Ah™‚¯™˜“˜“˜Œ$$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT™'™™‚2˜–&gg ¿ggo™‚ ™˜“€ ™™‚5™‚6™'™‚¯™'˜“™‚7˜ŒXCL::DEFINITION™‚9˜ŒXCL::ENV˜–Gggg¿gggÁÉg'¸gH‘H†gH˜Œ!XCL:DEFDEFINER DEFINE-SHARED-SETF™˜“€A™™ :™(0™()™‚à ™™‚à™™™‚á™(œ˜Œ&definition-expander-DEFINE-SHARED-SETF˜–k@X¹HZ»J\’L€h½ggoggIhgKhhhM²$gggIhoMhh€h™‚½™˜“˜“˜Œ$$MACRO-FORM˜Œ$$MACRO-ENVIRONMENTO™‚J™‚íE™,1™‚(™‚#˜ŒSET-SHARED-SETF-INVERSE™‚ï™‚ðX˜“˜“™‚™,˜“™‚™‚™‚˜–Cggg¿ggg¿oPggc™‚(™‚º™˜“€;™‚½%™™6™‚Í1™‚Î ™]™‚™(™‚½™‚™(+˜”™(’ŒPPRINT-DEFINER™‚Âœ˜Œexpand-DEFINE-SHARED-SETF˜–ggg@Ah™‚Ê™˜“˜“˜Œ$$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT™(™™‚2˜–&gg ¿ggo™‚º™˜“€ ™™‚5™‚6™(™‚Ê™(˜“™‚7˜ŒXCL::DEFINITION™‚9˜ŒXCL::ENVœ™)˜–‚ª¸h¹hºh»h¼h½@¾h_¿h_¿h_¿N£O°PN_‘i€h™Ogð†O “O°OJº_I¹O_¿O˜OO&_¿ˆOh__¿N¾°®»A@KHh ¼@K ½I YJ ZHhLM$™)™˜“˜“˜ŒFORM˜ŒSHARED-SETF-INVERSE‚›™‚ª‚”™‚ª‚™‚›‚ƒ™‚›|™‚«K™‚Ÿ<™‚¬™‚Ÿ3™‚œ˜Œexpand-SETF˜–‚Ò@X¹HZ»J¼A½L²ggIKhgLhh¾Id3@ð›gIKhI‘i€h¢±~IM ^™IMlN¹±qId3@ð²5IÁÉg'_“O° IÁÉg'_’O‹IÁÉg'^€hœNIKh Id3@ðIÁÉg'^€hŸNIIKh IÁÉg'_’O‹IÁÉg'¢±¦IM __¿O__¿O__¿O__¿gO_¿O_ ¿h_"¿h_$¿h_&¿O‘h€i_(’O(…O ‘h€i“O"°1OO h_&¿O"˜O$O&&_$¿ˆO&h_$_"¿O_¿O _ ¿°¼OKhh OhIM __¿O_˜OIð‘h‚i€h“O¹II I ¿±þb™‚Ú™˜“˜“˜Œ$$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ‚É™-‚Â™-‚ž™‚š‚™™‚›‚‹™‚«‚û™‚š‚ö™‚Ê™‚«‚¤™‚«P™‚ž‚!™‚ö‚ê™‚ ‚Ø™z‚¸™|‚”™‚¡‚‚™‚¢o™{7™‚£#™,™,™‚ð˜–&gg ¿ggo˜Œ DEFMACRO SETF™˜“€ ™™‚5™‚6™,™‚Ú™,˜“˜ŒPLACE˜Œ NEW-VALUE™‚L˜ŒOTHERS™‚9˜ŒENVœ™-˜– o@ ™-™˜“˜“˜ŒFN™‚–˜ŒFORM™‚è˜Œ.~S is not a known location specifier for SETF.œ˜Œexpand-PSETF˜–‚§@¸A¹Hºh»h¼J³ gK L o Jªo ¿JI ]¾M__¿O__¿O__¿N_¿O_¿O¡°OOhK»O_¿O_¿°ãOJhK»OL¼Jº±ÿh™‚î™˜“˜“˜Œ$$MACRO-FORM˜Œ$$MACRO-ENVIRONMENTE™‚š@™7™‚è&™‚«˜ŒREVERSE™‚ó˜ŒLET2˜ŒOdd number of args to PSETF.!˜“€˜–;gg ¿ggo¿ggo˜ŒDEFMACRO PSETF™˜“€5™ ™‚¾™‚5+™‚6&™/™‚ù™/™‚î™/0˜“™‚L˜ŒARGS™‚9˜ŒENV˜Œ‚ì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.œ˜Œ expand-SHIFTF˜–‚Ó@¸A¹H‘h€iZ‘J…H‘h€išo Hºh»h¼]¾J³'NJhK»gK L Mh JI __¿O__¿O__¿O__¿O_¿O_ ¿O_"¿O ¡°!O O"hK»O _$¿O"_"¿O$_ ¿°ÞNOhK»OL¼O¾Jº±ÿ^™‚ÿ™˜“˜“˜Œ$$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT`™‚š[™P™‚«H™‚óB™‚ó'™‚Ÿ™‚è<™‚ö˜Œ#SHIFTF needs at least two arguments˜–;gg ¿ggo¿ggo˜ŒDEFMACRO SHIFTF™˜“€5™ ™‚¾™‚5+™‚6&™0™‚ù™0™‚ÿ™00˜“™‚L˜ŒARGS™‚9˜ŒENV˜ŒRAssigns to each place the value of the form to its right, returns old value of 1stœ˜Œexpand-ROTATEF˜–‚Ò@¸A¹H¢±ÈH¢±³Hºh»h¼h½h¾J³$NM¿gK L o JI __¿O__¿O__¿O__¿O_¿O_ ¿O_"¿O ¡°!O O"hK»O _$¿O"_"¿O$_ ¿°ÞMOhK»N¢K¾OL¼O½Jº±ÿ]gHoh™‚ ™˜“˜“˜Œ$$MACRO-FORM˜Œ$$MACRO-ENVIRONMENTI™‚šD™9™‚«/™‚ó)™‚ó‚Á™‚ð#™‚ö‚È˜“€4˜“€˜–;gg ¿ggo¿ggo˜ŒDEFMACRO ROTATEF™˜“€5™ ™‚¾™‚5+™‚6&™1™‚ù™1™‚ ™10˜“™‚L˜ŒARGS™‚9˜ŒENV˜ŒWAssigns to each place the value of the form to its right; last gets first. Returns NIL.œ˜Œ expand-POP˜–‚@X¹AºId3@ð²(ggIhgIgIhhhIJ [¼K]¾M__¿O__¿O_¿gL_¿N_¿h_¿h_¿h_ ¿O‘h€i_"’O"…O‘h€i“O°1OOh_ ¿O˜OO &_¿ˆO h__¿O_¿O_¿°¼OOhh ggOhgOgOhhOhh™‚™˜“˜“˜Œ$$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT‚Ê™‚«<™‚š7™ ‚ç™?‚ß™‚£‚Ô™>‚Ï˜ŒPROG1a™‚ö#™?™‚£™>™‚!˜–;gg ¿ggo¿ggo˜ŒDEFMACRO POP™˜“€5™ ™‚¾™‚5+™‚6&™2™‚ù™2™‚™20˜“˜ŒPLACE™‚9˜ŒENV˜Œ4Pops one item off the front of PLACE and returns it.œ˜Œexpand-REMF˜–‚@X¹HZ»IA \½L^_¿N__¿O__¿O_¿_¿_¿_¿gM_ ¿O_"¿h_$¿h_&¿h_(¿O ‘h€i_*’O*…O"‘h€i“O$°1O O"h_(¿O$˜O&O(&_&¿ˆO(h_&_$¿O _ ¿O"_"¿°¼OOhOKhh gOOgOhhOhOhhgOhogggOhhoggOhOhgOggOhgOhhoigOgOhhOohhhhh™‚*™˜“˜“˜Œ$$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT‚Â™‚«I™‚ŸA™‚Ÿ9™‚Ÿ™‚š ™‚a™[‚Y™‚£‚C™[‚9™?‚4˜ŒRPLACD‚-˜ŒCOND‚™>‚˜ŒEQ‚™?‚˜ŒATOM‚û™‚0‚ë™‚2‚Ñ™[‚Ç˜ŒDOQ™‚ö‚r˜“˜“˜ŒRETURN‚Q˜“˜“™‚4‚˜“˜“™‚è˜Œ!Odd-length property list in REMF.‚õ˜“€˜–;gg ¿ggo¿ggo˜Œ DEFMACRO REMF™˜“€5™ ™‚¾™‚5+™‚6&™3™‚ù™3™‚*™30˜“˜ŒPLACE˜Œ INDICATOR™‚9˜ŒENV˜ŒTDestructively remove INDICATOR from PLACE, returning T if it was present, NIL if notœ˜Œexpand-INCF˜–‚½@X¹HZ’J€k»IA \½L^_¿N__¿O__¿O_¿gM_¿O_¿h_¿h_ ¿h_"¿O‘h€i_$’O$…O‘h€i“O°1OOh_"¿O˜O O"&_ ¿ˆO"h_ _¿O_¿O_¿°¼OgOKhhh Oh™‚F™˜“˜“˜Œ$$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT‚±™‚«™‚š™‚ ˜Œ+=™‚ö˜–;gg ¿ggo¿ggo˜ŒDEFINE-MODIFY-MACRO INCF™˜“€5™ ™‚¾™‚5+™‚6&™5™‚ù™5™‚F™50˜“˜ŒSI::%$$MODIFY-MACRO-FORM™‚–˜ŒDELTA™‚9˜ŒSI::%$$MODIFY-MACRO-ENVIRONMENT˜Œ‚‡The first argument is some location holding a number. This number is incremented by the second argument, DELTA, which defaults to 1.œ˜Œexpand-DECF˜–‚½@X¹HZ’J€k»IA \½L^_¿N__¿O__¿O_¿gM_¿O_¿h_¿h_ ¿h_"¿O‘h€i_$’O$…O‘h€i“O°1OOh_"¿O˜O O"&_ ¿ˆO"h_ _¿O_¿O_¿°¼OgOKhhh Oh™‚U™˜“˜“˜Œ$$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT‚±™‚«™‚š™‚ ˜Œ-=™‚ö˜–;gg ¿ggo¿ggo˜ŒDEFINE-MODIFY-MACRO DECF™˜“€5™ ™‚¾™‚5+™‚6&™6™‚ù™6™‚U™60˜“˜ŒSI::%$$MODIFY-MACRO-FORM™‚–˜ŒDELTA™‚9˜ŒSI::%$$MODIFY-MACRO-ENVIRONMENT˜Œ‚‡The first argument is some location holding a number. This number is decremented by the second argument, DELTA, which defaults to 1.œ™8˜–kA‘A‰CD kó²RgA¸B¹hºh»h¼H‘h€i]‘M„I‘h€i’J°HIh¼J”KL&»„Lh[ºH¸I¹°ÔC@hh Dh@CD™8™˜“˜“˜ŒNEWVAL-FORM˜ŒDUMMIES˜ŒVALS˜ŒNEWVAR˜ŒSETTER˜ŒGETTERe˜ŒSUBSTV™‚«™9™‚öœ™9˜–#A‘i€h²@A @A Ô@Að‘kj™9™˜“˜“˜ŒSYMBOL˜ŒFORM™9™9œ˜Œexpand-PUSH˜–v@X¹HZ»A¼Kd3@ð²gKgIKhhKL ]¾M__¿O__¿O__¿O_¿gIOhNOOOO ™‚s™˜“˜“˜Œ$$MACRO-FORM˜Œ$$MACRO-ENVIRONMENTp™81™‚š,™Z™‚ ™‚ ™‚£˜–;gg ¿ggo¿ggo˜Œ DEFMACRO PUSH™˜“€5™ ™‚¾™‚5+™‚6&™;™‚ù™;™‚s™;0˜“˜ŒOBJ˜ŒPLACE™‚9˜ŒENV˜Œ3Conses OBJ onto PLACE, returning the modified list.œ˜Œexpand-PUSHNEW˜–@X¹HZ»J\½A¾Kd3@ð²gKgIKMhKN __¿O__¿O__¿O__¿O_¿gIOMOOOOO ™‚™˜“˜“˜Œ$$MACRO-FORM˜Œ$$MACRO-ENVIRONMENTy™85™‚š0™b™‚½™‚½™‚£˜–;gg ¿ggo¿ggo˜ŒDEFMACRO PUSHNEW™˜“€5™ ™‚¾™‚5+™‚6&™<™‚ù™<™‚™<0˜“˜ŒOBJ˜ŒPLACE™‚L˜ŒKEYS™‚9˜ŒENV˜ŒHConses OBJ onto PLACE unless its already there, using :TEST if necessaryœ˜ŒCAR-setf-expander˜–U@¸h¹hºh»H¢I°»I”JK&º„KhZ¹H¸°æ¸@H¹ºH@JhI[¼ggLJhhI$™‚™˜“˜“˜ŒACCESS-FORM˜ŒCAR-setf-env,™‚Ÿ™‚ŸB˜ŒRPLACA=™>˜–gg ˜ŒDEFSETF CAR™˜“€™‚ñ™‚™>œ˜ŒCDR-setf-expander˜–U@¸h¹hºh»H¢I°»I”JK&º„KhZ¹H¸°æ¸@H¹ºH@JhI[¼ggLJhhI$™‚š™˜“˜“˜ŒACCESS-FORM˜ŒCDR-setf-env,™‚Ÿ™‚ŸB™‚/=™?˜–gg ˜ŒDEFSETF CDR™˜“€™‚ñ™‚š™?œ˜ŒCAAAAR-setf-expander˜–]@¸h¹hºh»H¢I°»I”JK&º„KhZ¹H¸°æ¸@H¹ºH@JhI[¼gggLhJhhI$™‚£™˜“˜“˜ŒACCESS-FORM˜ŒCAAAAR-setf-env,™‚Ÿ™‚ŸG™BB™‚•=™>˜–gg ˜ŒDEFSETF CAAAAR™˜“€™‚ñ™‚£™@œ˜ŒCAAADR-setf-expander˜–]@¸h¹hºh»H¢I°»I”JK&º„KhZ¹H¸°æ¸@H¹ºH@JhI[¼gggLhJhhI$™‚¬™˜“˜“˜ŒACCESS-FORM˜ŒCAAADR-setf-env,™‚Ÿ™‚ŸG™EB™‚•=™>˜–gg ˜ŒDEFSETF CAAADR™˜“€™‚ñ™‚¬™Aœ˜ŒCAAAR-setf-expander˜–]@¸h¹hºh»H¢I°»I”JK&º„KhZ¹H¸°æ¸@H¹ºH@JhI[¼gggLhJhhI$™‚µ™˜“˜“˜ŒACCESS-FORM˜ŒCAAAR-setf-env,™‚Ÿ™‚ŸG™FB™‚•=™>˜–gg ˜Œ DEFSETF CAAAR™˜“€™‚ñ™‚µ™Bœ˜ŒCAADAR-setf-expander˜–]@¸h¹hºh»H¢I°»I”JK&º„KhZ¹H¸°æ¸@H¹ºH@JhI[¼gggLhJhhI$™‚¾™˜“˜“˜ŒACCESS-FORM˜ŒCAADAR-setf-env,™‚Ÿ™‚ŸG™IB™‚•=™>˜–gg ˜ŒDEFSETF CAADAR™˜“€™‚ñ™‚¾™Cœ˜ŒCAADDR-setf-expander˜–]@¸h¹hºh»H¢I°»I”JK&º„KhZ¹H¸°æ¸@H¹ºH@JhI[¼gggLhJhhI$™‚Ç™˜“˜“˜ŒACCESS-FORM˜ŒCAADDR-setf-env,™‚Ÿ™‚ŸG™LB™‚•=™>˜–gg ˜ŒDEFSETF CAADDR™˜“€™‚ñ™‚Ç™Dœ˜ŒCAADR-setf-expander˜–]@¸h¹hºh»H¢I°»I”JK&º„KhZ¹H¸°æ¸@H¹ºH@JhI[¼gggLhJhhI$™‚Ð™˜“˜“˜ŒACCESS-FORM˜ŒCAADR-setf-env,™‚Ÿ™‚ŸG™MB™‚•=™>˜–gg ˜Œ DEFSETF CAADR™˜“€™‚ñ™‚Ð™Eœ˜ŒCAAR-setf-expander˜–]@¸h¹hºh»H¢I°»I”JK&º„KhZ¹H¸°æ¸@H¹ºH@JhI[¼gggLhJhhI$™‚Ù™˜“˜“˜ŒACCESS-FORM˜Œ CAAR-setf-env,™‚Ÿ™‚ŸG™>B™‚•=™>˜–gg ˜ŒDEFSETF CAAR™˜“€™‚ñ™‚Ù™Fœ˜ŒCADAAR-setf-expander˜–]@¸h¹hºh»H¢I°»I”JK&º„KhZ¹H¸°æ¸@H¹ºH@JhI[¼gggLhJhhI$™‚â™˜“˜“˜ŒACCESS-FORM˜ŒCADAAR-setf-env,™‚Ÿ™‚ŸG™PB™‚•=™>˜–gg ˜ŒDEFSETF CADAAR™˜“€™‚ñ™‚â™Gœ˜ŒCADADR-setf-expander˜–]@¸h¹hºh»H¢I°»I”JK&º„KhZ¹H¸°æ¸@H¹ºH@JhI[¼gggLhJhhI$™‚ë™˜“˜“˜ŒACCESS-FORM˜ŒCADADR-setf-env,™‚Ÿ™‚ŸG™SB™‚•=™>˜–gg ˜ŒDEFSETF CADADR™˜“€™‚ñ™‚ë™Hœ˜ŒCADAR-setf-expander˜–]@¸h¹hºh»H¢I°»I”JK&º„KhZ¹H¸°æ¸@H¹ºH@JhI[¼gggLhJhhI$™‚ô™˜“˜“˜ŒACCESS-FORM˜ŒCADAR-setf-env,™‚Ÿ™‚ŸG™TB™‚•=™>˜–gg ˜Œ DEFSETF CADAR™˜“€™‚ñ™‚ô™Iœ˜ŒCADDAR-setf-expander˜–]@¸h¹hºh»H¢I°»I”JK&º„KhZ¹H¸°æ¸@H¹ºH@JhI[¼gggLhJhhI$™‚ý™˜“˜“˜ŒACCESS-FORM˜ŒCADDAR-setf-env,™‚Ÿ™‚ŸG™WB™‚•=™>˜–gg ˜ŒDEFSETF CADDAR™˜“€™‚ñ™‚ý™Jœ˜ŒCADDDR-setf-expander˜–]@¸h¹hºh»H¢I°»I”JK&º„KhZ¹H¸°æ¸@H¹ºH@JhI[¼gggLhJhhI$™‚™˜“˜“˜ŒACCESS-FORM˜ŒCADDDR-setf-env,™‚Ÿ™‚ŸG™ZB™‚•=™>˜–gg ˜ŒDEFSETF CADDDR™˜“€™‚ñ™‚™Kœ˜ŒCADDR-setf-expander˜–]@¸h¹hºh»H¢I°»I”JK&º„KhZ¹H¸°æ¸@H¹ºH@JhI[¼gggLhJhhI$™‚™˜“˜“˜ŒACCESS-FORM˜ŒCADDR-setf-env,™‚Ÿ™‚ŸG™[B™‚•=™>˜–gg ˜Œ DEFSETF CADDR™˜“€™‚ñ™‚™Lœ˜ŒCADR-setf-expander˜–]@¸h¹hºh»H¢I°»I”JK&º„KhZ¹H¸°æ¸@H¹ºH@JhI[¼gggLhJhhI$™‚™˜“˜“˜ŒACCESS-FORM˜Œ CADR-setf-env,™‚Ÿ™‚ŸG™?B™‚•=™>˜–gg ˜ŒDEFSETF CADR™˜“€™‚ñ™‚™Mœ˜ŒCDAAAR-setf-expander˜–]@¸h¹hºh»H¢I°»I”JK&º„KhZ¹H¸°æ¸@H¹ºH@JhI[¼gggLhJhhI$™‚!™˜“˜“˜ŒACCESS-FORM˜ŒCDAAAR-setf-env,™‚Ÿ™‚ŸG™BB™‚/=™?˜–gg ˜ŒDEFSETF CDAAAR™˜“€™‚ñ™‚!™Nœ˜ŒCDAADR-setf-expander˜–]@¸h¹hºh»H¢I°»I”JK&º„KhZ¹H¸°æ¸@H¹ºH@JhI[¼gggLhJhhI$™‚*™˜“˜“˜ŒACCESS-FORM˜ŒCDAADR-setf-env,™‚Ÿ™‚ŸG™EB™‚/=™?˜–gg ˜ŒDEFSETF CDAADR™˜“€™‚ñ™‚*™Oœ˜ŒCDAAR-setf-expander˜–]@¸h¹hºh»H¢I°»I”JK&º„KhZ¹H¸°æ¸@H¹ºH@JhI[¼gggLhJhhI$™‚3™˜“˜“˜ŒACCESS-FORM˜ŒCDAAR-setf-env,™‚Ÿ™‚ŸG™FB™‚/=™?˜–gg ˜Œ DEFSETF CDAAR™˜“€™‚ñ™‚3™Pœ˜ŒCDADAR-setf-expander˜–]@¸h¹hºh»H¢I°»I”JK&º„KhZ¹H¸°æ¸@H¹ºH@JhI[¼gggLhJhhI$™‚<™˜“˜“˜ŒACCESS-FORM˜ŒCDADAR-setf-env,™‚Ÿ™‚ŸG™IB™‚/=™?˜–gg ˜ŒDEFSETF CDADAR™˜“€™‚ñ™‚<™Qœ˜ŒCDADDR-setf-expander˜–]@¸h¹hºh»H¢I°»I”JK&º„KhZ¹H¸°æ¸@H¹ºH@JhI[¼gggLhJhhI$™‚E™˜“˜“˜ŒACCESS-FORM˜ŒCDADDR-setf-env,™‚Ÿ™‚ŸG™LB™‚/=™?˜–gg ˜ŒDEFSETF CDADDR™˜“€™‚ñ™‚E™Rœ˜ŒCDADR-setf-expander˜–]@¸h¹hºh»H¢I°»I”JK&º„KhZ¹H¸°æ¸@H¹ºH@JhI[¼gggLhJhhI$™‚N™˜“˜“˜ŒACCESS-FORM˜ŒCDADR-setf-env,™‚Ÿ™‚ŸG™MB™‚/=™?˜–gg ˜Œ DEFSETF CDADR™˜“€™‚ñ™‚N™Sœ˜ŒCDAR-setf-expander˜–]@¸h¹hºh»H¢I°»I”JK&º„KhZ¹H¸°æ¸@H¹ºH@JhI[¼gggLhJhhI$™‚W™˜“˜“˜ŒACCESS-FORM˜Œ CDAR-setf-env,™‚Ÿ™‚ŸG™>B™‚/=™?˜–gg ˜ŒDEFSETF CDAR™˜“€™‚ñ™‚W™Tœ˜ŒCDDAAR-setf-expander˜–]@¸h¹hºh»H¢I°»I”JK&º„KhZ¹H¸°æ¸@H¹ºH@JhI[¼gggLhJhhI$™‚`™˜“˜“˜ŒACCESS-FORM˜ŒCDDAAR-setf-env,™‚Ÿ™‚ŸG™PB™‚/=™?˜–gg ˜ŒDEFSETF CDDAAR™˜“€™‚ñ™‚`™Uœ˜ŒCDDADR-setf-expander˜–]@¸h¹hºh»H¢I°»I”JK&º„KhZ¹H¸°æ¸@H¹ºH@JhI[¼gggLhJhhI$™‚i™˜“˜“˜ŒACCESS-FORM˜ŒCDDADR-setf-env,™‚Ÿ™‚ŸG™SB™‚/=™?˜–gg ˜ŒDEFSETF CDDADR™˜“€™‚ñ™‚i™Vœ˜ŒCDDAR-setf-expander˜–]@¸h¹hºh»H¢I°»I”JK&º„KhZ¹H¸°æ¸@H¹ºH@JhI[¼gggLhJhhI$™‚r™˜“˜“˜ŒACCESS-FORM˜ŒCDDAR-setf-env,™‚Ÿ™‚ŸG™TB™‚/=™?˜–gg ˜Œ DEFSETF CDDAR™˜“€™‚ñ™‚r™Wœ˜ŒCDDDAR-setf-expander˜–]@¸h¹hºh»H¢I°»I”JK&º„KhZ¹H¸°æ¸@H¹ºH@JhI[¼gggLhJhhI$™‚{™˜“˜“˜ŒACCESS-FORM˜ŒCDDDAR-setf-env,™‚Ÿ™‚ŸG™WB™‚/=™?˜–gg ˜ŒDEFSETF CDDDAR™˜“€™‚ñ™‚{™Xœ˜ŒCDDDDR-setf-expander˜–]@¸h¹hºh»H¢I°»I”JK&º„KhZ¹H¸°æ¸@H¹ºH@JhI[¼gggLhJhhI$™‚„™˜“˜“˜ŒACCESS-FORM˜ŒCDDDDR-setf-env,™‚Ÿ™‚ŸG™ZB™‚/=™?˜–gg ˜ŒDEFSETF CDDDDR™˜“€™‚ñ™‚„™Yœ˜ŒCDDDR-setf-expander˜–]@¸h¹hºh»H¢I°»I”JK&º„KhZ¹H¸°æ¸@H¹ºH@JhI[¼gggLhJhhI$™‚™˜“˜“˜ŒACCESS-FORM˜ŒCDDDR-setf-env,™‚Ÿ™‚ŸG™[B™‚/=™?˜–gg ˜Œ DEFSETF CDDDR™˜“€™‚ñ™‚™Zœ˜ŒCDDR-setf-expander˜–]@¸h¹hºh»H¢I°»I”JK&º„KhZ¹H¸°æ¸@H¹ºH@JhI[¼gggLhJhhI$™‚–™˜“˜“˜ŒACCESS-FORM˜Œ CDDR-setf-env,™‚Ÿ™‚ŸG™?B™‚/=™?˜–gg ˜ŒDEFSETF CDDR™˜“€™‚ñ™‚–™[œ˜ŒFIRST-setf-expander˜–U@¸h¹hºh»H¢I°»I”JK&º„KhZ¹H¸°æ¸@H¹ºH@JhI[¼ggLJhhI$™‚Ÿ™˜“˜“˜ŒACCESS-FORM˜ŒFIRST-setf-env,™‚Ÿ™‚ŸB™‚•=™>˜–gg ˜Œ DEFSETF FIRST™˜“€™‚ñ™‚Ÿ™\œ˜ŒSECOND-setf-expander˜–]@¸h¹hºh»H¢I°»I”JK&º„KhZ¹H¸°æ¸@H¹ºH@JhI[¼gggLhJhhI$™‚¨™˜“˜“˜ŒACCESS-FORM˜ŒSECOND-setf-env,™‚Ÿ™‚ŸG™?B™‚•=™>˜–gg ˜ŒDEFSETF SECOND™˜“€™‚ñ™‚¨™]œ˜ŒTHIRD-setf-expander˜–]@¸h¹hºh»H¢I°»I”JK&º„KhZ¹H¸°æ¸@H¹ºH@JhI[¼gggLhJhhI$™‚±™˜“˜“˜ŒACCESS-FORM˜ŒTHIRD-setf-env,™‚Ÿ™‚ŸG™[B™‚•=™>˜–gg ˜Œ DEFSETF THIRD™˜“€™‚ñ™‚±™^œ˜ŒFOURTH-setf-expander˜–]@¸h¹hºh»H¢I°»I”JK&º„KhZ¹H¸°æ¸@H¹ºH@JhI[¼gggLhJhhI$™‚º™˜“˜“˜ŒACCESS-FORM˜ŒFOURTH-setf-env,™‚Ÿ™‚ŸG™ZB™‚•=™>˜–gg ˜ŒDEFSETF FOURTH™˜“€™‚ñ™‚º™_œ˜ŒFIFTH-setf-expander˜–]@¸h¹hºh»H¢I°»I”JK&º„KhZ¹H¸°æ¸@H¹ºH@JhI[¼gggLhJhhI$™‚Ã™˜“˜“˜ŒACCESS-FORM˜ŒFIFTH-setf-env,™‚Ÿ™‚ŸG™YB™‚•=™>˜–gg ˜Œ DEFSETF FIFTH™˜“€™‚ñ™‚Ã™`œ˜ŒSIXTH-setf-expander˜–e@¸h¹hºh»H¢I°»I”JK&º„KhZ¹H¸°æ¸@H¹ºH@JhI[¼ggggLhhJhhI$™‚Ì™˜“˜“˜ŒACCESS-FORM˜ŒSIXTH-setf-env,™‚Ÿ™‚ŸL™YG™?B™‚•=™>˜–gg ˜Œ DEFSETF SIXTH™˜“€™‚ñ™‚Ì™aœ˜ŒSEVENTH-setf-expander˜–e@¸h¹hºh»H¢I°»I”JK&º„KhZ¹H¸°æ¸@H¹ºH@JhI[¼ggggLhhJhhI$™‚Õ™˜“˜“˜ŒACCESS-FORM˜ŒSEVENTH-setf-env,™‚Ÿ™‚ŸL™YG™[B™‚•=™>˜–gg ˜ŒDEFSETF SEVENTH™˜“€™‚ñ™‚Õ™bœ˜ŒEIGHTH-setf-expander˜–e@¸h¹hºh»H¢I°»I”JK&º„KhZ¹H¸°æ¸@H¹ºH@JhI[¼ggggLhhJhhI$™‚Þ™˜“˜“˜ŒACCESS-FORM˜ŒEIGHTH-setf-env,™‚Ÿ™‚ŸL™YG™ZB™‚•=™>˜–gg ˜ŒDEFSETF EIGHTH™˜“€™‚ñ™‚Þ™cœ˜ŒNINTH-setf-expander˜–e@¸h¹hºh»H¢I°»I”JK&º„KhZ¹H¸°æ¸@H¹ºH@JhI[¼ggggLhhJhhI$™‚ç™˜“˜“˜ŒACCESS-FORM˜ŒNINTH-setf-env,™‚Ÿ™‚ŸL™YG™YB™‚•=™>˜–gg ˜Œ DEFSETF NINTH™˜“€™‚ñ™‚ç™dœ˜ŒTENTH-setf-expander˜–m@¸h¹hºh»H¢I°»I”JK&º„KhZ¹H¸°æ¸@H¹ºH@JhI[¼gggggLhhhJhhI$™‚ð™˜“˜“˜ŒACCESS-FORM˜ŒTENTH-setf-env,™‚Ÿ™‚ŸQ™YL™YG™?B™‚•=™>˜–gg ˜Œ DEFSETF TENTH™˜“€™‚ñ™‚ð™eœ˜ŒREST-setf-expander˜–U@¸h¹hºh»H¢I°»I”JK&º„KhZ¹H¸°æ¸@H¹ºH@JhI[¼ggLJhhI$™‚ù™˜“˜“˜ŒACCESS-FORM˜Œ REST-setf-env,™‚Ÿ™‚ŸB™‚/=™?˜–gg ˜ŒDEFSETF REST™˜“€™‚ñ™‚ù™fœ˜ŒNTHCDR-setf-expander˜–k@¸h¹hºh»H¢I°»I”JK&º„KhZ¹H¸°æ¸@H¹ºH@JhI[¼K½ggggLhMhJhhI$™‚™˜“˜“˜ŒACCESS-FORM˜ŒNTHCDR-setf-env,™‚Ÿ™‚ŸP˜Œ1-K™gF™‚/A™?˜–gg ˜ŒDEFSETF NTHCDR™˜“€™‚ñ™‚™g˜–gg ˜ŒDEFSETF NTH™˜“€™‚î˜Œ%SET-NTH™hœ˜Œsetf-expander-GETF˜–‚(@ lóX‘HŠ@ lýó²og@ @X¹HZ»J\’L€h½IA ^_¿N__¿O__¿O__¿O_¿_¿_ ¿_"¿OOO M”O"h€h OOKM“Mh€h OhggOhgOgO Ohh hOhOhigOO OhhhgOO M”O"h€h$™‚™˜“˜“˜Œ whole-GETF˜Œenv-GETF‚ã™‚«‚´™‚«‚¡™‚«‚ˆ™‚Ÿ‚€™‚Ÿx™‚ŸM™‚šH™-™‚è(™‚™‚™‚‚™i‚÷˜•ŒLISTPUT‚Ô™‚ó‚Í™‚ö‚Â˜ŒNULL‚½™‚0!™i™‚~˜–gg ˜ŒDEFINE-SETF-METHOD GETF™˜“€™‚ñ™‚™iœ˜Œsetf-expander-APPLY˜–‚%@ kýó²og@ @X¹HZ»A¼I‘i€h²"I lð²Io—Id3@ð„h‚h€h”I¹Šo ¿IKL ]¾M__¿O__¿O__¿O_¿K O ð‘h€i_“O°1O N ð‘h€i_“O°O N ð‘h€i›oI ¿NOOggOhOggOhO$™‚™˜“˜“˜Œwhole-APPLY˜Œ env-APPLY‚ì™‚è‚Ú˜ŒLAST‚Ó™‚ ‚¿™‚ ‚¸™‚ ‚¤™‚ ‚œ™‚ r™‚šm™c™‚è8™‚™‚è™‚™‚‚™‚ù‚™j‚ü™‚ù‚÷™j™j‚æ˜Œ2Apply of ~S not understood as a location for Setf.^˜ŒASetf of Apply is only defined for function args of form #'symbol.D˜“™‚ù˜•ŒFUNCTION™‚ ™‚~˜–gg ˜ŒDEFINE-SETF-METHOD APPLY™˜“€™‚ñ™‚™jœ˜Œsetf-expander-LDB˜–‚°@ lÿ¢±@X¹HZ[A \½L^_¿N__¿O__¿O_¿_¿_¿OMIOOhgOgOOOhhhOOhgOOh$og@ ™‚)™˜“˜“˜Œ whole-LDB˜Œenv-LDB‚ª™‚è‚¥™‚N™‚ŸF™‚Ÿ™‚š™™‚‚ž™k‚ˆ™kj˜ŒDPBb™‚ô‚™™‚~˜–&gg ¿ggo˜ŒDEFINE-SETF-METHOD LDB™˜“€ ™‚¾™‚ñ™,™k™‚)™k˜Œ‚É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.œ˜Œsetf-expander-MASK-FIELD˜–‚¯@ lÿ¢±Œ@X¹HZ[ \½L^_¿N__¿O__¿O_¿_¿_¿OMIOOhgOgOOOhhhOOhgOOh$og@ ™‚4™˜“˜“˜Œwhole-MASK-FIELD˜Œenv-MASK-FIELD‚©™‚è‚¤™‚M™‚ŸE™‚Ÿ™‚š™™‚‚™l‚‡™li˜Œ DEPOSIT-FIELDa™‚ô‚˜™‚~˜–&gg ¿ggo˜ŒDEFINE-SETF-METHOD MASK-FIELD™˜“€ ™‚¾™‚ñ™,™l™‚4™l˜Œ‚Ò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.œ˜Œsetf-expander-CHAR-BIT˜–‚½@ lÿ¢±š@X¹HZ»IA \½L^_¿N__¿O__¿O_¿_¿_¿MOh OKh OhgOgOOOhhhOOhgOOh$og@ ™‚?™˜“˜“˜Œwhole-CHAR-BIT˜Œenv-CHAR-BIT ‚·™‚è‚²™‚f™‚«\™‚«O™‚ŸG™‚Ÿ ™‚š™™‚‚«™m‚•™mw˜ŒSET-CHAR-BITo™‚ô‚¦™‚~˜–&gg ¿ggo˜ŒDEFINE-SETF-METHOD CHAR-BIT™˜“€ ™‚¾™‚ñ™,™m™‚?™m˜Œ‚‰The first argument is any place form acceptable to SETF. Replaces the specified bit of the character in this place with the new value.œ˜Œsetf-expander-THE˜–‚‡@ lÿ²e@X¹HZ[A \½L^_¿N__¿O__¿O_¿MOOgIOhOOgIOh$og@ ™‚J ™˜“˜“˜Œ whole-THE˜Œenv-THE‚™‚è|™‚[™‚l™‚š™™‚u™n`™nI™np™‚~˜–gg ˜ŒDEFINE-SETF-METHOD THE™˜“€™‚ñ™‚J™n˜–gg ˜ŒDEFSETF IL:GETHASH™˜“€™‚î™u™sœ˜•Œexpand-%SET-IL-GETHASH˜–‚„@X¹HZ»J\’L€h]²dM ^‘NŒMd3@ð•Kd3@ð€hgIMKhgoogIgggKhMhohgIKh™‚V™˜“˜“˜Œ$$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT˜•ŒCONSTANTEXPRESSIONPx˜•ŒPUTHASH[˜•Œ$$GETHASH-TABLEV˜•ŒSETQQ™‚ðK™‚\<™‚ô.™‚\j˜“™‚]F˜“˜ŒDECLARE˜“˜•Œ LOCALVARS™‚]A˜“™‚]˜–&gg ¿ggo˜ŒDEFMACRO IL:%SET-IL-GETHASH™˜“€ ™™‚5™‚6™u™‚V™u˜“˜ŒKEY˜Œ HASH-TABLE™‚–˜ŒNEWVALUE˜–Co ¿o ¿o ¿o ¿o ¿o ˜Œ6 top-level forms™˜“€=˜•ŒPUTPROPS2™‚o'™‚o™‚o™‚o™‚o8˜“™˜•Œ COPYRIGHT˜“˜ŒVenue & Xerox Corporation‚Â‚Ã‚Ä‚Æ-˜“™™˜“™ ˜ŒXCL™˜ŒLISP"˜“™™~˜ŒCOMPILE-FILE˜“™|™y˜ŒIGNORE˜“™{™y™‚z˜“™z™y™‚zš‚ÿÿ