‘XCL Compiler output for source file {DSK}arunwelch>SKYDRIVE>DOCUMENTS>UNIX>LISP>LDE>ROOMS>MEDLEY-35>ROOMS-INTERACTIVE.;2 Source file created Saturday, 5 December 2020, 16:35:33. FASL file created Saturday, 5 December 2020, 16:35:33. ے‌ک–#oggo ک•Œ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-INTERACTIVECOMSک•Œ FILEDATESک•ŒROOMS-INTERACTIVEک“ ک“ک•Œ*ک•Œ;;کŒ(mostly portable interactive code (joke?)ک“ک’ŒFILE-ENVIRONMENTSک‘کŒXEROX-COMMON-LISP™ک“ک•ŒPک“کڈŒEXPORTک“کڈŒQUOTEک“ک’ŒINTERACTIVE-GO-TO-ROOM-NAMEDک‘کŒROOMSک’ŒINTERACTIVE-COPY-PLACEMENT™"ک’ŒINTERACTIVE-MOVE-PLACEMENT™"ک“کڈŒREQUIREکŒROOMSک“ک•Œ VARIABLESک’Œ*BACKGROUND-ITEM*™"ک’Œ*MOVE-ITEM*™"ک’Œ*CLOSE-ITEM*™"ک“ک•Œ FUNCTIONSک’ŒINSTALL-MENU-ITEMS™"ک’ŒINSTALL-MENU-ITEM™"ک“™ک“کڈŒPUSHNEWک“™ ک“™3ک’Œ *RESET-FORMS*™"کگŒTESTک“™ کڈŒEQUALک“™2ک’ŒINTERACTIVE-CLOSE-WINDOW™"ک’ŒINTERACTIVE-GO-TO-ROOM™"ک’ŒINTERACTIVE-GO-TO-OVERVIEW™"™#ک’ŒINTERACTIVE-EDIT-ROOM™"ک’Œ EDIT-ROOM™"ک’ŒINTERACTIVE-EDIT-PLACEMENTS™"ک’ŒINTERACTIVE-INCLUDE-ROOM™"ک’ŒINTERACTIVE-EXCLUDE-ROOM™"ک’ŒINTERACTIVE-DELETE-ROOM™"ک’ŒINTERACTIVE-FIND-PLACEMENT™"™$™%ک’Œ'INTERACTIVE-COPY-PLACEMENT-TO-THIS-ROOM™"ک’Œ%INTERACTIVE-MOVE-PLACEMENT-TO-POCKETS™"ک’Œ"INTERACTIVE-MOVE-OR-COPY-PLACEMENT™"ک’ŒINTERACTIVE-RESET™"ک’ŒSELECT-ROOM™"ک’ŒINTERACTIVE-MAKE-ROOM™"ک’ŒINTERACTIVE-COPY-ROOM™"ک’ŒINTERACTIVE-RENAME-ROOM™"ک’ŒINTERACTIVE-MAKE-DOOR™"ک’Œ MAKE-DOOR™"ک’ŒRETRIEVE-WINDOWS™"ک’ŒCHECK-LOST-WINDOWS™"ک’Œ EVAL-WALK™"ک“ک•ŒCOMSک“™™کŒ back doorsک“™-ک’Œ*BACK-DOOR-ROOM-NAME*™"ک“™2ک’ŒMAKE-BACK-DOOR™"ک’ŒBACK-DOOR-ENTRY-FUNCTION™"ک“™ک“™6ک“™ ™]ک’Œ*ROOM-ENTRY-FUNCTIONS*™"ک“ک•Œ GLOBALVARSک•ŒPROMPTWINDOWک•Œ CROSSHAIRSک“ک”کŒ 5-Dec-2020 16:35:32•Œ[{DSK}arunwelch>SKYDRIVE>DOCUMENTS>UNIX>LISP>LDE>ROOMS>MEDLEY-35>ROOMS-INTERACTIVE.;2‌ک–+ggo؟gggکŒ,DEFINE-FILE-ENVIRONMENT IL:ROOMS-INTERACTIVE™ک“€%™™ کگŒCOMPILE-FILEک•ŒFILETYPE™ک•ŒMAKEFILE-ENVIRONMENT™ک“™ کŒXCL™کŒROOMS‌ک–o کŒ1 top-level form™ک“€™ک“™#™$™%‌ک–o کŒ1 top-level form™ک“€™)کŒROOMS‌ک–uo ؟ooogooooooooog`hohکŒ$DEFGLOBALPARAMETER *BACKGROUND-ITEM*™ک“€کڈŒPROCLAIMo™.Rک’Œ*SUITE-MENU-ITEMS*™"Mک•ŒSUBITEMS™‚‚]ک“ک“کŒ Make Doorک“™ ک“™QکگŒ ALLOW-NEW?پکŒ-Make a door to a room - a button to enter it.ک“™‚‚ک“کŒMake Back Doorک“™ ک“™\کŒ/Make a back door - a door to the previous room.HکŒSave a set of rooms to a fileCک“™ ک“ک’ŒWITH-BUTTON™"ک“™ ک“ک’Œ SUITE-MENU™"کŒSuitesکŒSave a set of rooms to a file>کŒSuites9ک“کŒRetrieve Windowsک“™ ک“™‚‘ک“™ ک“™SکŒRetrieve WindowsکŒ%Retrieve windows lost from all rooms.کŒ%Retrieve windows lost from all rooms.4ک“کŒ€کŒNo-op/ک“کŒDelete Roomک“™ ک“™‚‘ک“™ ک“™GکŒDelete RoomکŒDelete a room.کŒDelete a room.*ک“کŒ Edit Roomک“™ ک“™‚‘ک“™ ک“™BکŒ Edit RoomکŒEdit a selected room.کŒEdit a selected room.ک“™‚‚ک“کŒEdit This Roomک“™ ک“™‚‘ک“™ ک“™Cک’Œ*CURRENT-ROOM*™"کŒEdit This RoomکŒEdit the current room.کŒEdit a selected room.ک“کŒEdit Placementsک“™ ک“™‚‘ک“™ ک“™DکŒEdit PlacementsکŒ"Edit placements of a selected roomکŒ"Edit placements of a selected roomک“کŒExclude Roomک“™ ک“™‚‘ک“™ ک“™FکŒExclude RoomکŒExclude a room from another.کŒExclude a room from another.ک“™‚‚ک“کŒFrom This Roomک“™ ک“™‚‘ک“™ ک“™F™‚¸کŒExclude From This RoomکŒ%Exclude a room from the current room.کŒExclude a room from another.ک“کŒInclude Roomک“™ ک“™‚‘ک“™ ک“™EکŒInclude RoomکŒInclude a room in another.کŒInclude a room in another.ک“™‚‚ک“کŒIn This Roomک“™ ک“™‚‘ک“™ ک“™E™‚¸کŒInclude In This RoomکŒ#Include a room in the current room.کŒ#Include a room in the current room.%ک“کŒ Make Roomک“™ ک“™‚‘ک“™ ک“™NکŒ Make RoomکŒMake a new room.کŒMake a new room. ک“کŒ Go to Roomک“™ ک“™‚‘ک“™ ک“™@™‚„پکŒ Go to RoomکŒGo to a room, possibly new.کŒGo to a room, possibly new.کŒEnter the overviewک“™ ک“™‚‘ک“™ ک“™AکŒOverviewکŒEnter the overviewکŒRoomsک“ک’ŒGLOBAL™™.‌ک–o ؟oc™/کŒDEFPARAMETER *MOVE-ITEM*™ک“€™‚€ک“ک•ŒMoveک“™ ک•ŒMOVEWکŒMoves window by a cornerک“™‚‚ک“کŒMove to another roomک“™ ™%کŒ#Move this placement to another roomک“™‚‚ک“کŒMove to pocketsک“™ ™JکŒ&Move this placement to the pocket roomک“کŒCopy to another roomک“™ ™$کŒ#Copy this placement to another roomک“™‚‚ک“کŒCopy to this roomک“™ ™IکŒ Copy this placement to this roomک“کŒ Where is?ک“™ ™HکŒ%Find which room this placement is in.ک“کڈŒSPECIAL™/‌ک–o ؟oc™0کŒDEFPARAMETER *CLOSE-ITEM*™ک“€™‚€ک“ک•ŒCloseک“™ ™?کŒCloses a windowک“™‚-™0œ™3ک–Z`gg؟Pgg؟Pgg؟Qgg؟Qgg™/™0™3™ک“€T™4C™42™4!™4™4Oک•ŒIconWindowMenuJک•ŒIconWindowMenuCommands>ک•Œ WindowMenu9ک•ŒWindowMenuCommands-™‚9(™‚:™‚;™‚<ک•ŒBackgroundMenuک•ŒBackgroundMenuCommands™.œ™4ک–CA ¸@HggY—@؛IJ؟‰H@h ؟AH ؟Bh ™4™ک“ک“کŒITEMکŒ ITEMS-VARکŒMENU-VAR=کڈŒSET5™‚E-ک•Œ\NCONC2کڈŒASSOCکڈŒ COPY-TREEکڈŒSYMBOL-VALUE™;™:‌ک–oPggc™9کŒ1 top-level form™ک“€کڈŒADJOIN™;™:ک“™3œ™?ک–‚àejَ”elَکkl ؟ekظjً¤la¸…`¸@¹@g Z‘J†Ii ¹@؛@g ‘h†@Iً‘h€i²*@g [iً‘hٹgK‘h€iک@ ؟hI؛I [¢±SK —IH €h²,HKً–g°4oKة –g°h°ooo\gً¢±¬I ]–I ؟I ›Ig €I ؟M²I ^’N°Ig €h–I K¾h_؟N‘Nپh_؟I_؟Oة_؟h_؟O’O‚h°_ةOً’O‡O_؟°à_™OO ؟N¾°°Lgً²BIH ]_؟M¾OکON ؟I ؟I` _—O hhJ ™?‚ےےےے™ک“ک“کŒWINDOWکڈŒ &OPTIONALکŒ FROM-ROOM‚عک•ŒCLOSEW‚دک’ŒPLACE-PLACEMENT™"‚إک’ŒFIND-PLACEMENT™"‚¹ک’ŒHIDE-WINDOW™"‚²ک’ŒDELETE-PLACEMENT™"‚‍ک•Œ\MVLIST‚™™‚W‚ƒ™‚Y‚0™‚X‚'ک•ŒOPENWP‚"ک•ŒGETWINDOWUSERPROP‚™‚[‚™‚U‚™‚\‚ُک’Œ SHRUNKEN?™"‚îک’ŒUN-HIDE-WINDOW™"‚وک’ŒWINDOW-HIDDEN?™"‚صک’ŒMENU™"‚¶ک’ŒCONFIRM™"‚“™‚W‚‹کڈŒENDPک’ŒFIND-ROOMS-CONTAINING™"t™‚U\™‚\E™‚\7ک•Œ MAINWINDOW,™‚\ ک’ŒARGUMENT-ERRORک‘کŒSYSTEM‚ہ™‚¸‚ڈکگŒTHIS‚fک’Œ PLACEMENT™"‚Lک’ŒROOM™"‚ک•Œ ICONWINDOW‚ü™‚k‚غکگŒALL‚¼™‚l‚¯™‚j‚،™‚lg™‚UWک•ŒPASSTOMAINCOMS@ک•ŒICONFOR'™‚n™‚¸‚ذکŒ0This window has placements in more than one room‚ثکŒDelete?‚ئک“ک“کŒAll placements™‚lک“کŒJust this placement™‚h‚¨کŒOThis placement is in the included room ~S.~%Are you sure you want to delete it?œ™@ک–ngµh¸پa¸gµh¹پa¹H™Hة°gIgogi Z²&ggJhhJhoJh™@‚ےےےے™ک“ک“کڈŒ&KEYکگŒROOM™‚„f™‚‘aکڈŒFORMAT@™MM™ H™#9کگŒ NAME-ONLY?/کگŒREASON)™‚„ ™‚j™‚„™‚y[کŒGo to room named ~S.4کŒ Go to roomœ™Aک–#؟`ggi ™A™ک“€ک’Œ GO-TO-ROOM™"ک’ŒSELECT-BAGGAGE™"ک’ŒUPDATE-PLACEMENTS™"کگŒ NO-UPDATEکگŒBAGGAGEک’Œ*OVERVIEW-ROOM*™"œ™#ک–:@Q X²%` ؟Hggi o@ ک’Œ*ROOMS*™"™#™ک“ک“کŒNAME4ک’ŒNOTIFY-USER™"(™‚ƒ™‚„™‚…ک•ŒGETHASH!™‚†™‚‡™‚¸.کŒNo room named ~S exists!œ™Bک–RgogiX²9gggHhhhhoHhoHh™B™ک“€J™‚‘E™‚|9™‚|™M#™ ک’Œ ROOM-NAMED™"™C™‚}™‚~?کŒEdit room named ~S.3کŒEdit ~AکŒEditœ™Cک–‚؛nX؟@أ‍@ةS €h’@°@S Y‘Iچo@ ؟hH‎؟gHةة gHةةة Hةة H‎؟o J Z J noHک’Œ *PROFILE*™™‚ٹ™C™ک“ک“کŒROOM‚´ک•Œ \DO.PROGV‚،ک’ŒPROFILE-VALUES™‚›ک’ŒPROFILE-VARIABLES™‚•ک’Œ PROFILIZE™‚Œک’ŒFIND-PROFILE™y™‚Hj™‚HO™‚H3™‚ژ$™‚ڈ™‚ڈr™‚jcک’Œ BACKGROUND™"\™‚jTکگŒ BACKGROUNDH™‚j@کگŒ INCLUSIONS™‚j™‚j‚ھک–.HةhHةةgnoHo کŒlambda in EDIT-ROOMکگŒCLOSUREک“€(ک•ŒEDITEک•Œ Expression™‚j"ک“کگŒDONTWAITک–‚àHةةW dH‎؟Hةg' ؟Hة •؟HةHةg' ؟Hة ¹o؛h»J‘Jپ°Q»I¼K½L¾h_؟N،°;N²NMً²!O™ON؟°#L\¹°o ؟N_؟N_؟O¾°ؤJ؛°HةI ؟Hةg ™‚ٹکŒlambda in lambda in EDIT-ROOM ™‚¥ک“€ ‚عک’ŒROOM-CHANGED™"‚ت™‚H‚§کڈŒERROR^کڈŒ COPY-LISTS™‚H<™‚…6ک’ŒIN-ROOM?™"+ک’ŒMAKE-BACKGROUND™"&™‚H ™‚ڈ‚صکگŒEDITED‚ؤ™‚jM™‚£E™‚j ™‚¢™‚j™‚j‚¢کŒ!Odd-length property list in REMF.dک“™‚£™‚¢ک•ŒCOMPILED-CLOSURE‚‡کŒXCL-کŒCan't edit room ~S‚¦™‚¶ک•Œ \PTRHUNK2œ™Dک–JgogiX²1ggHhhhoHhoHh™D™ک“€B™‚‘=™‚|1™‚|™M™ ک’ŒGET-PE™"™‚}™‚~7کŒEdit the placements of ~S.+کŒEdit ~A's PlacementsکŒEdit Placementsœ™Eک–‚‡i ¸@’@°gigogH Y¢±ZIةZ‘h€i[‘K…J‘i€h«oI gighoIةgIH Z¢±ےJةIةgg²oJةIة؟JةةgJةhhج²%IةةgIةhhج€h²+Jgohh ؟Jg ؟I»JةKة¼KL؟Ig ؟oJةIة؟ihh™E™ک“ک“™‚QکŒIN-ROOM ‚{™‚ژ‚`™‚‚6™‚‚(™‚±‚أ™‚…‚½™‚ژ‚،کڈŒMEMBER}™MwکڈŒREMOVEk™‚|L™‚ژ$™Mک’Œ ALL-ROOMS™"‚t™‚j‚l™‚j‚[™‚²‚Q™‚j‚G™‚j‚?™‚j‚1™‚²‚کگŒTEXT‚™‚j‚™‚j‚ü™‚ب‚ُ™‚،‚î™‚j‚ق™‚j‚ط™‚ب‚ر™‚،‚ت™‚j‚¶™‚j‚®™‚j‚œ™;‚—™:‚گ™‚j‚ˆ™‚jpکگŒ FROM-ROOMSd™‚jX™‚~R™‚„/™‚j™‚ة™‚~ ™‚„‚fکŒIncluded ~S in ~S.‚کŒ‚¨کŒ~S is already included in ~S^کŒ Include in ~AFکŒCan't add inclusions to ~S.کŒInclude in ...œ™Fک–‚™@‘@ژgo X¢±پHة‘i€h«oH HةhoHة Y²A؟HIHة ؟Hg ؟oIHة؟ihh™F™ک“ک“™‚QکŒ FROM-ROOM‚چ™‚ژy™‚k™‚ئV™‚…N™‚`I™‚|-™‚ژ™M‚†™‚jt™‚²d™‚j]™‚jB™‚j4™‚j™‚j™‚~کŒ~S is no longer included in ~S.<کŒExclude from ~A'کŒ~S has no inclusions. کŒExclude from ...œ™G—ک–ei ¸@²0@H™@koh-o@ة@ة H² gogHkoh-o ™G™ک“ک“™‚QکŒROOM_™‚ژL™M3™‚ژ.ک’ŒFIND-SUITE-CONTAINING™"ک’ŒROOMS-NOT-IN-ANY-SUITE™"F™‚ة<™‚~'™‚j™‚jZکŒAll rooms belong to some suite.AکŒDeleteکŒ'Delete ~S from suite ~S before deleting™‚لRک–"@²o@ة €h–@ hکŒDELETE?™‚¥ک“ک“کŒROOMک’ŒDELETE-ROOM™"™‚a ™‚jکŒ& Delete room ~S? (will close windows)™‚ل™‚èœ™Hک–A@¸@g Y‘I†Hi ¸؟oH YZة ™H™ک“ک“کŒWINDOW;™‚ژ+™‚Z&™‚W™‚…™‚d ™‚\4™‚j™‚n کŒThis placement is in ~S.œ™$ک–6@ ؟A’A°gogigi Xک@Hih™$™ک“ک“کŒWINDOW™‚QکŒ ROOM-NAME.™K$™M™‚^™‚}™‚„ ™‚~کŒCopy this placement toœ™%ک–6@ ؟A’A°gogigi Xک@Hhh™%™ک“ک“کŒWINDOW™‚QکŒ ROOM-NAME.™K$™M™‚^™‚}™‚„ ™‚~کŒMove this placement toœ™Iک–@`ةi™I™ک“ک“کŒWINDOW™K™‚j™‚¸œ™Jک–`œ@`ho ™J™ک“ک“کŒWINDOW™‚ژ™Kک’Œ*POCKET-ROOM-NAME*™"™‚کŒThere is no pocket room.œ™Kک–‚™@¸@g Y‘I†Hi ¸AU Y‘IŒoA ؟hY²d؟H Z»J\Iً²oLة ؟gKLIB؟oB•o„oLةA؟ih™‚ٹ™K™ک“ک“کŒWINDOWکŒ TO-ROOM-NAMEDکŒCOPY? ‚ڈ™‚ژnک’ŒMOVE-PLACEMENT™"^™‚ژA™‚Z<™‚W5™‚…+™‚ژ™‚ڈ™‚d ™‚\‚‡™‚jdکگŒNOOPW™‚j™‚n‚پکŒMoved{کŒCopiedtکŒ ~A this placement from ~S to ~S.QکŒ This placement is already in ~S.%کŒThere is no room named ~S.œ™Lک–o •h™L™ک“€ک’ŒRESET™"™‚aکŒ"Reset Rooms? (Will lose windows.)œ™Mک–‚ضgµh¸پa¸gµh¹پa¹gµ i ؛پa؛gµ o»پa»h¼h½J¾h_؟N‘Nپ°/_ةgOhh_؟L•MO&½…Oh]¼N¾°دH²LکMo&½ˆoh]¼L]²1MK ¼H—Lgً€h•€L_‍I™OةOho ؟h™M ‚ےےےے™ک“ک“™‚x™‚„™‚}™‚ة™‚~‚خ™‚ژ‚®™N‚œ™‚`'™‚ا‚¼™‚j‚¥کگŒNEW\™ U™‚j0™‚~™‚ة™‚}™‚„‚ةکŒ No rooms!‚چک“کŒ ™‚‚…™‚9کŒSelect Roomœ™Nک–0oo X²HQ ›oH H h™‚ٹ™N™ک“€(ک’Œ MAKE-ROOM™"!™‚ژ™‚ڈک’ŒPROMPT-USER™"کŒ)A room named ~S already exists. Aborted.کŒ$Type name of new room (CR to abort).کŒName:œ™Oک–e@‘@ژgo X²NooHةY²2IR ›oI HI ؟oHةIhh™‚ٹ™O™ک“ک“™‚QکŒROOM[™‚ژGک’Œ COPY-ROOM™"?™‚ژ3™‚ڈ)™‚™MS™‚j"™‚j™‚~MکŒCopied room ~S to ~S.9کŒA room named ~S already exists.کŒCopying room ~S.کŒ New Name: کŒCopyœ™Pک–e@‘@ژgo X²NooHةY²2IR ›oI HI ؟oHةIhh™‚ٹ™P™ک“ک“™‚QکŒROOM[™‚ژGک’ŒRENAME-ROOM™"?™‚ژ3™‚ڈ)™‚™MS™‚j"™‚j™‚~MکŒRenamed room ~S to be ~S.9کŒA room named ~S already exists.کŒRenaming room ~S.کŒ New Name: کŒRenameœ™Qک–Agµh¸پa¸gigHY²Z²gIgJhh™Q‚ےےےے™ک“ک“™‚x™‚„7™R#ک’ŒSELECT-BUTTON-TYPE™"™M1کگŒBUTTON-TYPE+کگŒ ROOM-NAME™‚„™‚}™‚„œ™Rک–tgµh¸پa¸gµS¹پa¹gµh؛پa؛gHggH ‘HˆgHhhghoHgI J ک’Œ*DEFAULT-BUTTON-TYPE*™"™R‚ےےےے™ک“ک“™‚x™‚<™‚;کگŒPOSITIONnک’ŒMAKE-BUTTON-WINDOW™"hک’ŒMAKE-BUTTON™"\™‚|<کڈŒ CONSTANTP aکگŒTYPEPکگŒHELPD™ 6™#1کگŒACTION+™‚ب™‚?™‚;™‚