‘XCL Compiler output for source file {DSK}arunwelch>SKYDRIVE>DOCUMENTS>UNIX>LISP>LDE>ROOMS>MEDLEY-35>BACKGROUND-MENU-BUTTONS.;2 Source file created Saturday, 5 December 2020, 16:38:10. FASL file created Saturday, 5 December 2020, 16:38:10. ÿ˜–#ogg o ˜•ŒFILECREATEDLOC˜Œ*STANDARD-INPUT*˜Œ1 top-level form˜ŒFUNCTION˜“€˜•ŒDEFINE-FILE-INFO˜ŒOPEN ˜ŒOUTPUT˜Œ DIRECTION˜“˜Œ READTABLE˜ŒXCL˜ŒPACKAGE˜ŒXCL-USER˜Œ{Null}˜–,ggo ¿o¿o ˜Œ3 top-level forms™˜“€&˜•Œ FILESLOAD˜•ŒPUTPROP˜•ŒBACKGROUND-MENU-BUTTONSCOMS˜•Œ FILEDATES˜•ŒBACKGROUND-MENU-BUTTONS!˜“˜“˜•ŒSYSLOAD˜•ŒROOMS˜“˜“˜•ŒFILES˜“™™˜“˜’ŒFILE-ENVIRONMENTS˜‘˜ŒXEROX-COMMON-LISP™˜“˜•Œ FUNCTIONS˜’ŒMAKE-BACKGROUND-MENU-BUTTON˜‘˜ŒXCL-USER˜’ŒBACKGROUND-ITEM™$˜“˜•ŒP˜“˜Œ EVAL-WHEN˜“˜ŒLOAD˜“˜’ŒMAKE-BUTTON-WINDOW˜‘˜ŒROOMS˜“˜’Œ MAKE-BUTTON™-˜ŒTEXT˜ŒMake Background Button˜ŒACTION˜“˜ŒQUOTE˜“™%˜ŒHELP˜ŒJmake a button which does the same thing as an entry on the background menu ˜“˜”˜Œ 5-Dec-2020 16:38:10•Œa{DSK}arunwelch>SKYDRIVE>DOCUMENTS>UNIX>LISP>LDE>ROOMS>MEDLEY-35>BACKGROUND-MENU-BUTTONS.;2˜–+ggo ¿ggg ˜Œ2DEFINE-FILE-ENVIRONMENT IL:BACKGROUND-MENU-BUTTONS™˜“€%™™ ˜Œ COMPILE-FILE˜•ŒFILETYPE™˜•ŒMAKEFILE-ENVIRONMENT™ ˜“™ ˜ŒXCL™ ˜ŒXCL-USERœ™%˜–<X²3gH gHggHh  h™%™˜“€4™./™/˜ŒPRINC-TO-STRING™&#˜•ŒEVAL™2™6 ™0œ™&—˜–‚¤nX¿`YºI`¿JYºIi ¿JYºIg ¿JYºIg ¿JYºIg¿J¹jjnÿnÿhºI»IJ ¿K dHý¿²6`koH-ºJ² ghoJJ HÉHÉh˜Œ *PRINT-CASE*™&™˜“€‚’˜ŒFORMATa˜•ŒMENU)˜ŒSYMBOL-FUNCTION‚€˜ŒUPCASEn˜•ŒBackgroundMenuCommandsA˜•ŒDEFAULTMENUHELDFN5˜•Œ CLRPROMPT$˜ŒVALUES™T˜•Œ MENUTYPE#‚‰˜Œ ~A~{ > ~A~}˜•Œ \PTRHUNK2™[t˜–1@¹hºI‘IhZHÉð”JhJkoH-[”JKI¹°Ö˜Œ ITEM-PATH˜ŒCLOSURE˜“˜“˜ŒITEMS™a™a˜–6gogogo  ¿o ˜Œ2 top-level forms™˜“€0˜•ŒPUTPROPS%™. ™/™6 ™2™0+˜“™˜•Œ COPYRIGHT˜“˜ŒVenue & Xerox Corporation‚ÂĂƂ䘌Jmake a button which does the same thing as an entry on the background menu˜“™%˜ŒMake Background Buttonšmÿÿ