XCL Compiler output for source file {DSK}arunwelch>SKYDRIVE>DOCUMENTS>UNIX>LISP>LDE>ROOMS>MEDLEY-35>ROOMS-BACKGROUNDS.;2 Source file created Saturday, 5 December 2020, 16:35:40. FASL file created Saturday, 5 December 2020, 16:35:40. #ogg o FILECREATEDLOC*STANDARD-INPUT*1 top-level formFUNCTIONDEFINE-FILE-INFOOPEN OUTPUT DIRECTION READTABLEXCLPACKAGEROOMS{Null}!ggo o2 top-level formsPUTPROPROOMS-BACKGROUNDSCOMS FILEDATESROOMS-BACKGROUNDS *;;code for painting backgroundFILE-ENVIRONMENTSXEROX-COMMON-LISPPEXPORTQUOTEMAKE-BACKGROUNDROOMSBACKGROUND-INTERNAL-FORM"*DEFAULT-BACKGROUND-TEXT-FONT*"RENAISSANCE-BITMAP"SQUARES-BITMAP" TILE-BITMAP"INTERNALIZE-ALL-BACKGROUNDS"REQUIREROOMS STRUCTURES BACKGROUND" FUNCTIONS#INTERNALIZE-BACKGROUND"INTERNALIZE-BACKGROUND-TEXT") EVAL-WHENLOADPUSHNEW )*SCREEN-CHANGED-FUNCTIONS*" VARIABLES*DEFAULT-BACKGROUND*"%4PAINT-BACKGROUND"FIND-BACKGROUNDS"DRAW&FILL-BOX-WITHIN"A*SCREEN-BITMAP*"A&'( GLOBALVARSWINDOWBACKGROUNDSHADE WHOLESCREEN  5-Dec-2020 16:35:40[{DSK}arunwelch>SKYDRIVE>DOCUMENTS>UNIX>LISP>LDE>ROOMS>MEDLEY-35>ROOMS-BACKGROUNDS.;2+ggo ggg ,DEFINE-FILE-ENVIRONMENT IL:ROOMS-BACKGROUNDS% COMPILE-FILEFILETYPEMAKEFILE-ENVIRONMENT  XCL ROOMS o 1 top-level form#$%&'() o 1 top-level form-ROOMSDgio goolg ggg DEFSTRUCT BACKGROUND>)%STRUCTURE-DECLARE-DATATYPESYSTEM SET-PARSED-STRUCTURE9TYPE-EXPAND-STRUCTURE4 TYPE-EXPANDER/2#STRUCTURE-OBJECT222POINTER2nnnPS2MAKE-BACKGROUND-INTERNAL" EXTERNAL-FORM" INTERNAL-FORM"DATATYPE BACKGROUND-t BACKGROUND-P"DEFAULT-STRUCTURE-PRINTERCOPY-BACKGROUND"uLISToBACKGROUND-EXTERNAL-FORM"v~p$rACCESSOR PREDICATE{@{OBJECT2"g g g eESTABLISH-SETFS-AND-OPTIMIZERSESTABLISH-ACCESSORSESTABLISH-PREDICATE2 22tL_ioNoh _OOgO gOh_Lg'^hi_ON >L_ioNoh _OOgO gOh_gLLg'gLg'hhLg'gLg'hh MgLg'^_Nhi_ONOh_OO >L_ioNoh _OOgO gOh_Lg'^hi_ON3 ih>L_ioNoh _OOgO gOh_Lg'^hi_ON >L_ioNoh _OOgO gOh_gL Lg'gLg'hhLg'gLg'hhLg'gLg'hh !MggW L hhIJK&KhZH *DEFAULT-TEXT-FONT*" %5  BACKGROUND6٘APPENDINTERNALIZE-REGION"kLISTPUTW=TEXTUREPO뙂љU; EVAL-WALK"&또TEXT㙂Θ BORDER-SHADEșBORDERSHADEREGIONrd+ әÙ|BITMAPeZD>7+% WHOLE-SCREENg) PORNULLTEXTURE"JGETF PROP-LIST"INTEGERBITMAP"䘓ޘNHSECOND6hg@g'g@g'XHjj g@g'XHgg@g'XH Qg@gi 6 PROP-LISTb MAKE-TEXT"\I FONTCREATE INTERNALIZE-POSITION" VSHADOWSP@FONT:5 LEFT-BOTTOM+ ALIGNMENT%POSITION STRING)7noQ `XH h*ROOMS*")-5 MAPHASH&2 2ROOM"*OVERVIEW-ROOM*"%AXH IJJ%lambda in INTERNALIZE-ALL-BACKGROUNDSCLOSUREG1777ROOM52 2COMPILED-CLOSURE"`g`HgH1 top-level form=) =)=&o g`hh 'DEFGLOBALPARAMETER *DEFAULT-BACKGROUND*#PROCLAIM BL GLOBALBo gl$ c%+DEFPARAMETER *DEFAULT-BACKGROUND-TEXT-FONT* TIMESROMANDSPECIAL%DOeklh g `aghagha@ hKKh\hMMN_gX`H AgNgNgj H gNgn gJ Og]Ng'H AgNg'gNgj H gNgn gJ OgINAgH MKDROOMDSPSCALENO-TEXTCLIPPING-REGION = DISPLAY-TEXT"FFIXRԘ SCALE-REGION"Fr=EARGUMENT-ERRORh7) SCALE"왂昐 BORDER-WIDTHڙ͙ęxlMdM2.  *ONE-TO-ONE*"Ehh@Zh[\`h_h_J_HgOiJ_hi_OOihaO_h_OO'_W _OKhihMO&O_L\LNNW ZJKhihhhlI`HH әE ROOMGETHASHhB5' *POCKET-ROOM-NAME*"Feklh gjagjaghagna@@@@_Ihi_OjIA@HJ MO_LN_LI_NI_AgOgMIgOgOI HJ KALMIOIhJ KAOOIOIhJ KAOIMIOIhJ KAOMOIhJ F REGIONDSPBLTSHADE ۙ Ǚ PAINT-REGION" MAKE-REGION"o HEIGHTWIDTHBOTTOMLEFT8*%o g XHDEFGLOBALVAR *SCREEN-BITMAP* SCREENBITMAPBOUNDPH HH%o g XHoDEFGLOBALVAR RENAISSANCE-BITMAP& &JIUUUUUUUUU@UUUUUUUUU@W@W@ƀWUUUUUUE@ƀWUUUUUUE@ƀWUUUUUUE@ƀWUUUUUUE@ƀWE@jƀWUE@jƀW}UUUTUE@jƀW}UUUTUE@jƀW}UUUTUE@jƀW}UUUTUE@jƀW}_TUE@jƀW}_TUE@jƀW}_UTUE@jƀW}_UTUE@jƀW}_UTUE@jƀW}_UTUE@jƀW}_MTUE@*jƀW}\ TUE@jƀW}UUUTUE@jƀW}UUUTUE@jƀW}UUUTUE@jƀW}UUUTUE@jƀWxUE@jƀW`UE@ƀWUUUUUUE@ƀWUUUUUUE@ƀWUUUUUUE@ƀWUUUUUUE@ƀW%@V@UUUUUUUUU@UUUUUUUUU@&o o!DEFGLOBALPARAMETER SQUARES-BITMAP' HHꪺUuU]UWUUꪺUuU]UWUUꪺUuU]UWUUꪺUuU]UWUUUuU]UWUUꪺUuU]UWUUꪺUuU]UWUUꪺUuU]UWUUꪺꪺUuU]UWUUꪺUuU]UWUUꪺUuU]UWUUꪺUuU]UWUUUuU]UWUUꪺUuU]UWUUꪺUuU]UWUUꪺUuU]UWUUꪺꪺUuU]UWUUꪺUuU]UWUUꪺUuU]UWUUꪺUuU]UWUUUuU]UWUUꪺUuU]UWUUꪺUuU]UWUUꪺUuU]UWUUꪺꪺUuU]UWUUꪺUuU]UWUUꪺUuU]UWUUꪺUuU]UWUUUuU]UWUUꪺUuU]UWUUꪺUuU]UWUUꪺUuU]UWUUꪺ'o oDEFGLOBALPARAMETER TILE-BITMAP( dd@0UUUUUUUUUUp*ʪUUUUUUUUUUp*ʪUUUUUUUUUUp*ʪUUUUUUUUUUp*ʪUUUUUUUUUUp*ʪUUUUUUUUUUp*ʪUUUUUUUUUUp*ʪUUUUUUUUUUp*ʪUUUUUUUUUUp*ʪUUUUUUUUUUp*ʪUUUUUUUUUUp*ʪUUUUUUUUUUp*ʪUUUUUUUUUUp*ʪUUUUUUUUUUp*ʪUUUUUUUUUUp*ʪUUUUUUUUUUp*ʪUUUUUUUUUUp*ʪUUUUUUUUUUp*ʪUUUUUUUUUUp*ʪUUUUUUUUUUp*ʪUUUUUUUUUUp*ʪUUUUUUUUUUp*ʪUUUUUUUUUUp?@@0UUUUUUUUUUp*ʪUUUUUUUUUUp*ʪUUUUUUUUUUp*ʪUUUUUUUUUUp*ʪUUUUUUUUUUp*ʪUUUUUUUUUUp*ʪUUUUUUUUUUp*ʪUUUUUUUUUUp*ʪUUUUUUUUUUp*ʪUUUUUUUUUUp*ʪUUUUUUUUUUp*ʪUUUUUUUUUUp*ʪUUUUUUUUUUp*ʪUUUUUUUUUUp*ʪUUUUUUUUUUp*ʪUUUUUUUUUUp*ʪUUUUUUUUUUp*ʪUUUUUUUUUUp*ʪUUUUUUUUUUp*ʪUUUUUUUUUUp*ʪUUUUUUUUUUp*ʪUUUUUUUUUUp*ʪUUUUUUUUUUp?@( o 1 top-level formPUTPROPS COPYRIGHTVenue & Xerox CorporationÂĂƂ.