‘XCL Compiler output for source file {DSK}arunwelch>SKYDRIVE>DOCUMENTS>UNIX>LISP>LDE>ROOMS>MEDLEY-35>ROOMS-GEOMETRY.;2 Source file created Saturday, 5 December 2020, 16:26:58. FASL file created Saturday, 5 December 2020, 16:26:58. ÿ˜–#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-GEOMETRYCOMS˜•Œ FILEDATES˜•ŒROOMS-GEOMETRY˜“˜“˜’ŒFILE-ENVIRONMENTS˜‘˜ŒXEROX-COMMON-LISP™˜“˜•ŒP˜“˜ŒEXPORT˜“˜ŒQUOTE˜“˜’ŒEXTERNALIZE-REGION˜‘˜ŒROOMS˜’ŒINTERNALIZE-REGION™˜’ŒEXTERNALIZE-POSITION™˜’ŒINTERNALIZE-POSITION™˜“˜ŒREQUIRE˜ŒROOMS˜“˜•ŒCOMS˜“˜•Œ*˜•Œ;;˜Œ*externalizing for suites & background text˜“˜•Œ FUNCTIONS™™ ™!™"˜’ŒEXTERNALIZE-COORDINATE™˜’ŒINTERNALIZE-COORDINATE™˜“˜•Œ GLOBALVARS˜•Œ SCREENWIDTH˜•Œ SCREENHEIGHT˜“™*˜“™+™,˜Œ.scaling used by placement editor & backgrounds˜“˜•Œ STRUCTURES˜’ŒSCALE™˜“˜•Œ VARIABLES˜’Œ *ONE-TO-ONE*™˜“™/˜’Œ MAKE-SCALE™˜’Œ EQUAL-SCALES™˜“™/˜’Œ SCALE-WIDTH™˜’Œ SCALE-HEIGHT™˜’ŒSCALE-X™˜’ŒSCALE-Y™˜’Œ SCALE-REGION™˜’ŒSCALE-POSITION™˜“™/˜’ŒUN-SCALE-REGION™˜’ŒUN-SCALE-POSITION™˜’ŒUN-SCALE-HEIGHT™˜’ŒUN-SCALE-WIDTH™˜’Œ UN-SCALE-X™˜’Œ UN-SCALE-Y™ ˜“˜”˜Œ 5-Dec-2020 16:26:58•ŒX{DSK}arunwelch>SKYDRIVE>DOCUMENTS>UNIX>LISP>LDE>ROOMS>MEDLEY-35>ROOMS-GEOMETRY.;2˜–+ggo ¿ggg ˜Œ)DEFINE-FILE-ENVIRONMENT IL:ROOMS-GEOMETRY™˜“€%™™ ˜Œ COMPILE-FILE˜•ŒFILETYPE™˜•ŒMAKEFILE-ENVIRONMENT™ ˜“™ ˜ŒXCL™ ˜ŒROOMS˜– o ˜Œ1 top-level form™˜“€™˜“™™ ™!™"˜– o ˜Œ1 top-level form™˜“€™&˜ŒROOMSœ™˜–Rg@` g@` g@` g@` ™™˜“˜“˜ŒREGIONL˜’Œ MAKE-REGION™F™02™0™0 ™0A™57˜ŒHEIGHT-™4$˜ŒWIDTH™5˜ŒBOTTOM™4˜ŒLEFTœ™ ˜–Rg@` g@` g@` g@` ™ ™˜“˜“˜ŒREGIONL™kF™12™1™1 ™1A™57™l-™4$™m™5™n™4™oœ™!˜–@` @` ™!™˜“˜“˜ŒPOS™0™0™5™4œ™"˜–@` @` ™"™˜“˜“˜ŒPOS™1™1™5™4œ™0˜–@A X3 ‘i€h–HH™0™˜“˜“˜ŒN˜ŒRANGE˜Œ%/˜•ŒFLOATPœ™1˜–K@¸@3 ‘i€h‘@@¹@ÃZ’J°I»IÃ\‘L†K3 ‘i€h˜@AÖ hgHoh ™1™˜“˜“˜ŒN˜ŒRANGEE˜•ŒCHECK-TYPE-FAIL1˜ŒROUND8˜’ŒN™˜ŒRATIO™‚‚>˜“˜ŒOR˜ŒINTEGER˜“™‚Œ˜ŒFLOAT˜ŒRATIONAL˜–Dgio ¿goolg ¿ggg ˜ŒDEFSTRUCT SCALE™˜“€>™)˜’Œ%STRUCTURE-DECLARE-DATATYPE˜‘˜ŒSYSTEM ˜ŒSET-PARSED-STRUCTURE9˜ŒTYPE-EXPAND-STRUCTURE4˜Œ TYPE-EXPANDER/™;#˜ŒSTRUCTURE-OBJECT™;™;˜“˜“™;˜•ŒPOINTER˜“™;™‚œ˜“™;™‚œ˜“™;™‚œ˜“™‚œ™‚œ™‚œ™‚œ˜“˜ŒPS™;˜’ŒMAKE-SCALE-INTERNAL™˜“˜’ŒX-OFFSET™˜’ŒX-FACTOR™˜’ŒY-OFFSET™˜’ŒY-FACTOR™˜ŒDATATYPE€€˜ŒSCALE-˜“™‚¤˜’ŒSCALE-P™˜ŒDEFAULT-STRUCTURE-PRINTER˜’Œ COPY-SCALE™€€˜“˜“™‚¥™‚€™‚˜’ŒSCALE-X-OFFSET™˜“™‚¦˜“™‚Œ™‚™‚Ž™‚€™‚ž˜’ŒSCALE-X-FACTOR™˜“™‚§™‚€™‚Ÿ˜’ŒSCALE-Y-OFFSET™˜“™‚¨˜“™‚Œ™‚™‚Ž™‚€™‚ ˜’ŒSCALE-Y-FACTOR™€€™‚¢€˜“˜ŒACCESSOR˜Œ PREDICATE€€€œ™‚­˜–@Ù‚­™˜“˜“˜ŒOBJECT™;˜–"g ¿g ¿g ™‚“™˜“€˜ŒESTABLISH-SETFS-AND-OPTIMIZERS˜ŒESTABLISH-ACCESSORS˜ŒESTABLISH-PREDICATE™; ™;™;œ™‚¤˜–Ugµj¸a¸gµk¹a¹gµjºaºgµk»a»`\H¿LI¿LJ¿LK¿L™‚¤‚ÿÿÿÿ™˜“˜“˜Œ&KEY˜ŒX-OFFSET˜ŒX-FACTOR˜ŒY-OFFSET˜ŒY-FACTOR9˜’Œ SCALETYPE#™+™‚Í™‚Ì™‚Ë™‚Êœ™‚¯˜–H@¸@Ñ°igHgh b¿°ß`X@É¿H@É¿H@É¿H@É¿H™‚¯™˜“˜“˜ŒSCALE™‚ˆ$™‚Й; ™;™;˜–%o ¿g X‘H˜ŒDEFGLOBALVAR *ONE-TO-ONE*™˜“€™‚¤˜ŒBOUNDP˜ŒPROCLAIM™> ™>˜“˜’ŒGLOBAL™™>œ™@˜–Hg@` g@g@` g@ ™@™˜“˜“˜ŒREGIONB™‚¤/™‚™‚9™‚Ì4™‚‚*™5 ™‚Í™‚Ê™‚‚ ™4™‚Ëœ™A˜–(@ÉAÉÿ²@ÉAÉÿh™A™˜“˜“˜ŒSCALE-1˜ŒSCALE-2™;™; ™;™;œ˜’Œexpand-SCALE-WIDTH™˜–&@X¹HºggIgJhhh™‚晘“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT™‚³˜Œ* ™‚‰˜–&gg ¿ggo ˜ŒDEFMACRO SCALE-WIDTH™˜“€ ™ ˜•ŒSETF-MACRO-FUNCTION˜•ŒARGNAMES™C™‚æ™C˜“˜ŒWIDTH˜ŒSCALEœ˜’Œexpand-SCALE-HEIGHT™˜–&@X¹HºggIgJhhh™‚õ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT™‚¸™‚ë ™‚‰˜–&gg ¿ggo ˜ŒDEFMACRO SCALE-HEIGHT™˜“€ ™ ™‚ð™D™‚õ™D˜“˜ŒHEIGHT˜ŒSCALEœ™E˜–@AÉÖ AÉÔ™E™˜“˜“˜ŒX˜ŒSCALE ˜•ŒFIXR™;™;œ˜’Œdefinline-SCALE-X™˜– @¸oH™‚™˜“˜“˜Œ$$WHOLE˜Œ$$ENV˜Œ$$CTX˜“˜ŒLAMBDA˜“˜’ŒX™™;˜“˜ŒBLOCK™E˜“˜Œ+˜“™C™‚™;˜“™‚°™;˜–2gggÁÉg'¸gH‘H†gH ˜ŒDEFINLINE SCALE-X™˜“€,™%™‚™‚˜’ŒOPTIMIZER-LIST˜‘˜ŒCOMPILER ™E™‚™Eœ™F˜–@AÉÖ AÉÔ™F™˜“˜“˜ŒY˜ŒSCALE ™‚™;™;œ˜’Œdefinline-SCALE-Y™˜– @¸oH™‚#™˜“˜“˜Œ$$WHOLE˜Œ$$ENV˜Œ$$CTX˜“™‚ ˜“˜’ŒY™™;˜“™‚™F˜“™‚˜“™D™‚)™;˜“™‚µ™;˜–2gggÁÉg'¸gH‘H†gH ˜ŒDEFINLINE SCALE-Y™˜“€,™%™‚#™‚#™‚ ™F™‚™Fœ™G˜–‚†A`ð‘@g@¸A¹HAÉÖ IÉÔg@¹A¸IAÉÖ HÉÔg@AÉÖ g@AÉÖ ™G™˜“˜“˜ŒREGION˜ŒSCALE‚€™kz™‚b™‚B™‚™‚ r™;g™lZ™;P™mH™;:™;-™n%™;™; ™o™>œ™H˜–GA`ð‘@@¸A¹HAÉÖ IÉÔ@¹A¸IAÉÖ HÉÔ™H™˜“˜“˜ŒPOS˜ŒSCALE7™‚™‚=™;/™; ™;™;™>œ™J˜–Pg@A g@A g@AÉ g@AÉ ™J™˜“˜“˜ŒREGION˜ŒSCALEJ™kD˜’ŒSROUND™-™‚B™O ™N=™;2™l&™;™m™n™oœ™K˜–@A @A ™K™˜“˜“˜ŒPOS˜ŒSCALE ™O™Nœ˜’Œexpand-UN-SCALE-HEIGHT™˜–@X¹HºgIgJhh™‚I™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT™‚¸ ™‚‰˜–&gg ¿ggo ˜ŒDEFMACRO UN-SCALE-HEIGHT™˜“€ ™ ™‚ð™L™‚I™L˜“˜ŒHEIGHT˜ŒSCALEœ˜’Œexpand-UN-SCALE-WIDTH™˜–@X¹HºgIgJhh™‚U™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT™‚³ ™‚‰˜–&gg ¿ggo ˜ŒDEFMACRO UN-SCALE-WIDTH™˜“€ ™ ™‚ð™M™‚U™M˜“˜ŒWIDTH˜ŒSCALEœ™N˜–@AÉÕAÉ ™N™˜“˜“˜ŒX˜ŒSCALE™‚‰ ™;™;œ™O˜–@AÉÕAÉ ™O™˜“˜“˜ŒY˜ŒSCALE™‚‰ ™;™;˜– o ˜Œ1 top-level form™˜“€˜•ŒPUTPROPS˜“™˜•Œ COPYRIGHT˜“˜ŒVenue & Xerox Corporation‚ÂÄ‚Æ‚äš‚sÿÿ