‘XCL Compiler output for source file {DSK}export>lispcore>sources>CLTL2>BREAK-AND-TRACE.;1 Source file created Friday, 22 October 1993, 15:00:31. FASL file created Friday, 29 October 1993, 8:17:58. ÿ˜–#ogg o ˜•ŒFILECREATEDLOC˜Œ*STANDARD-INPUT*˜Œ1 top-level form˜ŒFUNCTION˜“€˜•ŒDEFINE-FILE-INFO˜ŒOPEN ˜ŒOUTPUT˜Œ DIRECTION˜“˜Œ READTABLE˜ŒXCL˜ŒPACKAGE˜ŒSYSTEM˜Œ{Null}˜–o ¿o˜Œ2 top-level forms™˜“€˜•Œ FILECREATED˜•ŒBREAK-AND-TRACECOMS ˜“˜“˜•Œ*˜•Œ;;;˜ŒSupport for tracing.˜“˜•Œ VARIABLES˜’Œ *TRACE-DEPTH*˜‘˜ŒXEROX-COMMON-LISP˜’Œ *TRACED-FNS*™˜•Œ TRACEREGION˜“˜•Œ FUNCTIONS˜’ŒCREATE-TRACE-WINDOW™˜“™˜’ŒCREATE-TRACED-DEFINITION˜‘˜ŒSYSTEM˜’ŒCONSTRUCT-ENTRY-PRINTING-CODE™#˜’ŒPRINT-TRACE-ENTRY-INFO™#˜’ŒPRINT-TRACE-EXIT-INFO™#˜’ŒPRINT-TRACED-ARGUMENT™#˜’ŒPRINT-TRACED-CL-ARGLIST™#˜“™˜’Œ *TRACE-LEVEL*™˜’Œ*TRACE-LENGTH*™˜’Œ*TRACE-VERBOSE*™˜Œ*TRACE-OUTPUT*˜“˜•ŒFNS˜ŒTRACE˜ŒUNTRACE˜“™˜’ŒTRACE-FUNCTION™˜“™™˜ŒSupport for breaking.˜“™˜’ŒBREAK-FUNCTION™˜’ŒUNBREAK-FUNCTION™˜’ŒREBREAK-FUNCTION™˜’ŒCREATE-BROKEN-DEFINITION™#˜’ŒUNBREAK-FROM-RESTORE-CALLS™#˜’ŒFINISH-UNBREAKING™#˜“™˜•Œ BROKENFNS˜’Œ*BREAK-HASH-TABLE*™˜’Œ*UNBROKEN-FNS*™˜“˜•ŒPROP˜•ŒPROPTYPE˜•ŒBROKEN˜“™˜•Œ;;˜Œ(The old Interlisp interface to breaking.˜“™0˜•ŒBREAK˜•ŒBREAK0˜•ŒREBREAK˜’ŒUNBREAK™˜•ŒUNBREAK0˜“™0˜•ŒBREAK1˜“˜•Œ SPECIAL-FORMS™P˜“˜’Œ OPTIMIZERS™™P˜“™™G˜Œ+Arrange for the proper compiler and package˜“™C˜“˜•ŒFILETYPE˜•ŒMAKEFILE-ENVIRONMENT˜•ŒBREAK-AND-TRACE˜“˜•ŒDECLARE:˜•Œ DONTEVAL@LOAD˜•ŒDOEVAL@COMPILE˜•ŒDONTCOPY˜•Œ COMPILERVARS˜“˜•ŒADDVARS˜“˜•ŒNLAMA˜“˜•ŒNLAML™P˜“˜•ŒLAMA˜“˜Œ13-Oct-93 18:35:41˜Œ9{Pele:mv:envos}Sources>CLTL2>BREAK-AND-TRACE.;2‚¾˜•Œprevious˜•Œdate:˜Œ 4-Feb-92 10:31:42˜Œ9{Pele:mv:envos}Sources>CLTL2>BREAK-AND-TRACE.;1˜–o ¿g X‘Hjc™˜ŒDEFVAR XCL:*TRACE-DEPTH*™˜“€˜ŒBOUNDP˜ŒPROCLAIM ™˜“˜ŒSPECIAL™˜–o ¿g X‘Hhc™˜ŒDEFVAR XCL::*TRACED-FNS*™˜“€™v™w ™˜“™x™˜–,o ¿g X‘Hlln#n6hc™˜ŒDEFVAR IL:TRACEREGION™˜“€™v™w ™˜“™x™œ™ ˜–^gµU¸a¸gµh¹a¹gµ oºaºHJhI‘h€i [ ¼gK ¿LgK ¿L™™ ‚ÿÿÿÿ™˜“˜“˜Œ&KEY˜ŒREGION˜ŒOPEN?˜ŒTITLEV˜•Œ STREAMPROPI˜•Œ DSPSCROLL=˜•Œ GETSTREAM7˜•ŒCREATEWP˜•ŒWINDOWC˜•ŒON™‚†™‚…™‚„&˜Œ*Trace-Output*œ™$˜–‚@B X¹HZ»J¼IIgð•o€KK²)Io²ggKd3@ð“Kh€Khh‚h€hgggA›@gAh€@hhhgogoo@AIK ggggoLhhhhgoogg@hgAhohohh ™$™˜“˜“˜Œ TRACED-FN˜ŒIN-FN˜Œ FN-TO-CALL‚ ˜ŒAPPEND‚˜™%˜•Œ\MVLIST˜’ŒFUNCTION-WRAPPER-INFO™#‚㘌QUOTE‚Ú™‚™‚Õ™'‚ƘŒLET‚¯™‚š‚ª˜ŒMULTIPLE-VALUE-LIST‚¥˜’Œ$TRACED-FN-VALUES$™#‚ ™‚š‚…™‚š{˜ŒLET*f˜ŒIN^˜ŒTRACEDY™‚™T˜•Œ\CALLME:™x5˜ŒDECLARE˜ŒLAMBDA ‚ù˜“˜“˜Œ VALUES-LIST™‚œ‚옓™‚œ‚И“™‚¡˜“™x˜•Œ FONTCHANGEFLG‚˘“˜“˜Œ*STANDARD-OUTPUT*˜’Œ$THE-REAL-TRACE-OUTPUT$™#˜“™‚§˜’Œ$IMAGE-STREAM?$™#‚´˜“˜“™˜“˜Œ1+™‚˜“™‚¡˜“™x™‚§‚Š˜“˜“™‚ª™‚«˜“™‚§™‚­‚€˜“˜“™‚«˜“˜’ŒFOLLOW-SYNONYM-STREAMS™˜“˜•Œ \GETSTREAM™.˜“™‚­˜“˜•Œ IMAGESTREAMP™‚«-˜“˜•ŒLAMBDA˜•ŒNLAMBDA"˜“˜Œ&REST˜’ŒARGLIST™œ™%˜–‚égg@hgAhhgoBgðX‘H†Bgð¢±/C‘h€iX‘H…C‘i€h²MgoC¸h¹hºh»H¢I°/H\¼ggLhLo»I”JK&º„KhZ¹H¸°Ðh±NBgð²tgogggkggoCggChhggggCoohh±ÓgoggChgggCoggChCohhh°}Bgð²sC X¹HZ»J\½L^_¿N__¿O_¿gggIhgKhgMhgOhOOoh€hh™% ™˜“˜“˜Œ TRACED-FN˜ŒIN-FN˜Œ LAMBDA-CAR˜ŒARG-LIST‚w™‚—‚r˜’ŒPARSE-CL-ARGLIST™#%‚Ä™‚™‚»™‚™‚²™‚™‚©™‚™‚¤™‚Æ‚Ÿ™)‚i™‚¢‚I™‚™‚D™(‚5˜•ŒIN‚0˜’Œ $ARGUMENT$™#‚+˜•ŒFOR‚"˜ŒLISTP‚˜ŒIF‚™‚š‚ŒARG‚阒Œ $ARG-COUNTER$™#‚ä™(‚ߘ•ŒDO‚Й,‚˘ŒMIN‚À™‚Ô‚»˜•ŒTO‚µ˜•ŒFROM‚°™‚Ö‚«™‚Ò‚¡˜•ŒBIND‚™™‚Âm™‚™h™(M™‚š2™‚Ã'™‚™‚š™‚™™‚™™& ‚Ò˜“˜“˜Œ+˜“˜Œ*™™-‚S˜“˜’Œ $$INDENT$$™#‚;˜“˜•ŒAS™‚Ö™‚Ú˜•ŒWHILE˜“˜ŒOR˜“˜ŒNULL™,˜“˜Œ<=™‚Ö™,™‚ט“™(™‚Ö™‚Ñ™‚႘“˜“™‚ᘓ™‚Ü ˜“™‚Ý™‚û˜“™‚á‚ô˜“™‚ւŘ“™‚æ™,‚¦˜“™‚ᘕŒ_˜“™‚Ü ˜“™‚Ý™w˜“™‚áR˜“˜“™‚ᘓ™‚Ü ˜“™‚Ý™!˜“˜“˜Œ *PRINT-LEVEL*™+˜“˜Œ*PRINT-LENGTH*™,œ™&˜–‚’@ÁÉg'X‘H€@b¿AÁÉg'X‘H€Ab¿QlÖ ¿QkÔ ¿o ¿R ¿@ ¿S ¿A‘i€h²"o ¿R ¿A ¿S ¿o ¿™˜•ŒBOLDFONT˜•Œ DEFAULTFONT™&™˜“˜“˜Œ TRACED-FN˜ŒIN-FN ‚Œ˜ŒTERPRI‚†˜ŒPRINC{˜•Œ CHANGEFONTt˜ŒPRIN1m™‚ f™‚ T™‚ M™‚ F™‚ ?™‚ 4™‚ +˜•ŒSPACES˜’Œ TRUE-NAME™#™‚‚˜Œ:a˜Œ in :˜Œ - Enter œ™'˜–‚»@ÁÉg'X‘H€@b¿AÁÉg'X‘H€Ab¿RlÖ ¿RkÔ ¿o ¿S ¿@ ¿T ¿A‘i€h²"o ¿S ¿A ¿T ¿o ¿¿B¸H¡hHY¹l RlÖÔ ¿I ¿¿H¸°Û™™‚™‚™'™˜“˜“˜Œ TRACED-FN˜ŒIN-FN˜Œ FN-VALUES‚°™‚ ‚ª™‚ ‚£™‚ ‚Œ™‚ ‚†™‚ {™‚ t™‚ m™‚ f™‚ T™‚ M™‚ F™‚ ?™‚ 4™‚ +™‚ ™‚™‚‚˜Œ =>a˜Œ in :˜Œ - Exit œ™(˜–@B ¿@šo ¿C—@ ¿†@ ¿o ¿A ¿™(™˜“˜“˜ŒNAME˜ŒVALUE˜ŒINDENT˜Œ &OPTIONAL˜ŒPRIN1-THE-NAME?:™‚ 4™‚ -™‚ "™‚ ™‚ ™‚ ™‚ (˜Œ = ˜ŒArg œ™)˜–‚RGlÔ¸A²UA¹I¡°OIZº@²J@»@b¿KH ¿°0H ¿J ¿V ¿o ¿W ¿¿I¹°±B²gG²G ¿g ¿¿B¹I¡°DIZº@²J@»@b¿KH ¿°%G²!H ¿J ¿o ¿¿I¹°¼C²(G²G ¿g ¿¿C@H ¿D²SG²G ¿g ¿¿D¹hºI[‘K°*ºh»@»K¡°JKðœJKHi ¿…K»°åI¹°ÒE¢±Áhºj@ kåð²v@¹h»h¼I]‘M°&¼FšL ‘hˆi†LD‘h€i–L‘L€i»…I¹°ÖKZ²|G ¿V ¿o ¿W ¿¿H ¿J ¿¿°>G ¿V ¿o ¿W ¿¿H ¿@ ¿¿C‘hˆE‘h„@‘i€h²>G ¿V ¿o ¿W ¿¿H ¿@ ¿h™‚™‚™) ™˜“˜“ ˜ŒARGS˜ŒREQUIRED˜ŒOPTIONAL˜ŒREST˜ŒKEY˜Œ KEY-APPEARED?˜ŒALLOW-OTHER-KEYS˜Œ SMALL-INDENT˜ŒVERBOSE?1‚J™‚ ‚D™‚ ‚=™‚ ‚6™‚ ‚0™‚ ‚(™‚ ‚™‚ ‚™‚ ‚ÿ™‚ ‚ù™‚ ‚ò™‚ ‚뙂 ‚噂 ‚Ý™‚ ‚Ò™‚ ‚Ë™‚ ‚Á™‚ ‚»™‚ ‚´™‚ ‚­™‚ ‚§™‚ ‚Ÿ™‚ ‚”™‚ ‚™‚ ‚h˜ŒKEYWORDP‚K˜ŒLENGTH‚0™(‚™‚ ‚™‚ ‚÷™‚ ‚è™(‚ß™‚ ‚Ù™‚ ‚Ι‚ ‚º™‚ ‚´™‚ ‚©™‚ ‚¢™‚ ‚•™(w™‚ q™‚ f™‚ R™‚ L™‚ D™‚ 9™‚ 2™‚ +™‚ "™(‚ý™‚ƒ‚Ô™‚Ål™‚‚#˜Œ** Extra arguments: **‚ؘŒ$** Odd-length &KEY argument list: **‚š˜Œ** Illegal &KEY argument: **‚¯˜Œ not supplied?˜Œ ** NOT SUPPLIED **˜–o ¿g X‘Hhc™+˜ŒDEFVAR XCL:*TRACE-LEVEL*™˜“€™v™w ™+˜“™x™+˜–o ¿g X‘Hhc™,˜ŒDEFVAR XCL:*TRACE-LENGTH*™˜“€™v™w ™,˜“™x™,˜–o ¿g X‘Hic™-˜ŒDEFVAR XCL:*TRACE-VERBOSE*™˜“€™v™w ™-˜“™x™-˜–"o ¿g X‘Hc™.˜ŒDEFVAR *TRACE-OUTPUT*™˜“€™ ™v™w ™.˜“™x™.œ™1˜–a@ b²V@H¡IH\M‘i€h²MgM …M »J”JK¿K¹K‘i€h–K ºH¸°»V˜ŒFN˜’Œ%$$MAP-ELEMENT™#˜’Œ%$$MAP-RESULT-TAIL™#˜’Œ %$$MAP-RESULT™#˜’Œ%$$MAP-FIRST-SUBLIST™#˜ŒFNS™™1™˜“˜“™‚N˜Œ INTERLISPT˜ŒLAST<™45™4˜•Œ NLAMBDA.ARGS,™‚žœ™2—˜– ‚Ë@ b²p@o̲W›Wkoh-h@H¡IH\M‘i€h²MgM …M »J”JK¿K¹K‘i€h–K ºH¸°»W  N¢ON\ Okoh-_¿O–OO¿„O_¿O‘i€h™O _¿N¾°Ã ˜ŒENTRY ™‚J™‚K™‚L™‚M™‚I™‚J™‚K™‚L™‚M™‚N ™™2 ™˜“˜“™‚N™‚P‚¾™‚R{˜ŒREVERSEn™‚RV™9O™9™‚SF™‚ž ˜“™‚Z‚š˜–@‘i€hŸ@g@ @ ˜Œ UNTRACE-ENTRY˜ŒCLOSURE˜“˜“˜ŒENTRY™9™9 ™‚ž™‚Z™‚`œ™4˜–‚€ejó§kh ¿gµh¸a¸gµh¹a¹@ Z»J¼@‘i€h•K‘h‚i€h²J@½h¾h_¿h_¿M¡NM__gH _¿O–OO¿‚O¾O‘i€h™O _¿M½°ÆH‘i€hšH ‘h‚i€h²MH½h¾h_¿h_¿M¡NM__¿@gO _¿O–OO¿‚O¾O‘i€h™O _¿M½°ÃK ¢±s@o ŸWo@ ¿h@gHgi ¿I³4H›@gHh€@W@gHgigih ¿H¢±—Lœo@H H ½KM ¾MK ¬o@H ¿NKMK ¿KNMg ¿@HNh_Wc¿OWc¿@gHhWgg c¿@gHhhg hoK ]K i ¿KhKhM i ¿KgM ¿@Wc¿@Wc¿@Wgg c¿@hgg@ ¿h ˜Œ *PRINT-CASE* ™? ™ ™A˜Œ*ERROR-OUTPUT*™@™4 ‚ÿÿÿÿ™˜“˜“˜Œ FN-TO-TRACE™‚ƒ™‚ž˜ŒREBREAK? ‚x˜ŒERROR‚a˜ŒDELETE‚@˜•ŒPUTPROP‚3˜•ŒPUTD‚-˜ŒCOMPILE‚(™$‚™‚j‚˜•ŒGETD‚˜Œ MAKE-SYMBOL‚ ˜ŒFORMAT‚噂h‚±˜’Œ CHANGE-CALLS™#‚£™‚k‚ž™$‚”™‚g‚‡˜’Œ HAS-CALLS™#‚˜’ŒCONSTRUCT-MIDDLE-MAN™#‚w˜’ŒNAME-OF-EXECUTABLE™‚p™‚g‚\˜ŒPUTHASH‚'™9‚™‚n‚˜•ŒUNSAFE.TO.MODIFY‚ô˜•Œ \DEFINEDP‚時R‚Ç™4‚›™‚r‚†™‚Rg™4/™‚—*™‚r˜’ŒARGUMENT-ERROR™#‚r˜ŒNAME‚m˜’ŒUNDEFINED-FUNCTION™‚\˜ŒEQUAL‚W˜ŒTEST‚:™E‚û˜ŒUPCASE‚ž‚à™‚y‚Û™‚z‚Ï™‚ž‚¬™<‚N™‚d‚H˜ŒTRACE?‚B™‚ž‚3™‚ž‚ ˜ŒNO-ERROR‚™‚ž‚À™‚ža™‚ž™‚d ™‚ž‚˜Œ Original ~A‚˜Œ~S is not called from ~S.‚i˜Œ%~S can't be selectively traced :IN ~S‚ ˜Œ~S not traced.~%‚þ˜Œtraceœ™8˜–‚On¸ejó§kh ¿gµh¹a¹gµiºaºgµh»a»gµh¼a¼@ ]¾M_¿K²@gIgL @‘i€h•N‘h‚i€h²c@_¿h_¿h_¿h_¿O¢OO__gIgJgL _¿O–OO¿„O_¿O‘i€h™O _¿O_¿°±I‘i€hšI ‘h‚i€h²fI_¿h_¿h_¿h_¿O¢OO__¿@gOgJgL _¿O–OO¿„O_¿O‘i€h™O _¿O_¿°®@o ŸW o@ ¿hL³4I›@gIh€@W"@gIgJgih ¿Jgð²'gghHý¿noHhhº@gIgi ¿I¢±ÏOœo@I I _¿NO _¿ON ³"@ ›o ¿Œo@I ¿@gIgi ¿ONONJNgOh  ¿NOOg ¿@IOhWc¿@gIhWgg c¿@gIhhN _’Ogg@ _¿g ho@ _Oi ¿NhNNOJN  i ¿NgO ¿@Wc¿@Wgg c¿@h ™‚a™?™A™‚b™@™8‚ÿÿÿÿ™˜“˜“˜Œ FN-TO-BREAK™‚ƒ™‚ž˜ŒWHEN™‚|™‚d#‚C™‚h‚)™‚i‚™‚j‚™‚k‚™;‚™‚j‚ö™‚m‚ñ™‚n‚Ú™‚g‚Ä™‚l‚­™‚h‚‚™‚o‚r™‚k‚m™;‚S˜’ŒUNADVISE-FUNCTION™‚?™‚g‚1™‚g‚&˜ŒMACRO-FUNCTION‚™‚p‚™‚q‚™‚r‚™‚g‚ì™9‚ª™‚s‚s™‚n‚e™‚t‚O™‚R‚.™8‚r‚Ö™‚R‚µ™8o™4P™‚—K™‚r ™‚v#‚>™‚y‚9™‚z‚"™E‚♂{‚Ô™‚w‚Ï™‚x‚¶™‚ž‚¨™‚y‚£™‚z‚—™‚ž‚}™<‚a™‚ž‚L™‚}‚F™‚ž‚噂}‚ß™‚ž‚¾™‚™‚¹˜ŒFUNCALL‚±˜ŒONCE‚œ™‚d‚–™‚…‚™‚ž‚™‚ž‚'™‚d‚!™‚…‚™‚ž‚®™‚d‚¨™‚…‚¢™‚žh™‚db™‚ž<™‚d.™‚| ™‚…™‚ž‚똌 Original ~A‚8˜Œ~S is not called from ~S.‚,˜Œ)Macros can't be selectively traced: sorry‚ú˜Œ%~S can't be selectively broken :IN ~S‚͘–HÉ‘hidHý¿˜Œlambda in BREAK-FUNCTION™‚\˜“€‚m˜Œ~S not broken.‚`˜Œbreak‚ɘ•ŒCOMPILED-CLOSURE˜•Œ \PTRHUNK2œ™9˜–‚n¸ejó§kh ¿H@¿gµ hHý¿…aHý¿gµh¹a¹HÉ Z»J¼HÉ‘i€h•K‘h‚i€h²NHɽh¾h_¿h_¿M¡NM__gHÉ _¿O–OO¿‚O¾O‘i€h™O _¿M½°ÄHÉ‘i€hœHÉ ‘h‚i€h²QHɽh¾h_¿h_¿M¡NM__¿HÉgO _¿O–OO¿‚O¾O‘i€h™O _¿M½°ÁHɲ~L²oHÉHÉ HÉ ½noHW ¾N_¿N²)OKM ¿KMON ¿HÉgHÉhhI³WoHÉHÉ ¿hKÁÉg']²YKM i ¿Kg ¿HÉWgg c¿HÉWgg c¿HÉWc¿HÉhI¯WoHÉ ¿h ™? ™‚b ™ ™A™9 ‚ÿÿÿÿ™˜“˜“˜Œ BROKEN-FN™‚ƒ™‚ž™‚}‚™‚n‚䙂h‚Í™‚h‚¸˜ŒREMPROP‚¬™‚j‚¦™‚l‚Ž™‚n‚f™=‚[™‚o‚G˜ŒFIND-IF‚1™‚r‚(™‚g‚™‚R‚é™9‚¹™‚r‚ ™‚R‚™9C™‚—>™‚r ™‚v ‚ß™‚y‚Ú™‚z‚È™‚y‚Ù‚z‚³™E‚›™E‚o™‚ž‚♂žy™‚ž-™‚}™‚ž‚ÿ˜Œ~S is not broken.~%‚ƒ˜Œ~S :IN ~S is not broken.~%‚;˜–@‘i€h²@HÉÌ—@HÉÌhh˜Œlambda in UNBREAK-FUNCTION™‚\˜“˜“˜ŒENTRY‚˜Œ'~s can't be selectively unbroken :IN ~s‚7™‚•™‚–œ™:˜–‚Ðejó§kh ¿gµh¸a¸@‘i€h²:@¹hºh»h¼I¡JI]]gH ¼K”KL¿LºL‘i€h–L »I¹°ÒH‘i€h²;H¹hºh»h¼I¡JI]½@gM ¼K”KL¿LºL‘i€h–L »I¹°ÑH›@gHh€@YV Z›gJ WoI ¿h™@™‚b™:‚ÿÿÿÿ™˜“˜“˜Œ FN-TO-REBREAK™‚ƒ™‚ž‚È™‚n‚º˜ŒAPPLY‚­˜•ŒGETHASH‚‘™‚Rz™:P™‚R9™:™‚v‚´™8‚Ÿ™‚žt™‚ž3™‚ž ™‚ž‚˜Œ~S has never been broken.~%œ™;˜–‚@B X¹HZ»J¼IIgð•o€KK²)Io²ggKd3@ð“Kh€Khh‚h€hgggDhhhgCgoggggogogghLhhhhghggggggD hhohLhh ™;™˜“˜“˜ŒWRAPPED-FN-NAME˜ŒBROKEN-FN-NAME˜Œ FN-TO-CALL˜Œ WHEN-EXPR˜ŒBREAKPOINT-NAME‚™‚–‚à˜’ŒMAKE-CONDITION™™‚—™‚˜‚Ú™‚Õ˜’Œ BREAKPOINT™#‚Й‚™‚˘Œ CONDITION‚Ƙ’Œ$POS$™#‚Á˜ŒSTACK-POSITION‚»˜Œ ENVIRONMENT‚¥™‚¢‚ ˜ŒFUNCTION‚–˜ŒLIST‚Œ™‚»‚‡˜ŒFORM‚‚˜’ŒDEBUGGER™}˜ŒUNWIND-PROTECTs™‚šm™‚Ô^˜ŒBROKENY™‚™T™‚ :™x5™‚¡™‚¢‚ò˜“˜“˜•ŒRELSTK™‚·‚›˜“™‚™™‚™‚‘˜“™‚™™‚Šx˜“˜“™‚·˜“˜•ŒSTKNTH‚ÿÿÿÿ-˜“™‚™‚Ã"˜“™‚Å™‚Æœ™<˜–WnX@B¿noHR ¹AIðŒo ¿°íHÉHÉAI ¿SoHÉHÉ ™?˜Œ *TERMINAL-IO*™<™˜“˜“˜ŒFROM˜ŒTO˜ŒFNQ™‚n?™=/˜•Œ ASSERT-FAIL™‚œF˜Œ(~S :IN ~S) unbroken.~%*˜Œ4BUG: Inconsistency in SI::UNBREAK-FROM-RESTORE-CALLS˜–@‘i€h²@HÉð—@HÉðhh˜Œ$lambda in UNBREAK-FROM-RESTORE-CALLS™‚\˜“˜“˜ŒENTRY ™‚•™‚–œ™=˜–%CP c¿CQ c¿@gAhRc™?™™A™=™˜“˜“˜Œ BROKEN-FN˜ŒIN-FN˜Œ MIDDLE-MAN˜ŒENTRY ™‚h™‚h™‚ž˜–o ¿g X‘Hhc™?˜ŒDEFVAR IL:BROKENFNS™˜“€™v™w ™?˜“™x™?˜–,o ¿g X‘Hgg c™@˜ŒDEFVAR XCL::*BREAK-HASH-TABLE*™˜“€$˜ŒMAKE-HASH-TABLE™v™w™‚y™‚z ™@˜“™x™@˜–o ¿g X‘Hhc™A˜ŒDEFVAR XCL::*UNBROKEN-FNS*™˜“€™v™w ™A˜“™x™A˜– o ˜Œ1 top-level form™˜“€˜•ŒPUTPROPS˜“™E™D˜ŒIGNOREœ™J˜–e@ H¡IH\Md3@ð\‘LŒMo —Mi ŠgM »J”JK¿K¹K‘i€h–K ºH¸°°˜•ŒX™‚J™‚K™‚L™‚M™‚õ™J™˜“˜“™‚õ™‚PZ™‚RB˜•ŒAPPLY6™K.˜•Œ STRING.EQUAL™‚S<™K)˜ŒINœ™K˜– ‚±B²ooB ¿C›Cgð‘h‚i€h²ooC ¿A£ib¿@²e@o ²@g@gA @H¡IH\MA »J”JK¿K¹K‘i€h–K ºH¸°Ó@gA ™‚õ™‚J™‚K™‚L™‚M˜•ŒBRKFN˜•ŒCOMS˜•ŒWHEN˜•ŒFN™K™˜“˜“™‚™‚ÿ™‚þ™‚ý™‚ü™‚P‚«™8‚™™‚R‚™Kb™8I™‚ù1˜ŒCERROR™‚‚¥™‚…[™‚…R™‚ž™PD˜ŒIN+˜Œ%Unexpected BRKFN passed to BREAK0: ~S&˜Œ Ignore BRKFN ˜Œ(Break 'commands' ~S no longer supported.˜Œ Ignore COMSœ™L—˜– ‚´@ b²^@oô²W‘i€h›Wkoh-h@H¡IH\Mkoh-»J”JK¿K¹K‘i€h–K ºH¸°ÑW N¢ON\ Okoh-_¿O–OO¿„O_¿O‘i€h™O _¿N¾°Ã ™‚ÿ ™‚J™‚K™‚L™‚M™‚ÿ™‚J™‚K™‚L™‚M™0 ™A™L ™˜“˜“™0™‚P‚§™‚R\™‚R™‚S ˜“™‚ ‚ƒ˜–@²@g@ @ ˜Œ REBREAK-FN™‚\˜“˜“˜ŒFN™:™:™‚ž™‚ B™‚™‚ ™‚œ™M—˜– ‚Ë@ b²p@o̲W›Wkoh-h@H¡IH\M‘i€h²MgM …M »J”JK¿K¹K‘i€h–K ºH¸°»W  N¢ON\ Okoh-_¿O–OO¿„O_¿O‘i€h™O _¿N¾°Ã ˜’ŒENTRY™ ™‚J™‚K™‚L™‚M˜’ŒFN™™‚J™‚K™‚L™‚M˜’ŒFNS™ ™?™M ™˜“˜“™‚™‚P‚¾™‚R{™‚Xn™‚RV™9O™9™‚SF™‚ž ˜“™‚‚š˜–@‘i€hŸ@g@ @ ˜Œ UNBREAK-ENTRY™‚\˜“˜“˜ŒENTRY™9™9 ™‚ž™‚™‚œ™N˜–@²@g@ @ ™‚ÿ™N™˜“˜“™‚™‚ÿ™‚P™9™9™‚žœ™P˜–LA ²>C²oi ¿Ci ¿i ¿jB nokoh-@ ˜•ŒPOS˜’Œ CONDITION™˜•ŒBRKTYPE˜•ŒBRKCOMS™‚ü˜•ŒBRKWHEN˜•ŒBRKEXP™P™˜“˜“™‚™‚&™‚%™‚ü™‚$™‚#™‚"™‚PF˜ŒEVAL)™‚Å!˜•ŒTERPRI˜•ŒPRIN1™‚+™‚)=˜–AgQghgRgP‘PggS  j@¿ ™‚"™‚&™‚!™‚ü˜’Œ*UNWIND-PROTECT*™#™‚\˜“˜“˜ŒG102;™‚£2™‚—-™‚½'™‚´!™™‚µ™‚¶ ™‚¸™‚¹™‚¼5˜–P ™‚!˜ŒClean-up forms™‚\˜“€™‚À ˜ŒBRKCOMS no longer supported:1™‚•œ˜•Œinterpret-BREAK1˜–‚ nX¿@’@€hHý¿@Y’I€hºI[’K€hHý¿K\’L€h½L^_“O€hHý¿AHý¿JA ²EM²oi ¿Mi ¿i ¿jHÉ Hý¿noHkoH-HÉHÉ ™‚6™˜“˜“˜Œ$$TAIL˜Œ$$ENV‚š™‚)s™‚Åi™‚*b™‚+Z™‚+J™‚)‚Œ˜–NgHÉgHÉgHÉgHÉ”HÉ°ggHÉ  j@¿ ™‚,™‚\˜“˜“˜ŒG103H™‚£?™‚—:™‚½4™‚´,™'™‚µ™‚¶™‚¸ ™‚¹™‚¼‚˜– HÉ ™‚1™‚\˜“€™‚ÀT˜ŒBRKCOMS no longer supported:}™‚•˜•Œ \PTRHUNK5˜–ggg ˜Œ!XCL:DEFINE-SPECIAL-FORM IL:BREAK1™˜“€™‚i ™‚6˜•Œ SPECIAL-FORM™Pœ˜•Œoptimize-BREAK1˜–‚ @X’H€h¹HZ’J€h»J\’L€h½L^’N€h_¿N_”O€h_¿O²oi ¿Oi ¿i ¿gghIhhgKggggjgMhhhhgggoghgggO“O°'ggoggMhhhhohoh™‚H ™˜“˜“˜Œ$$WHOLE˜Œ$$ENV˜Œ$$CTXP™‚*I™‚+@™‚+‚Ù™‚™‚Ô™‚Ê™‚´‚Ř•ŒLOADTIMECONSTANT‚¹™‚¶‚´™‚·‚¯™‚¸‚©™‚¹‚Ÿ™‚¼‚š™‚½‚•™‚¾‚ƒ™‚™}™‚Åx™‚·s™‚šn˜•ŒTHENh˜•ŒIF[˜’Œ$BRKEXP$™#V˜ŒFLET‚ÿ˜“˜•ŒELSE˜“™‚Q‚ô˜“˜“™‚À™‚·‚Ϙ“™‚™™‚µ‚¤˜“™‚»˜“™‚™™‚Š˜“™‚»˜“™‚™™‚™˜“™‚º™‚Q:˜ŒBRKCOMS no longer supported:˜–2gggÁÉg'¸gH‘H†gH ˜ŒXCL:DEFOPTIMIZER IL:BREAK1™˜“€,™‚i%™‚H™‚H˜’ŒOPTIMIZER-LIST˜‘˜ŒCOMPILER ™P™‚d™P˜–-o ¿o ¿o¿o ˜Œ4 top-level forms™˜“€'™‚ñ™‚ñ™‚ñ™"˜“™[˜•Œ COPYRIGHT˜“˜ŒVenue & Xerox Corporation‚ÂĂƂǂȂɘ“˜“™™˜ŒSupport for tracing.˜“™™™™˜“™™ ˜“™™$™%™&™'™(™)˜“™™+™,™-™.˜“™0™1™2˜“™™4˜“™™˜ŒSupport for breaking.˜“™™8™9™:™;™<™=˜“™™?™@™A˜“™C™D™E˜“™™G˜Œ(The old Interlisp interface to breaking.˜“™0™J™K™L™M™N˜“™0™P˜“™R™P˜“™T™P˜“™™G˜Œ+Arrange for the proper compiler and package˜“™C˜“™X™Y™[˜“™]™^™_™`™a˜“™b˜“™c™M™L™J™2™1˜“™e™P˜“™g ˜“™[™Y˜“™ ˜ŒXCL™ ˜ŒSYSTEM˜“™[™X˜Œ COMPILE-FILEš‚ÿÿ