‘XCL Compiler output for source file {MM}ROOMS-NOTES.;2 Source file created 4-Feb-2022 14:14:40 FASL file created Friday, 4 February 2022, 14:14:40 ÿ˜–#ogg o ˜•ŒFILECREATEDLOC˜Œ*STANDARD-INPUT*˜Œ1 top-level form˜ŒFUNCTION˜“€˜•ŒDEFINE-FILE-INFO˜ŒOPEN ˜ŒOUTPUT˜Œ DIRECTION˜“˜ŒPACKAGE˜ŒROOMS˜Œ READTABLE˜ŒXCL˜ŒBASE ˜Œ{Null}˜–!ggo ¿o˜Œ2 top-level forms™˜“€˜•ŒPUTPROP˜•ŒROOMS-NOTESCOMS˜•Œ FILEDATES˜•Œ ROOMS-NOTES˜“ ˜“˜’ŒFILE-ENVIRONMENTS˜‘˜ŒXEROX-COMMON-LISP™˜“˜•ŒP˜“˜ŒEXPORT˜“˜ŒQUOTE˜“˜’Œ*DEFAULT-NOTE-WINDOW-FONT*˜‘˜ŒROOMS˜’ŒMAKE-NOTE-WINDOW™˜“˜ŒREQUIRE˜ŒROOMS˜“˜•Œ*˜•Œ;;˜Œprovides note windows˜“˜•Œ STRUCTURES˜’ŒNOTE™˜“˜•Œ VARIABLES™ ˜“˜•Œ FUNCTIONS™!˜’ŒNOTE-WINDOW-REPAINTFN™˜’ŒPRINT-NOTE-STRING™˜’ŒNOTE-WINDOW-BUTTONEVENTFN™˜’ŒEDIT-NOTE-WINDOW-TEXT™˜’ŒSET-NOTE-WINDOW-FONT™˜’ŒSET-NOTE-WINDOW-TITLE™˜“˜•Œ WINDOW-TYPES˜Œ NOTE-WINDOW˜“˜•ŒDECLARE:˜•Œ EVAL@COMPILE˜•ŒDONTCOPY˜“™˜“˜ŒOR˜“˜•ŒHASDEF˜“™˜ŒSTREAM˜“™˜•ŒRECORDS˜“˜•ŒEVAL˜“˜•Œ SYSRECLOOK1˜“™™B˜“˜•Œ GLOBALVARS˜•ŒBOLDFONT ˜“˜”˜Œ 4-Feb-2022 14:14:40•Œ{MM}ROOMS-NOTES.;2˜–+ggo ¿ggg ˜Œ&DEFINE-FILE-ENVIRONMENT IL:ROOMS-NOTES™˜“€%™™ ˜Œ COMPILE-FILE˜•ŒFILETYPE™˜•ŒMAKEFILE-ENVIRONMENT™ ˜“™ ˜ŒXCL™ ˜ŒROOMS˜– o ˜Œ1 top-level form™˜“€™˜“™ ™!˜– o ˜Œ1 top-level form™˜“€™%˜ŒROOMS˜–Dgio ¿goolg ¿ggg ˜ŒDEFSTRUCT NOTE™˜“€>™)˜’Œ%STRUCTURE-DECLARE-DATATYPE˜‘˜ŒSYSTEM ˜ŒSET-PARSED-STRUCTURE9˜ŒTYPE-EXPAND-STRUCTURE4˜Œ TYPE-EXPANDER/™.#˜ŒSTRUCTURE-OBJECT™.™.˜“˜“™.˜•ŒPOINTER˜“™.™q˜“™.™q˜“™.˜”˜•ŒFLAGBITS˜“™q™q™q˜•ŒFLAG˜“˜ŒPS™.˜’Œ MAKE-NOTE™˜“˜ŒSTRING˜’ŒFONT™˜’ŒTITLE™˜’Œ READ-ONLY?™˜ŒDATATYPE€€˜ŒNOTE-˜“™|˜’ŒNOTE-P™˜ŒDEFAULT-STRUCTURE-PRINTER˜’Œ COPY-NOTE™€€˜“˜“™}˜Œ™}€™r˜’Œ NOTE-STRING™˜“™~€™~€™s˜’Œ NOTE-FONT™˜“™˜ŒNote:™}€™t˜’Œ NOTE-TITLE™˜“™‚€€˜“˜ŒMEMBER€€™w˜’ŒNOTE-READ-ONLY?™€€™z€˜“˜ŒACCESSOR˜Œ PREDICATE€€€œ™‚…˜–@Ù‚…™˜“˜“˜ŒOBJECT™.˜–"g ¿g ¿g ™h™˜“€˜ŒESTABLISH-SETFS-AND-OPTIMIZERS˜ŒESTABLISH-ACCESSORS˜ŒESTABLISH-PREDICATE™. ™.™.œ™|˜–sgµ o¸a¸gµh¹hºƒa¹iºgµ o»a»gµh¼h½ƒa¼i½`^H¿J”NI¿NK¿MžL‘k€j_¿NOÏ¿N™|‚ÿÿÿÿ™˜“˜“˜Œ&KEY˜ŒSTRING˜ŒFONT˜ŒTITLE˜Œ READ-ONLY?I˜’Œ NOTETYPE#™7™‚§%™‚¦™‚¥™‚¤.™‚ ™‚ˆœ™‚‡˜–T@¸@Ñ°igHgh b¿°ß`X@É¿H@É¿H@É¿H¹j@Êð‘j€kºIJÏ¿H™‚‡™˜“˜“˜ŒNOTE˜•ŒCHECK-TYPE-FAIL$™‚ª™. ™.™.˜–"o ¿g X‘H`c™ ˜Œ!DEFVAR *DEFAULT-NOTE-WINDOW-FONT*™˜“€˜ŒBOUNDP˜ŒPROCLAIM™P ™ ˜“˜ŒSPECIAL™ œ™!˜–‚Úgµh¸a¸gµ o¹a¹gµ oºaºgµV»a»gµh¼a¼HI ]ggJgKd3@ð‘K…K gIgL  ¿Mgg ¿Mgg ¿Mgg ¿Mgg ¿M ¿M™ ™!‚ÿÿÿÿ™˜“˜“™‚£˜ŒREGION™‚¦™‚¤™‚¥™‚§ ‚Ò™3‚˘•Œ PUTWINDOWPROP‚º™‚»‚©™‚»‚˜™‚»‚‡™‚»‚‚™|p˜•Œ FONTCREATEQ˜•ŒCREATEW‚Æ™5‚Á˜•Œ BUTTONEVENTFN‚µ™5‚°™‚¾‚¤™3‚Ÿ˜•Œ RESHAPEFN‚“™3‚Ž˜•Œ REPAINTFN{™‚§u™‚¦b™‚¥\™‚¤W™.A™‚§3™‚¥!™‚¤™‚¦™‚¸*˜Œ˜ŒNote:œ™3˜–l@g ¸@ ¹Hɺ@gHÉ ¿Jd3@ð–J €JI ¿@ ¿HÉIl@g lÕ ™3™˜“˜“˜ŒWINDOWf™4^˜•Œ GETWINDOWPROPG˜•ŒCLEARW@˜•ŒDSPFONT8˜Œ SYMBOL-VALUE+™‚»˜•Œ GETSTREAM˜•ŒGETWINDOWUSERPROPY˜•ŒWIDTHN™.$™.˜•ŒTITLE™.™.œ™4˜–‚eló”eló™ll ¿elÙjð¤la¸j¸A¹A ‘°igIoh b¿°ßh¹hA Z HÔ»@ ¼AÉ0½j¾j_¿mÿ_¿B_¿B_¿BhA HÕA ¿OkÔ__Lýó¤L¾±˜@O¶Yo:²POkÔ_¿OLÿ_’O@O¶o:‘h€i‘°$OkÔ__¿Ol J Ô__¿OkÔ_¿°ÅO¾O_¿°Io:™O¾O_¿°*OIÓJ Ô__CóNOó§O¾O_¿‚±ÿ]O_¿ONÿ_’OƒOLÿ²%BhA KÕA ¿BOOÕÔ_¿NkÔ_¿°@O¶ÓAM ¿OkÔ_¿°´OLýó’±ÿh™4 ‚ÿÿÿÿ™˜“˜“˜ŒSTRING˜ŒDSP˜Œ LEFT-MARGIN˜Œ RIGHT-MARGIN˜Œ &OPTIONAL˜Œ LINE-LEADING ‚v˜•Œ\BLTCHAR‚R˜•ŒMOVETO‚J˜•Œ DSPYPOSITION‚˜•Œ CHARWIDTH‚Ú™‚Û‚†™‚Ù~™‚ÚY˜’Œ VECTOR-LENGTH™P˜•Œ FONTHEIGHTJ™‚É<™‚¯&˜•ŒDISPLAYSTREAMP˜’ŒARGUMENT-ERROR™k‚n˜•Œ CHARACTER‚ ™‚à`™B/˜’ŒDSP™‚ùŽ ‚¿Ž ‚¢Ž 5˜“˜Œ SATISFIES™‚Þœ™5˜–‚¥@ ¿¿l`åkð²j@g Êð‘i‚h€h²no Xgð²gg@hh Hgð²gg@hh Hgð²gg@hh hh™5™˜“˜“˜ŒWINDOW‚›˜•Œ ADD.PROCESS{™‚è[™‚è<˜’ŒMENU™!™‚̘•Œ GETMOUSESTATE˜•ŒTOTOPW ‚™‚Š™8‚‚™‚¦o™j™7b™‚¥O™J™6B˜ŒEDIT&™.™.˜•ŒLASTMOUSEBUTTONS7˜“˜“˜Œ Edit Text™‚옌-Edit the text of this note window with TEdit.˜“˜ŒSet Font™‚¥˜Œ!Set the font of this note window.˜“˜Œ Set Title™‚¦˜Œ"Set the title of this note window.œ™6˜–‚â@g ¸g ¢±ÈHÉ hhhgHÉgigRgognognoh ¹ ¿HI@i ¿lÈ ¿@gg ¿@gg ¿@gg ¿@ h˜•Œ PROMPTWINDOW™6™˜“˜“˜ŒWINDOW ‚Ú™3‚Ó™‚»‚™‚»‚±™‚»‚ ˜•ŒBLOCK‚–˜•ŒTEDIT‚‡˜•Œ TTY.PROCESS‚‚˜•Œ THIS.PROCESS|˜•ŒOPENTEXTSTREAM#˜•ŒOPENSTRINGSTREAM˜ŒFBOUNDP™‚Ì‚Ι5‚É™‚¾‚½™3‚¸™‚¿‚¬™3‚§™‚À‚Ž™.^˜•Œ AFTERQUITFNN˜•ŒQUITFND˜•ŒMENU>™‚ù8˜•ŒNOTITLE1™.+˜•ŒFONT™. ™‚þ™.g˜–@ ˜Œlambda in EDIT-NOTE-WINDOW-TEXT˜ŒCLOSURE˜“˜“˜ŒWINDOW˜ŒSTREAM˜•ŒOPENWW˜–Bi0¿g˜Œlambda in EDIT-NOTE-WINDOW-TEXT™‚ ˜“˜“˜ŒWINDOW˜ŒSTREAM˜ŒTEXTOBJ˜ŒPROPS ˜•ŒDON'T˜•ŒTEXTOBJI˜“˜•ŒFind˜•Œ Substitute˜•ŒQuitc˜•ŒCOMPILED-CLOSURES™‚œ™7˜–P@g XÉYd3@ð‘I…I hhhho ºHJd3@ð‘J…J ¿@ ™7™˜“˜“˜ŒWINDOWJ™3A™‚¼,˜’ŒSEDITE˜‘˜ŒSEDIT˜’ŒEXTERNALIZE-FONT™™‚Ì3™. ™.™.&˜“˜ŒCLOSE-ON-COMPLETIONœ™8˜–2@g ¸oo Y²HI¿@ h™8™˜“˜“˜ŒWINDOW*™3˜’Œ PROMPT-USER™™‚Ì ™.™.˜ŒType title (CR to abort) ˜ŒTitle:˜–og`ggghgnognognoggnoh ˜ŒDEF-WINDOW-TYPE :NOTE-WINDOW™˜“€i˜ŒPUTHASHd˜’ŒMAKE-WINDOW-TYPE™ P™‚¦K˜ŒPROPS;˜Œ RECONSTITUTER+˜Œ ABSTRACTER˜Œ RECOGNIZER˜Œ DEPENDENCIES™; ˜ŒNAME˜’Œ*WINDOW-TYPES*™™;Y˜–I@Ég X˜HÉ€hHÉ „oABg@É ˜Œ&lambda in DEF-WINDOW-TYPE :NOTE-WINDOW™‚ ˜“˜“˜Œ PLACEMENT˜ŒREGION˜ŒDSPC˜’ŒPRINT-PEP-TITLE-STRING™(™}™‚Ì;˜’Œ PLACEMENT™5˜Œ NO-TITLE-BAR?!™.™. ™.™‚D.˜ŒNote:D˜–s@ X¹Iºh»J¡°8J²Jgð²K˜KJ¿°IY¸°o ¿J¼J»Lº°Çg g@go H ˜Œ&lambda in DEF-WINDOW-TYPE :NOTE-WINDOW™‚ ˜“˜“˜ŒARGSm˜ŒAPPLYg˜’ŒINTERNALIZE-REGION™b˜ŒGETFM˜ŒSYMBOL-FUNCTION8˜ŒERROR˜Œ COPY-LISTX™‚¸R™‚¸H™!™‚¸]˜“dd3˜Œ!Odd-length property list in REMF.4˜–r@g Xɹg@ gHÉgHÉgId3@ð‘I…I gjHÊð‘h€ih˜Œ&lambda in DEF-WINDOW-TYPE :NOTE-WINDOW™‚ ˜“˜“˜ŒWINDOWM™‚' ˜’ŒEXTERNALIZE-REGION™˜•Œ WINDOWREGION™‚Ì Y™.R™‚§?™‚¥8™.2™‚¤+™.%™‚¦™‚¸ ™.™.$˜–@g XØŒ&lambda in DEF-WINDOW-TYPE :NOTE-WINDOW™‚ ˜“˜“˜ŒWINDOW™‚Ì ™.™.U™‚@™‚0™‚ ™‚˜– o ˜Œ1 top-level form™˜“€˜•ŒPUTPROPS˜“™˜•Œ COPYRIGHT˜“˜ŒVenue & Xerox Corporation‚ÂÄ‚Æ‚äš‚jÿÿ