‘XCL Compiler output for source file {DSK}export>lispcore>sources>CLTL2>CMLUNDO.;1 Source file created Friday, 22 October 1993, 15:13:03. FASL file created Wednesday, 3 November 1993, 16:20:09. ÿ˜–#ogg o ˜•ŒFILECREATEDLOC˜Œ*STANDARD-INPUT*˜Œ1 top-level form˜ŒFUNCTION˜“€˜•ŒDEFINE-FILE-INFO˜ŒOPEN ˜ŒOUTPUT˜Œ DIRECTION˜“˜Œ READTABLE˜ŒXCL˜ŒPACKAGE˜ŒXCL˜Œ{Null}˜–o ¿o˜Œ2 top-level forms™˜“€˜•Œ FILECREATED˜•Œ CMLUNDOCOMS ˜“ ˜“˜•Œ 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™˜’Œ!UNDOABLY-SET-SETF-METHOD-EXPANDER™˜“˜•ŒDECLARE:˜•Œ DONTEVAL@LOAD˜•ŒDONTEVAL@COMPILE˜•ŒDOCOPY˜“˜•ŒP˜“˜•ŒMOVD˜“˜ŒQUOTE™/˜“™9˜•ŒUNDOABLY-SETF-SYMBOL-FUNCTION˜“™8˜“™9™0˜“™9™0˜“˜•Œ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™˜’ŒUNDOABLY-SET-FDEFINITION™˜“˜•ŒFNS˜’Œ UNDOABLY-SETQ™˜“˜•Œ SPECIAL-FORMS™™g˜“™3™4™5™6˜“™7˜“™8˜“™9™c˜“™9˜•ŒUNDOABLY-SET-SYMBOL˜“˜•ŒPROP˜“˜•ŒFILETYPE˜•ŒMAKEFILE-ENVIRONMENT˜•ŒCMLUNDO˜“™q˜ŒUNDOABLE-SETF-INVERSE˜ŒSYMBOL-FUNCTION˜ŒMACRO-FUNCTION˜Œ FDEFINITION˜“™3™4˜•ŒDOEVAL@COMPILE˜•ŒDONTCOPY˜•Œ COMPILERVARS˜“™C˜“˜•ŒNLAMA™g˜“˜•ŒNLAML˜“˜•ŒLAMA˜“˜Œ18-Oct-93 15:22:19˜Œ1{Pele:mv:envos}Sources>CLTL2>CMLUNDO.;2‚P˜•Œprevious˜•Œdate:˜Œ12-Feb-92 05:57:01˜Œ1{Pele:mv:envos}Sources>CLTL2>CMLUNDO.;1˜–o ¿g X‘Hhc™˜ŒDEFVAR *IN-DEFINER*™˜“€˜ŒBOUNDP™E ™˜“˜Œ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@ð²LK ²gKK h±«oK ¿ggKhK h±€K \½L^_¿N__¿O__¿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_¿°­gO_¿h_¿h_¿h_¿O£O°*O _¿O˜OO&_¿ˆOh__¿O_¿°ÓKOhh±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$@@@™™D™˜Œlambda in expand-UNDOABLY˜ŒCLOSURE˜“˜“˜ŒX˜ŒCONTEXT‚…˜’ŒWALK-FORM-INTERNAL™‚€˜Œ MACROEXPAND-1‚=™‚¥‚)™‚¥‚ ˜ŒAPPEND‚ü™‚®‚Ë™‚®‚T™‚®‚™‚®‚ž˜•Œ\MVLIST‚™™b‚‹™‚®s˜ŒWARN`™‚®O˜’ŒVARIABLE-LEXICAL-P™ ‚j˜•Œ DEFINER-FOR‚Z˜Œ DEFINER-FOR‚4™-‚Š˜ŒLET*‚4˜ŒMULTIPLE-VALUE-BIND‚Å™‚¶~™9y™cV˜ŒSETQ/˜ŒSETF$™‚¸™‚¸l˜Œ/Variable ~S presumed special in UNDOABLY.. SETQ˜•ŒCOMPILED-CLOSURE˜–&gg ¿ggo ˜ŒDEFMACRO UNDOABLY™˜“€ ˜•ŒPUTPROP ˜•Œ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__¿O²vgN_¿O_¿h_¿h_ ¿h_"¿O‘h€i_$’O$…O‘h€i“O°1OOh_"¿O˜O O"&_ ¿ˆO"h_ _¿O_¿O_¿°¼gOKOhhgN_¿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‚3™‚°/™‚±*™b‚Ê™‚¶‚¶™‚·V™‚¶™9™c˜–;gg ¿ggo ¿ggo ˜ŒDEFMACRO UNDOABLY-SETF™˜“€5™‚À ˜•ŒSET-DOCUMENTATION ™‚Á+™‚Â&™˜ŒFUNCTION™™‚Ý™0˜“˜ŒPLACE˜Œ NEW-VALUE™‚ŘŒENV˜ŒUNDOable version of SETFœ™—˜–‚¦nXA¿@¢±Œ@Zgð[’K°Jgð\‘L†Jgð²#@Hý¿HɨjoH-joH-¿°èJgðš@HÉ @U[²K@ggHÉ @ggHÉ @HÉ ˜Œ *APPLYHOOK*™D™™˜“˜“˜ŒFORM˜ŒENV‚ ˜ŒEVAL‚–˜ŒEVALHOOK‚‚™‚óc˜•Œ \EVAL-PROGN‚Ž™‚‰™z™u™W™--™‚¹"™‚¸™‚¸˜•Œ \PTRHUNK2™‚öL˜–‚¶HÉd3@ð²1HɹHÉHý¿IHɹHÉHý¿IHÉ HÉ HɹHÉHý¿IHÉ YºI[¼K]¾M__¿N¢±¢gJ_¿L_¿h_¿h_¿h_¿O‘h€i_’O…O‘h€i“O°CO_¿O_¿OgOhh_¿O˜OO&_¿ˆOh__¿O_¿O_¿°ªgNgHÉ_¿HÉHý¿OhOhh± gJ_¿L_¿h_¿h_¿h_¿O‘h€i_’O…O‘h€i“O°CO_¿O_¿OgOhh_¿O˜OO&_¿ˆOh__¿O_¿O_¿°ªNgHÉ_¿HÉHý¿Ohhh OhHÉ ˜ŒSET-IT-UNDOABLY™‚©˜“€‚°™‚ò‚¢™‚°Q™‚±L™b4™c,™‚ƒ™‚N™‚™‚¶‚虂♂·‚¯™q™‚¶™‚öC™‚ùœ˜’Œ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™b ‚瘌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™‚±,™b‚½˜Œ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™b‚ƘŒ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™‚2™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT‚™‚°I˜ŒGENSYMA™‚79™‚7™‚± ™b‚a˜ŒCDDR‚Y™‚¸‚C™‚8‚9™‚ ‚4˜•Œ/RPLACD‚-˜ŒCOND‚™‚ ‚˜ŒEQ‚™‚ ‚˜ŒATOM‚û™‚:‚뙂<‚Ñ™‚8‚ǘŒDOQ™‚¶‚r˜“˜“˜ŒRETURN‚Q˜“˜“™‚>‚˜“˜“˜ŒERROR˜Œ!Odd-length property list in REMF.‚õ˜“€˜–&gg ¿ggo ˜ŒDEFMACRO UNDOABLY-REMF™˜“€ ™‚À ™‚Á™‚™$™‚2™$˜“˜ŒPLACE˜Œ INDICATOR™‚ŘŒENVœ˜’Œexpand-UNDOABLY-ROTATEF™˜–'@X²!HœHAg gHoh™‚P™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT˜ŒROTATEF-INTERNAL˜ŒPROGN ™b˜“€˜–&gg ¿ggo ˜ŒDEFMACRO UNDOABLY-ROTATEF™˜“€ ™‚À ™‚Á™‚™%™‚P™%˜“™‚ØŒARGS™‚ŘŒENVœ˜’Œexpand-UNDOABLY-SHIFTF™˜–+@X‘h€iY‘I…H‘h€išo HHg ™‚_™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT%˜ŒSHIFTF-INTERNAL™‚C ™b˜Œ#SHIFTF needs at least two arguments˜–&gg ¿ggo ˜ŒDEFMACRO UNDOABLY-SHIFTF™˜“€ ™‚À ™‚Á™‚™&™‚_™&˜“™‚ØŒARGS™‚ŘŒENV˜–*ggg ¿h¸gh‘Hgh˜Œ'DEFDEFINER DEFINE-UNDOABLE-MODIFY-MACRO™˜“€™‚À"™'™' ™™‚µ™'œ˜’Œ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™‚p ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT‚ó™‚°‚™‚°t˜ŒREVERSE‚ ˜’ŒGETTER™‚™9‚ý˜ŒLIST‚虂v‚ß™9‚Ú˜ŒLIST*‚Ì™‚w‚Ç™‚w‚½™‚°‚³™‚w‚¤™‚·‚•™‚·‚‚˜’Œ%$$MODIFY-MACRO-FORM˜‘˜ŒSYSTEM|˜ŒDEFMACROA™‚Ã5™‚™ ‚ ˜“˜’ŒSETTER™‚ј“™‚ ˜’ŒNEWVALS™‚˜“˜ŒMAPCAR˜“™‚時w˜’ŒDUMMIES™˜’ŒVALS™‚¸˜“™9™‚¶‚®˜“˜ŒGET-SETF-METHOD™‚{˜’Œ%$$MODIFY-MACRO-ENVIRONMENT™‚z‚©˜“™‚ƒ™‚„™‚™‚}™‚v‚Ÿ˜“™b™‚{™‚ˆ‚š˜“™‚ƒ™‚„˜’ŒNEWVAL™™‚}™‚v‚ˆ˜“™‚Å™‚ˆ˜–Cggg ¿ggg ¿oPgg c˜•ŒPRETTYPRINTMACROS™‚m™˜“€;™‚(%™‚À™‚À6˜ŒEQUAL1˜ŒTEST ˜ŒSECOND˜ŒDEFINITION-NAME™' ™‚p˜ŒDEFINITION-EXPANDER™'+˜”™'’ŒPPRINT-DEFINER™œ˜’Œ#expand-DEFINE-UNDOABLE-MODIFY-MACRO™˜–ggg@Ah™‚™™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™'™˜’ŒDEFINER™˜–&gg ¿ggo ™‚m™˜“€ ™‚À ™‚Á™‚™'™‚™™'˜“˜Œ&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‚™‚°%™‚± ™‚‡™‚±™b‚±˜Œ-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‚™‚°%™‚± ™‚‡™‚±™b‚±˜Œ+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™‚zL˜’ŒGLOBAL™™‚“™‚Ê‚,˜–%no@@ h ¿@A ˜Œ UNDOSTORE™‚©˜“˜“˜ŒA4232˜ŒA4231˜’ŒSET-GLOBALLY-NOTINLINE-P™˜•ŒUNDOSAVE˜’ŒGLOBALLY-NOTINLINE-P™™‚¼™‚Ó™‚Ó™‚Ê‚˜–%no@@ h ¿@A ˜Œ UNDOSTORE™‚©˜“˜“˜ŒA4225˜ŒA4224™‚Й‚Ñ™‚Ò™‚¼™‚Ù™‚Ù™‚Ê‚à˜–%no@@ h ¿@A ˜Œ UNDOSTORE™‚©˜“˜“˜ŒA4218˜ŒA4217˜’ŒSET-DECL-SPECIFIER-P™™‚ј’ŒDECL-SPECIFIER-P™™‚¼™‚ᙂᙂÊ‚º˜–/no@@ÁÉg'h ¿@gA ˜Œ UNDOSTORE™‚©˜“˜“˜ŒA4211˜ŒA4210)™‚À™‚Ñ#™‚Ú™‚Ú™‚¼™‚療療Ê‚®˜–/no@@ÁÉg'h ¿@gA ˜Œ UNDOSTORE™‚©˜“˜“˜ŒA4204˜ŒA4203)™‚À™‚Ñ#™‚Ù™‚Ù™‚¼™‚홂홂Ê‚¢˜–%no@@ h ¿@A ˜Œ UNDOSTORE™‚©˜“˜“˜ŒA4197˜ŒA4196˜’Œ SET-CONSTANTP™™‚јŒ CONSTANTP™‚¼™‚õ™‚õ™‚Ê|˜–%no@@ h ¿@A ˜Œ UNDOSTORE™‚©˜“˜“˜ŒA4190˜ŒA4189™‚ó™‚Ñ™‚ô™‚¼™‚û™‚û™‚Êp˜–/no@@ÁÉg'h ¿@gA ˜Œ UNDOSTORE™‚©˜“˜“˜ŒA4183˜ŒA4182)™‚À™‚Ñ#™‚Ú™‚Ú™‚¼™‚™‚™‚Êd˜–/no@@ÁÉg'h ¿@gA ˜Œ UNDOSTORE™‚©˜“˜“˜ŒA4176˜ŒA4175)™‚À™‚Ñ#™‚Ù™‚Ù™‚¼™‚™‚™‚Ê>˜–%no@@ h ¿@A ˜Œ UNDOSTORE™‚©˜“˜“˜ŒA4169˜ŒA4168™‚ó™‚Ñ™‚ô™‚¼™‚ ™‚ ™‚Ê2˜–/no@@ÁÉg'h ¿@gA ˜Œ UNDOSTORE™‚©˜“˜“˜ŒA4162˜ŒA4161)™‚À™‚Ñ#™‚Ù™‚Ù™‚¼™‚™‚™‚Ê&˜–/no@@ÁÉg'h ¿@gA ˜Œ UNDOSTORE™‚©˜“˜“˜ŒA4155˜ŒA4154)™‚À™‚Ñ#™‚Ú™‚Ú™‚¼™‚™‚œ™,˜– g@h™,™˜“˜“˜ŒFORM™‚™˜ŒENV™œ˜’Œexpand-STOP-UNDOABLY™˜– @X ™‚™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT™‚¥˜–&gg ¿ggo ˜ŒDEFMACRO STOP-UNDOABLY™˜“€ ™‚À ™‚Á™‚™-™‚™-˜“™‚ØŒFORMSœ™/—˜–‚¡@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™/™˜“˜“˜ŒSYMBOL˜Œ DEFINITION‚™™‚Ìm™‚Íc™‚Í]˜•ŒGETDE™‚Í ™0˜•ŒVIRGINFN‚”™‚Ñ‚†˜ŒMACRO)˜Œ SPECIAL-FORM™‚0™‚28˜–/no@@ÁÉg'h ¿@gA ˜Œ UNDOSTORE™‚©˜“˜“˜ŒA4244˜ŒA4243)™‚À™‚Ñ#™‚Й‚Й‚¼™‚8™‚8œ™0—˜–1@Aloh-¸@ ²@ YkðZ‘JƒIlð§@h ¿H™0™˜“˜“˜ŒX˜ŒBODY)™‚͘•ŒARGTYPE˜•Œ \DEFINEDP™‚?˜–/no@@ÁÉg'h ¿@gA ˜Œ UNDOSTORE™‚©˜“˜“˜ŒA4250˜ŒA4249)™‚À™‚Ñ#™‚Ñ™‚Ñ™‚¼™‚E™‚Eœ™1—˜–1@g ¿@g ¿@g ¿@Aloh-™1™˜“˜“˜ŒNAME˜ŒEXPANDER™‚Ì™‚Ì™‚̘ŒSHARED-SETF-INVERSE˜Œ SETF-INVERSE˜•Œ SETF-INVERSE™‚M)˜–/no@@ÁÉg'h ¿@gA ˜Œ UNDOSTORE™‚©˜“˜“˜ŒA4256˜ŒA4255)™‚À™‚Ñ#˜ŒSETF-METHOD-EXPANDER™‚S™‚¼™‚T™‚T˜–,gg ¿gg ¿o ˜Œ3 top-level forms™˜“€&˜•ŒADDTOVAR™8 ™8™0™0™;™/!˜“™D˜”™E™*˜”™G™!˜”™I™ ˜”™K™"˜”™M™#˜”˜“™O™$˜”™R™%˜”™T™&˜”™V™(˜”™X™)˜”™Z™c˜”™\™˜”™^™œ™b˜–‚õh¸@d3@ð²$hhXhgg@hHh@$@‘i€h¢±»@A Xœ@AlHA @ÁÉg'X—@H @ÁÉg'Y’I°@ÁÉg'Z‘J‹@ÁÉg'X@H °{@ÁÉg'X@H °_@ÁÉg'Y‘I‹@ÁÉg'Xœ@AlH °4@A YºI[—J@ð‘h‚i€h—JA @A YºI[¼K]¾M__¿O_¿JLNN²]gggJN ggoJgOhh hOhhgJN hh°SgggJN ggoJOh hOhhgJN hhO$@ ™b ™˜“˜“˜ŒFORM™‚™˜Œ ENVIRONMENT‚ SETF-ERROR‚Û™‚°‚Á™‚°‚¨™‚°‚ˆ™‚°‚n™‚°‚M™‚°‚™‚±‚˜ŒDEFUN-SETF-METHOD‚™b‚±‚陂¯‚à™‚±‚µ™‚±‚°˜ŒGET-SHARED-SETF-METHOD‚™™‚±‚”˜ŒGET-SIMPLE-SETF-METHOD]™‚oG™b9˜•ŒLOCAL-MACRO-FUNCTION ™‚7‚Ô˜’Œ UNDOSTORE™‚²™‚w‚­™‚Ñ‚¡™‚q‚œ˜ŒLABELS‚—˜•Œ COMMON-LISP‚™‚q‚b˜ŒMULTIPLE-VALUE-LIST‚W™‚x‚R™‚Ñ‚F™‚q‚A™‚r‚<™‚s‚Ò˜•ŒSETF-METHOD-EXPANDER‚™‚S‚¦™‚J‚Š˜•ŒSETFNz™‚Li™‚KS™w™9™l‚·˜“™‚時q‚\˜“™‚時qœ™c˜–‚ÑnX@¿B²4BÉb¿B¡°%HÉBð²Bb`ðBA¿ABb¿°ÛHÉ/YÒkð–IAοAHÉ ²"AHÉ :³ooHÉA ¿Iɺh»U²4noHgU  [‘h€i\‘L‰KV €h²gHÉJh ¿IA¿A˜•Œ LISPXHIST˜•Œ UNDOSIDE0™c™˜“˜“˜Œ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 ™‚†j˜Œ Attempt to set constant ~S to ~Se˜ŒGo ahead and set it‚‚™‚¼™‚õœ™d—˜–S@‘i€h² @gð²@‘i€h—@d3@ð„h‚h€h²!@X ¹HIloh-¿IA ¿‡@A ¿A™d™˜“˜“˜Œ FUNCTION-NAME˜ŒNEWVALUEK™/B™/.˜’ŒDEFUN-SETF-NAME™ ™‚¹™‚—8˜–/no@@ÁÉg'h ¿@gA ˜Œ UNDOSTORE™‚©˜“˜“˜ŒA4273˜ŒA4272)™‚À™‚Ñ#˜Œ SETF-DEFUN™‚™‚¼™‚ž™‚žœ™g˜–@@ ˜’ŒVARVALUE™™g™˜“˜“™‚Ÿ˜Œ INTERLISP ™c˜•Œ\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™c™‚ò˜–ggg ˜Œ!DEFINE-SPECIAL-FORM UNDOABLY-SETQ™˜“€™‚À ™‚®™‚Йg˜–Sgg ¿o ¿o ¿o ¿o ¿o ¿o ˜Œ7 top-level forms™˜“€M˜•ŒPUTPROPSB™‚¹7™‚¹,™‚¹!™‚¹™‚¹ ™8™l™cH˜“™u˜•Œ COPYRIGHT˜“˜ŒVenue & Xerox Corporation‚‚ÂÄ‚Æ‚Ç‚È‚É=˜“™z™w™d2˜“™y™w™0'˜“™x™w™/˜“™u™s˜“™ ˜ŒXCL™ ˜ŒXCL˜“™u™r˜Œ COMPILE-FILEš‚Èÿÿ