ë�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Ç��√Ç��ƒÇ��∆Ç��‰�öÇ��§ˇˇ