ë�XCL Compiler output for source file {DSK}<Users>arunwelch>SKYDRIVE>DOCUMENTS>UNIX>LISP>LDE>ROOMS>MEDLEY-35>ROOMS-SUITES.;2 Source file created Saturday, 5 December 2020, 16:35:25. FASL file created Saturday, 5 December 2020, 16:35:25. ˇùòñ#o����g����g��������o���� �����òïåFILECREATEDLOC�òèå*STANDARD-INPUT*òå1 top-level form���òêåFUNCTIONòìÄòïåDEFINE-FILE-INFOòèåOPENòêåOUTPUTòêå DIRECTIONòìòêå READTABLEòåXCLòêåPACKAGEòåROOMSòå{Null}�ùòñ�!g����g����o��������øo���������òå2 top-level forms����ôòìÄòïåPUTPROPòïåROOMS-SUITESCOMSòïå FILEDATESòïåROOMS-SUITESòìòìòíåFILE-ENVIRONMENTSòëòåXEROX-COMMON-LISPôòìòïåPòìòèåEXPORTòìòèåQUOTEòìòíå*SUITE-FILE-TYPE*òëòåROOMSòíå*SUITE-DIRECTORIES*ôòíåDEFSUITEôòìòèåREQUIREòåROOMSòìòïåDEFINE-TYPESòïåSUITESòìòïå VARIABLESòíå*DEFSUITE-VERSION*ôòíå*SUITES*ôô ôòìôòìòèåPUSHNEWòìôòìòèåCLRHASHô.òíå *RESET-FORMS*ôòêåTESTòìôòèåEQUALòìòïå*òïå;;òåloading suitesòìòïå FUNCTIONSô!òíå MAKE-SUITEôòíåSUITE-ROOMSôòíå INSTALL-SUITEôòíåINSTALL-SUITE-BODYôòíåINSTALL-ROOMôòíåINSTALL-PLACEMENTôòìòïå SEDIT-FORMATSô!òìô:ô;òådeleting suitesòìô>òíåDELETE-SUITEôòìô:ô;òåconstructing suitesòìô>òíå DUMP-SUITEôòíåUPDATE-SUITEôòíåCONSTRUCT-DEFSUITEôòíåALL-WINDOWS-IN-ROOMSôòíåCONSTRUCT-WINDOWSôòíåCONSTRUCT-FILESôòíåCONSTRUCT-PLACEMENTSôòìô>òíåROOMS-NOT-IN-ANY-SUITEôòíåFIND-SUITE-CONTAININGôòíå AUGMENT-SUITEôòíåDELETE-ROOM-FROM-SUITEôòìô:ô;òåinteractive codeòìô,òíå*SUITE-MENU-ITEMS*ôòíå*SUITE-MENU*ôòìô>òíå SUITE-MENUôòíåINTERACTIVE-LOAD-SUITEôòíåINTERACTIVE-DUMP-SUITEôòíåINTERACTIVE-MAKE-SUITEôòíåINTERACTIVE-UPDATE-SUITEôòíåINTERACTIVE-DELETE-SUITEôòíåINTERACTIVE-SHOW-SUITEôòíåINTERACTIVE-AUGMENT-SUITEôòíå"INTERACTIVE-DELETE-ROOM-FROM-SUITEôòíåSELECT-SUITEôòíåPROMPT-FOR-SUITE-NAMEôòìòîòå 5-Dec-2020 16:35:25ïåV{DSK}<Users>arunwelch>SKYDRIVE>DOCUMENTS>UNIX>LISP>LDE>ROOMS>MEDLEY-35>ROOMS-SUITES.;2�ùòñ�+g����g����o��������øg����g����g���������òå'DEFINE-FILE-ENVIRONMENT IL:ROOMS-SUITES����ôòìÄ%ôô òêåCOMPILE-FILEòïåFILETYPEôòïåMAKEFILE-ENVIRONMENTôòìô òåXCLôòåROOMS�ùòñ�o���� �����òå1 top-level form����ôòìÄô�òìôô ô!�ùòñ�o���� �����òå1 top-level form����ôòìÄô%�òåROOMS�ùòñÇ��"g����g����o��������øo����Rg����g��������cøo����Sg����g��������cøo���� ����øg���� ����X¶h����øg����`���� ����≥0g����`����g����g����g����l2g����l2 ��������øQ∏g����QëHÜg����Hcøg����g����g��������øg����g����g��������øg����g����g��������øg����g����g��������øg����g����g���������òïåFILEPKGTYPESòïåPRETTYDEFMACROSòïå PRETTYTYPELSTòåDEF-DEFINE-TYPE IL:SUITES��ôòìÄ Ç��ôÇ��ôÇ���ÚôÇ���›ôÇ���»ôÇ���ùòèåPUTHASHÇ���òòèåMAKE-HASH-TABLEnòïåGETHASHVòèåBOUNDPKòèåPROCLAIM>òèåADJOIN&ôÇ���åòïåSET-DOCUMENTATION!Ç��òïåNILLÇ��òïåFILEPKGCONTENTSÇ�� ô*Ç��òíå%DEFINE-TYPE-FILEGETDEFôÇ���˝òïå FILEGETDEFÇ���¯ô*Ç���Ìòíå%DEFINE-TYPE-PUTDEFôÇ���ËòïåPUTDEFÇ���„ô*Ç���ÿòíå%DEFINE-TYPE-DELDEFôÇ���”òïåDELDEFÇ���Œô*Ç���√òíå%DEFINE-TYPE-GETDEFôÇ���æòïåGETDEFÇ���πô*Ç���Øô*Ç���•ô*Ç���êòêåREHASH-SIZEÇ���âòêåSIZEÇ���Ñô6ô5zòíå*DEFINITION-HASH-TABLE*ôuô*iôÇ���ödô*^òïåCHANGEDSUITESLSTQôÇ���õ9ô64ô5!ô6ô5ô)ô*FòìòíåGLOBALôôÇ���õ.òìôÇ���õô*òåRoom Suitesòìô*òíåXôòìôô:òìòíå%DEFINE-TYPE-FILE-DEFINITIONSôòìôô*òìôôÇ���†ôÇ���û�ùòñ�g����h ����øk����øo���� �����òåDEFCONSTANT *DEFSUITE-VERSION*����ôòìÄôÇ���ãòíå SET-CONSTANTPôô-ô-òìòíåCONSTANTòëòåSYSTEMô-�ùòñ�/o���� ����øg���� ����XëHg����g���� ���������òåDEFGLOBALVAR *SUITES*���ôòìÄ$ôÇ���àôÇ���äôÇ���ã)ô.ô6ô5ô.òìôÇ���úô.�ùòño���� ����øihc���ô òå DEFPARAMETER *SUITE-DIRECTORIES*���ôòìÄôÇ���ã�òìòèåSPECIALô �ùòñ"o���� ����øg���� ����XëHo����c�ôòåDEFVAR *SUITE-FILE-TYPE*��ôòìÄôÇ���äôÇ���ãôòåSUITEòìôÇ���∂ô�ùòño����Pg����g��������c���ô4òå1 top-level form���ôòìÄôÇ���åô6ô5òìô1ô.�ùòñ�Gg����g����g��������øg����g����g����¡…�g����'∏g����HëHÜg����H�����òåDEFDEFINER DEFSUITE���ôòìÄAôô :ô!0ô!)òêå DEFINED-BY ô*ôÇ���ƒô*ô*òêåDEFINER-FORô!��úòíådefinition-expander-DEFSUITEôòñ�%@XπH∫g����g����Ihg����Jhh�ôÇ���«��ôòìòìòå$$MACRO-FORMòå$$MACRO-ENVIRONMENT�ôô ôA��ùòñ�+g����g����g��������øg����g����g���������ôÇ���¬����ôòìÄ%ôô òèåSECONDòêåDEFINITION-NAMEô!ôÇ���«òêåDEFINITION-EXPANDERô!��úòíåundefiner-fn-DEFSUITEôòñ� @`���� �����ôÇ���“���ôòìòìòåNAMEòèåREMHASHô.��ùòñ_g����g����g����¡…�g����'∏g����HëHÜg����H����øg����g����o��������øo����Qg����g��������c�òïåPRETTYPRINTMACROSôÇ���¬��ôòìÄWôÇ���åAô,ô Rô6Mô57òêåDEFINITION-PRINT-TEMPLATE2ô!%ôÇ���“ôÇ���“òêå UNDEFINERSô!ôÇ���€ô!Gòîô!íåPPRINT-DEFINERô<òìòêåNAMEòêåBODY�úòíåexpand-DEFSUITEôòñ�g����g����g����@Ah�ôÇ���·���ôòìòìòå$$MACRO-FORMòå$$MACRO-ENVIRONMENT�ô!ô*òíåDEFINERô��ùòñ�&g����g���� ����øg����g����o���������ôÇ���¬����ôòìÄ ôòïåSETF-MACRO-FUNCTIONòïåARGNAMESô!ôÇ���·ô!òìòèå&WHOLEòåXCL::DEFINITIONòèå&ENVIRONMENTòåXCL::ENV�úô?òñ�6@`���� ����≤o����o����@����ø@i ����ø@`����A����ø@�ô?���ôòìòìòå SUITE-NAMEòå ROOM-NAMES.ôÇ���á!ôJòèåCERRORôÇ���â(ô.ô.òåAttempt to redefine suite ~Sòå+Delete all rooms in existing suite named ~S�úòíåexpand-SUITE-ROOMSôòñ�@Xπg����Io�����ôÇ���˘��ôòìòìòå$$MACRO-FORMòå$$MACRO-ENVIRONMENT�òèåGETHASHòìô.�ùòñ�&g����g���� ����øg����g����o���������òåDEFMACRO SUITE-ROOMS����ôòìÄ ôôÇ���ÈôÇ���Íô@ôÇ���˘ô@òìòå SUITE-NAME�úôAòñÇ���£@`���� ����≤o����o����@����ø@i ����øh∏hπA∫hªJëJÅ∞#ªK\g����üKΩHîIM&πÑMhY∏J∫∞€HY∏hªHëHÅ∞/[V ����≤ o����o����K����øKV ���� ����øH∏∞œA ����ø@I ����ø�����òíå*ROOMS*ôôA�ôòìòìòå SUITE-NAMEòå SUITE-BODY Ç���ùòíåCHECK-LOST-WINDOWSôÇ���óô?Ç���èôBÇ���ÉòíåDELETE-ROOMô~ôÇ���âvôÇ���ıdôÇ���â!ôJôÇ���ıôÇ���â:òêåROOMô.pòåA room named ~S already existskòå2Delete existing room named ~S (will close windows)òåAttempt to redefine suite ~Sòå+Delete all rooms in existing suite named ~S�úôBòñ!n��X@�ø n��o�����ko����H-�òíå*LOCKED-MONITOR*ôÇ���¨òíå*RESETFORMS*ôÇ���¨ôB��ôòìòìòå SUITE-BODY��òñ�Ç��'`����hg��������ø����πh∫H…�ªhºKëKÅ∞bºL]g����ôL ����ø∞GMg����^ëNÜMg����≥3Mg����≤LZkÛ≤"o����J ����ø∞ho����Mo��������øKª∞úJ¨o���� ����øk∫����øH…�ºhªLëLÅ∞DªK]g����≤2KK ����^ ����≤KIN����øN ����¶N ����øLº∞∫H…�ªhºKëKÑhh∞'ºL]g����≤g���� ����IL����øKª∞‘j@ø �����òíå*UNWIND-PROTECT*ôÇ���¨��òêåCLOSUREòìòìòåG1669Ç��!òèåVALUES-LISTÇ��òèåAPPLYÇ�� òèåSYMBOL-FUNCTIONÇ���fiòíåHIDE-WINDOWôÇ���◊òíåFIND-PLACEMENTôÇ���–ôÇ���áÇ���ƒòïåWINDOWPÇ���æòíåRECONSTITUTE-WINDOWôÇ���ïòíåUPDATE-PLACEMENTSôÇ���çòèåWARN{òïå ECASE-FAILgòèåERROR4òïåDOFILESLOADôÇ���àòïåOBTAIN.MONITORLOCK Ç��ôCÇ���˝ôÇ�� Ç���¨òêåWINDOWQòêåVERSIONHôÇ�� =ôÇ��*+òêåFILESòïåWITH.MONITORòíå*MONITOR-LOCK*ôÇ���àòå1No version found in DEFSUITE. Presuming current.vòìôÇ��,ôÇ��*ôÇ�� ôÇ��+pòìòèåFIRSTòíåSPECôaòåDEFSUITE version ~S too high.�òñ������òåClean-up forms����ôÇ��òìÄòíåMONITOR-UNWINDôÇ���¨��� òïåCOMPILED-CLOSUREòïå \PTRHUNK2úôCòñ�Ç���∞ekÛ®lh ����øhe#∏g����µhπÅaπg����Ag����h∫hªIºhΩLëLÅ∞(Ωg���� ����@M����^õJîKN&ªÑNh[∫Lº∞÷JH ����[∫JΩhºM°∞8M≤Mg����≤LòLMø∞JZª∞o���� ����øMæMºNΩ∞«K �����ôC�ǡˇˇˇôòìòìòåWINDOWSòåNAMEòèå&RESTòå REST-KEYSòèå&KEYòêå PLACEMENTSòèå&ALLOW-OTHER-KEYSÇ���™ôÇ��Ç���òôÇ��'bòèå COPY-LISTHôÇ��AôÇ��òíåARGUMENT-ERRORôÇ���¨yôÇ��B<ôD'ôÇ��B!òíå MAKE-ROOMôôÇ��BÇ���ìòå!Odd-length property list in REMF.�úôDòñ�Ç���˘ekÛ®lh ����øhe#∏g����µhπÅaπg����µh∫Åa∫g����µhªÅaªA@ ����\¢±�±g����Lg����I ����g����Jg����KñK ����Ähg����H ����Ωo����æh_øNëNÅ∞f_øM_øO_øO_øh_øO°∞EO≤!OO≤$OöOOø∞)O_Ω∞ o���� ����øO_øO_øO_ø∞πNæ∞òM ����h�ôD �ǡˇˇˇôòìòì òåWINDOWSòåNAMEôÇ��?òå REST-KEYSôÇ��AòêåREGIONòêå SHRUNKEN?òêå ICON-POSITIONôÇ��CÇ���ÒòíåMAKE-PLACEMENT-INTERNALôÇ���—ôÇ��'uôÇ��FhòíåINTERNALIZE-POSITIONôUòíåINTERNALIZE-REGIONô?ôÇ���âôÇ��GoòêåPROPS`ôÇ��PZôÇ��OOôÇ��NIôÇ��*/ôÇ��P!ôÇ��OôÇ��NÇ���ÃôÇ��I{òìôÇ��NôÇ��OôÇ��P�ùòñ�g����o���� �����òåSEDIT:DEF-LIST-FORMAT DEFSUITE����ôòìÄòíåSETF-OF-GET-FORMATòëòåSEDITô!òìòêåARGSòìÄòêåKEYWORDÄòêåINDENTòì�úôJòñ:A≤,@`���� ����∏hπHëHÅ∞YS ����ZñJ ����øH∏∞Ê@`���� �����ôÇ��ôJ�ôòìòìòå SUITE-NAMEòèå &OPTIONALòå ROOMS-TOO?4ôÇ���÷#ôÇ��ôÇ���â ôÇ���â/ô.ô.��úôNòñÇ�� @ ����ø@g���� ����∏HXíH∞:g����@ ����g����Sg����hg����hg����h ���� ����o���� ����∏hπHg���� ����ëhÄiZíJ∞@g����H ��������ëhÄi≤DHg����g����Ho��������øHg����o����g����Hhg����@hhh����øA´o����H ����ø����øHo���� ���� ����πA≥o����I ���� ����øH`���� ��������øH`���� ��������øI�ôôN�ôòìòìòå SUITE-NAMEôÇ��fòåQUIET?Ç��òèåREMOVEÇ��ôÇ��oÇ���ˆòíåNOTIFY-USERôÇ���Òòèå NAMESTRINGÇ���‚òèåPATHNAMEÇ���›òïåMAKEFILEÇ���—òïåALLOW.BUTTON.EVENTSÇ���ÀôÇ��pÇ���ΩôÇ���ìÇ���îôÇ���ìvòïåINFILECOMS?qòïåFILECOMS\òïåHASDEFNòèåINTERNDôÇ��q?òèå MAKE-PATHNAME!òèå STRING-UPCASEòïåWHEREISôOÇ��òïåNOTLISTEDFILESÇ��ôÇ��|Ç��òïåNOTCOMPILEDFILESÇ���˝ôÇ��}Ç���Æô*Ç���•ôÇ���õòïåFILESÇ���áòíåDEFINE-FILE-ENVIRONMENTôÇ���Çôkô*WôÇ��~8òêå DIRECTORY2òêåDEVICE,òêåHOST&òêåTYPEôÇ���› ô*Ç���ÎòåMade file ~AÇ���ÿòìòïåFASTòïåNEWÇ���≈òåMaking file ~A ...Ç���†òìôÇ��~òïåROOMSÇ���çòìôòìòíå DEFPACKAGEôòåROOMSòìòêåUSEòåLISPòåXCLòìòêåSHADOWòèåROOMô òåXCLòêåCOMPILERôsIòåIL�úôOòñ&g�����@g����@@`���� ���� ����������òïåDFNFLGôO��ôòìòìòå SUITE-NAME ôÇ���ìôPôÇ���âô. ô*òïåPROP��úôPòñÇ���„h∏hπA∫hªJëJÅ∞,[W ����\ùHïIL&π∞LhY∏ão����K ����øJ∫∞“Hπ����∏I ����H ����ªg����@o����g����H ����KI∫hºhΩhæJ¢L∞hJ_øg����O����…�g����OH ����g����O����…g����O����…����…�O����… æLîMN&ΩÑNh]ºJ∫∞ó �����ôÇ��ôP�ôòìòìòå SUITE-NAMEòå ROOM-NAMESÇ���ŸòèåAPPENDÇ���éôT_ôSHôRBôQ;ôÇ���à.ôÇ��%ôÇ���âÇ���∏òíåROOMôÇ���Øòíå BACKGROUNDôÇ���®ôÇ��•Ç���°òêå BACKGROUNDÇ���öôÇ��•Ç���ìòêå INCLUSIONSÇ���ÜôÇ��BôÇ��•xôÇ�� YôÇ��,Nô!TòìôÇ��+(òåNo room named ~S exists.�úôQòñ�I����øh∏@πh∫IëIÅ∞1Z����…ªhºKëKÅ∞\����…�]HëHÇMH∏Kª∞‰Iπ∞ÕH �����ôQ��ôòìòìòåROOMSCòèåNREVERSEôÇ��$'òíå PLACEMENTôôÇ��•��úôRòñ�Fh∏hπj∫@ªhºKëKÅ∞5\ ����]≤&g����JMæHîIN&πÑNhY∏LAJ����øJk‘^∫Kª∞…H�ôR��ôòìòìòåWINDOWSòåWINDOW-NAMES4ôÇ���áòíåABSTRACT-WINDOWôôÇ��*��úôSòñ�+n��XøhH˝�øn��o�����H@ ����øH…� �����ôS��ôòìòìòåWINDOW-NAMES%òèåREVERSEòèåMAPHASH�òñ�9@ ��������…g����'πh∫IëIÅhZªH…�ºJH…�ëLÇKLH˝�øIπ∞‡�òålambda in CONSTRUCT-FILES��ôÇ��òìòìòåWINDOWòåNAMEòíåWINDOW-TYPEôôÇ��,ôÇ��¬�� ôÇ��:ôÇ��;úôTòñ�Ç���èh∏hπ@����…∫hªJëJÅ∞y[����…�A ����\≤bLg����K����… ����K����…≤'g����K����…g����K����… ����hÄhK����… ����ΩHîIM&πÑMhY∏J∫∞ÖH�ôT��ôòìòìòåROOMòåWINDOW-NAMESsôÇ��§_òíåEXTERNALIZE-POSITIONô6òíåEXTERNALIZE-REGIONô ôÇ���â lôÇ��∞XôÇ��∞RôÇ��PKôÇ��∞EôÇ��O<ôÇ��∞/ôÇ��∞)ôÇ��NôÇ��∞ôÇ��•��úôVòñ�Vh∏hπi ����∫hªJëJÅ∞B[����…�º@íh∞Lo����Ã]ëMÜLo����ÃëhâL ����ëhÄiõHîIK&πÑKhY∏J∫∞ºH�ôV��ôòìòìôÇ��fòå FOR-DELETION?9ôWòíå ALL-ROOMSôôÇ��•/òåOriginal$òåPockets�úôWòñ8n��Z@�øg����g����YJ˝øn�jªn��o�����J`���� �����òíå*CATCH-RETURN-PC*ôÇ���¨òíå*CATCH-RETURN-TO*ôÇ���¨ôW��ôòìòìòå ROOM-NAME2ôÇ��º-ô.ôW ôW#òñ�#H…�Ag����g��������õH…@h ����h�òålambda in FIND-SUITE-CONTAINING��ôÇ��òìòìòå SUITE-NAMEòå ROOM-NAMESòíåNON-LOCAL-RETURN-VALUESôÇ���¨òèåMEMBER ô6ô5��ôÇ��:ôÇ��;úôXòñ�.@∏`����πA@`���� ����g����g��������∫HIJ�����ôX��ôòìòìòå SUITE-NAMEòå ROOM-NAME(ôÇ���áôÇ���åôÇ���âô6ô5ô.ô.��úôYòñ�(A`����@A`���� ����g����g�������������ôY���ôòìòìòå ROOM-NAMEòå SUITE-NAME"ôÇ���áòèåDELETEôÇ���âô6ô5 ô.ô.��ùòñ�o���� ����øo���������òå%DEFGLOBALPARAMETER *SUITE-MENU-ITEMS*����ôòìÄôÇ���ãô]òìòìòå Save SuiteòìôòìòíåWITH-BUTTONôòìôòìôbòå Save SuiteòåSave a set of rooms to a fileòåSave a set of rooms to a fileòìòïåSUBITEMSòìòåUpdate SuiteòìôòìôÇ��ÔòìôòìôdòåUpdate Suiteòå#Update the DEFSUITE form of a suiteòå#Update the DEFSUITE form of a suiteòìòå Restore SuiteòìôòìôÇ��Ôòìôòìôaòå Restore SuiteòåLoad a set of rooms from a fileòåLoad a set of rooms from a fileòìòå Show SuiteòìôòìôÇ��Ôòìôòìôfòå Show SuiteòåList the rooms in a suiteòåList the rooms in a suiteòìòå Augment SuiteòìôòìôÇ��Ôòìôòìôgòå Augment SuiteòåAdd a room to a suiteòåAdd a room to a suiteòìòåDelete SuiteòìôòìôÇ��ÔòìôòìôeòåDelete Suiteòå3Delete a suite, and optionally all the rooms in it.òå3Delete a suite, and optionally all the rooms in it.òìôÇ��˜òìòåDelete Room From SuiteòìôòìôÇ��ÔòìôòìôhòåDelete Room From SuiteòìôÇ���úô]�ùòñ�!o���� ����øg���� ����XëHh�����òåDEFGLOBALVAR *SUITE-MENU*���ôòìÄôÇ���äôÇ���ãô^ô^òìôÇ���úô^�úô`òñ�x`����≥]`����XπH`����øIXπHo����øIXπHiøIXπHg���� øIXπHg����øI∏jjnˇnˇhπH∫HI øJ����ø`���� ����YñI ����h�ô`���ôòìÄpòïåEVALhòïåMENUcô^]ô^=òïåDEFAULTMENUHELDFN1òïå CLRPROMPTô]òïåMENUTYPE#ô^òåSuites�úôaòñÇ���±n��Xø����dH˝�ø¢±�úH…�`���� ����ùo����H…� ����H…�g����Qg����hg����hg����hg����h ����h���� ����iR����dH˝ø≤0g����g����n��o�����Hhhg����o��������o����H…� ����h�ôô ôa��ôòìÄ Ç���©ôÇ��pÇ���õòïåADD.PROCESSfòïåFINDFILE_ôÇ��qZòèåMERGE-PATHNAMESTôÇ��y,ôÇ��pôÇ���âôj Ç���ëòïåNAMExôsòèåFUNCALLMôÇ��+GôÇ��ÄAôÇ��Å;ôÇ��Ç5ôÇ��Éô.Ç���°òå*Can't find suite ~S on *SUITE-DIRECTORIES*Ç���ñòå Restore SuiteÇ���Åòñ�'n��H�YøhI˝øn��o�����Iko����I-�òå lambda in INTERACTIVE-LOAD-SUITE���ôÇ��òìÄ��òñ�H…�… ����øidH˝øhj@ø �����ôÇ����ôÇ��òìòìòåG1739ôÇ��òèåLOAD���òñ�'hi ����YñI ����øH…üo����H…�…� ����h�ôÇ��6���ôÇ��òìÄôÇ��pòïåCLOSEWòïåWFROMDS�òåRestored suite ~S.�ôÇ��:ôÇ��;$òå A suite named ~S already exists.}ôÇ��:ôÇ��;úôbòñ�Xg����o����g����i����X≤?g����o����g����g����Hhhhho����H����ho����H��������h�ôb���ôòìÄPôÇ��ÔKòèåFORMAT?ôÇ��Vôi(ô#ôNòïå RESETFORMòêå ALLOW-NEW?òêåREASONEòåSave suite named ~S.9òåSave ~AòìòïåTTYDISPLAYSTREAMòìòíåGET-MESSAGE-STREAMôòåSave�úôcòñ�Ç���ê����X≤~����Y≤tI`���� ����õo����I ����h∫hªo����I ����øH°∞;g����H ����\≤*LHg����g��������∏L����…�ΩJîKM&ªÜMh[∫ÄÅ∞≈J[óIK ����hho���� �����ôc���ôòìÄ Ç���äôÇ��p{ô?WôÇ��ÍCòíåSELECT-ROOMô3ôÇ��p#ôÇ��pôÇ���â ôjôV^ôÇ��•RòèåEQMô5=òêå FROM-ROOMSô.Ç���Öòå$All rooms are already in some suite.-òå<Select rooms to go in ~S.~%Click outside menu when finished.òåA suite named ~S already exists�úôdòñ�Xg����o����g����i����X≤?g����o����g����g����Hhhhho����H����ho����H��������h�ôd���ôòìÄPôÇ��ÔKôÇ��V?ôÇ��Vôi(ô#ôOôÇ��WôÇ��XôÇ��YEòåUpdate suite named ~S.9òå Update ~AòìôÇ��\òìôÇ��]òåUpdate�úôeòñ�Ag����o���� ����Xõo����H ����Äh≤ Ho����H ���� ����øo����H ����h�ôe���ôòìÄ9ôÇ��p-ôJ(òíåCONFIRMôôÇ��rôiôÇ��Y3òåSuite ~S deleted."òå0Delete all rooms in ~S too? (will close windows)òåDelete suite ~S?òåDelete�úôfòñ�,g����o���� ����X≤o����HH`���� ��������h�ôf���ôòìÄ$ôÇ��pôÇ���âôiô.ôÇ��Yòå Suite ~S contains rooms:~{ ~S~}.òåShow�úôgòñ�Q����X≤?g����o���� ����Y≤+o����I ����øg����Hg����i����ZóIJ ����hho���� �����ôg���ôòìÄKôÇ��p<ôX3ôÇ��c!ôÇ��pôiôV-òêå NAME-ONLY?'ôÇ��e ôÇ��YFòå$All rooms are already in some suite.òåSelect room to add to suite ~Sòå Augment Suite�úôhòñ�Dg����o���� ����X≤1H`���� ����o���� ����Y≤IH ����øo����IH����hh�ôh���ôòìÄ:ôÇ��p-ôY#òíåMENUôôÇ���âôiô.ôÇ��Y3òåDeleted room ~S from suite ~S.òåSelect RoomòåDelete room from�úôiòñ�yn��∏g����µhπÅaπg����µh∫Åa∫Jïo����ÄhH˝�øn��o�����H`���� ����øH…�≤ H…�I ����ªJóKg����Ähï����Ko���� ����øh�ôi�ǡˇˇˇôòìòìôÇ��AôÇ��YôÇ��XqôÇ��pdôcRôÇ��ÉCôÇ��º[òêåNEW>ô.ôÇ��XôÇ��Ylòå No suites!4òñ� @H…�dH˝�ø�òålambda in SELECT-SUITE��ôÇ��òìòìòå SUITE-NAMEòå SUITE-BODY����$òìòìòå<new suite>ôÇ��ä0ôÇ��:ôÇ��;úôjòñ�1emˇÛìekÛójk ����øej£ka∏Öo����∏H ����YñI ����h�ôj�ǡˇˇˇôòìòìôÇ��fòåPROMPT)ôÇ��z!òíåPROMPT-USERôôÇ��G�òåSuite Name:�ùòñ�o���� �����òå1 top-level form����ôòìÄòïåPUTPROPS�òìôòïå COPYRIGHTòìòåVenue & Xerox CorporationÇ��√Ç��ƒÇ��∆Ç��‰�öÇ��§ˇˇ