‘XCL Compiler output for source file {DSK}arunwelch>SKYDRIVE>DOCUMENTS>UNIX>LISP>LDE>ROOMS>MEDLEY-35>ROOMS-TEXT.;2 Source file created Saturday, 5 December 2020, 16:27:41. FASL file created Saturday, 5 December 2020, 16:27:41. ÿ˜–#ogg o ˜•Œ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-TEXTCOMS˜•Œ FILEDATES˜•Œ ROOMS-TEXT˜“ ˜“˜’ŒFILE-ENVIRONMENTS˜‘˜ŒXEROX-COMMON-LISP™˜“˜•ŒP˜“˜ŒEXPORT˜“˜ŒQUOTE˜“˜’Œ*DEFAULT-TEXT-FONT*˜‘˜ŒROOMS˜’Œ MAKE-TEXT™˜’Œ DISPLAY-TEXT™˜’ŒDEF-TEXT-SHADOWS™˜’ŒSET-TEXT-STRING™˜“˜•Œ STRUCTURES˜’ŒTEXT™˜’Œ TEXT-SHADOW™˜“˜•Œ VARIABLES™˜’ŒDEFAULT-TEXT-FONT--SMALL-SCREEN™˜’ŒDEFAULT-TEXT-FONT--LARGE-SCREEN™˜’ŒSMALL-SCREEN-WIDTH™˜“ ˜•Œ FUNCTIONS™ ˜’ŒUPDATE-TEXT-CACHES™˜’ŒCOMPUTE-TEXT-DIMEMSIONS™˜’ŒMAXIMIZE™˜’ŒMINIMIZE™™!™#˜’ŒSET-DEFAULT-TEXT-FONT™˜“™˜“™6˜“™1˜“˜•Œ*˜•Œ;;˜Œ;for back compatibility: buttons & pe's still call these two˜’Œ TEXT-%WIDTH™˜’Œ TEXT-%HEIGHT™˜“™,˜’Œ*TEXT-SHADOWS*™˜’Œ*TEXT-SHADOW-FACTOR*™˜“™1˜’ŒGET-TEXT-SHADOWS™˜’ŒGET-TEXT-SHADOWS-INTERNAL™˜’ŒMAKE-TEXT-SHADOWS™˜’ŒEXTERNALIZE-TEXT-SHADOWS™˜’ŒINTERNALIZE-TEXT-SHADOWS™˜’Œ!INTERNALIZE-TEXT-SHADOWS-INTERNAL™˜“™:™;˜Œa definer for shadows˜“˜•Œ DEFINE-TYPES˜•Œ TEXT-SHADOWS˜“™1™"˜“™N€˜ŒARK ˜“˜”˜Œ 5-Dec-2020 16:27:41•ŒT{DSK}arunwelch>SKYDRIVE>DOCUMENTS>UNIX>LISP>LDE>ROOMS>MEDLEY-35>ROOMS-TEXT.;2˜–+ggo ¿ggg ˜Œ%DEFINE-FILE-ENVIRONMENT IL:ROOMS-TEXT™˜“€%™™ ˜Œ COMPILE-FILE˜•ŒFILETYPE™˜•ŒMAKEFILE-ENVIRONMENT™ ˜“™ ˜ŒXCL™ ˜ŒROOMS˜– o ˜Œ1 top-level form™˜“€™˜“™™ ™!™"™#˜–Dgio ¿goolg ¿ggg ˜ŒDEFSTRUCT TEXT™˜“€>™)˜’Œ%STRUCTURE-DECLARE-DATATYPE˜‘˜ŒSYSTEM ˜ŒSET-PARSED-STRUCTURE9˜ŒTYPE-EXPAND-STRUCTURE4˜Œ TYPE-EXPANDER/™)#˜ŒSTRUCTURE-OBJECT™)™)˜“˜“™)˜•ŒPOINTER˜“™)™n˜“™)™n˜“™)™n˜“™)™n˜“™) ™n˜“™) ™n˜“™n™n™n™n™n™n™n˜“˜ŒPS™)˜’ŒMAKE-TEXT-INTERNAL™˜“˜ŒSTRING˜ŒPOSITION˜’Œ ALIGNMENT™˜’ŒFONT™˜’ŒSHADOWS™˜’Œ%IMAGE™˜’Œ%MASK™˜ŒDATATYPE€€˜ŒTEXT-˜“™y˜’ŒTEXT-P™˜“˜ŒLAMBDA˜“™)˜ŒSTREAM˜’ŒDEPTH™˜“˜ŒFORMAT™‚‡˜Œ #˜“˜’Œ TEXT-STRING™™)˜’Œ COPY-TEXT™€€˜“˜“™z˜Œ™z€™o™‚Œ˜“™{˜“˜’Œ MAKE-POSITION™˜ŒCONS€™p˜’Œ TEXT-POSITION™˜“™|˜Œ LEFT-BOTTOM˜“˜ŒMEMBER™‚˜˜ŒLEFT-TOP˜ŒCENTER˜Œ RIGHT-BOTTOM˜Œ RIGHT-TOP€™q˜’ŒTEXT-ALIGNMENT™˜“™}™€™r˜’Œ TEXT-FONT™˜“™~˜“™F™˜ŒLIST€™s˜’Œ TEXT-SHADOWS™˜“™€˜’ŒBITMAP™€™t˜’Œ TEXT-%IMAGE™˜“™‚€€™‚§€™u˜’Œ TEXT-%MASK™€€™w€˜“˜ŒACCESSOR˜Œ PREDICATE€€€œ™‚…˜–@Ù‚…™˜“˜“˜ŒOBJECT™)˜–"g ¿g ¿g ™e™˜“€˜ŒESTABLISH-SETFS-AND-OPTIMIZERS˜ŒESTABLISH-ACCESSORS˜ŒESTABLISH-PREDICATE™) ™)™)œ™y˜–‚œgµ ožažgµjj¹a¹gµ gºaºgµW»a»gµ W ŒaŒgµhœhŸƒaœiŸgµ h_¿h_¿‡a_¿i_¿`_H¿OI¿OJ¿OK¿OL¿N•OM ¿O–OO ¿O ™™y ‚ÿÿÿÿ™˜“˜“˜Œ&KEY˜ŒSTRING˜ŒPOSITION˜Œ ALIGNMENT˜ŒFONT˜ŒSHADOWS˜Œ%IMAGE˜Œ%MASKO™F ‚„˜’Œ TEXTTYPE#™j™‚ÂX™‚ÁD™‚À5™‚¿,™‚˜#™‚Ÿ™‚œ™‚Œ ™‚‘œ™‚˜–]@ž@Ñ°igHgh b¿°ß`X@É¿H@É¿H@É¿H@É¿H@É¿H@É  ¿H@É  ¿H™‚™˜“˜“˜ŒTEXT˜•ŒCHECK-TYPE-FAIL$™‚Å™) ™)™)˜–Dgio ¿gool g ¿ggg ˜ŒDEFSTRUCT TEXT-SHADOW™˜“€>™)™i ™j9™k4™l/™*#™m™*™*˜“˜“™*™n˜“™*™n˜“™*™n˜“™*™n˜“™*™n˜“™n™n™n™n™n˜“™x™*˜’ŒMAKE-TEXT-SHADOW™˜“˜’ŒDX™˜’ŒDY™˜’Œ SOURCE-TYPE™˜’Œ OPERATION™˜’ŒTEXTURE™™‚‚€€˜Œ TEXT-SHADOW-˜“™‚Õ˜’Œ TEXT-SHADOW-P™˜ŒDEFAULT-STRUCTURE-PRINTER˜’ŒCOPY-TEXT-SHADOW™€€˜“˜“™‚Ö˜ŒINTEGER€™‚Θ’ŒTEXT-SHADOW-DX™˜“™‚×™‚မ‚Ϙ’ŒTEXT-SHADOW-DY™˜“™‚ؘ“™˜•ŒINPUT˜“™‚™™‚昕ŒINVERT˜•ŒTEXTURE˜•ŒMERGE€™‚И’ŒTEXT-SHADOW-SOURCE-TYPE™˜“™‚Ù˜“™˜•ŒPAINT˜“™‚™™‚ŒREPLACE˜•ŒERASE™‚耙‚ј’ŒTEXT-SHADOW-OPERATION™˜“™‚Ú™‚Ú€™‚Ò˜’ŒTEXT-SHADOW-TEXTURE™€€™‚Ô€™‚¯€€€œ™‚Þ˜–@Ù‚Þ™˜“˜“˜ŒOBJECT™*˜–"g ¿g ¿g ™‚Ì™˜“€™‚·™‚ž™‚¹™* ™*™*œ™‚Õ˜–pgµjžažgµj¹a¹gµ gºaºgµ g»a»gµjŒaŒ`]H¿MI¿MJ¿MK¿ML¿M™‚Õ‚ÿÿÿÿ™˜“˜“™‚»˜ŒDX˜ŒDY˜Œ SOURCE-TYPE˜Œ OPERATION˜ŒTEXTUREO˜’ŒTEXT-SHADOWTYPE#™A™‚8™‚î/™‚&™‚時™‚™‚œ™‚à˜–O@ž@Ñ°igHgh b¿°ß`X@É¿H@É¿H@É¿H@É¿H@É¿H™‚à™˜“˜“˜Œ TEXT-SHADOW™‚Ê$™‚™* ™*™*˜–o ¿g X‘Hhc™˜ŒDEFVAR *DEFAULT-TEXT-FONT*™˜“€˜ŒBOUNDP˜ŒPROCLAIM ™˜“˜ŒSPECIAL™˜–#o ¿gl g ˜Œ2DEFGLOBALPARAMETER DEFAULT-TEXT-FONT--SMALL-SCREEN™˜“€˜•Œ FONTCREATE™‚™-˜•ŒBOLD ˜•Œ HELVETICA˜“˜’ŒGLOBAL™™-˜–#o ¿glg ˜Œ2DEFGLOBALPARAMETER DEFAULT-TEXT-FONT--LARGE-SCREEN™˜“€™‚™‚™.™‚ ™‚˜“™‚™.˜–o ¿nx˜Œ%DEFGLOBALPARAMETER SMALL-SCREEN-WIDTH™˜“€™‚™/˜“™‚™/œ™ ˜–‚gµhžažgµjj¹a¹gµ gºaºgµW»a»gµhŒaŒI «oI ¿Jgð]’M°0Jgð^’N°$Jgð_“O°Jgð_’O†Jgð³hgJo ¿KœK ‘°igMgh »°ágHgIgJgKgL ] ¿M ™™ ‚ÿÿÿÿ™˜“˜“™‚»™‚Œ™‚œ™‚Ÿ™‚¿™‚À‚ú™2‚ô™y‚î™H‚È™‚Ê‚²˜•ŒFONTP‚©˜•Œ ECASE-FAIL[˜ŒERRORO˜•Œ POSITIONP‚虂À‚♂¿‚Ü™‚Ÿ‚Ö™‚œ‚Й‚Œ‚Á™}‚»™}‚ž™|‚•™‚‚ˆ™‚œz™‚›n™‚šb™‚˜@™‚À1™‚¿(™‚˜™‚Ÿ™‚œ™‚Œ‚€˜“™‚˜™‚š™‚›™‚œ™‚U˜Œ~S not a positionœ™2˜–‚Ê@Éž@ÉH ¹H ºIJ »oŒKL ¿HL ¿jH L ¿@ÉL ¿@I \œL^_¿N__¿O_¿@É _²OO ÿ™MO ÿ‚h€h²jOjjMO ¿O‡MO _¿@ _¿@É _¿O²;O²OO ÿ™MO ÿ‚h€h²jOjjMO ¿O‰MO €h_¿@ _ ¿h_"¿O ’O ‚±…_"¿KjjOO"ÉOÔO"ÉOÔIJO"ÉO"ÉO"É ¿O²2KjjOOO"ÉÔOO"ÉÔIJgg ¿O _ ¿±ÿx@O ¿@O ¿O™2™˜“˜“˜ŒTEXT‚¢˜•ŒBITBLT‚n™‚0‚™D‚˜•Œ BITMAPCREATE‚˜•ŒBLTSHADE‚Œ BITMAPWIDTH‚䘕Œ BITMAPHEIGHT‚Ä™D‚»™‚1‚¯™‚2‚š™‚3‚™‚4b˜•Œ\MVLIST]™3U˜ŒPRINCF˜•ŒMOVETO@˜•Œ FONTDESCENT8˜•ŒDSPFONT0˜•ŒDSPDESTINATION"™‚1˜•Œ FONTHEIGHT˜•Œ STRINGWIDTH‚œ™)‚²™)‚œ™‚î‚—˜•ŒSOURCE‚™*‚™*‚f™*‚]™*‚T™*‚F™*‚:™*‚Í™)‚™)M™) ™)™)(˜›˜“˜•Œ DSPCREATEœ™3˜–‚@ žh¹hºH»hŒK‘Kˆh\]‘M‚I°$\ɺI‘h€i]‘M†IJó‘h€i‘J¹K»°Óºh¹hŒH»hœK‘Kˆh]^‘N‚I°%]ÉŒI‘h€i^‘N‡ILýó‘h€i‘L¹K»°Ò¹hŒhœH»hŸK‘KŠh^_’O‚L°&^ÉœL‘h€i_’O†LMó‘h€i‘MŒK»°ÏœhŒhŸH»h_¿K‘K‹h__’O‚L°(_ÉŸL‘h€i_’O‡LNýó‘h€i‘NŒK»°ÌŒAJÔjIÕÔ@É MÔjLÕÔjIÕjLÕ$™3 ™˜“˜“˜ŒTEXT˜Œ STRING-WIDTH‚™‚;™D‚þ™)‚Ò™*‚’™*W™*™*œ˜’Œexpand-MAXIMIZE™˜–D@XYºI»HŒgogJKoggLhoh™‚G™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT-˜’Œ$VALUE$™h(˜ŒSETQ˜ŒDOLIST˜ŒLET7˜“˜“˜ŒUNLESS˜“˜ŒAND˜’Œ $MAX-VALUE$™h˜“˜Œ>™‚R™‚L˜“™‚M™‚R™‚L!˜“™‚R˜“˜“™‚R€˜“™‚L€˜–&gg ¿ggo ˜ŒDEFMACRO MAXIMIZE™˜“€ ™ ˜•ŒSETF-MACRO-FUNCTION˜•ŒARGNAMES™4™‚G™4˜“˜Œ (VAR LIST)˜ŒFORMœ˜’Œexpand-MINIMIZE™˜–D@XYºI»HŒgogJKoggLhoh™‚f™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT-™‚L(™‚M™‚N˜ŒLET*7˜“˜“™‚P˜“™‚Q˜’Œ $MIN-VALUE$™h˜“˜Œ<™‚l™‚L˜“™‚M™‚l™‚L!˜“™‚l˜“˜“™‚l€˜“™‚L€˜–&gg ¿ggo ˜ŒDEFMACRO MINIMIZE™˜“€ ™ ™‚`™‚a™5™‚f™5˜“˜Œ (VAR LIST)˜ŒFORMœ™!˜–‚¢ekóšlh ¿gµhžažgµh¹a¹@ɺ@É»@É \ œL ŸH²&J_¿H_¿OHÉÖ OÉԁJ_¿H²&J_¿H_¿OHÉÖ OÉԁJ_¿Kgð_’O†Kgð“O°CKgð_’O†Kgð•OMÕ°(KgðœOMl Õ°hgKo _¿Kgð_’O†Kgð“O°2Kgð_’O†Kgð•ONÕ°Kgð›ONl Հh_¿@É _²&OjjAOOMNgI•g„g ¿I‘hLjjAOOMNgg ™! ‚ÿÿÿÿ™˜“˜“˜ŒTEXT˜Œ DESTINATION™‚»˜ŒSCALE˜Œ MASK-ONLY ‚œ™‚0‚}™‚0‚H˜’ŒSFLOOR™‚ÿ™‚'‚뙂„‚•˜•ŒFIXRi™‚…L™‚4E™‚3˜’ŒARGUMENT-ERROR™h‚–™‚î‚‘™‚æ‚w™‚ñ‚q™‚î‚j™‚æ‚T™)‚<™‚›‚.™‚‚!™‚š‚™‚œ‚™‚˜‚ô™|‚ß™‚›‚Ñ™‚‚Ä™‚œ‚ž™‚š‚«™‚˜‚œ˜’ŒSCALE™‚™‚‡p™‚‡a™‚‡=™)4™)+™)™‚™‚€‚ú˜“™‚˜™‚š™‚œ™‚™‚›œ™#˜–@A¿@ ¿A™#™˜“˜“˜ŒTEXT˜ŒSTRING ™2™)œ™6—˜–0Q‘h€iX’H°`koh-QðŸ`koh-cQ™™6™˜“€˜•Œ SCREENWIDTH ˜’ŒOLD-WHOLESCREEN™™‚’$˜–@`ó•``˜Œ DEFAULT-FONT˜ŒCLOSURE˜“˜“˜Œ SCREEN-WIDTH™- ™.™/™‚’™‚˜˜–˜Œ1 top-level form™˜“€™6œ˜’Œexpand-TEXT-%WIDTH™˜–@X¹ggIhh™‚œ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™‚š™‚3˜–&gg ¿ggo ˜ŒDEFMACRO TEXT-%WIDTH™˜“€ ™ ™‚`™‚a™>™‚œ™>˜“˜ŒTEXTœ˜’Œexpand-TEXT-%HEIGHT™˜–@X¹ggIhh™‚§™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™‚š™‚4˜–&gg ¿ggo ˜ŒDEFMACRO TEXT-%HEIGHT™˜“€ ™ ™‚`™‚a™?™‚§™?˜“˜ŒTEXT˜–Co ¿g X³gg ¿ggo ˜ŒDEFGLOBALVAR *TEXT-SHADOWS*™˜“€=˜•ŒSET-DOCUMENTATION#˜ŒMAKE-HASH-TABLE™‚™‚3˜ŒVARIABLE.™A(™A˜ŒEQ˜ŒTEST ™A8˜Œ)Cache of default shadows indexed by font.˜“™‚™A˜–&o ¿l c¿ggo ™B˜Œ!DEFPARAMETER *TEXT-SHADOW-FACTOR*™˜“€ ™‚Ž™‚™‚¶™B˜ŒnText shadows will use the inverse of this number to determine what fraction of the font size should be shadow.˜“™‚™Bœ™D˜–e@ÉX¹HºHo@É HòH` [ŒK‘LoH JÑHhgIoh ™D™˜“˜“˜ŒTEXT_™‚ÊB™‚(1˜•ŒGETHASH™ER™~I˜•ŒLISTP,™A$˜•ŒLITATOM™)™)X˜“˜ŒOR˜“™‚™˜ŒSYMBOL™‚•<˜ŒNo text shadows named ~S˜“œ™E˜–"@` X‘H@`@ ™E™˜“˜“˜ŒFONT˜ŒPUTHASH™F™‚Ä™A™Aœ™F˜–‚ejó”eló˜kl ¿ekÙjð€lažRž@ H ¹gIgjIÕgg gk gk gmÿ gmÿ gg h™B™F‚ÿÿÿÿ™˜“˜“˜ŒFONT˜Œ &OPTIONAL˜ŒFACTOR ‚ƒ™‚Õt™‚Õh™‚Õ\™‚ÕQ™‚ÕF™‚Õ'˜’ŒSCEILING™!™‚; ™‚† ~™‚ñy™‚m™‚a™‚V™‚K™‚@™‚î;™‚3™‚-™‚œ™G˜–‚—@ž@¹@Ñ@Iòo@ºh»hŒhœJ¡KJŸgNÉgNÉgNÉgNÉgNÉhœK”LM&Œ„Mh\»Jº°hgHoh ™G™˜“˜“˜ŒSHADOWS‚‘™‚Ê ‚„™~_™*Y™‚R™*L™‚E™*?™‚8™*2™‚+™*%™‚™‚Å™‚Æ‚Š˜“™‚Ǚ‚ə‚•œ™H˜–0@ž@¹@Ñ@IÖ@ hgHoh ™H™˜“˜“˜ŒSHADOWS*™‚Ê™I™~™‚Å™‚Æ#˜“™‚Ǚ‚ə‚•œ™I˜–‚S@žh¹hºh»H¡IH\ÓL±)Lgj œLgj ŸLgg _¿Lgg _¿Lgj _¿M3 ‘i€h‘°igMgh œ°âN3 ‘i€h‘°igNgh Ÿ°âOo‘°igOoh _¿°ÞOo‘°igOoh _¿°ÞO_¿O ‘°igOgh _¿°ÚgMgNgOgOgO »I”JK&º„KhZ¹Hž±þ¹™I ™˜“˜“˜ŒSHADOWS ‚;™‚Õ‚™‚Ê‚ø˜•ŒTEXTUREP‚療ʂÙ‚Ê‚¡™‚Ê‚™‚Êa˜ŒGETFR™‚è?™‚è.™‚è!™‚è‚3™‚‚,™‚‚%™‚‚™‚‚™‚‚™‚Ú‚™‚Ú‚Ù™‚Ø‚µ™‚Ù‚š™‚á‚”™‚×z™‚át™‚Ö[™‚M™‚æH™‚:™‚î5™‚(™‚™‚™*‚à˜“™‚™™‚時虂陂ê‚Ϙ“™‚時虂陂ꂌ˜“™‚™™‚ð™‚ñ™‚è‚«˜“™‚ð™‚ñ™‚蝘–‚Sggo ¿oRgg c¿oSgg c¿o ¿g XŠh¿g` ³0g`gggl2gl2  ¿QžgQ‘H†gHc¿ggg ¿ggg ¿ggg ¿ggg ¿ggg ¿gggÁÉg'žoH‘H†oH ˜•Œ FILEPKGTYPES˜•ŒPRETTYDEFMACROS˜•Œ PRETTYTYPELST˜ŒDEF-DEFINE-TYPE IL:TEXT-SHADOWS™˜“€‚M™‚™‚™‚ò™‚Ý™‚È™‚™‚т˜™‚µn™‚ÄV™‚K™‚>˜ŒADJOIN&™‚ó™‚Ž%‚5˜Œ UNDEFINERS‚,™N‚'™‚ô‚"™N‚˜•ŒNILL‚˜•ŒFILEPKGCONTENTS‚ ™N‚˜’Œ%DEFINE-TYPE-FILEGETDEF™‚ý˜•Œ FILEGETDEF‚ø™N‚혒Œ%DEFINE-TYPE-PUTDEF™‚蘕ŒPUTDEF‚ã™N‚ؘ’Œ%DEFINE-TYPE-DELDEF™‚Ó˜•ŒDELDEF‚ΙN‚Ø’Œ%DEFINE-TYPE-GETDEF™‚Ÿ˜•ŒGETDEF‚¹™N‚¯™N‚¥™N‚˜Œ REHASH-SIZE‚‰˜ŒSIZE‚„˜ŒEQUAL™‚žz˜’Œ*DEFINITION-HASH-TABLE*™u™Ni™‚d™N^˜•ŒCHANGEDTEXT-SHADOWSLSTQ™‚9™‚4™‚ž!™‚™‚ž™M™N‚F˜“™‚†˜“˜’ŒNAME™˜“˜ŒREMHASH™‚™A‚<™‚F˜“™‚™‚.˜“™‚™N˜Œ Text Shadows˜“™N˜’ŒX™˜“™™:˜“˜’Œ%DEFINE-TYPE-FILE-DEFINITIONS™˜“™™N˜“™™‚ ™‚ ˜–Gggg ¿gggÁÉg'žgH‘H†gH ˜ŒDEFDEFINER DEF-TEXT-SHADOWS™˜“€A™™ :™"0™")˜Œ DEFINED-BY ™N™‚™N ™N˜Œ DEFINER-FOR™"œ˜’Œ$definition-expander-DEF-TEXT-SHADOWS™˜–9@X¹HºgggIhoggJhhh™‚™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT(™#™I™˜ŒGETHASH ˜ŒSETF˜“™A˜–Cggg ¿ggg ¿oPgg c˜•ŒPRETTYPRINTMACROS™‚™˜“€;™‚ó%™™6™‚1™‚ž ˜ŒSECOND˜ŒDEFINITION-NAME™" ™‚˜ŒDEFINITION-EXPANDER™"+˜”™"’ŒPPRINT-DEFINER™œ˜’Œexpand-DEF-TEXT-SHADOWS™˜–ggg@Ah™‚)™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™"™N˜’ŒDEFINER™˜–&gg ¿ggo ™‚™˜“€ ™ ™‚`™‚a™"™‚)™"˜“˜Œ&WHOLE˜ŒXCL::DEFINITION˜Œ &ENVIRONMENT˜ŒXCL::ENV˜–h`o ˜ŒDEF-TEXT-SHADOWS NIL™˜“€™‚Ñ ™I™A˜“€˜–g`o ˜ŒDEF-TEXT-SHADOWS :ARK™˜“€™‚Ñ™I™A™Q ˜“˜“™‚™‚ñ˜“™‚‚ÿÿÿÿ™‚˜– o ˜Œ1 top-level form™˜“€˜•ŒPUTPROPS˜“™˜•Œ COPYRIGHT˜“˜ŒVenue & Xerox Corporation‚ÂĂƂ䚂Iÿÿ