‘XCL Compiler output for source file {DSK}arunwelch>SKYDRIVE>DOCUMENTS>UNIX>LISP>LDE>ROOMS>MEDLEY-35>ROOMS-OVERVIEW.;2 Source file created Saturday, 5 December 2020, 16:35:56. FASL file created Saturday, 5 December 2020, 16:35:57. ÿ˜–#ogg o ˜•ŒFILECREATEDLOC˜Œ*STANDARD-INPUT*˜Œ1 top-level form˜ŒFUNCTION˜“€˜•ŒDEFINE-FILE-INFO˜ŒOPEN ˜ŒOUTPUT˜Œ DIRECTION˜“˜Œ READTABLE˜ŒXCL˜ŒPACKAGE˜ŒROOMS˜Œ{Null}˜–!ggo ¿o˜Œ2 top-level forms™˜“€˜•ŒPUTPROP˜•ŒROOMS-OVERVIEWCOMS˜•Œ FILEDATES˜•ŒROOMS-OVERVIEW˜“˜“˜’ŒFILE-ENVIRONMENTS˜‘˜ŒXEROX-COMMON-LISP™˜“˜•ŒP˜“˜ŒEXPORT˜“˜ŒQUOTE˜“˜’ŒRESET-OVERVIEW˜‘˜ŒROOMS˜’ŒROOM-UNWIND-SAVE™˜ŒROOMS˜“˜ŒREQUIRE˜ŒROOMS˜“˜•ŒCOMS˜“˜•Œ*˜•Œ;˜Œthe room˜“˜•Œ VARIABLES˜’Œ*OVERVIEW-ROOM*™˜“˜•Œ FUNCTIONS˜’ŒGO-TO-OVERVIEW™˜’Œ OV-ENTRY-FN™˜’Œ OV-EXIT-FN™˜’ŒOV-ROOM-CHANGED-FN™˜’Œ OV-SUITE-BODY™˜“™)˜“™*™+˜Œ tiling code˜“™.˜’Œ*OV-BORDER-SIZE*™˜“™1˜’ŒOV-LAYOUT-PLACEMENT-EDITORS™˜’ŒOV-ROWS&COLUMNS™˜“™)˜“™*™+˜Œbuttons˜“™.˜’Œ *OV-BUTTONS*™˜’Œ*OV-SELECTED-BUTTON-WINDOW*™˜’Œ *OV-CHANGED?*™˜“™1˜’ŒMAKE-OV-KEYACTION-TABLE™˜’ŒOV-WATCH-KEYBOARD™˜’ŒOV-SELECT-BUTTON™˜’ŒOV-DESELECT-BUTTON™˜’Œ OV-OPERATION™˜“™.˜’Œ*OV-KEYACTION-TABLE*™˜“™1™˜“™)˜“™.˜’Œ*ROOM-UNWINDERS*™˜“™1™ ˜’Œ ROOM-UNWIND™˜“˜Œ EVAL-WHEN˜“˜ŒLOAD˜“™˜“˜ŒPUSHNEW˜“™˜“™˜’Œ *RESET-FORMS*™˜ŒTEST˜“™˜ŒEQUAL˜“™X˜“™™˜’Œ*SCREEN-CHANGED-FUNCTIONS*™˜“™X˜“™™S˜’Œ*ROOM-EXIT-FUNCTIONS*™˜“™X˜“™™5˜’Œ*ROOM-CHANGED-FUNCTIONS*™ ˜“˜”˜Œ 5-Dec-2020 16:35:56•ŒX{DSK}arunwelch>SKYDRIVE>DOCUMENTS>UNIX>LISP>LDE>ROOMS>MEDLEY-35>ROOMS-OVERVIEW.;2˜–+ggo ¿ggg ˜Œ)DEFINE-FILE-ENVIRONMENT IL:ROOMS-OVERVIEW™˜“€%™™ ˜Œ COMPILE-FILE˜•ŒFILETYPE™˜•ŒMAKEFILE-ENVIRONMENT™ ˜“™ ˜ŒXCL™ ˜ŒROOMS˜–oo ˜Œ1 top-level form™˜“€ ™˜ŒROOMS˜“™™ ˜– o ˜Œ1 top-level form™˜“€™%˜ŒROOMS˜–!o ¿g X‘Hh˜ŒDEFGLOBALVAR *OVERVIEW-ROOM*™˜“€˜ŒBOUNDP˜ŒPROCLAIM™/ ™/˜“˜’ŒGLOBAL™™/œ™2˜– ` ™2™˜“€˜’Œ GO-TO-ROOM™™/œ™3˜–‚çnX¿og`gi Hý¿noH`¿@HÉ¿i gjgogogo  ¿@h¹hº@É»h¼K‘K°-\Ég ]ëI”JL&º„LhZ¹K»°ÑI¿g` ™3™˜“˜“˜Œ OVERVIEW-ROOM‚á™I‚ܘ•ŒGETHASH‚±˜•Œ WINDOWPROP‚‚™=}˜’ŒINTERNALIZE-REGION™x˜’Œ MAKE-REGION™N˜’Œ ALL-ROOMS™˜•Œ ADD.PROCESS‚×™C‚Ò˜ŒENTER‚·˜’ŒPLACEMENT-EDITOR™‚¬˜ŒPLACEMENT-EDITOR‚¥˜’Œ PLACEMENT™‚“˜’ŒROOM™‚‰™‚šm˜ŒHEIGHTc˜ŒWIDTHY˜ŒBOTTOMS˜ŒLEFTB™‚š;™Q5™Q˜•Œ RESTARTABLE™M ˜•Œ KEYACTIONr†h„?€^†+˜– HÉi ˜Œlambda in OV-ENTRY-FN˜ŒCLOSURE˜“€˜•Œ DEL.PROCESS˜“™H'˜•ŒCOMPILED-CLOSURE˜•Œ \PTRHUNK2œ™4˜–`š` h™4™˜“˜“˜Œ OVERVIEW-ROOM ™J™D™Dœ™5˜–Q``ð›@`ð‘h‚i€h²5AgðX‘H†Agð²no` ¿ihh™5™˜“˜“˜ŒROOM˜ŒREASON@˜ŒMAPHASHG™E;˜’Œ*PLACEMENT-EDITORS*™(˜ŒDELETED˜ŒCREATED™/™/˜’Œ*CURRENT-ROOM*™4˜–AÉ AÉ h˜Œlambda in OV-ROOM-CHANGED-FN™‚¢˜“˜“˜ŒNAME˜ŒPE˜•ŒCLOSEW ˜•ŒOPENWP™‚—™‚—0™‚§œ™6˜–‚Óoggggg`l Q lÖ lÕgo ¸gHoH ooooooogogoooXgð•o„ooh˜’Œ*DEFAULT-TEXT-FONT*™™6™˜“€‚¤˜•Œ MACHINETYPEX˜Œ CONCATENATEF˜Œ MAKE-STRING4˜’ŒSFLOOR™/˜Œ%/'˜•Œ CHARWIDTH ‚ª˜•ŒMAIKO‚˜Œ PLACEMENTS‚†˜ŒROOML˜ŒSTRING<˜ŒINITIAL-ELEMENT˜•Œ SCREENWIDTH˜ŒTEXT˜ŒBUTTON˜ŒTYPE ˜Œ SPACE-BAR˜ŒWINDOW‚¿˜“˜Œ INCLUSIONS˜Œ BACKGROUND˜“˜“˜Œ WHOLE-SCREEN‚cœ˜ŒBORDER˜“˜ŒREGION˜“„?€†˜ŒSHADE‚{Þ™‚Ö˜“™‚ΘŒRooms Overview˜ŒPOSITION˜”„?†˜Œ ALIGNMENT˜ŒCENTER˜“™‚ΘŒTM™‚ݘ”„>ð£×†™‚ß™‚à˜ŒFONT˜“˜ŒEVAL˜•ŒBIGFONT˜“™‚ΘŒ6Copyright (c) Envos Corporations, 1988; Patent Pending™‚ݘ”„?†@™‚ß™‚à™‚ä˜“™‚噂昌BEFORE-ENTRY-FUNCTIONS˜“™3˜ŒBEFORE-EXIT-FUNCTIONS˜“™4‚·˜“˜“˜ŒEDIT™‚ؘ“†(†˜’ŒSCEILING™˜•Œ FONTHEIGHT˜ŒLENGTH ‚™‚›‚ÿ™‚œ‚홂‚ã™;‚×™‚ž‚Й‚š‚š™;‚™;o˜•Œ SCREENHEIGHT_™‚Í.™; ˜’Œ*PE-TITLE-FONT*™œ™>˜–‚Ÿj¸j¹hºh»HkÔ\¸@H \kÔCÖ½CHDÖÔCÔ¾AMÕ_¿BNÕ_¿OL _¿OH _¿O` _¿O` _¿OOýó’OO_Iýó²HkÕ@HkÕ J K I$O¹OºO»±ÿm™>™˜“˜“˜ŒN˜ŒWIDTH˜ŒHEIGHT˜ŒBORDER˜Œ TITLE-HEIGHT‚‰™‚Å‚ƒ™‚Å}™‚D[™‚ÆL™‚Æ=™‚Æ2™‚Æ™‚DV™‚GG™‚͘–/o ¿g X‘Hgg ˜ŒDEFGLOBALVAR *OV-BUTTONS*™˜“€$˜ŒMAKE-HASH-TABLE™‚…™‚†)™C˜ŒEQ™\ ™C˜“™‚‡™C˜–!o ¿g X‘Hh˜Œ(DEFGLOBALVAR *OV-SELECTED-BUTTON-WINDOW*™˜“€™‚…™‚†™D ™D˜“™‚‡™D˜–!o ¿g X‘Hh˜ŒDEFGLOBALVAR *OV-CHANGED?*™˜“€™‚…™‚†™E ™E˜“™‚‡™Eœ™G˜–#` ¸ihhH ¿lhhH ¿H™G™˜“€˜•Œ INTERRUPTCHAR™‚a˜•ŒKEYACTIONTABLE˜•Œ\DEFAULTKEYACTIONœ™H˜–‚¥g ²g X‘H‰g ‘h‚i€h—g±÷g X’H°+g ²g žg ‘h„i‚h€h—g±¶g X’H°,g ²g Y‘I‰g ‘h‚i€h–g°tg X’H°+g ²g žg ‘h„i‚h€h–g°4g X‘H‰g –g°g •g€hX²"H` Y`ð¬Igi ¿`²Dh¿i gjgogogo  ¿¿l2 ¿±þ_™H™˜“€‚œ˜•ŒBLOCK‚”˜•Œ \CLEARSYSBUF‚Ž™=‚‰™‚’‚„™‚“‚Z™‚”‚E™I‚1™‚‚˜•ŒKEYDOWNP‚ ™‚h‚û™‚h‚ᘕŒ SHIFTDOWNP‚Ö™‚i‚Ê™‚i‚»™‚h‚£™‚i‚•™‚i‚‰™‚iz™‚h_™‚iT™‚iH™‚i9™‚h ™‚i™‚i™‚i!‚y™‚›‚o™‚œ‚e™‚‚_™‚ž‚S™E‚K™E‚?˜Œ REDISPLAY‚7™D‚,™C‚!™‚–‚˜•ŒSPACE‚™‚ ‚˜•ŒESCAPE‚ö˜•ŒEXPAND‚ü‚ܘ•ŒSHIFT‚ј•ŒMETA‚Ř•ŒCTRL‚¶˜•ŒDELETE‚¯™‚ù‚ž™‚o‚™‚p‚„™‚nu˜•ŒCOPYm™‚öZ™‚oO™‚nC™‚p4˜•ŒMOVE,™‚ó™‚o ™‚n™‚p‚~†‚t„?€‚j†œ™I˜–B@`ð‘h`š` ¿@g ¸@¿HYkÏ¿@ ™I™˜“˜“˜ŒWINDOW<˜•Œ REDISPLAYW"˜•ŒGETWINDOWUSERPROP™J0˜’ŒBUTTON™)™D™‚z™D ™D™Dœ™J˜–&@g XYjÏ¿h¿@ ™J™˜“˜“˜ŒWINDOW ™‚x™‚y™D ™‚z™‚zœ™K˜–6`².``ð²`g É g'hh™K™˜“€™‚y+™‚!$™‚z™‚z™D ™/™‚¶™D˜–o ¿h˜Œ'DEFGLOBALPARAMETER *OV-KEYACTION-TABLE*™˜“€™‚† ™M˜“™‚‡™Mœ™˜–‚¹nX¿¿`š` ¿oT Hý¿noHkoh-¿``ð›hg ¿`ɹhºI‘I°>ZÉg [²#KÉ g'`JÉ ¿I¹°À`˜’Œ*ROOMS*™™™˜“€‚¨˜ŒPUTHASH‚…™‚y\™5)™‚˜’Œ DELETE-ROOM™™G‚³™/‚¡™‚™‚›™C‚•™‚!‚Ž™‚z‚€™‚zy™‚™g™‚šb™/W™‚´O™/J™‚¶™/™/ ™MB˜–( ¿oQ ¸j@¿H™‚†˜’Œ*UNWIND-PROTECT*˜‘˜ŒSYSTEM™‚¢˜“˜“˜ŒG1891™‚ ˜’ŒINSTALL-SUITE-BODY™˜Œ COPY-TREE™6™/˜ŒOverview7˜– HÉžoQHÉ oQ ™‚†˜ŒClean-up forms™‚¢˜“€˜ŒREMHASH™‚ˆ˜ŒOverview˜ŒOverview#˜ŒOverview3™‚§™‚¨˜–!o ¿g X‘Hh˜ŒDEFGLOBALVAR *ROOM-UNWINDERS*™˜“€™‚…™‚†™Q ™Q˜“™‚‡™Qœ˜’Œexpand-ROOM-UNWIND-SAVE™˜–"@¸ggghHho™‚ ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT˜ŒLAMBDA ˜ŒFUNCTION˜ŒPUSH˜“™Q˜–&gg ¿ggo ˜ŒDEFMACRO ROOM-UNWIND-SAVE™˜“€ ™ ˜•ŒSETF-MACRO-FUNCTION˜•ŒARGNAMES™ ™‚ ™ ˜“˜Œ&BODY˜ŒBODYœ™S˜–#`¸h¿H¸h¹H‘Hh¹jI¿H¸°ñ™S™˜“˜“˜ŒROOM™Q™Q˜–|oRgg c¿`¸g`‘H†gH¿Q¸gQ‘H†gHc¿`¸g`‘H†gH¿o ™d™[˜Œ5 top-level forms™˜“€v˜•ŒPUTPROPS˜ŒADJOINk™gd™5[™gV™5P™gF™S<™S4™a-™$™a™™a ™]™\q˜“™˜•Œ COPYRIGHT˜“˜ŒVenue & Xerox Corporation‚ÂĂƂ䘓™š‚Àÿÿ