‘XCL Compiler output for source file {DSK}larry>ilisp>medley>sources>CMLUNDO.;2 Source file created 7-Nov-2022 09:54:34 FASL file created Monday, 7 November 2022, 9:54:35 ÿ˜–#ogg o ˜•ŒFILECREATEDLOC˜Œ*STANDARD-INPUT*˜Œ1 top-level form˜ŒFUNCTION˜“€˜•ŒDEFINE-FILE-INFO˜ŒOPEN ˜ŒOUTPUT˜Œ DIRECTION˜“˜ŒPACKAGE˜ŒXEROX-COMMON-LISP˜Œ READTABLE˜ŒXCL˜ŒBASE ˜Œ{Null}˜–!ggo ¿o˜Œ2 top-level forms™˜“€˜•ŒPUTPROP˜•Œ CMLUNDOCOMS˜•Œ FILEDATES˜•ŒCMLUNDO˜“ ˜“˜•Œ VARIABLES˜’Œ *IN-DEFINER*˜‘˜ŒXEROX-COMMON-LISP˜“˜•Œ FUNCTIONS˜’ŒNOHOOK™˜’ŒUNDOABLY™˜’ŒUNDOABLY-FMAKUNBOUND™˜’ŒUNDOABLY-MAKUNBOUND™˜’Œ UNDOABLY-SETF™˜’ŒUNDOHOOK™˜’ŒUNDOABLY-PSETF™˜’Œ UNDOABLY-POP™˜’Œ UNDOABLY-PUSH™˜’ŒUNDOABLY-PUSHNEW™˜’Œ UNDOABLY-REMF™˜’ŒUNDOABLY-ROTATEF™˜’ŒUNDOABLY-SHIFTF™˜’ŒDEFINE-UNDOABLE-MODIFY-MACRO™˜’Œ UNDOABLY-DECF™˜’Œ UNDOABLY-INCF™˜’ŒUNDOABLY-PROCLAIM™˜“™˜’Œ MAKE-UNDOABLE™˜’Œ STOP-UNDOABLY™˜“™˜’ŒUNDOABLY-SETF-SYMBOL-FUNCTION™˜’ŒUNDOABLY-SETF-MACRO-FUNCTION™˜“˜•ŒDECLARE:˜•Œ DONTEVAL@LOAD˜•ŒDONTEVAL@COMPILE˜•ŒDOCOPY˜“˜•ŒP˜“˜•ŒMOVD˜“˜ŒQUOTE™2˜“™;˜•ŒUNDOABLY-SETF-SYMBOL-FUNCTION˜“™:˜“™;™3˜“™;™3˜“˜•ŒADDVARS˜“˜•ŒLISPXFNS˜”˜ŒPROCLAIM™-˜”˜ŒPOP™$˜”˜ŒPSETF™#˜”˜ŒPUSH™%˜”˜ŒPUSHNEW™&˜”˜ŒREMF™'˜”˜ŒROTATEF™(˜”˜ŒSHIFTF™)˜”˜ŒDECF™+˜”˜ŒINCF™,˜”˜ŒSET’ŒUNDOABLY-SET-SYMBOL™˜”˜Œ MAKUNBOUND™ ˜”˜Œ FMAKUNBOUND™˜“™˜’ŒGET-UNDOABLE-SETF-METHOD™˜’ŒUNDOABLY-SET-SYMBOL™˜“˜•ŒFNS˜’Œ UNDOABLY-SETQ™˜“˜•Œ SPECIAL-FORMS™™g˜“™5™6™7™8˜“™9˜“™:˜“™;™d˜“™;˜•ŒUNDOABLY-SET-SYMBOL˜“˜•ŒPROP˜“˜•ŒFILETYPE˜•ŒMAKEFILE-ENVIRONMENT™˜“™q˜ŒUNDOABLE-SETF-INVERSE˜ŒSYMBOL-FUNCTION˜ŒMACRO-FUNCTION˜“™5™6˜•ŒDOEVAL@COMPILE˜•ŒDONTCOPY˜•Œ COMPILERVARS˜“™E˜“˜•ŒNLAMA™g˜“˜•ŒNLAML˜“˜•ŒLAMA ˜“˜”˜Œ 7-Nov-2022 09:54:34•Œ0{DSK}larry>ilisp>medley>sources>CMLUNDO.;2˜–o ¿g X‘Hhc™˜ŒDEFVAR *IN-DEFINER*™˜“€˜ŒBOUNDP™G ™˜“˜ŒSPECIAL™œ™˜– @A ˜Œ *EVALHOOK*™™˜“˜“˜ŒFN˜ŒARGS˜Œ &OPTIONAL˜ŒENV˜ŒAPPLYœ˜’Œexpand-UNDOABLY™˜–)@¸A¹H gIgno ™‚™™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT#˜’Œ WALK-FORM™˜•ŒMKPROGN˜Œ WALK-FUNCTION ˜Œ ENVIRONMENT˜–‚Á@‘i€h¢±·@d3@𢱫@XgðY’I°HgðZ‘J†Hgð¢±)h¹hº@»K¢±Kd3@ð²DK ²@KK h±ÚK ¿ggKhK h±´K \½L^_¿N__¿O__¿gM_¿O_¿h_¿h_¿h_ ¿O‘h€i_"’O"…O‘h€i“O°@O_"¿O_$¿O"O$ h_ ¿O˜OO &_¿ˆO h__¿O_¿O_¿°­O Khh Oh¼I”JL&º„LhZ¹K»±þïI i$Hgð›@ i$@W(Z”J@@ÁÉg'Y‘I‹@ÁÉg'–W*‘h‚i€h²i@ i$@@@™™F™˜Œlambda in expand-UNDOABLY˜ŒCLOSURE˜“˜“˜ŒX˜ŒCONTEXT ‚±˜’ŒWALK-FORM-INTERNAL™‚¬˜Œ MACROEXPAND-1‚i™‚Ÿ‚U™‚Ÿ‚5˜ŒAPPEND‚(™‚¨‚÷™‚¨‚–˜•Œ\MVLIST‚‘™c‚ƒ™‚¨k˜’ŒVARIABLE-SPECIAL-P™]™‚¨O˜’ŒVARIABLE-LEXICAL-P™ ‚–˜•Œ DEFINER-FOR‚†˜Œ DEFINER-FOR‚`™0‚¶˜ŒLET*v™;q™d/˜ŒSETF$˜•ŒSETQ˜ŒSETQ˜•ŒCOMPILED-CLOSURE˜–&gg ¿ggo ˜ŒDEFMACRO UNDOABLY™˜“€ ™ ˜•ŒSETF-MACRO-FUNCTION˜•ŒARGNAMES™™‚™™˜“˜Œ&REST˜ŒFORMS˜Œ &ENVIRONMENT˜ŒENVœ™˜–;@h ¿@g ¿@g ¿@g ¿@g ¿@™™˜“˜“˜ŒSYMBOL3˜•Œ/REMPROP'™‚Ä™‚Ä™‚Ę•Œ/PUTD.˜•ŒEXPR"˜•ŒCODE˜•Œ SPECIAL-FORM ˜•ŒMACRO-FNœ™ ˜–0@g ¿@hP ¿@g ¿@g ¿@˜•ŒCOMPVARMACROHASH™ ™˜“˜“˜ŒSYMBOL(™‚Ä™‚Ę•Œ/PUTHASH˜•ŒSAVESET#˜•Œ GLOBALVAR˜•ŒGLOBALLY-SPECIAL˜•ŒNOBINDœ˜’Œexpand-UNDOABLY-SETF™˜–‚Æ@X¹HZ»A¼Id3@ð²ggIhKhIL ]¾M__¿O__¿O__¿gN_¿O_¿h_¿h_ ¿h_"¿O‘h€i_$’O$…O‘h€i“O°1OOh_"¿O˜O O"&_ ¿ˆO"h_ _¿O_¿O_¿°¼OKhh Oh™‚Õ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT‚º™‚ª/™‚«*™cQ™‚°™;™d˜–;gg ¿ggo ¿ggo ˜ŒDEFMACRO UNDOABLY-SETF™˜“€5™ ˜•ŒSET-DOCUMENTATION ™‚¹+™‚º&™!˜ŒFUNCTION™!™‚Õ™!0˜“˜ŒPLACE˜Œ NEW-VALUE™‚½˜ŒENV˜ŒUNDOable version of SETFœ™"˜–‚s@¢±d@YgðZ’J°Igð[‘K†Igð¢±ÿ@ºh»J¡KJd3@ð²J¼JºLJ¼JºLA A ±ÍJ¼JºLA \½L^_¿N__¿O__¿gM_¿O_¿h_¿h_¿h_ ¿O‘h€i_"’O"…O‘h€i“O°CO_"¿O_$¿O"gO$hh_ ¿O˜OO &_¿ˆO h__¿O_¿O_¿°ªOgJ_¿JºOhhh OhA »±ÿ Igð˜@A @W&[²K@ggA @ggA @A ˜Œ *APPLYHOOK*™F™"™˜“˜“˜ŒFORM˜ŒENV ‚m˜ŒEVAL‚e˜ŒEVALHOOK‚S™‚ë‚5˜•Œ \EVAL-PROGN‚!™‚ê‚™‚ªi™‚«d™cT™dN™" ‚_™‚Z™"‚M™‚H™"‚+™0‚þ™‚È™‚‰™‚°$™‚±™‚² ™‚³œ˜’Œexpand-UNDOABLY-PSETF™˜–;@XY²4ghgIºI¹JgIºI¹JgIhhhh™‚“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT%™#˜ŒPROG1 ™!™‚ó˜–&gg ¿ggo ˜ŒDEFMACRO UNDOABLY-PSETF™˜“€ ™ ™‚¹™‚º™#™‚î™#˜“™‚»˜ŒARGS™‚½˜ŒENVœ˜’Œexpand-UNDOABLY-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™c ‚瘌CDR‚ß™‚³‚Ô˜ŒCAR‚Ï™‚óa™‚°#™‚™g™‚™‚ó˜–&gg ¿ggo ˜ŒDEFMACRO UNDOABLY-POP™˜“€ ™ ™‚¹™‚º™$™‚û™$˜“˜ŒPLACE™‚½˜ŒENVœ˜’Œexpand-UNDOABLY-PUSH™˜–‚Ú@X¹HZ»A¼Kd3@ð²gKgIKhhKL ]¾M__¿O__¿O__¿O_¿gN_¿O_¿h_ ¿h_"¿h_$¿O‘h€i_&’O&…O‘h€i“O °1OOh_$¿O ˜O"O$&_"¿ˆO$h_"_ ¿O_¿O_¿°¼OgIOhhh Oh™‚ ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT‚Ι‚ª1™‚«,™c‚½˜ŒCONSZ™‚°™‚™g˜–&gg ¿ggo ˜ŒDEFMACRO UNDOABLY-PUSH™˜“€ ™ ™‚¹™‚º™%™‚ ™%˜“˜ŒOBJ˜ŒPLACE™‚½˜ŒENVœ˜’Œexpand-UNDOABLY-PUSHNEW™˜–‚ã@X¹HZ»J\½A¾Kd3@ð²gKgIKMhKN __¿O__¿O__¿O__¿O_¿gO_ ¿O_"¿h_$¿h_&¿h_(¿O ‘h€i_*’O*…O"‘h€i“O$°1O O"h_(¿O$˜O&O(&_&¿ˆO(h_&_$¿O _ ¿O"_"¿°¼OgIOMhh Oh™‚™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT‚×™‚ª5™‚«0™c‚ƘŒADJOINb™‚°™‚™g˜–&gg ¿ggo ˜ŒDEFMACRO UNDOABLY-PUSHNEW™˜“€ ™ ™‚¹™‚º™&™‚™&˜“˜ŒOBJ˜ŒPLACE™‚»˜ŒKEYS™‚½˜ŒENVœ˜’Œexpand-UNDOABLY-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˜ŒGENSYMA™‚+9™‚+™‚« ™c‚a˜ŒCDDR‚Y™‚³‚C™‚,‚9™‚‚4˜•Œ/RPLACD‚-˜ŒCOND‚™‚‚˜ŒEQ‚™‚‚˜ŒATOM‚û™‚.‚뙂0‚Ñ™‚,‚ǘŒDOQ™‚°‚r˜“˜“˜ŒRETURN‚Q˜“˜“™‚2‚˜“˜“˜ŒERROR˜Œ!Odd-length property list in REMF.‚õ˜“€˜–&gg ¿ggo ˜ŒDEFMACRO UNDOABLY-REMF™˜“€ ™ ™‚¹™‚º™'™‚&™'˜“˜ŒPLACE˜Œ INDICATOR™‚½˜ŒENVœ˜’Œexpand-UNDOABLY-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™‚D™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENTI™‚«D™c9™‚ª/˜ŒREVERSE)™‚I‚Á˜ŒPROGN#™‚°‚Ș“€4˜“€˜–&gg ¿ggo ˜ŒDEFMACRO UNDOABLY-ROTATEF™˜“€ ™ ™‚¹™‚º™(™‚D™(˜“™‚»˜ŒARGS™‚½˜ŒENVœ˜’Œexpand-UNDOABLY-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º±ÿ^™‚T™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT`™‚«[™cP™‚ªH™‚IB™‚I'™‚+™‚7<™‚°˜Œ#SHIFTF needs at least two arguments˜–&gg ¿ggo ˜ŒDEFMACRO UNDOABLY-SHIFTF™˜“€ ™ ™‚¹™‚º™)™‚T™)˜“™‚»˜ŒARGS™‚½˜ŒENV˜–Gggg ¿gggÁÉg'¸gH‘H†gH ˜Œ'DEFDEFINER DEFINE-UNDOABLE-MODIFY-MACRO™˜“€A™™ :™*0™*)˜Œ DEFINED-BY ™™‚c™ ™™‚¯™*œ˜’Œ0definition-expander-DEFINE-UNDOABLE-MODIFY-MACRO™˜–‚9@X¹HZ»J\½L^’N€h_¿h_¿h_¿K_¿h_¿O¡°DO_gð_³-Ogð˜O_¿°#Od3@ð˜OO_¿ˆOO_¿O_¿°»O _¿gIgKo OgoogoogogoggoO²%ggMhgOOh °ggMhgOhhhohhh™‚e ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT‚󙂪‚™‚ªt™‚I‚ ˜’ŒGETTER™‚™;‚ý˜ŒLIST‚虂j‚ß™;‚Ú˜ŒLIST*‚Ì™‚k‚Ç™‚k‚½™‚ª‚³™‚k‚¤˜ŒMULTIPLE-VALUE-BIND‚•™‚m‚‚˜’Œ%$$MODIFY-MACRO-FORM˜‘˜ŒSYSTEM|˜ŒDEFMACROA™‚»5™‚“ ‚ ˜“˜’ŒSETTER™‚ј“™‚˜’ŒNEWVALS™‚˜“˜ŒMAPCAR˜“™‚Þ™‚k˜’ŒDUMMIES™˜’ŒVALS™‚¸˜“™;™‚°‚®˜“˜ŒGET-SETF-METHOD™‚p˜’Œ%$$MODIFY-MACRO-ENVIRONMENT™‚o‚©˜“™‚x™‚y™‚t™‚r™‚j‚Ÿ˜“™c™‚p™‚}‚š˜“™‚x™‚y˜’ŒNEWVAL™™‚r™‚j‚ˆ˜“™‚½™‚}˜–Cggg ¿ggg ¿oPgg c˜•ŒPRETTYPRINTMACROS™‚a™˜“€;™‚%™™6˜ŒEQUAL1˜ŒTEST ˜ŒSECOND˜ŒDEFINITION-NAME™* ™‚e˜ŒDEFINITION-EXPANDER™*+˜”™*’ŒPPRINT-DEFINER™œ˜’Œ#expand-DEFINE-UNDOABLE-MODIFY-MACRO™˜–ggg@Ah™‚Ž™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™*™˜’ŒDEFINER™˜–&gg ¿ggo ™‚a™˜“€ ™ ™‚¹™‚º™*™‚Ž™*˜“˜Œ&WHOLE˜Œ DEFINITION™‚½˜ŒENVœ˜’Œexpand-UNDOABLY-DECF™˜–‚Î@X¹HZ’J€k»A¼IA ¿IL ]¾M__¿O__¿O__¿O_¿gN_¿O_¿h_ ¿h_"¿h_$¿O‘h€i_&’O&…O‘h€i“O °1OOh_$¿O ˜O"O$&_"¿ˆO$h_"_ ¿O_¿O_¿°¼OgOKhhh Oh™‚›™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT‚™‚ª%™‚« ™‚|™‚«™c‚±˜Œ-N™‚°˜–&gg ¿ggo ˜Œ*DEFINE-UNDOABLE-MODIFY-MACRO UNDOABLY-DECF™˜“€ ™ ™‚¹™‚º™+™‚›™+˜“˜ŒSI::%$$MODIFY-MACRO-FORM™‚“˜ŒDELTA™‚½˜ŒSI::%$$MODIFY-MACRO-ENVIRONMENTœ˜’Œexpand-UNDOABLY-INCF™˜–‚Î@X¹HZ’J€k»A¼IA ¿IL ]¾M__¿O__¿O__¿O_¿gN_¿O_¿h_ ¿h_"¿h_$¿O‘h€i_&’O&…O‘h€i“O °1OOh_$¿O ˜O"O$&_"¿ˆO$h_"_ ¿O_¿O_¿°¼OgOKhhh Oh™‚©™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT‚™‚ª%™‚« ™‚|™‚«™c‚±˜Œ+N™‚°˜–&gg ¿ggo ˜Œ*DEFINE-UNDOABLE-MODIFY-MACRO UNDOABLY-INCF™˜“€ ™ ™‚¹™‚º™,™‚©™,˜“˜ŒSI::%$$MODIFY-MACRO-FORM™‚“˜ŒDELTA™‚½˜ŒSI::%$$MODIFY-MACRO-ENVIRONMENTœ™-—˜–‚=@‘i€h¢±3@Xgð²7@¹hºI‘IhZiloh-¿Jhloh-¿Jhloh-¿I¹°ÒHgð²7@ºh¹J‘JhYiloh-¿Ihloh-¿Ihloh-¿Jº°ÒHgð²7@¹hºI‘IhZiloh-¿Jhloh-¿Jhloh-¿I¹°ÒHgð²@ºh¹J‘JhYiloh-¿Jº°êHgð²@¹hºI‘IhZiloh-¿I¹°êHgð²@ºh¹J‘JhYhloh-¿Jº°êhh™-™˜“˜“˜Œ PROCLAMATION‚˜ŒINLINE‚ NOTINLINE‚ȘŒ DECLARATION‚Š˜’ŒCONSTANT™‚oL˜’ŒGLOBAL™™‚™‚¿‚,˜–%no@@ h ¿@A ˜Œ UNDOSTORE™‚£˜“˜“˜ŒA0259˜ŒA0258˜’ŒSET-GLOBALLY-NOTINLINE-P™˜•ŒUNDOSAVE˜’ŒGLOBALLY-NOTINLINE-P™™‚µ™‚È™‚È™‚¿‚˜–%no@@ h ¿@A ˜Œ UNDOSTORE™‚£˜“˜“˜ŒA0252˜ŒA0251™‚Å™‚Æ™‚Ç™‚µ™‚Ι‚Ι‚¿‚à˜–%no@@ h ¿@A ˜Œ UNDOSTORE™‚£˜“˜“˜ŒA0245˜ŒA0244˜’ŒSET-DECL-SPECIFIER-P™™‚Ƙ’ŒDECL-SPECIFIER-P™™‚µ™‚Ö™‚Ö™‚¿‚º˜–/no@@ÁÉg'h ¿@gA ˜Œ UNDOSTORE™‚£˜“˜“˜ŒA0238˜ŒA0237)™™‚Æ#™‚Ò™‚Ò™‚µ™‚Ü™‚Ü™‚¿‚®˜–/no@@ÁÉg'h ¿@gA ˜Œ UNDOSTORE™‚£˜“˜“˜ŒA0231˜ŒA0230)™™‚Æ#™‚Ñ™‚Ñ™‚µ™‚♂♂¿‚¢˜–%no@@ h ¿@A ˜Œ UNDOSTORE™‚£˜“˜“˜ŒA0224˜ŒA0223˜’Œ SET-CONSTANTP™™‚ƘŒ CONSTANTP™‚µ™‚ꙂꙂ¿|˜–%no@@ h ¿@A ˜Œ UNDOSTORE™‚£˜“˜“˜ŒA0217˜ŒA0216™‚虂ƙ‚陂µ™‚ð™‚𙂿p˜–/no@@ÁÉg'h ¿@gA ˜Œ UNDOSTORE™‚£˜“˜“˜ŒA0210˜ŒA0209)™™‚Æ#™‚Ò™‚Ò™‚µ™‚ö™‚ö™‚¿d˜–/no@@ÁÉg'h ¿@gA ˜Œ UNDOSTORE™‚£˜“˜“˜ŒA0203˜ŒA0202)™™‚Æ#™‚Ñ™‚Ñ™‚µ™‚ü™‚ü™‚¿>˜–%no@@ h ¿@A ˜Œ UNDOSTORE™‚£˜“˜“˜ŒA0196˜ŒA0195™‚虂ƙ‚陂µ™‚™‚™‚¿2˜–/no@@ÁÉg'h ¿@gA ˜Œ UNDOSTORE™‚£˜“˜“˜ŒA0189˜ŒA0188)™™‚Æ#™‚Ñ™‚Ñ™‚µ™‚™‚™‚¿&˜–/no@@ÁÉg'h ¿@gA ˜Œ UNDOSTORE™‚£˜“˜“˜ŒA0182˜ŒA0181)™™‚Æ#™‚Ò™‚Ò™‚µ™‚™‚œ™/˜– g@h™/™˜“˜“˜ŒFORM™‚“˜ŒENV™œ˜’Œexpand-STOP-UNDOABLY™˜– @X ™‚™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT™‚Ÿ˜–&gg ¿ggo ˜ŒDEFMACRO STOP-UNDOABLY™˜“€ ™ ™‚¹™‚º™0™‚™0˜“™‚»˜ŒFORMSœ™2—˜–‚¡@i ¿A‘i€h²>AXgðœA¹@I ¿°MHgð²A¹@Iloh-¿°3@Ai ¿°(Ad3@ð•A‘i‚h€hž@A i ¿ˆ@Ai ¿A²A‘i€h‘h€iX‘HAgð‘h‚i€h›@g ¿A™2™˜“˜“˜ŒSYMBOL˜Œ DEFINITION‚™™‚Äm™‚Åc™‚Å]˜•ŒGETDE™‚Å ™3˜•ŒVIRGINFN‚”™‚É‚†˜ŒMACRO)˜Œ SPECIAL-FORM™‚%™‚'8˜–/no@@ÁÉg'h ¿@gA ˜Œ UNDOSTORE™‚£˜“˜“˜ŒA0271˜ŒA0270)™™‚Æ#™‚È™‚È™‚µ™‚-™‚-œ™3—˜–1@Aloh-¸@ ²@ YkðZ‘JƒIlð§@h ¿H™3™˜“˜“˜ŒX˜ŒBODY)™‚Ř•ŒARGTYPE˜•Œ \DEFINEDP™‚4˜–/no@@ÁÉg'h ¿@gA ˜Œ UNDOSTORE™‚£˜“˜“˜ŒA0277˜ŒA0276)™™‚Æ#™‚É™‚É™‚µ™‚:™‚:˜–,gg ¿gg ¿o ˜Œ3 top-level forms™˜“€&˜•ŒADDTOVAR™: ™:™3™3™=™2!˜“™F˜”™G™-˜”™I™$˜”™K™#˜”™M™%˜”™O™&˜”™Q™'˜”™S™(˜”™U™)˜”™W™+˜”™Y™,˜”™[™d˜”™]™ ˜”™_™œ™c˜–‚œh¸@d3@ð²$hhXhgg@hHh@$@‘i€h¢±b@A Xœ@AlHA @ÁÉg'X—@H @ÁÉg'Y’I°@ÁÉg'Z‘J‹@ÁÉg'Xž@H ±@ÁÉg'X@H °d@ÁÉg'Y‘I‹@ÁÉg'Xœ@AlH °9@A YºI[—J@ð‘h‚i€h—JA o@ YºI[¼K]¾M__¿O_¿JLNgggJN ggoJOh hOhhgJN hhO$@ ™c ™˜“˜“˜ŒFORM™‚“˜Œ ENVIRONMENT‚–˜Œ SETF-ERROR‚‚™‚ª‚h™‚ª‚O™‚ª‚™‚«‚™‚7‚™c‚«‚Ꙃ©‚ᙂ«‚¶™‚«‚±˜ŒGET-SHARED-SETF-METHOD‚™™‚«‚”˜ŒGET-SIMPLE-SETF-METHOD]™‚SG™c9˜•ŒLOCAL-MACRO-FUNCTION ™‚+‚{˜’Œ UNDOSTORE™‚Y™‚k‚T™‚Æ‚H™‚U‚C˜ŒLABELS‚>˜•Œ COMMON-LISP‚Ó˜•ŒSETF-METHOD-EXPANDER‚ØŒSETF-METHOD-EXPANDER‚§˜ŒSHARED-SETF-INVERSE‚Š˜•ŒSETFNz˜•Œ SETF-INVERSEi˜Œ SETF-INVERSES™v™;™l‚^˜“™‚Þ™‚U‚˜Œ.~S is not a known location specifier for SETF.œ™d˜–‚ÒnX@¿B²4BÉb¿B¡°%HÉBð²Bb`ðBA¿ABb¿°ÛHÉ/YÒVð–IAοAHÉ ²"AHÉ :³ooHÉA ¿Iɺh»U²5noHgU  [‘h€i\‘LŠKW €h²gHÉJh ¿IA¿A˜•Œ LISPXHIST˜•Œ\STACKHI˜•Œ UNDOSIDE0™d™˜“˜“˜ŒSYMBOL˜ŒVALUE™‚“˜Œ ENVIRONMENT‚Å™‚Æ‚¯˜ŒTAILP‚˜•Œ %SOME-SINGLE‚–˜•ŒMEMBs˜ŒCERROR]˜•Œ GETTOPVALR™‚邸˜•Œ /SETTOPVAL‚˜•ŒSIDE)˜•Œ*SPECIAL-BINDING-MARK*˜•Œ ENVIRONMENT‚†˜–@‘i€h²@gð—@HÉðhh˜Œlambda in UNDOABLY-SET-SYMBOL™‚£˜“˜“˜ŒX ™‚nj˜Œ Attempt to set constant ~S to ~Se˜ŒGo ahead and set it‚‚™‚µ˜•Œ \PTRHUNK2œ™g˜–@@ ˜’ŒVARVALUE™™g™˜“˜“™‚{˜Œ INTERLISP ™d˜•Œ\EVPROG1œ˜’Œinterpret-UNDOABLY™˜–"@¸A¹HžHºH¸JI ¿ˆHI °å™‚™˜“˜“˜Œ$$TAIL˜Œ$$ENV™"™"˜–ggg ˜ŒDEFINE-SPECIAL-FORM UNDOABLY™˜“€™ ™‚™‚È™œ˜’Œinterpret-UNDOABLY-SETQ™˜–+@¸A¹hºH²H»H¸KH»H¸KI I º€°àJ™‚Š™˜“˜“˜Œ$$TAIL˜Œ$$ENV™d™‚ꘖggg ˜Œ!DEFINE-SPECIAL-FORM UNDOABLY-SETQ™˜“€™ ™‚Š™‚È™g˜–Hgg ¿o ¿o ¿o ¿o ¿o ˜Œ6 top-level forms™˜“€B˜•ŒPUTPROPS7™‚•,™‚•!™‚•™‚• ™:™l™d=˜“™˜•Œ COPYRIGHT˜“˜ŒVenue & Xerox Corporation‚‚ÂÄ‚Æ‚æ2˜“™x™v™3'˜“™w™v™2˜“™™s˜“™ ˜ŒXCL™ ˜ŒXCL˜“™™r˜Œ COMPILE-FILEš‚£ÿÿ