‘XCL Compiler output for source file {DSK}larry>il>medley>lispusers>WHO-LINE.;5 Source file created 12-Apr-2023 22:10:58 FASL file created Wednesday, 12 April 2023, 22:10:58 ÿ˜–#ogg o ˜•ŒFILECREATEDLOC˜Œ*STANDARD-INPUT*˜Œ1 top-level form˜ŒFUNCTION˜“€˜•ŒDEFINE-FILE-INFO˜ŒOPEN ˜ŒOUTPUT˜Œ DIRECTION˜“˜ŒPACKAGE˜Œ INTERLISP˜Œ READTABLE˜Œ INTERLISP˜ŒBASE ˜Œ{Null}˜–!ggo ¿o˜Œ2 top-level forms™˜“€˜•ŒPUTPROP˜•Œ WHO-LINECOMS˜•Œ FILEDATES˜•ŒWHO-LINE˜“Q˜“˜•Œ*˜•Œ;;;˜ŒbDefine a WHO-LINE window that displays the current state of a number of user specified attributes.˜“™˜•Œ;;˜Œ˜“™™˜Œ'Public fn for manipulating the who-line˜“˜•ŒFNS˜•ŒINSTALL-WHO-LINE-OPTIONS˜“™™˜ŒF----------------------------------------------------------------------˜“™™˜ŒVSome fns that compute useful values for the who-line, and act as nice button event fns˜“™™˜Œ˜“™™˜Œ-Showing / changing the current logged in user˜“™ ˜•ŒWHO-LINE-USERNAME˜•ŒWHO-LINE-CHANGE-USER˜•ŒWHO-LINE-USER-AFTER-LOGIN˜“˜•Œ VARIABLES˜•Œ*WHO-LINE-CURRENT-USER*˜•Œ*WHO-LINE-USER-ENTRY*˜“˜•ŒDECLARE:˜•Œ DONTEVAL@LOAD˜•ŒDONTEVAL@COMPILE˜“˜•ŒADDVARS˜“˜•Œ\SYSTEMCACHEVARS™0˜“˜•Œ\AFTERLOGINFNS™-˜“™™˜Œ˜“™™˜Œ Showing the current machine name˜“™ ˜•ŒWHO-LINE-HOST-NAME˜“™/˜•Œ*WHO-LINE-HOST-NAME*˜•Œ*WHO-LINE-HOST-NAME-ENTRY*˜“™3™4™5˜“™6˜“™7™C˜“™™˜Œ˜“™™˜Œ2Showing / changing the current tty process package˜“™ ˜•ŒCURRENT-TTY-PACKAGE˜•ŒSET-PACKAGE-INTERACTIVELY˜•ŒSET-TTY-PACKAGE-INTERACTIVELY˜“™/˜•Œ*WHO-LINE-PACKAGE-NAME-CACHE*˜•Œ*WHO-LINE-PACKAGE-ENTRY*˜“™™˜Œ˜“™™˜Œ4Showing / changing the current tty process readtable˜“™ ˜•ŒCURRENT-TTY-READTABLE-NAME˜•ŒSET-READTABLE-INTERACTIVELY˜•ŒSET-TTY-READTABLE-INTERACTIVELY˜“™/˜•Œ*WHO-LINE-READTABLE-ENTRY*˜“™™˜Œ˜“™™˜Œ*Showing / changing the current tty process˜“™ ˜•ŒWHO-LINE-TTY-PROCESS˜•Œ CHANGE-TTY-PROCESS-INTERACTIVELY˜“™/˜•Œ*WHO-LINE-TTY-PROC-ENTRY*˜“™™˜Œ˜“™™˜Œ4Showing / changing the currently connected directory˜“™ ˜•ŒWHO-LINE-CURRENT-DIRECTORY˜•Œ%SET-CONNECTED-DIRECTORY-INTERACTIVELY˜“™/˜•Œ*WHO-LINE-DIRECTORIES*˜•Œ*WHO-LINE-LAST-DIRECTORY*˜•Œ*WHO-LINE-DIRECTORY-ENTRY*˜“™™˜Œ˜“™™˜Œ/Showing / changing the current VMem utilization˜“™ ˜•Œ WHO-LINE-VMEM˜•ŒWHO-LINE-SAVE-VMEM˜“™/˜•Œ*WHO-LINE-LAST-VMEM*˜•Œ*WHO-LINE-VMEM-ENTRY*˜“™3˜•Œ EVAL@COMPILE˜•ŒDONTCOPY™4˜“˜•ŒFILES˜“˜•ŒLOADCOMP˜•ŒLLFAULT˜•ŒMODARITH˜“˜•ŒP˜“˜•Œ CHECKIMPORTS˜“˜ŒQUOTE˜“˜•ŒLLPARAMS˜“™™˜Œ˜“™™˜Œ2Showing the percent of symbol-space currently used˜“˜•Œ FUNCTIONS˜•ŒWHO-LINE-SYMBOL-SPACE˜“™/˜•Œ*WHO-LINE-SYMBOL-SPACE*˜•Œ*WHO-LINE-SYMBOL-SPACE-ENTRY*˜“™™˜Œ˜“™™˜ŒShowing the current time˜“™ ˜•Œ WHO-LINE-TIME˜•ŒWHO-LINE-SET-TIME˜“™/˜•Œ*WHO-LINE-TIMER*˜•Œ*WHO-LINE-OLD-TIME*˜•Œ*WHO-LINE-TIME-ENTRY*˜“™3™4™5˜“˜•Œ APPENDVARS˜“˜•Œ\SYSTEMTIMERVARS˜“™‚ž˜•ŒSECONDS˜“™™˜ŒF----------------------------------------------------------------------˜“™™˜Œ7Some as yet un-debugged entries. Try at your own risk.˜“™™˜Œ˜“™™˜Œ Showing the machine-active entry˜“™ ˜•ŒWHO-LINE-SHOW-ACTIVE˜•Œ\UPDATE-WHO-LINE-ACTIVE-FLAG˜•Œ"\PERIODICALLY-WHO-LINE-SHOW-ACTIVE˜“™/˜•Œ*WHO-LINE-ACTIVE-PERIOD*˜•Œ*WHO-LINE-ACTIVE-TIMER*˜•Œ*WHO-LINE-SHOW-ACTIVE-ENTRY*˜“™3™4™5˜“™‚¢˜“™‚£˜“™‚¶˜•Œ MILLISECONDS˜“™™˜Œ˜“™™˜Œ-Showing / changing the current reader profile˜“™ ˜•ŒCURRENT-PROFILE˜•ŒSET-PROFILE-INTERACTIVELY˜•ŒSET-TTY-PROFILE-INTERACTIVELY˜“™/˜•Œ*WHO-LINE-PROFILE-ENTRY*˜“™™˜Œ˜“™™˜Œ,Showing the state of the current TTY process˜“™ ˜•ŒWHO-LINE-TTY-STATE˜•ŒWHO-LINE-WHAT-IS-RUNNING˜“™/˜•Œ*WHO-LINE-STATE*˜•Œ"*WHO-LINE-STATE-UNINTERESTING-FNS*˜•Œ*WHO-LINE-TTY-STATE-ENTRY*˜“˜•ŒPROP˜•ŒWHO-LINE-STATE˜•Œ AWAIT.EVENT˜•ŒBLOCK˜•Œ EXCHANGEPUPS˜•ŒGETPUP˜•ŒSENDPUP˜•Œ WAIT.FOR.TTY˜•Œ\TTYBACKGROUND˜•Œ\WAITFORSYSBUFP˜•Œ\\getkey˜•Œ \SENDLEAF˜•Œ PUTSEQUIN˜•Œ\LEAF.READPAGES˜“™™˜ŒF----------------------------------------------------------------------˜“™™˜Œ Default options for the who-line˜“ ™/˜•Œ*WHO-LINE-ENTRIES*˜•Œ*WHO-LINE-ENTRY-REGISTRY*˜•Œ*WHO-LINE-ANCHOR*˜•Œ*WHO-LINE-NAME-FONT*˜•Œ*WHO-LINE-VALUE-FONT*˜•Œ*WHO-LINE-DISPLAY-NAMES?*˜•Œ*WHO-LINE-COLOR*˜•Œ*WHO-LINE-TITLE*˜•Œ*WHO-LINE-BORDER*˜•Œ*WHO-LINE-UPDATE-INTERVAL*˜“™™˜ŒF----------------------------------------------------------------------˜“™™˜Œ Internal fns˜“™ ˜•ŒREDISPLAY-WHO-LINE˜•ŒPERIODICALLY-UPDATE-WHO-LINE˜•ŒSETUP-WHOLINE-TIMER˜•ŒUPDATE-WHO-LINE˜•ŒWHEN-WHO-LINE-SELECTED-FN˜•ŒWHO-LINE-CONTROL-SELECT˜•ŒWHO-LINE-COPY-INSERT˜“™ ˜•ŒWHO-LINE-REDISPLAY-INTERRUPT˜“™/˜•Œ *WHO-LINE*˜•Œ*WHO-LINE-UPDATE-TIMER*˜“™3™4™5˜“™‚¢˜“˜•ŒAFTERSYSOUTFORMS˜“™!˜“˜•ŒAFTERMAKESYSFORMS˜“™!˜“™‚£˜“™‚˜•ŒTICKS˜“™‚‘˜•ŒINVERT-WHO-LINE-ENTRY˜“™3™}˜“˜•ŒRECORDS˜•ŒWHO-LINE-ENTRY˜“™˜•Œ;˜ŒGMacros that lets us lock down the Who-Line while we evaluate some forms˜“™‚‘˜•Œ WITH-WHO-LINE˜•ŒWITH-AVAILABLE-WHO-LINE˜“™™˜ŒF----------------------------------------------------------------------˜“™™˜ŒInitialize the who-line˜“™3™4™5˜“™‚„˜“™!˜“™6˜“˜•Œ BACKGROUNDFNS™‚ö˜“™™˜ŒF----------------------------------------------------------------------˜“™™˜ŒFilemanager stuff˜“™3™}˜“™‚Ó˜•ŒMAKEFILE-ENVIRONMENT™˜“™‚Ó˜•ŒFILETYPE™ ˜“˜”˜Œ12-Apr-2023 22:10:58•Œ0{DSK}larry>il>medley>lispusers>WHO-LINE.;5œ™!˜–dg š` €h³5jjldl hhi ¿`go ¿ nokoh-˜’Œ*LOCKED-MONITOR*˜‘˜ŒSYSTEM˜’Œ *RESETFORMS*™‚2™!™˜“€˜Œ INTERLISPG˜•Œ PUTWINDOWPROPB˜•ŒCREATE.MONITORLOCK(˜•ŒCREATEW ˜•Œ CREATEREGION˜•ŒWINDOWP˜ŒBOUNDP8˜•ŒLOCK3™‚ÿ-™‚ÿ ™‚ÿ™‚ÿ\˜–‚ê`g hg ¿`gh ¿` ¿j¸h¹`gg ¿`gg ¿`g` ¿`g` ¿`g` ¿`g` ¿`g` ¿`g` ¿`g` ¿`g`WÖjØ ¿` ¿`ºh»h¼h½h¾`g _¿`g _¿`g _¿J_’O‚±Æ¾NNhhhhhhhhh_oO HÔ¿O²OOO Ô¸OHoO Ô¿OONoO ÖÔ¿OoO Ô¸ON¿ON¿O½L”LM&¼„Mh\»Jº±ÿ5K¹`g ²`g °h`g _¿h_¿h_¿O^‘N°#_o šO’O€i_¿‡O_¿°ØO_“O°o`g _¿`g ²`g °a`g _¿h_¿h¾O]‘M° ^o ˜N‘N€i_¿‡O_¿°ÛO^’N°o`g ¾H` É, _¿`g _¿`g ½OMó’O€M` É(` É, ½O`ó_’O‡Og𢱯I_¿h¼`OÕ»Iºh_¿j_¿J_’O°_¿OOOÕÔ_¿Jº°ÛO_¿j_¿hºO_’O°P¼KLLÕÖO׺LLOÔ¿LLOÔ¿OJÔ_¿L__OOÔ¿O_¿°©`_¿`gOM ¿`gOM ¿`OgðZ‘J‡Ogð’j°,Ogð™`OÕ°Ogð›`OÕl×ONgð˜`MÕ°!Ngð’j°Ngðš`MÕl×€NOM ¿`g`g `g `g Õl×Ô ¿`g`g `g ¿`gI ¿` ¿`gi j@¿  ˜•Œ\RCLKMILLISECOND˜’Œ*UNWIND-PROTECT*™‚2 ˜ŒCLOSURE˜“˜“˜ŒG1073B‚䘌 VALUES-LIST‚Û˜•Œ\MVLIST‚Ö™‚7‚Å™‚õ‚º™‚7‚©™‚7‚¤˜•Œ DSPCREATE‚Ÿ˜•Œ BITMAPCREATE‚š˜•Œ GETWINDOWPROP‚‹™‚H‚q™‚7‚g˜•Œ FONTHEIGHT‚b˜•ŒGETWINDOWUSERPROP‚S™‚H‚D˜•Œ FONTDESCENT‚?™‚J‚%˜•ŒSHAPEW‚ ™‚:‚ ™‚7‚Œ™‚7‚²˜•ŒHEIGHTIFWINDOW‚«˜•Œ \INSUREWINDOW‚Ÿ™‚N‚‹™‚I‚†™‚J‚t™‚I‚o™‚J‚]˜•Œ WIDTHIFWINDOW‚V™‚N‚J˜•ŒERROR‚E™‚J‚˜•ŒMEMB‚ú™‚J‚虂J‚ט•Œ POSITIONP‚Ò™‚J‚À™‚P‚»™‚J‚Š™‚Q‚i™‚J‚W™‚J‚F™‚R‚A™‚J‚ø˜•Œ STRINGWIDTH‚ᙂS‚™‚S‚®™‚S‚—™‚S‚_™‚J‚M™‚J‚;™‚J‚™‚÷‚ ™‚7‚ó™‚7‚Þ™‚7‚É™‚7‚´™‚7‚Ÿ™‚7‚Š™‚7u™‚7`™‚7K™‚72˜•ŒOPENW'™‚7˜•ŒOBTAIN.MONITORLOCK ™‚Jk‚И•ŒVALID‚Ë™‚ÿ‚À™‚ÿ‚´˜•ŒENTRIES‚¯™‚ÿ‚•˜•ŒHEIGHT‚™‚ÿ‚†˜•ŒWIDTH‚™‚ÿ‚|˜•Œ TEMP-STREAM‚w™‚ÿ‚]˜•Œ VALUE-FONT‚X™‚ÿ‚N™‚X‚I™‚ÿ‚:™‚[‚5™‚ÿ‚0˜•Œ VALUE-BOTTOM‚+™‚ÿ‚˜•Œ SCREENHEIGHT‚ ˜ŒCENTER‚ÿ˜ŒBOTTOM‚õ™‚]‚TOP‚ߘ•Œ SCREENWIDTH‚Ø™‚^‚Ì™‚a‚ŘŒRIGHT‚¹˜ŒLEFT‚­˜ŒJUSTIFY‚¦™‚ÿ‚—˜•ŒMINSIZE‚’™‚ÿ‚ƒ˜•ŒMAXSIZE‚~™‚ÿ‚v™‚a‚Ø™‚a‚È™‚d‚º™‚a‚¦™‚ÿ‚š™‚ÿ‚™‚[‚|™‚ÿ‚j˜•Œ NAME-FONT‚e™‚ÿ‚Q™‚ÿ‚@˜•ŒANCHOR‚;™‚ÿ‚õ™‚h‚ð™‚ÿ‚㙂h‚Þ™‚ÿ‚Í™‚h‚È™‚ÿ‚¶™‚h‚±™‚ÿ‚d™‚h‚_™‚ÿ‚R™‚h‚M™‚ÿ‚<™‚h‚7™‚ÿ‚Z™‚g‚U™‚ÿ‚H™‚[‚C™‚ÿ‚6˜•ŒDISPLAY-NAMES?‚1™‚ÿ‚#™‚æ‚™‚‚™‚‚™‚ï‚þ˜•ŒUPDATE-INTERVAL‚ù™‚ÿ‚î‚阕ŒBORDER‚䙂ÿ‚Ù™‚í‚Ô˜•ŒTITLE‚Ï™‚ÿ‚Ä™‚ì‚¿˜•ŒCOLOR‚º™‚ÿ‚¯™‚ꂪ™‚[‚¥™‚ÿ‚š™‚é‚•™‚g‚™‚ÿ‚…™‚è‚€™‚h{™‚ÿp™‚ëk™‚if™‚ÿ[™‚ùV˜•Œ BUTTONEVENTFNQ™‚ÿF™‚õA˜•Œ REPAINTFN<™‚ÿ-™‚ÿ!™‚V™‚ÿ˜•Œ WITH.MONITOR™‚=™‚ÿ‚6˜ŒNo vertical anchor specified‚˜“™‚`™‚_‚¬˜ŒNo horizontal anchor specified‚…˜“™‚c™‚^™‚d™‚b‚ñ˜ŒA‚Ú˜ŒA‚»˜ŒA‚˜ŒAT˜–˜ŒClean-up forms™‚@˜“€˜’ŒMONITOR-UNWIND™‚2=˜ŒWHO-LINEP˜•ŒCOMPILED-CLOSUREœ™+˜–`•`hhi ™+™˜“€™‚5˜•ŒUSERNAME™0™0™0œ™,˜–d`X¹Ho¿IX¹Hi ¿IX¹Ho¿IX¹Hg ¿IX¹Hg¿I¸jjnÿnÿh¹HºHI ¿J •h™,™˜“€™‚5\˜•ŒLOGINV˜•ŒMENU6˜•ŒDEFAULTMENUHELDFN*˜•Œ CLRPROMPT˜•Œ MENUTYPE#˜“˜“˜ŒYes˜ŒLog in as a different user˜“˜ŒNo€˜ŒDon't change the current user ˜Œ Change user?œ™-˜– @‘hh˜•ŒUSER˜•ŒHOST™-™˜“˜“˜Œ &OPTIONAL™‚”™‚“™‚5™0˜–4o ¿g X¦h¿ggo ˜Œ$DEFGLOBALVAR *WHO-LINE-CURRENT-USER*™˜“€.˜•ŒSET-DOCUMENTATION™‚<˜ŒPROCLAIM$˜ŒVARIABLE™0™0 ™0)˜Œ)Cached name of the current logged in user˜“˜’ŒGLOBAL˜‘˜ŒXEROX-COMMON-LISP™0˜–)o ¿oc¿ggo ™1˜Œ%CL:DEFPARAMETER *WHO-LINE-USER-ENTRY*™˜“€#™‚›™‚œ™‚™1˜ŒFWho-Line entry for displaying the name of the currently logged in user ˜“˜ŒUser˜“™+ ™,˜“˜•ŒSETQ™0€˜Œ$Name of the currently logged in user˜“˜ŒSPECIAL™1˜–o ¿o ˜Œ2 top-level forms™˜“€˜•ŒADDTOVAR™‚² ˜“™9™-˜“™7™0œ™A˜–`•`o ™A™˜“€™‚5˜•Œ UNIX-GETPARM™C™C™C ˜ŒHOSTNAME˜–4o ¿g X¦h¿ggo ˜Œ!DEFGLOBALVAR *WHO-LINE-HOST-NAME*™˜“€.™‚›™‚<™‚œ$™‚™C™C ™C)˜Œ4Cached name of the current machine, for the Who-Line˜“™‚¡™C˜–)o ¿oc¿ggo ™D˜Œ*CL:DEFPARAMETER *WHO-LINE-HOST-NAME-ENTRY*™˜“€#™‚›™‚œ™‚™D˜Œ=Who-Line entry for displaying the name of the current machine ˜“˜Œon˜“™A €˜“™‚©™C€˜Œ%Name of the currently running machine˜“™‚­™D˜– o ˜Œ1 top-level form™˜“€™‚²˜“™7™Cœ™M˜–Fg H`Y‘IHH Z‘J…H o ` ˜ŒPACKAGE™M™˜“€™‚5@˜•ŒPUTASSOC6˜•ŒCONCAT,˜Œ PACKAGE-NAME!˜ŒPACKAGE-NICKNAMES ˜•Œ PROCESS.EVALV˜•Œ TTY.PROCESS;™Q™Q˜Œ *PACKAGE*1˜Œ:œ™N˜–‚Üo¹hºh»h¼I^‘N°$] X¡°HMh¼K”KL&»„Lh[ºI¹°ØJo¼h»hºh¹L^‘N°&_ X¡°HOh¹J”JI&º„IhZ»L¼°ÖK OO  ¹hºh»h¼ I^‘N°5_O‘°'OO ^‘N†O h¼K”KL&»„Lh[ºI¹°ÇJ Ono  OOO O¦O°4O\O$O$h_"¿O˜O O"&_ ¿ˆO"h_ _¿O_¿°Æ`\»Lo¿K\»LO&¿K\»Li ¿K\»Lg ¿K\»Lg¿K¼jjnÿnÿh»LºLK ¿J O(²+g ²O(o O( h˜•Œ SELECTION˜•ŒITEMS˜•ŒX˜’Œ%$$MAP-ELEMENT™‚2˜’Œ%$$MAP-RESULT-TAIL™‚2˜’Œ %$$MAP-RESULT™‚2˜’Œ%$$MAP-FIRST-SUBLIST™‚2 ˜•ŒUSERS ˜•ŒUNSORTED ˜•ŒPKG ˜•ŒBOTH ˜•ŒSYSPKG˜•ŒPN˜•ŒMAIN™‚䙂á™N™˜“€™‚5‚Ô˜Œ IN-PACKAGE‚Ë™‚û‚Æ™‚Ђ¶˜•Œ SHIFTDOWNP‚¥™‚†‚˜•Œ\APPEND2‚þ™‚é‚𘕌SORT‚™‚Ñ‚¶™‚Ò‚’˜ŒLIST-ALL-PACKAGES‚Š™‚é^˜Œ FIND-PACKAGE™‚삱˜•ŒSHIFT‚…™‚‡‚y™‚ˆ‚S™‚‰‚Á˜Œ:‚\˜ŒSelect package‚阖 @A ˜•ŒY™‚Ú˜Œ#lambda in SET-PACKAGE-INTERACTIVELY™‚@˜“˜“™‚•™‚Ú™‚ð™‚5˜•Œ ALPHORDERD˜“ ˜ŒLISP˜ŒXEROX-COMMON-LISP˜ŒD-ASSEM˜ŒFASL˜ŒKEYWORD˜Œ CASH-FILE˜ŒSEDIT˜ŒSYSTEM˜ŒCOMPILER˜Œ HASH-FILE˜Œ CONDITIONS˜ŒDEBUGGER˜“˜Œ INTERLISP˜ŒXCL-USER˜ŒUSER‚噂œ™O˜–oi ™O™˜“€™‚5 ˜•Œ PROCESS.EVAL™‚Ô˜“™N˜–6o ¿g X¨hh¿ggo ˜Œ*DEFGLOBALVAR *WHO-LINE-PACKAGE-NAME-CACHE*™˜“€0™‚›™‚<™‚œ&™‚!™Q™Q ™Q+˜ŒJAn AList used to cache package names, together with their terminating ':'s˜“™‚¡™Q˜–)o ¿oc¿ggo ™R˜Œ(CL:DEFPARAMETER *WHO-LINE-PACKAGE-ENTRY*™˜“€#™‚›™‚œ™‚™R˜ŒDWho-Line entry for displaying the package of the current TTY process ˜“˜ŒPkg˜“™M ™O˜“™‚©™Q˜“˜ŒLIST€˜Œ"Package of the current TTY process˜“™‚­™Rœ™X˜–$g g X‘Ho™X™˜“€™‚5˜•Œ READTABLEPROP ™‚Ó™‚Ô˜•ŒNAME˜Œ *READTABLE*˜ŒUnknownœ™Y˜–‚”`X¹Ho¿I¸`no ¿Jno ¹H»HI¿KY¸Ii ¿HY¸Ig ¿HY¸Ig¿H¹jjnÿnÿh¸I»IH ¿K L “Lc h˜•Œ READTABLE˜•Œ READTABLES™‚ ™Y™˜“€™‚5‚ˆ˜Œ READTABLEP™‚†9™‚ê'˜•ŒMAPHASH_™‚‡S™‚ˆ˜•Œ\READTABLEHASH™‚‰2˜– @A ™‚ð™‚Ú˜Œ%lambda in SET-READTABLE-INTERACTIVELY™‚@˜“˜“™‚•™‚Ú™‚ð™‚5™‚ô ˜– A@hPc™‚˜•ŒVALUE™‚$˜Œ%lambda in SET-READTABLE-INTERACTIVELY™‚@˜“˜“™‚•™‚-™‚™‚5 ˜ŒSelect readtable.™‚™‚œ™Z˜–oi ™Z™˜“€™‚5 ™‚ ™‚Ô˜“™Y˜–)o ¿oc¿ggo ™\˜Œ*CL:DEFPARAMETER *WHO-LINE-READTABLE-ENTRY*™˜“€#™‚›™‚œ™‚™\˜ŒRWho-Line entry for displaying the name of the ReadTable of the current TTY process ˜“˜ŒRdtbl˜“™X ™Z€˜Œ$Readtable of the current TTY process˜“™‚­™\œ™b˜–g ™b™˜“€™‚5 ˜•Œ PROCESSPROP™‚Ô™‚œ™c˜–‚À`X¹Ho¿IX¹Hi ¿I¸`J¥K °*JYNg Nh½K”LM&¼„Mh\»Jº°Òno ¹H_¿HI¿OY¸Ig ¿HY¸Ig¿H¹jjnÿnÿh¸I_¿IH ¿O O—O h˜•ŒNEW-PROC˜•ŒPROC™‚Û™‚Ü™‚Ý™‚Þ™c ™˜“€™‚5‚¸™‚Ô‚«™‚†h™‚êA™‚A‚ˆ™‚‡|™‚ˆ<™‚˜•Œ \PROCESSES™‚‰a˜– @A ™‚ð™‚Ú˜Œ*lambda in CHANGE-TTY-PROCESS-INTERACTIVELY™‚@˜“˜“™‚•™‚Ú™‚ð™‚5™‚ô ˜ŒGive TTY to process]™‚˜–)o ¿oc¿ggo ™e˜Œ)CL:DEFPARAMETER *WHO-LINE-TTY-PROC-ENTRY*™˜“€#™‚›™‚œ™‚™e˜ŒAWho-Line entry for displaying the name of the current TTY process ˜“˜ŒTty˜“™b™c€˜ŒThe current TTY process˜“™‚­™eœ™k˜–‚±g H`ð’±`H¿`H ²H oH o °oH o ¿H I`gg ³I`g ¿`˜•ŒDIR-NAME˜•ŒCONNECTED-DIRECTORY™k™˜“€™‚5‚¢˜•Œ MERGEINSERT‚™‚ꂘ˜ŒSYMBOL-FUNCTION‚†˜ŒMEMBER‚™‚Zi˜Œ NAMESTRINGa™‚ÐW˜Œ PATHNAME-HOSTJ™‚Ð@™‚]5˜ŒPATHNAME-DIRECTORY-™‚^ ™‚Ó™‚Ô ‚ª™o‚“˜•Œ UALPHORDER‚Ž™n|˜Œ STRING-EQUALw˜ŒTESTr™n'™o™o™o˜Œ*DEFAULT-PATHNAME-DEFAULTS*\˜Œ}Q˜Œ{E˜Œ}:˜Œ on {œ™l˜–‚€`H¥I°2H\M “Mh€h»J”JK¿K¹K‘i€h–K ºH¸°Ê¿g ²g`\¾Lo¿N\¾L`¿N\¾Lg ¿N\¾Lg¿N¼jjnÿnÿh¾L_¿LN ¿O O—O h`^¼No¿L¾o`¼N_¿NL¿O\¾Lg ¿N\¾Lg¿N¼jjnÿnÿh¾L_¿LN ¿O  O²WOo ²6W ¿og hWhgh _¿O¿O hh ˜•Œ NEW-DIRECTORY™‚h™‚Ú™‚Û™‚Ü™‚Ý™‚Þ ˜•Œ PROMPTWINDOW™l ™˜“€™‚5‚v˜•ŒCNDIR‚n˜•ŒALLOW.BUTTON.EVENTS‚c˜•Œ PROMPTFORWORD‚S™‚\‚N™‚Ó‚D™‚Ô‚9˜•ŒCLEARW‚0˜ŒSIMPLE-STRING-EQUAL‚™‚†‚¹™‚û‚¬™‚†U™‚è?˜ŒLAST!˜•ŒDIRECTORYNAMEP ‚\˜•ŒTTY‚I™‚b‚ú™‚‡‚ˆ‚Ù™n‚Á™‚‰‚‰™‚‡}™‚ˆq™n\™‚‰P™‚íJ™n™n‚?˜ŒConnect to directory ‚+˜Œ * Other *‚Ô˜Œ * Other *‚ʘŒ Connect to:e˜ŒType in directory name:˜–6o ¿g X¨Qh¿ggo ˜•Œ LOGINHOST/DIR˜Œ#DEFGLOBALVAR *WHO-LINE-DIRECTORIES*™˜“€0™‚›™‚<™‚œ&™‚!™n™n ™n+˜ŒACached list of known directories for the Who-Line Directory entry˜“™‚¡™n˜–Go ¿g X³R Y I ¿ggo ™‚b˜Œ&DEFGLOBALVAR *WHO-LINE-LAST-DIRECTORY*™˜“€A™‚›&˜•ŒMKSTRING ˜ŒPATHNAME™‚\™‚<™‚œ7™‚2™o,™o ™o<˜ŒOCached name of the current connected directory for the Who-Line Directory entry˜“™‚¡™o˜–)o ¿oc¿ggo ™p˜Œ*CL:DEFPARAMETER *WHO-LINE-DIRECTORY-ENTRY*™˜“€#™‚›™‚œ™‚™p˜ŒKWho-Line entry for displaying the name of the currently connected directory ˜“˜ŒDir˜“™k™l˜“™‚©™o˜“˜ŒCONS€€˜Œ!The currently connected directory˜“™‚­™pœ™v˜–‚`¸lnÿÿÖ¹HIó‘H€Il2ØldÛJmÿçØJÛ`ÈnãðL`ðœK` €h³4`K¿`L¿`L•o„oKo ¿`˜•ŒVMEM-CONSISTENT?˜•Œ VMEM-PERCENT˜•ŒONE-PERCENT-VMEM™v™˜“€™‚5‚€™‚ÐL˜•ŒEQP˜•ŒVMEMSIZE‚‡™yf™y]™yU™yF™y<™y-˜•Œ\InterfacePage˜•Œ\LASTVMEMFILEPAGE{˜Œ%u˜Œ*o˜Œ œ™w˜–d`X¹Ho¿IX¹Hi ¿IX¹Ho¿IX¹Hg ¿IX¹Hg¿I¸jjnÿnÿh¹HºHI ¿J •h™w™˜“€™‚5\˜•ŒSAVEVMV™‚†6™‚‡*™‚ˆ™‚‰˜“˜“˜ŒYes˜“˜ŒNo€ ˜Œ Save VMem?˜–:o ¿g X¬jhhh¿ggo ˜Œ!DEFGLOBALVAR *WHO-LINE-LAST-VMEM*™˜“€4™‚›™‚<™‚œ*™‚%™y™y ™y/˜ŒNCached value for storing the last VMem information for the Who-Line VMem entry˜“™‚¡™y˜–)o ¿oc¿ggo ™z˜Œ%CL:DEFPARAMETER *WHO-LINE-VMEM-ENTRY*™˜“€#™‚›™‚œ™‚™z˜Œ:Who-Line entry for displaying the current VMem utilization ˜“˜ŒVMem˜“™v™w˜“™‚©™y˜“™‚€€˜Œ#Percentage of VMem currently in use˜“™‚­™zœ™‚’˜–ySlØâââââââ¸`n:‘h€iY‘IŒ`H:‘h€i²D`n¿`H¿`¹holdldHldÖn Õ Õ ºIJ¿`˜•Œ \AtomFrLst™‚’™˜“€d˜ŒFORMAT^˜•ŒFIXRX˜Œ%/p™‚”A™‚”8™‚”.™‚”™‚” ™‚”H˜Œ~3D%˜–ggo ˜ŒCL:DEFUN WHO-LINE-SYMBOL-SPACE™˜“€™‚›˜ŒFUNCTION™‚’ ˜Œ@Return a string describing the percentage of symbol space in use˜–-o ¿g X‘Hhhhoh˜Œ$DEFGLOBALVAR *WHO-LINE-SYMBOL-SPACE*™˜“€™‚<™‚œ'™‚” ™‚”˜Œ,Remembers the previous who-line symbol space˜“™‚¡™‚”˜–)o ¿oc¿ggo ™‚•˜Œ-CL:DEFPARAMETER *WHO-LINE-SYMBOL-SPACE-ENTRY*™˜“€#™‚›™‚œ™‚™‚•˜Œ™‚9™‚ž3™‚ž)™‚¤ ™‚žC˜Œ8Timer for controlling updates of the Who-Line Time entry˜“™‚¡™‚ž˜–=o ¿g X¯o ¿ggo ˜Œ DEFGLOBALVAR *WHO-LINE-OLD-TIME*™˜“€7™‚›˜•ŒDATE™‚<™‚œ-™‚(™‚Ÿ"™‚Ÿ ™‚Ÿ2˜Œ(Cached value for the Who-Line Time entry˜“™‚Ú™‚Û˜“™‚¡™‚Ÿ˜–)o ¿oc¿ggo ™‚ ˜Œ%CL:DEFPARAMETER *WHO-LINE-TIME-ENTRY*™˜“€#™‚›™‚œ™‚™‚ ˜Œ5Who-Line entry for displaying the current time of day ˜“˜ŒTime˜“™‚›™‚œ˜“˜ŒPROGN˜“™‚©™‚Ÿ˜“™‚™‚Ú™‚Û˜“™‚©™‚ž˜“™‚Ö˜“˜•Œ DIFFERENCE<˜“™‚ט“™‚Ø<€˜“™‚†™‚¤˜Œ Time of day˜“™‚­™‚ ˜– o ˜Œ1 top-level form™˜“€˜•Œ APPENDTOVAR˜“™‚£˜“™‚ž™‚¤œ™‚±˜–=`g ²'` ¿``g ¿o™‚±™˜“€™‚5,™‚Ö™‚² ™‚Ù1™‚¶'™‚¹"™‚¶™‚µ™‚ÿ™‚¹™‚¶7˜Œ œ™‚²˜–o@g ¸h¹H[‘K°!ZšJgð€h–J‘J€i¹„H¸°ÛI²3nÿÿ@IlIIÕ@g lÕg ¿I˜•ŒENTRY˜•ŒWINDOW™‚²™˜“˜“™‚•™‚™‚5g˜•ŒBLTSHADEY™‚H™‚Ja˜•ŒINVERTT™‚X$™‚±™‚Wœ™‚³˜–Q`g ²?` š` €hš` ¿``g h™‚³™˜“€™‚5D™‚Ö/™‚²"˜•ŒTOPWP˜•ŒOPENWP ™‚Ù I™‚¶?™‚¹:™‚¶5™‚µ*™‚ÿ™‚ÿ™‚ÿ™‚¹™‚¶˜–6o ¿g X¨nô¿ggo ˜Œ%DEFGLOBALVAR *WHO-LINE-ACTIVE-PERIOD*™˜“€0™‚›™‚<™‚œ&™‚!™‚µ™‚µ ™‚µ+˜Œ5Interval between updating the Who-Line activity entry˜“™‚¡™‚µ˜–Do ¿g X³`hg ¿ggo ˜Œ$DEFGLOBALVAR *WHO-LINE-ACTIVE-TIMER*™˜“€>™‚›$™‚Ö™‚<™‚œ4™‚/™‚¶)™‚¶™‚¹™‚µ ™‚¶9˜Œ=Timer for controlling updating of the Who-Line activity entry˜“™‚¡™‚¶˜–)o ¿oc¿ggo ™‚·˜Œ,CL:DEFPARAMETER *WHO-LINE-SHOW-ACTIVE-ENTRY*™˜“€#™‚›™‚œ™‚™‚·˜Œ9Who-Line entry for displaying the activity of the machine ˜“˜Œ˜“™‚±€˜“™‚©™‚¶˜“™‚Ö™‚µ€˜“™‚†™‚¹˜ŒIndication of machine activity˜“™‚­™‚·˜– o ˜Œ1 top-level form™˜“€™‚ ˜“™‚£˜“™‚¶™‚¹œ™‚˜–g ™‚™˜“€™‚5˜’Œ PROFILE-NAME™‚  ™‚Ó™‚Ô˜’Œ *PROFILE*™‚ œ™‚Ø–‚¤`X¹Ho¿I¸¹hºh»h¼ I_’O°^ ¼K”KL&»„Lh[ºI¹°ßJ  ¼H»HL¿K\¸Li ¿H\¸Lg ¿H\¸Lg¿H¼jjnÿnÿh¸L»LH ¿K O—O h˜•ŒPROFILE™‚;˜•Œ PROFILE-NAME™‚à ™˜“€™‚5‚œ˜’ŒRESTORE-PROFILE™‚ ‚™‚†J™‚ê/™‚8˜’ŒLIST-ALL-PROFILES™‚ o™‚‡c™‚ˆ™‚‰ ˜ŒSelect profileœ™‚Ę–oi ™‚Ä™˜“€™‚5 ™‚ ™‚Ô˜“™‚Ø–)o ¿oc¿ggo ™‚ƘŒ(CL:DEFPARAMETER *WHO-LINE-PROFILE-ENTRY*™˜“€#™‚›™‚œ™‚™‚ƘŒ™‚ç8™‚ç ™‚çH˜Œ#List of all known Who-Line entries.˜“™‚¡™‚瘖8o ¿g Xªo¿ggo ˜ŒDEFGLOBALVAR *WHO-LINE-ANCHOR*™˜“€2™‚›™‚<™‚œ(™‚#™‚è™‚è ™‚è-˜ŒLocation to place the Who-Line˜“™‚^™‚`˜“™‚¡™‚蘖=o ¿g X¯o ¿ggo ˜Œ!DEFGLOBALVAR *WHO-LINE-NAME-FONT*™˜“€7™‚›˜•Œ FONTCREATE™‚<™‚œ-™‚(™‚é"™‚é ™‚é2˜Œ0Font to use to show entry labels in the Who-Line˜“˜•Œ HELVETICA˜•ŒBOLD˜“™‚¡™‚阖=o ¿g X¯o ¿ggo ˜Œ"DEFGLOBALVAR *WHO-LINE-VALUE-FONT*™˜“€7™‚›™‚¨™‚<™‚œ-™‚(™‚ê"™‚ê ™‚ê2˜Œ4Font to use to show the entry values in the Who-Line˜“˜•ŒGACHA˜“™‚¡™‚ꘖ4o ¿g X¦i¿ggo ˜Œ&DEFGLOBALVAR *WHO-LINE-DISPLAY-NAMES?*™˜“€.™‚›™‚<™‚œ$™‚™‚ë™‚ë ™‚ë)˜ŒIFlag for enabling or disabling the display of entry names in the Who-Line˜“™‚¡™‚똖8o ¿g Xªg¿ggo ˜ŒDEFGLOBALVAR *WHO-LINE-COLOR*™˜“€2™‚›™‚<™‚œ(™‚#™‚왂옌WHITE ™‚ì-˜Œ0Color of the Who-Line -- one of :WHITE or :BLACK˜“™‚¡™‚옖4o ¿g X¦h¿ggo ˜ŒDEFGLOBALVAR *WHO-LINE-TITLE*™˜“€.™‚›™‚<™‚œ$™‚™‚í™‚í ™‚í)˜Œ The window title of the Who-Line˜“™‚¡™‚혖5o ¿g X§l¿ggo ˜ŒDEFGLOBALVAR *WHO-LINE-BORDER*™˜“€/™‚›™‚<™‚œ%™‚ ™‚î™‚î ™‚î*˜Œ'The border width of the Who-Line window˜“™‚¡™‚5o ¿g X§ld¿ggo ˜Œ'DEFGLOBALVAR *WHO-LINE-UPDATE-INTERVAL*™˜“€/™‚›™‚<™‚œ%™‚ ™‚ï™‚ï ™‚ï*˜Œ1Update interval for the Who-Line, in milliseconds˜“™‚¡™‚‚õ˜– nokoh-™‚3™‚4™‚™‚õ™˜“˜“™‚•™‚™‚5˜–‚‚Tg hg ¿Tg Xgð–g°&Hgð–g°oTg T ¿Tg Xgð’j°$Hgð”nÿÿ°oTg T ¿T ¿Tg ¸H¡°HYYh¿H¸°ëTg ²qTg T ¿Tg X¸h¹Tg ºH[‘K°<YJ `g J Õl×ÔT ¿IT ¿H¸°ÀTg T ¿TTg i ¿` hj@¿ ™‚™‚?™‚@˜“˜“˜ŒG1077‚|™‚D‚l™‚÷‚a™‚ø‚[™‚J‚N˜•ŒDSPFONT‚H™‚J‚7˜•ŒPRIN1‚.˜•ŒMOVETO‚#™‚I‚™‚H‚™‚K‚ú™‚J‚뙂J‚ß™‚Õ‚Ù™‚J‚Ì™‚J‚©™‚J‚™‚n‚–˜•Œ DSPTEXTURE‚™‚P‚‹™‚Jc™‚JW˜•Œ DSPSOURCETYPEQ™‚PL™‚J™‚J™‚U™‚J‚q™‚‚g™‚‚V™‚W‚C™‚[‚™‚X‚™‚ÿ‚õ™‚g‚時W‚Ô™‚g‚Ç™‚i‚¤™‚W‚†™‚mt˜ŒBLACKi™‚½^™‚mG™‚m:™‚3™‚Ú+˜•ŒINPUT$™‚½™‚m ™‚p™‚=‚€˜ŒIllegal color for Who-LineA˜ŒIllegal color for Who-Line˜–™‚z™‚@˜“€™‚|™‚œ™‚ö˜–i`g ²Wg ™`‘h‚i€h²/`g i nokoh-¿` h˜’ŒG1081€™‚ö™˜“€™‚5\™‚÷:™‚U4™‚J™‚< ™‚Ùa™‚W™‚/™‚=*™‚ÿ˜•Œ\IDLING™‚ÿ™‚™‚N˜–FQ²<` Ÿ`g €h²``g ‚h€h¸j@¿H™‚♂?™‚@˜“˜“˜ŒG10826™‚ø1™‚H™‚H ™‚,™‚W'™‚ÿ"™‚ÿ™‚V™‚ÿ™‚ÿF˜–Pið‘hP–P h™‚♂z™‚@˜“€ ˜•ŒRELEASE.MONITORLOCKB™‚œ™‚÷˜–`g @g ˜•Œ OLD-TIMER™‚÷™˜“˜“™‚•™‚홂5™‚Ö ™‚J™‚™‚j™‚ÿœ™‚ø˜– nokoh-™‚3™‚4˜•ŒALWAYS?˜•ŒWHO-LINE-ENTRIES™‚™‚ø™˜“˜“™‚•™‚™‚ò™‚ñ™‚5˜–‚aWg hg ¿W¸h¹hºWg »Wg ¼Wg ½Wg gð¾H_’O‚±òZ’±ÞWŸJ ¿J _¿W’WOJô‘h€i¢±¨JKL ¿nÿÿLJjJJÕMg ¿hW L ¿OL ¿N²%nÿÿLJjJJÕMg ¿LJjWJjJJÕMg ¿JO ¿H¸±ÿ Ihj@¿ ™‚ ™‚ñ ™‚ò™‚?™‚@˜“˜“˜ŒG1083‚[™‚D‚G˜•ŒCOPYALL‚9˜•ŒBITBLT‚™‚‚뙂ւ♂Õ‚Ü™‚Õ‚Ó™‚‚°™‚ׂ‰˜•ŒEVAL‚€™‚úN™‚JA™‚H4™‚H'™‚H™‚U™‚J ‚3˜•ŒPAINT‚ ™‚‚͘•ŒERASES™‚ÚI™‚m<™‚X/™‚Z"™‚\™‚p™‚=˜–™‚z™‚@˜“€™‚|™‚œ™‚ù˜– nokoh-™‚3™‚4™‚™‚ù™˜“˜“™‚•™‚™‚5˜–‚Wg hg ¿W ¿¿g X‘H‰g œ ±±h¸W ɹWg ºh»h¼¿l`å]jð^‘N‹M–M €h‘h€i¢±ýI`` ¤h¼±çJ½h¾h_¿M_’O°F_¿W Oýó’h°!W Oó‘hŒO‘i€h˜O’O€i¾„M½°´N¼KLð’±…K²?nÿÿWKjKKÕhg ¿K__K‘h€i¿L²?nÿÿWLjLLÕhg ¿L__L‘h€i¿L»±þàK²?nÿÿWKjKKÕhg ¿K__K‘h€i¿L²*L² L ¿L ¿Hhj@¿  ™‚™‚? ™‚@˜“˜“˜ŒG1084‚ÿ™‚D‚ò™‚ú‚☕ŒAPPLY*‚¬™‚‚g™‚‚'™‚‚Ó˜•Œ LASTMOUSEX‚Á™‚‚ž˜•ŒINSIDEP‚„˜•Œ\FZEROPj˜•Œ GETMOUSESTATE`™‚JQ™‚NE™‚E@™‚ú:˜•ŒKEYDOWNP,™‚ !™‚ ˜•ŒTOTOPW™‚U™‚J ‚¦™‚‚a™‚‚!™‚‚™˜•Œ LASTMOUSEY‚”™‚r˜•ŒLASTMOUSEBUTTONS[™‚W5˜•ŒCTRL'˜•ŒEDIT™‚p™‚=˜–™‚z™‚@˜“€™‚|™‚œ™‚ú—˜– ‚`X¹Ho¿IX¹Ho¿IX¹Hg ¿IX¹Hg¿I¸jjnÿnÿh¹HºHI ¿J Kgð¢±É`¹h¸hºh¼I^‘N°8]` ‘°$Mkoh-gMhh¼J”JL&º„LhZ¸I¹°ÄHO²R`\ºLO¿J\ºLo¿J\ºLg ¿J\ºLg¿J¼jjnÿnÿhºL¸LJ ¿H €hO²O`¿hKgð¢±Ö`    O¦O°AOZ Okoh-gOhh_¿O˜OO&_¿ˆOh__¿O_¿°¹O²R`Z¼JO¿LZ¼Jo¿LZ¼Jg ¿LZ¼Jg¿Lºjjnÿnÿh¼J¸JL ¿H €hO²O` ¿hh˜•Œ BAD-ENTRY™‚Ù ˜•Œentry ™‚Û ™‚Ü ™‚Ý ™‚Þ˜•Œ NEW-ENTRY™‚Ù™‚˜’ŒG1086€™‚ú™˜“€™‚5‚ý™!‚ò˜ŒREMOVE‚Ý™‚†‚™!‚™‚†˜•ŒMEMBERN™‚†‚÷™‚æ‚홂悽™‚‡‚±™‚ˆ‚“™‚‰‚^™‚†‚2™‚æ‚(˜ŒREMOVE‚™‚æ‚™‚æ‚㙂‡‚×™‚ˆ‚¹™‚‰‚™‚†z™‚æa™‚çW˜ŒADD.™‚‡"™‚ˆ™‚‰‚¥˜ŒEntry to remove from WHO-LINE‚˘ŒEntry to add to WHO-LINE˜ŒChange WHO-LINE entries ˜“˜“˜ŒAdd item™‚˜ŒAdd a new entry to the who-line˜“˜Œ Remove item™‚˜Œ*Remove an existing entry from the who-line™‚(‚W˜–@X‘Ho@ ˜ŒENTRY-DESCRIPTION™‚@˜“˜“˜ŒX™‚Ð ˜Œ Entry named: ™‚(‚‰™‚.œ™‚û˜–Ch @ Y’I°H ›Hg €h–@ @h ˜•Œ TTY-WINDOW™‚Ú™‚û™˜“˜“™‚•™‚Ú™‚5=˜•ŒBKSYSBUF5˜•Œ COPYINSERT,™‚J ™‚;˜•Œ IMAGEOBJP ˜•ŒWFROMDS˜•Œ PROCESS.TTY™‚Ô'˜•Œ COPYINSERTFNœ™‚ý˜–;g ².`g i nokoh-h˜’ŒG1088€™‚ý™˜“€™‚5™‚U™‚J™‚<™‚= ™‚ÿ™‚ÿ1˜–hP²Y` Ÿ`g €h²7` ¿` ¿``g †hh‚hhj@¿ ™‚9™‚?™‚@˜“˜“˜ŒG1089b™‚DQ™‚EL™‚øG™‚J2™‚T'˜•ŒCLOSEW™‚J ™‚B™‚W=™‚ÿ8™‚ÿ-™‚ÿ"™‚ÿ™‚V™‚ÿ™‚ÿ)˜–Pið‘hP–P h™‚9™‚z™‚@˜“€ ™‚ê%™‚˜–4o ¿g X¦h¿ggo ˜ŒDEFGLOBALVAR *WHO-LINE*™˜“€.™‚›™‚<™‚œ$™‚™‚ÿ™‚ÿ ™‚ÿ)˜ŒThe who-line window˜“™‚¡™‚ÿ˜–4o ¿g X¦h¿ggo ˜Œ$DEFGLOBALVAR *WHO-LINE-UPDATE-TIMER*™˜“€.™‚›™‚<™‚œ$™‚™‚™‚ ™‚)˜Œ.Timer for controlling updating of the Who-Line˜“™‚¡™‚˜–"o ¿o ¿o ˜Œ3 top-level forms™˜“€™‚ ™‚ ™‚ ˜“™‚£˜“™‚™‚ ˜“™‚˜“™!˜“™‚˜“™!œ˜•Œexpand-INVERT-WHO-LINE-ENTRY˜–2@X¹HºggIggJoo™‚V™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT˜•Œ BLACKSHADE™‚™‚ ˜•ŒWITH(˜“˜“˜•ŒCHANGE˜•Œ INVERTED?˜“˜ŒNOT™‚^ ˜“˜•Œ NAME-START˜“™‚ü˜•Œ VALUE-END™‚c€˜“™‚†™‚˜–&gg ¿ggo ˜ŒDEFMACRO INVERT-WHO-LINE-ENTRY™˜“€ ™ ˜•ŒSETF-MACRO-FUNCTION˜•ŒARGNAMES™‚ ™‚V™‚ ˜“˜ŒENTRY˜ŒWINDOWœ˜•Œexpand-WITH-WHO-LINE˜–@X¹HºggIoJ™‚q™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT˜•Œ WINDOWPROP ™‚p˜“˜“™‚†™‚=˜–;gg ¿ggo ¿ggo ˜ŒDEFMACRO WITH-WHO-LINE™˜“€5™ ™‚› ™‚k+™‚l&™‚™‚À™‚™‚q™‚0˜“˜ŒWHO-LINE˜Œ&BODY˜ŒFORMS˜Œ0Evaluate the forms with the who-line locked downœ˜•Œexpand-WITH-AVAILABLE-WHO-LINE˜–‚…@X¹Hº»gKggIoohhggKJhggKoogKhoigKhhhhh™‚‚™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ˜ŒGENSYM k™‚ê[˜ŒNULLH˜ŒEQC˜ŒCOND8™‚Š3˜ŒUNWIND-PROTECT™‚v™‚U˜ŒLETd˜“€U˜“€N˜“'˜“ ˜“˜“™‚†™‚=˜–;gg ¿ggo ¿ggo ˜Œ DEFMACRO WITH-AVAILABLE-WHO-LINE™˜“€5™ ™‚› ™‚k+™‚l&™‚™‚À™‚™‚‚™‚0˜“˜ŒWHO-LINE™‚}˜ŒFORMS˜ŒNEvaluate the forms with the who-line locked down, if the who-line is available˜–¿o ¿o ˜Œ3 top-level forms™˜“€™‚| ™‚²™!˜“™˜•Œ COPYRIGHT˜“ ˜ŒXerox Corporation‚‚ÂÄ‚Å‚Ê‚΂Ñ‚å‚瘓™‚™‚öš‚£ÿÿ