‘XCL Compiler output for source file {DSK}export>lispcore>library>TEXTMODULES.;1 Source file created Wednesday, 16 January 1991, 9:07:18. FASL file created Tuesday, 12 July 1994, 12:31:02. ÿ˜–#ogg o ˜•ŒFILECREATEDLOC˜Œ*STANDARD-INPUT*˜Œ1 top-level form˜ŒFUNCTION˜“€˜•ŒDEFINE-FILE-INFO˜ŒOPEN ˜ŒOUTPUT˜Œ DIRECTION˜“˜Œ READTABLE˜ŒXCL˜ŒPACKAGE˜“˜ŒLET˜“˜“˜Œ *PACKAGE*™ ˜“˜Œ IN-PACKAGE˜“˜’Œ DEFPACKAGE˜‘˜ŒXEROX-COMMON-LISP˜Œ TEXTMODULES˜“˜ŒUSE˜ŒLISP˜ŒXCL˜“˜Œ PREFIX-NAME˜ŒTM˜“˜ŒEXPORT˜ŒLOAD-TEXTMODULE˜ŒMAKE-TEXTMODULE˜Œ *SPECIFIERS*˜ŒMAKE-SPECIFIER˜Œ INSTALL-FORM˜ŒFORM-SPECIFIER˜ŒFILECOM-SPECIFIER˜ŒADD-FORM˜Œ INSTALL-FORM˜Œ PRINT-FILECOM˜Œ*UPGRADE-COMMENT-LENGTH*˜Œ*JOIN-COMMENTS*˜Œ*CONVERT-LOADED-FILES*˜Œ*DEFDEFINER-MACROS*˜“˜•Œ FILESLOAD˜•ŒSEDIT-COMMONLISP™ ˜ŒBASE ˜Œ{Null}˜–!ggo ¿o˜Œ2 top-level forms™˜“€˜•ŒPUTPROP˜•ŒTEXTMODULESCOMS˜•Œ FILEDATES˜•Œ TEXTMODULES˜“˜“˜•Œ*˜•Œ;;;˜Œbane>LISP>TEXTMODULES.;3œ™F˜–2ekó”eló™ll ¿elÙjð¤la¸†@ ¸@AlH™F‚ÿÿÿÿ™˜“˜“˜ŒFORM˜ŒFILECOMS˜Œ &OPTIONAL˜Œ SPECIFIER!™M˜’ŒARGUMENT-ERROR˜‘˜ŒSYSTEM˜–ggo ˜ŒDEFUN ADD-FORM™˜“€˜•ŒSET-DOCUMENTATION˜ŒFUNCTION™F ˜ŒLCall appropriate functions to make definition editable, return new filecoms.œ™G˜–;@ÁÉg'A ¿@A ¿A ¿@ÁÉg'A ¿A ™G™˜“˜“˜ŒFILE˜ŒSTREAM5˜ŒTERPRI.™W™‚é™g ™f'™‚Í™‚͘–ggo ˜Œ&DEFUN BEFORE-MAKE-TEXTMODULE-FUNCTIONS™˜“€™‚ᙂâ™G ˜Œ?Things to do before the main body of the textmodule is printed.œ™H˜–\Q²$@o²Qgð›o@ „i‚h€h²3@XgðŸ@ ¿°Hgðž@ ¿@™‚ž™H™˜“˜“˜ŒFORMT™RO˜ŒEVAL;™R6™‚ò˜ŒY-OR-N-PD˜ŒREQUIRE,˜ŒLOAD˜ŒQUERY˜ŒConvert file loaded by ~s too?˜“™‚õ™‚ô˜–ggo ˜ŒDEFUN CONVERT-LOADED-FILES™˜“€™‚ᙂâ™H ˜Œ5Looks for loaded files to convert in top-level forms.œ™I˜–@ÁÉg'™I™˜“˜“˜ŒFORM˜Œ DEFINER-FOR˜–ggo ˜ŒDEFUN DEFINER-FILECOM™˜“€™‚ᙂâ™I ˜Œ9Examines a form and returns its specifier (file command).˜–Gggg ¿gggÁÉg'¸gH‘H†gH ˜ŒDEFDEFINER DEFPRESENTATION™˜“€A™8™8 :™J0™J)˜Œ DEFINED-BY ™‚¶™‚ ™‚¶ ™‚¶™‚™Jœ˜’Œ#definition-expander-DEFPRESENTATION™E˜–‚S@X¹HZ»h¼gJ \’L€h½gK \’L€h¾gK \’L€h_¿gK \’L€h_¿gK \’LŠno_¿Ko ¿ggIgN²BN_¿N_¿NÔNh°5O‘h€i_’O†OÃ’N°hgOoh †ghggggOhggOhhhh gOhhMO²ggOhhh€hgIhh ™‚ ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ‚K˜ŒAPPEND‚™‚‚Ϙ•ŒCHECK-TYPE-FAIL|˜•Œ KEYWORD-TEST^˜•Œ FIND-KEYWORDJ™‚6™‚$™‚™‚‚@˜ŒQUOTE‚/™‚‚*™N‚˜ŒPRINT-FUNCTION‚ú™‚‚õ˜Œ TRANSLATOR‚뙂‚昌 READ-MACRO‚ᘒŒMAKE-PRESENTATION-OPS™E‚ܘ’ŒOPS™E‚Õ™‚“‚Á˜’ŒINCLUDE™E‚·˜•ŒLISTP‚ž˜•ŒLITATOM‚˜ŒINCLUDE‚‡˜Œ DEFSTRUCT‚‚˜ŒPROGNX™‚D™‚0™‚™‚ ˜ŒFIELDS‚Ș“˜ŒOR˜ŒSYMBOL˜ŒLISTw˜“™‚™‚™‚™‚™‚ l˜–oo@ ˜Œ-lambda in definition-expander-DEFPRESENTATION˜ŒCLOSURE˜“˜“˜Œ PRESENTATION ˜ŒCERROR˜ŒUntranslatable presentation ~s˜ŒIgnore the presentationh˜•ŒCOMPILED-CLOSURE˜–Xggg ¿ggg ¿ggo ¿oPgg c˜•ŒPRETTYPRINTMACROS™‚™˜“€P˜ŒADJOIN:™‚á%™8™8 K˜ŒEQUALF˜ŒTEST0™‚â+™J ˜ŒSECOND˜ŒDEFINITION-NAME™J ™‚ ˜ŒDEFINITION-EXPANDER™J@˜”™J’ŒPPRINT-DEFINER™5˜ŒDefine a presentation type.œ˜’Œexpand-DEFPRESENTATION™E˜–ggg@Ah™‚<™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™J™‚¶˜’ŒDEFINER™˜–&gg ¿ggo ™‚™˜“€ ™8 ˜•ŒSETF-MACRO-FUNCTION™‚É™J™‚<™J˜“˜Œ&WHOLE˜ŒXCL::DEFINITION˜Œ &ENVIRONMENT˜ŒXCL::ENVœ™K˜–5@gð²*@ ¸H¹HZ@»gI‘i€h’I€IK@™K™˜“˜“˜ŒFORM ™‚À˜ŒDEFMACRO˜’Œ DEFDEFINER™˜–ggo ˜ŒDEFUN EXPORT-DEFINERS™˜“€™‚ᙂâ™K ˜ŒTurn definers into macros.œ™L˜–:nX@¿noHR Y‘IggHÉ ™‚¦™L™˜“˜“˜ŒFILECOM4˜•ŒNILL/˜ŒWARN˜•Œ %SOME-SINGLE'˜Œ SPECIFIER"™‚š˜–HÉk@‘@h˜Œlambda in FILECOM-SPECIFIER™‚'˜“˜“˜Œ SPECIFIER ™‚/˜•Œ \PTRHUNK2˜–ggo ˜ŒDEFUN FILECOM-SPECIFIER™˜“€™‚ᙂâ™L ˜Œ5Return the specifier for the filecom, otherwise warn.œ™M˜–:nX@¿noHR Y‘IggHÉ ™‚¦™M™˜“˜“˜ŒFORM4™‚X/™‚Y™‚Z'˜ŒFORM"™‚™˜–HÉk@‘@h˜Œlambda in FORM-SPECIFIER™‚'˜“˜“˜Œ SPECIFIER ™‚/™‚a˜–ggo ˜ŒDEFUN FORM-SPECIFIER™˜“€™‚ᙂâ™M ˜Œ2Return the specifier for the form, otherwise warn.œ™N˜–x@‘i€h²@¸h¹H‘HhY ¿H¸°ï@o ¿g@ ð²7@Ø@Àh–@@@YÓ@ƒ@¸IRH h™‚¥™N™˜“˜“˜ŒMACp˜ŒPUTHASH8˜ŒLAST,™Q'˜•ŒFIND-READTABLE™N^˜•Œ CHARACTERL™‚{C™‚{2˜ŒSEDIT"˜Œ LISP-FILEœ™O˜–)@gð•@P€h²g@g@@™‚¡™O™˜“˜“˜ŒFORM™C™‚O™‚N˜–ggo ˜ŒDEFUN IMPORT-DEFINERS™˜“€™‚ᙂâ™O ˜Œ6Change a macro to a definer if we've been told its OK.œ™P˜–9ejó”eló˜kl ¿ekÙjð¤la¸†@ ¸Qo‘h@kH˜•ŒDFNFLG™P‚ÿÿÿÿ™˜“˜“˜ŒFORM™‚טŒ SPECIFIER™M ™‚Ý&˜“™‚Ș•ŒALLPROP˜–ggo ˜ŒDEFUN INSTALL-FORM™˜“€™‚ᙂâ™P ˜Œ/Install a definition as current and executable.œ™Q˜–P@Ø@Àh²@iA ¿@@@A @Ãœ@@iA o@ ™Q™˜“˜“˜Œ READ-MACRO˜ŒTABLEJ˜ŒERROR>˜ŒSET-MACRO-CHARACTER)˜ŒSET-DISPATCH-MACRO-CHARACTER˜ŒMAKE-DISPATCH-MACRO-CHARACTER1™‚{ ™‚{™‚{D˜ŒBad read macro spec ~sœ™R˜– ‚Ön¸ejó§kh ¿gµ@ ¹a¹gµiºaºgµo »a»gµW(¼a¼gµW*½a½gµW,¾a¾gµW._¿ƒa_¿@o b¿I_¿I ³'IØI ¹°hgOoh ¿J‘J„gKÑK…K o MLNOhHý¿@gg Hý¿iHý¿noHkoH-¿HÉ __ ¿O_"¿O ¿O ¿O _ ¿Io _$ _&O ¿O$ ¿O$gg ¿O$ogO$ ¿O$gO" ¿O$ogO$ ¿O$™‚¡™‚ž ™‚Ÿ ™‚  ˜Œ *READTABLE* ™  ™‚‡™‚Ÿ™‚ ™‚ž™‚¡™R‚ÿÿÿÿ™˜“˜“ ˜ŒPATHNAME˜Œ&KEY˜ŒMODULE˜ŒINSTALL™ ˜ŒUPGRADE-COMMENT-LENGTH˜Œ JOIN-COMMENTS˜ŒCONVERT-LOADED-FILES˜ŒDEFDEFINER-MACROS‚͘•Œ ADDTOFILE‚¸™8‚©™‚¨‚”™8‚‚˜•ŒADDFILE‚z˜ŒSET‚q˜•ŒFILECOMS‚j˜ŒINTERN‚\™Y‚T™e‚L™d‚8˜•Œ\MVLIST‚3™V‚ ™‚뙂z‚ᙂª‚È™‚‚±˜Œ SYMBOL-NAME‚¢˜ŒSTRINGP‚•˜ŒMERGE-PATHNAMESF™‚ª!˜Œ STRING-UPCASE˜Œ PATHNAME-NAME ™‚Ý‚Ƙ•ŒPROPS‚±™‚Í‚¢™‚³‚˜Œ COMPILE-FILE‚Š™‚Ì‚˜ŒINPUT‚ÿ™‚ؘŒPACKAGE‚Ò™‚È‚º˜’ŒMODULE™E‚ª™‚|™‚¥m™‚¤^™‚£O™‚¢8™ *™‚¡™‚  ‚À˜“™‚Í‚œ˜“™‚Ì‚e˜Œ INTERLISP‚(˜–Yh¹HÉh` Y ¿I ¿I`ð’h°"I ºIJ ¿IHÉJ Hý¿°»¹hHý¿I¹j@¿I˜’Œ*UNWIND-PROTECT*™‚Ü™‚'˜“˜“˜ŒG7042>™F3™P+™M™e™d ˜ŒREAD ™‚¤™‚¤‚˜–HÉgHÉ ˜ŒClean-up forms™‚'˜“€ ˜ŒCLOSE˜ŒABORT‚昌 LISP-FILE‚Á˜“™‚!˜ŒSTRING™‚"‚˜Œ.LISPA˜ŒUSER‚™‚/˜•Œ \PTRHUNK4˜–ggo ˜ŒDEFUN LOAD-TEXTMODULE™˜“€™‚ᙂâ™R ˜Œ1Load a text file, creating a content description.œ™S˜–Uo X‘HŽo ¸og hH ¿oH ¿Hgo ¿H™S™˜“€M˜•Œ READTABLEPROP<™Q0™‚˜)˜ŒSYMBOL-FUNCTION˜ŒCOPY-READTABLE™‚z™‚zC˜•ŒNAME$™jH˜Œ LISP-FILE6˜“Ž#Ž|™iŽ;˜ŒXCL˜Œ LISP-FILE˜–ggo ˜ŒDEFUN MAKE-LISP-FILE-READTABLE™˜“€™‚ᙂâ™S ˜Œ'Build and name the LISP-FILE readtable.œ™T˜– ‚$n¸ejó§kh ¿H@¿gµ o¹a¹gµHÉI ºaºgµHÉ Hý¿…aHý¿gµ lPHý¿…aHý¿HÉ»HÉ ”HÉ°(HÉÙHÉ °hgKoh Hý¿o o W giiiiHÉ 9Jgggg Hý¿iHý¿noHkoH-¿J˜Œ *PRINT-LEVEL*˜Œ*PRINT-LENGTH* ˜•Œ**COMMENT**FLG ˜’ŒFILE™E ˜•Œ*PRINT-SEMICOLON-COMMENTS* ˜Œ*PRINT-PRETTY* ˜’Œ*PRINT-STRUCTURE*™˜Œ *PRINT-ARRAY*˜Œ *PRINT-CASE*˜Œ *PRINT-BASE*™‚™ ™‚è™T‚ÿÿÿÿ™˜“˜“˜ŒMODULE™‚Ÿ˜ŒTYPE˜ŒPATHNAME˜ŒFILECOMS˜ŒWIDTH ‚ú™‚ܘ•ŒMKATOM‚É™‚z‚¿™‚ª‚°™‚‚›™‚®‚„™‚¯U˜Œ SYMBOL-VALUEP™‚«;™‚°6™‚° ™‚Ý ‚ô˜Œ NEW-VERSION‚ IF-EXISTS‚ê™‚å™‚ИŒDOWNCASE‚£™‚·‚’™‚f™‚íD™‚ì)™‚뙂ꂘ–bHÉHÉ ¿HÉo HÉ ¿HɹhºI‘I‚h°%ºHÉ ¿J [šJHÉK ¿I¹°ØºhHý¿Jºj@¿J™‚»™‚'˜“˜“˜ŒG7045H™X<™L5˜Œ FRESH-LINE™G™‚¬˜•Œ LINELENGTH˜Œ INTERLISP‚˜–HÉgHÉ ™‚Á™‚'˜“€ ™‚Ù‚ĂĘŒ LISP-FILE‚º˜ŒUSER‚©˜“™‚!™‚Ç™‚" ˜Œ.LISP‚ ™‚/˜•Œ \PTRHUNK5˜–ggo ˜ŒDEFUN MAKE-TEXTMODULE™˜“€™‚ᙂâ™T ˜Œ1Write a text file based on the file manager file.œ™U˜–@ÁÉg'¸@ kH™U™˜“˜“˜ŒFORM™‚À™‚7œ™V—˜–‚«nZ@¿JÉ ²joJÉ ð€h˜JÉJý¿h»l ¼hJý¿JÉJý¿hJý¿ggYJý¿n„½joJ-¿JÉgð² joJ-¿JÉK»JÉdJý¿Jý¿joJ-¿JÉgð² joJ-¿JÉK»JÉdJý¿Jý¿joJ-¿JÉgð²%joJ-¿JÉ K»JÉdJý¿Jý¿joJ-¿JÉgð²%joJ-¿JÉ K»JÉdJý¿Jý¿joJ-¿JÉo² joJ-¿JÉK»JÉdJý¿Jý¿joJ-¿JÉgð² joJ-¿JÉK»JÉdJý¿Jý¿joJ-¿JÉgð²%joJ-¿JÉ K»JÉdJý¿Jý¿joJ-¿JÉgð²%joJ-¿JÉ K»JÉdJý¿Jý¿joJ-¿JÉgð›JÉgð€h²%joJ-¿JɼJÉdJý¿Jý¿‚h¹JÉ JÉ gogK²goK o „ogLh$˜’Œ*CATCH-RETURN-PC*™‚ܘ’Œ*CATCH-RETURN-TO*™‚Ü™V™˜“˜“˜ŒCONTENTS ‚™‚‚ƒ˜ŒNREVERSE‚a™‚‚Y™‚‚÷™[‚¿™[‚!™[‚é™["˜ŒSEARCH™k‚š™2‚x™ ‚p™ ‚f™ ‚'˜Œ *READ-BASE*‚˜ŒSETF‚㘌SHADOWING-IMPORT‚«˜ŒIMPORT‚x˜Œ USE-PACKAGE‚ ˜ŒEXPORT‚Õ˜ŒSHADOW‚¢™o˜ŒPROVIDER™VM˜’ŒPARSE-COMPLETE™E‚•˜ŒUSER‚ˆ˜“™ ‚}˜“˜“™ ™ ‚k˜Œ LISP-FILE‚E˜“™‚ô™.˜Œ-*-™‚™‚#‚2˜–%HÉHÉð‘hHɹHÉHý¿IHÉHý¿°Þ˜Œ POP-FORMS™‚'˜“€™‚#‚˜–CHÉ¡hHÉY ²I dHý¿Ã³hI ¨HÉ HÉHý¿°À˜ŒNEXT-TOP-LEVEL-FORM™‚'˜“€2˜’ŒNON-LOCAL-RETURN™‚Ü)™k™] ™^™‚–™‚#‚왂&™‚#‚×™‚*™‚#‚´™‚&™‚#‚Ÿ™‚*™‚#‚™‚&™‚#‚l™‚*™‚#‚N™‚&™‚#‚9™‚*™‚#‚™‚&™‚#‚™‚*™‚#‚Þ™‚&™‚#‚É™‚*™‚#‚«™‚&™‚#‚–™‚*™‚#x™‚&™‚#c™‚*˜–ggo ˜Œ&DEFUN PARSE-ENVIRONMENT-SETUP-FILECOMS™˜“€™‚ᙂâ™V ˜ŒdParse out any environment specifiers, returning the reduced contents list and an environment object.œ™W˜–‚"@¸H¡hH¹HºIgð’±Ig𢱰J»J¢±œJ¼JÃ]‘M…L ²,gJh¼o LA ¿L ¿±µKâ±FJ\gð¢±ÒgJ gJ]²ggMhh€h½o MA ¿M ¿o½o_¿o_¿O‘h€i_’O…O‘h€i’±%O_¿O_¿OJ_²3OgOhh_¿o OA ¿O ¿O_¿O_¿°–Lgð¢±ÄJ ½h_¿h_¿h_¿M¢±ªM__¿o OA ¿O _¿O˜OO&_¿ˆOh__¿M½°»oJ ¿°Yo ¿°LIgð²1ggJh»o KA ¿K ¿°hgIo ¿H¸±ýä™ ™ ™ ™ ™ ™W™˜“˜“˜Œ ENVIRONMENT˜ŒSTREAM‚˜•Œ ECASE-FAIL‚™‚ò‚ù˜ŒPPRINT‚ª‚É™‚—‚¼™‚—‚”™‚ò‚‹™‚4‚€™‚ª‚]˜ŒBUTLAST‚;™‚ò‚2™‚4‚'™‚ª‚Ç™‚ò‚¿™‚4‚µ™‚ª‚ˆ™‚Ç`™‚òX™‚4N™‚ª8™‚¯‚ ˜’ŒNAME™E‚ß™‚‚Ú™‚‚Ò™2‚P™ ‚™‚‚Ÿ™‚‚š˜Œ NICKNAMES‚™‚7‚€™v™j™‚?™.™‚™ ™ ‚˜“™ ™ ™2‚ꘌEMPTY‚ĘŒNIL given as package name‚¶˜Œ+Unknown package specifier in environment ~s‚{™‚9‚"™‚9‚Û˜“™‚™‚™‚™‚™‚‚Ó˜“˜ŒSHADOW™™˜ŒIMPORT˜ŒSHADOWING-IMPORT‚Í™‚@‚°™‚9I™‚9˜–ggo ˜ŒDEFUN PRINT-ENVIRONMENT-FORMS™˜“€™‚ᙂâ™W ˜ŒFPrint the environment initializing forms from ENVIRONMENT onto STREAM.œ™X˜–4ekó”eló™ll ¿elÙjð¤la¸†@ ¸@AlH™X‚ÿÿÿÿ™˜“˜“˜ŒFILECOM˜ŒSTREAM™‚טŒ SPECIFIER!™L™‚ݘ–ggo ˜ŒDEFUN PRINT-FILECOM™˜“€™‚ᙂâ™X ˜Œ#Gets the print form of a specifier.œ™Y˜–‚œ@¸H¡@H¹H²'IÁÉg'Z‘J‡Io™IHºJð‚h€h²I ºH»JK¿HH¿°MgIð²II ¿I¥HI¿H¸°*gIð[‘K‡gIðŸII ¿H¸‚H¸±ÿj™Y™˜“˜“˜ŒCONTENTS‚‹™Y[™Y7™‚y}˜Œ EVAL-WHENq˜•Œ EVAL-WHENN˜•ŒCOMS™‚  ˜“˜•ŒFILES™‚¨˜–ggo ˜ŒDEFUN PROCESS-COMS-AFTER-LOAD™˜“€™‚ᙂâ™Y ˜ŒXDestructively optimize COMS; compress adjacent definers, p, files, evert redundant COMS.œ™Z˜–TAjð—@k A@ kÕ:˜@jA @‘h€iX‘H…@‘i€h•g…@ @jA @AkÔ ™Z™˜“˜“˜ŒSEQUENCE˜ŒINDEXN˜Œ CONCATENATEI˜ŒSUBSEQ@™‚b8˜ŒTYPE-OF™‚b˜ŒLENGTH™‚b1™‚#˜–ggo ˜ŒDEFUN REMOVE-PRESENTATION™˜“€™‚ᙂâ™Z ˜Œ)Translates a presentation by removing it.œ™[˜–‚Š@h¸h¹@ ºh»J‘J°$[K ð™K I¹ƒKH¸Jº°ÚH²-ggHhgogIhhh°gogIhh@™[™˜“˜“˜ŒFORM-™‚®%˜Œ FIND-SYMBOL ™‚®™‚ò ™_w™‚m˜ŒMAPCARZ™‚P™‚nG™‚B™‚r˜“™‚♂¬U˜“™‚♂¬œ˜’Œexpand-TOP-LEVEL-FORM™E˜–@¸gH ™‚r™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™_™‚˜–;gg ¿ggo ¿ggo ˜ŒDEFMACRO TOP-LEVEL-FORM™˜“€5™8 ™‚á ™‚D+™‚É&™\™‚â™\™‚r™\0˜“˜Œ&BODY˜ŒFORMS˜Œ8Wrapped around top level forms to install presentations.œ™]—˜–C@²3g@¸h¹hºh»H¢I°Hkoh-»I”JK&º„KhZ¹H¸°á@koh-™]™˜“˜“˜ŒPLACE™‚™‚‚;˜–@gð“@@˜ŒSTRIP™‚'˜“˜“˜ŒFORM™\™‚‚™‚‡˜–ggo ˜ŒDEFUN TOP-LEVEL-FORM-FORM™˜“€™‚ᙂâ™] ˜Œ0Return the form in the top-level form specifier.œ™^˜– g@ð™^™˜“˜“˜Œ SPECIFIER™‚¨œ™_˜–‚¦@‘h€iX‘H…@‘i€h¢±¨@ b¿@¸h¹H‘i€h¡@HZ ²I•IH¿„Hb¿H¸°rJò™‚¤2™‚¤#˜Œ ADJUSTABLE˜Œ FILL-POINTER˜Œ CHARACTER˜Œ ELEMENT-TYPEsŽ#]Ž|˜Œ0Spurious integer argument to hash macro ignored.˜–ggo ˜ŒDEFUN READ-HASH-BAR-COMMENT™˜“€™‚ᙂâ™i ˜ŒERead the characters of a hash bar comment, creating a comment object.œ™j˜–‚§h¸j¹iºl€gggjgi »@h` X`:\‘L†Ho:²4` kÕ¼ILýó‘I€L¹g`I gK J²$Ho:–IkÔ\Y°Ho:§HK ¿hº‡HK ¿°™j™˜“˜“˜ŒSTREAM˜Œ DISP-CHAR‚Ÿ™‚â‚”™‚âr™‚ãg™‚•K™‚d-™‚ä ™‚æ l™‚ça™‚£\™‚éF™‚£3™‚¤(™‚¤™‚ê™‚ë™‚ì ™‚í‚‹Ž |Ž;>Ž ˜–ggo ˜ŒDEFUN READ-SEMICOLON-COMMENT™˜“€™‚ᙂâ™j ˜ŒGReads the characters of a comment, building a Xerox Lisp style comment.œ™k˜–9@‘i€h²0@gð²$@`²@ ˜@‘hihhhh™k™˜“˜“˜ŒFORM"™‚¯™‚£ ™<˜–ggo ˜ŒDEFUN SEMICOLON-COMMENT-P™˜“€™‚ᙂâ™k ˜ŒIs FORM a semicolon comment?œ™l˜–P@‘i€h²G@¸H‘i€h¡hHY ›I Ró€hŸkI` ¿I‘i€h–I ¿H¸°¿h™‚Ÿ™l™˜“˜“˜ŒFORMC™l4™‚¡!™‚d™k-™‚£˜–ggo ˜ŒDEFUN UPGRADE-COMMENTS™˜“€™‚ᙂâ™l ˜ŒJSmash long single semicolon comments into double semies. No return value.œ™p˜–‚·@ÉXlðY‘I‹HlðZ‘JƒHlð²JAo@ÉYlð–g°Ilð•g‹Ilð•g€h@É@É @ɹlIýó•Il%ýó€h³o@É ¿Ao@É@É@É ™p™˜“˜“˜ŒOBJECT˜ŒSTREAM˜ŒDEPTH‚±™‚¸‚Œ™‚—a™‚¸ ‚©™‚¸‚¡™‚¸‚™™‚¸‚…™‚¸h™‚¸Y™‚¸Q™‚¸I˜•ŒX>˜•ŒO2˜•ŒB&™‚¸™‚¸‚“˜Œ#~DR~VR˜Œ!Bogus base in ~R presentation: ~d ˜Œ#~A~VRœ™q˜–‚¥Ao:X‘H†Ao:“l°rAo:X‘H†Ao:“l°[Ao:X‘H†Ao:“l°DAo:X‘H†Ao:²lBýó•Bl%ýó€h«oB ¿B°hgAo ¸gHgH@  ™‚™q™˜“˜“˜ŒSTREAM˜ŒSUB-CHAR˜ŒARG‚Ÿ˜’ŒMAKE-HASH-BASED-NUMBER™E‚™™‚¿‚ƒ™‚3n™‚—‚˜ŒNUMBER‚‰™2x˜’ŒSUB-CHAR™E ~˜“ŽbŽBŽoŽOŽxŽXŽrŽRh˜ŒBogus base in ~R: ~dRŽRGŽr;ŽX0Žx$ŽOŽo ŽBŽbœ™r˜– @É™r™˜“˜“˜ŒOBJECT™‚¸œ™v˜–4nXA¿oHÉ ¿noH@É ™v™˜“˜“˜ŒOBJECT˜ŒSTREAM˜ŒDEPTH.˜•Œ%MAP-FOR-EFFECT-SINGLE™‚Ë'™‚½˜–j@ÿ•o„oHÉ ˜Œlambda in PRINT-HASH-STAR™‚'˜“˜“˜ŒB™‚Ë ˜Œ1˜Œ0 ˜Œ#*™‚/™‚aœ™w˜–g@AB ™w™˜“˜“˜ŒSTREAM˜ŒSUB-CHAR˜ŒARG˜’ŒMAKE-HASH-STAR™E ˜•Œ HASH-STAR˜ŒVECTORœ™x˜– @É™x™˜“˜“˜ŒOBJECT™‚½œ™|˜–5`Ao@É@É ¿@ÉA ™ ™|™˜“˜“˜ŒOBJECT˜ŒSTREAM˜ŒDEPTH/˜ŒPRIN1™‚¸'™‚–™‚–™‚–˜•Œ*KEYWORD-PACKAGE* ˜Œ#~a~s ˜–ggo ˜Œ*DEFUN PRINT-READABLE-READ-TIME-CONDITIONAL™˜“€™‚ᙂâ™| ˜Œ1Form was read as a string, so print it with PRIN1œ™}˜–5`Ao@É@É ¿@ÉA ™ ™}™˜“˜“˜ŒOBJECT˜ŒSTREAM˜ŒDEPTH/™‚Ë™‚¸'™‚–™‚–™‚–™‚J ˜Œ#~a~s ˜–ggo ˜Œ,DEFUN PRINT-UNREADABLE-READ-TIME-CONDITIONAL™˜“€™‚ᙂâ™} ˜Œ1Form was read as a string, so print it with PRINCœ™~˜–‚%Bšo ¿`@ ¹Ao:—I °(Ao:œI ’h°i°hgAo Z²m@ »io @ ¿@ KÕ¾@K ¿N _¿N_¿j_¿OOýó£O°XO_¿O_¿@ _OO·¿OkÔ_¿°Ö@ h»K ³kK ð’K‹gK Š@ K»°Ö»gIgAgKlJšg ‰g ™‚˜Œ*READ-SUPPRESS*™ ™~ ™˜“˜“˜ŒSTREAM˜ŒSUB-CHAR˜ŒINTEGER‚™‚Ó‚™‚ӂ홂¿‚噂‚Õ™‚d‚Ì™k‚Ù‚¿‚¬™‚䂆˜Œ MAKE-STRING˜Œ FILE-POSITIONu™‚cm™‚¿d™‚zX™‚cO™‚37˜•ŒCMLREAD.FEATURE.PARSER'™‚d™‚¿™‚Y‚˜’ŒMAKE-HASH-IL-READABLE™E‚˜’ŒMAKE-HASH-IL-UNREADABLE™E‚™‚j‚þ˜ŒSIGN‚ø˜ŒFEATURE‚ß™‚D™‚ ™‚J_˜ŒXCLJ˜“Ž-Ž+/Ž+Ž-˜Œ0Spurious integer argument to hash macro ignored.œ™˜–‚›Q@É €h²0oo@É ¿@@É ¿@ÉXo:ž@É °0Ho:²@É ’h°i°hoHo ˜@ÉR™‚™‚¢™™˜“˜“˜ŒOBJECT‚Š™‚3r™‚dZ™‚d:™‚&™‚+ ™‚‚‚‘™‚–k™‚–S™‚–C™‚–3™‚–-™‚–™‚–™‚–‚…˜“Ž+Ž-˜“˜’ŒREAD-TIME-CONDITIONAL-SIGN™E˜’ŒOBJECT™EbŽ-KŽ+˜Œ~s contains a non-keyword˜ŒMake all symbols keywordsœ™‚€˜–‚nX¿@É ³6oo@É ¿@ho@É ¿R@É €h²0oo@É ¿@@É ¿@ÉYo:ž@É °0Io:²@É ’h°i°hoIo ²4@ÉYjh Hý¿iHý¿noHkoH-S™‚™‚¢™‚€™˜“˜“˜ŒOBJECT ‚嘌MAKE-STRING-INPUT-STREAM‚Ó™‚3‚»™‚d‚£™‚d‚ƒ™‚o™‚+T™‚‚B™‚¸(™‚+™‚¯ ‚Û™‚–‚´™‚–‚œ™‚–‚Œ™‚–|™‚–v™‚–h™‚–M™‚–;™‚–/™‚–!™‚–™‚– ‚˜–xhº`WioWK¹n‘¾HÉ hºg‚ h¹gð‘J€hZ˜J °!` ¿o` ¿WhhHý¿j@¿ ™‚ ˜•Œ*CONDITION-HANDLER-BINDINGS*˜’Œ *NLSETQFLAG*™‚ܘ•Œ*PROCEED-CASES*™‚ ™‚}™‚{ ™‚¢™‚»™‚'˜“˜“˜ŒG7088r˜Œ VALUES-LIST^˜•ŒPRIN1N˜•ŒTERPRIB™‚­ ™‚¿Y˜•Œ PROMPTWINDOWI™‚„4˜ŒNORMAL(™‚…˜’ŒNLSETQ-PROCEED-CASE™‚ÜT˜ŒBWarning: Problem trying to read conditional expression. Not read. ˜”™‚—’Œ NLSETQHANDLER™‚Ü‚ù˜–HÉgHÉ ™‚Á™‚'˜“€ ™‚Ù‚ĂΘ“Ž+Ž-‚Ș“™‚q™‚r‚«Ž-‚”Ž+b˜Œ~s contains a non-keyword]˜ŒMake all symbols keywords5˜Œ~s˜Œ:Non-string ~s found in an unreadable read-time-conditional˜Œ"Replace it with (FORMAT NIL "~~s")‚õ™‚/™‚aœ™‚˜–‚‡nX¿@‘i€h²'@¹hºh»h¼I¡JI ¼J”KL&»„Lh[ºI¹°å@•@d3@ð€h²H@ ‘@o @ Yjh Hý¿iHý¿noHkoH-@™ ™‚™˜“˜“˜ŒX^™‚zV™‚®M™‚ª@˜ŒKEYWORDP™‚}˜–HÉ hHý¿j@¿ ™‚»™‚'˜“˜“˜ŒG7090™‚ ™‚­™‚¿r˜–HÉgHÉ ™‚Á™‚'˜“€ ™‚Ù‚ÄH˜ŒKEYWORDn™‚/™‚aœ™‚‚˜–-@‘i€h²g @ @d3@ðš@ ‘hii™‚‚™˜“˜“˜ŒX!™‚—™‚Z™‚Ó ™‚‚œ™‚ˆ˜–>Pgð²@ÉA ¿°@É A ¿@ÉA ™‚療ˆ™˜“˜“˜ŒOBJECT˜ŒSTREAM˜ŒDEPTH8™‚I)™‚Ë#™‚±™‚Ë0™‚”™‚” ™‚”™‚ôœ™‚‰˜–‚(Bšo ¿Ao:œg ±…Ao:›g °pAo:X‘H†Ao:›g °QAo:X‘H†Ao:›g °2Ao:X‘H†Ao:›g °hgAo ¹gAo:X‘H†Ao:’S°XAo:X‘H†Ao:“l°AAo:X‘H†Ao:“l°*Ao:X‘H†Ao:“l°hgAo @hi lI™‚™‚™‚‰™˜“˜“˜ŒSTREAM˜ŒSUB-CHAR˜ŒINTEGER ‚™‚¿‚™‚3‚ ™‚3‚™‚Ón™‚ÓO™‚Ó0™‚Ó™‚Ó™‚Y‚™‚ ‚¦˜ŒCONTENTS‚•™‚ ‚ˆ˜’Œ MAKE-HASH-B™Ei˜’Œ MAKE-HASH-X™EJ˜’Œ MAKE-HASH-O™E+˜’ŒMAKE-HASH-COMMA™E˜’Œ MAKE-HASH-DOT™E‚ ˜“Ž.Ž,ŽBŽbŽOŽoŽXŽx‚ûŽx‚ðŽX‚äŽo‚ÙŽO‚ÍŽb‚ÂŽB‚·Ž,‚¬Ž.‚›˜“Ž.Ž,ŽOŽoŽXŽxŽBŽb‚ŽbvŽBbŽxWŽXCŽo8ŽO$Ž,Ž.˜Œ0Spurious integer argument to hash macro ignored.˜–ggo ˜ŒDEFUN READ-PREFIX-QUOTE™˜“€™‚ᙂ♂‰ ˜ŒReads hash quoted forms.œ™‚Š˜– @É™‚Š™˜“˜“˜ŒOBJECT™‚”œ™‚‹˜–CP‘hQ²g@É jRÊ ð@É @É ™‚\˜’Œ*COMPILER-IS-READING*˜‘˜ŒCOMPILER™‚™‚‹™˜“˜“˜ŒOBJECT=™‚ò/™‚Á˜’ŒMAKE-EVAL-WHEN-LOAD™‚Â6™‚”(™‚”˜Œ READTABLEP™‚”™‚jœ™‚Œ˜–-P‘hjQÊ ð@É @É ™‚\™‚™‚Œ™˜“˜“˜ŒOBJECT'™‚ò™‚Á ™‚”™‚”™‚Èœ™‚˜–‚ˆoA ¿@g oA ¿°0@g oA ¿°hg@oh ¿`@ÉA ¿oA ¿@ÉA ™ ™‚™˜“˜“˜ŒOBJECT˜ŒSTREAM˜ŒDEPTH ‚‚™‚Is™‚Ëf™‚IO™‚9™‚Ë-˜ŒTYPEP™‚Ë™‚Ó™‚Ëz™‚–^™‚–U™‚JB™‚r(˜’Œ HASH-MINUS™E˜’Œ HASH-PLUS™Em˜Œ H˜“™‚!™‚Õ™‚Ô3Ž-Ž+Ž#˜–Dgio ¿goolg ¿ggg ˜ŒDEFSTRUCT PRESENTATION™˜“€>™8)˜’Œ%STRUCTURE-DECLARE-DATATYPE™‚Ü ˜ŒSET-PARSED-STRUCTURE9˜ŒTYPE-EXPAND-STRUCTURE4˜Œ TYPE-EXPANDER/™‚“#˜ŒSTRUCTURE-OBJECT™‚“™‚“˜“˜“™‚“˜•ŒPOINTER˜“™‚à˜“˜ŒPS™‚“˜’ŒMAKE-PRESENTATION™E˜“™‚˜ŒDATATYPE€€˜Œ PRESENTATION-˜“™‚嘒ŒPRESENTATION-P™E˜ŒDEFAULT-STRUCTURE-PRINTER˜’ŒCOPY-PRESENTATION™E€€˜“˜“™‚€€™‚ᙂ•€€™‚〘“˜ŒACCESSOR˜Œ PREDICATE€€€œ™‚ꘖ@Ù‚Ꙙ“˜“˜ŒOBJECT™‚“˜–"g ¿g ¿g ™‚Ù™˜“€˜ŒESTABLISH-SETFS-AND-OPTIMIZERS˜ŒESTABLISH-ACCESSORS˜ŒESTABLISH-PREDICATE™‚“ ™‚“™‚“œ™‚嘖#gµh¸h¹ƒa¸i¹`ºI”JH¿J™‚å‚ÿÿÿÿ™˜“˜“™‚Ÿ˜ŒOPS˜’ŒPRESENTATIONTYPE#™E™‚ýœ™‚옖3@¸@Ñ°igHgh b¿°ß`X@É¿H™‚왘“˜“˜Œ PRESENTATION™‚$™‚™‚“ ™‚“™‚“˜–Dgio ¿goolg ¿ggg ˜ŒDEFSTRUCT PREFIX-QUOTE™˜“€>™8)™‚Û ™‚Ü9™‚Ý4™‚Þ/™‚”#™‚“™‚”™‚”˜“˜“™‚”™‚à˜“™‚”™‚à˜“™‚”™‚à˜“™‚”™‚à˜“™‚à™‚à™‚à™‚à˜“™‚䙂”˜’ŒMAKE-PREFIX-QUOTE™E˜“™‚˜ŒTYPE˜’ŒPREFIX™E˜’ŒCONTENTS™E™‚瀙‚“˜Œ PREFIX-QUOTE-˜“™‚˜’ŒPREFIX-QUOTE-P™E™‚ˆ˜’ŒCOPY-PREFIX-QUOTE™E€€˜“˜“™‚€€™‚˜’ŒPREFIX-QUOTE-OPS™E˜“™‚€€™‚ ˜’ŒPREFIX-QUOTE-TYPE™E˜“™‚€€™‚ ˜’ŒPREFIX-QUOTE-PREFIX™E˜“™‚€€™‚ ˜’ŒPREFIX-QUOTE-CONTENTS™E€€™‚ €™‚ñ€€€œ™‚˜–@Ù‚™˜“˜“˜ŒOBJECT™‚”˜–"g ¿g ¿g ™‚™˜“€™‚ù™‚ú™‚û™‚” ™‚”™‚”œ™‚˜–zgµh¸h¹ƒa¸i¹gµhºh»ƒaºi»gµh¼h½ƒa¼i½gµ h¾h_¿…a¾i_¿`_¿I•OH¿K•OJ¿M•OL¿O•ON¿O™‚ ‚ÿÿÿÿ™˜“˜“™‚Ÿ™‚ý™‚ꘌPREFIX™‚¯M˜’ŒPREFIX-QUOTETYPE#™E7™‚¯%™‚(™‚Ꙃýœ™‚˜–H@¸@Ñ°igHgh b¿°ß`X@É¿H@É¿H@É¿H@É¿H™‚™˜“˜“˜Œ PREFIX-QUOTE™‚$™‚+™‚” ™‚”™‚”˜–(gio ¿g ¿g ˜ŒDEFSTRUCT PRESENTATION-OPS™˜“€"™‚ù™‚ú ™‚Ü™‚•™‚•™‚•˜“™‚䙂•™‚˜“˜’Œ READ-MACRO™E˜’Œ TRANSLATOR™E™‚#€€˜ŒPRESENTATION-OPS-˜“™‚€™‚똒ŒCOPY-PRESENTATION-OPS™E€€˜“˜“™‚3€€˜’ŒPRESENTATION-OPS-READ-MACRO™E˜“™‚4€€˜’ŒPRESENTATION-OPS-TRANSLATOR™E€€€€™‚ñ€€€œ™‚˜–Egµh¸h¹ƒa¸i¹gµhºh»ƒaºi»l ¼I˜jLH ¿K˜kLJ ¿L™‚‚ÿÿÿÿ™˜“˜“™‚Ÿ™‚™‚=™‚¡2™‚¡'˜Œ MAKE-LIST™‚™‚œ™‚8˜– l ¸jH@ ¿kH@ ¿H™‚8™˜“˜“˜ŒPRESENTATION-OPS™‚¡ ™‚¡™‚B˜–Dgio ¿goolg ¿ggg ˜ŒDEFSTRUCT READ-TIME-CONDITIONAL™˜“€>™8)™‚Û ™‚Ü9™‚Ý4™‚Þ/™‚–#™‚“™‚–™‚–˜“˜“™‚–™‚à˜“™‚–™‚à˜“™‚–™‚à˜“™‚–™‚à˜“™‚à™‚à™‚à™‚à˜“™‚䙂–˜’ŒMAKE-READ-TIME-CONDITIONAL™E˜“™‚˜’ŒFEATURE™E˜’ŒSIGN™E˜’ŒFORM™E™‚瀙‚“˜ŒREAD-TIME-CONDITIONAL-˜“™‚P˜’ŒREAD-TIME-CONDITIONAL-P™E™‚˜’ŒCOPY-READ-TIME-CONDITIONAL™E€€˜“˜“™‚€€™‚J˜’ŒREAD-TIME-CONDITIONAL-OPS™E˜“™‚Q€€™‚K˜’ŒREAD-TIME-CONDITIONAL-FEATURE™E˜“™‚R€€™‚L™‚q˜“™‚S€€™‚M˜’ŒREAD-TIME-CONDITIONAL-FORM™E€€™‚O€™‚ñ€€€œ™‚W˜–@Ù‚W™˜“˜“˜ŒOBJECT™‚–˜–"g ¿g ¿g ™‚H™˜“€™‚ù™‚ú™‚û™‚– ™‚–™‚–œ™‚P˜–zgµh¸h¹ƒa¸i¹gµhºh»ƒaºi»gµh¼h½ƒa¼i½gµ h¾h_¿…a¾i_¿`_¿I•OH¿K•OJ¿M•OL¿O•ON¿O™‚P ‚ÿÿÿÿ™˜“˜“™‚Ÿ™‚ý™‚h™‚g™‚jM˜’ŒREAD-TIME-CONDITIONALTYPE#™E7™‚j%™‚g™‚h™‚ýœ™‚X˜–H@¸@Ñ°igHgh b¿°ß`X@É¿H@É¿H@É¿H@É¿H™‚X™˜“˜“˜ŒREAD-TIME-CONDITIONAL™‚$™‚k™‚– ™‚–™‚–˜–(gio ¿g ¿g ˜ŒDEFSTRUCT SEMICOLON-COMMENT™˜“€"™‚ù™‚ú ™‚Ü™‚—™‚—™‚—˜“™‚䙂—™‚㘓˜’ŒTAG™E˜’ŒMARKER™E™‚Ç™‚#€€˜ŒSEMICOLON-COMMENT-˜“™‚〙‚똒ŒCOPY-SEMICOLON-COMMENT™E€€˜“˜“™‚s˜“™‚™<€˜’ŒSEMICOLON-COMMENT-TAG™E˜“™‚t˜“™‚˜•Œ;€˜’ŒSEMICOLON-COMMENT-MARKER™E˜“™‚ǘŒ€˜’ŒSEMICOLON-COMMENT-STRING™E€€€€™‚ñ€€€œ™‚㘖]gµ g¸a¸gµ g¹a¹gµ oºaºl »jKH ¿kKI ¿lKJ ¿K™‚ã‚ÿÿÿÿ™˜“˜“™‚Ÿ˜ŒTAG™‚陂çU™‚¡K™‚¡B™‚¡9™‚B%™‚療|™‚é ™<™‚†.™‚€œ™‚x˜–-l ¸jH@ ¿kH@ ¿lH@ ¿H™‚x™˜“˜“˜ŒSEMICOLON-COMMENT%™‚¡™‚¡ ™‚¡™‚B˜–(gio ¿g ¿g ˜ŒDEFSTRUCT SPECIFIER™˜“€"™‚ù™‚ú ™‚Ü™‚˜™‚˜™‚˜˜“™‚䙂˜™‚ʘ“™‚6˜’Œ FILECOM-P™E˜’ŒFORM-P™E™F™P™X™‚#€€˜Œ SPECIFIER-˜“™‚Ê€™‚똒ŒCOPY-SPECIFIER™E€€˜“˜“™‚6€€˜’ŒSPECIFIER-NAME™E˜“™‚€€˜’ŒSPECIFIER-FILECOM-P™E˜“™‚‘€€˜’ŒSPECIFIER-FORM-P™E˜“™F€€˜’ŒSPECIFIER-ADD-FORM™E˜“™P€€˜’ŒSPECIFIER-INSTALL-FORM™E˜“™X€€˜’ŒSPECIFIER-PRINT-FILECOM™E€€€€™‚ñ€€€œ™‚ʘ–‚ßgµh¸h¹ƒa¸i¹gµhºh»ƒaºi»gµh¼h½ƒa¼i½gµ h¾h_¿…a¾i_¿gµ h_¿h_¿‡a_¿i_¿gµ h_¿h_¿‡a_¿i_¿l _¿I™jOH ¿K™kOJ ¿MšlOL ¿OšlON ¿O›lOO ¿O›lOO ¿O™‚Ê ‚ÿÿÿÿ™˜“˜“™‚Ÿ˜ŒNAME˜Œ FILECOM-P˜ŒFORM-P˜ŒADD-FORM˜Œ INSTALL-FORM˜Œ PRINT-FILECOM‚Ö™‚¡‚Ç™‚¡‚¸™‚¡‚ª™‚¡‚™‚¡‚‘™‚¡‚ƒ™‚Bg™‚ªM™‚©7™‚¨%™‚§™‚¦™‚¥œ™‚•˜–Zl ¸jH@ ¿kH@ ¿lH@ ¿lH@ ¿lH@ ¿lH@ ¿H™‚•™˜“˜“˜Œ SPECIFIERR™‚¡B™‚¡3™‚¡%™‚¡™‚¡ ™‚¡™‚B˜–Zgio ¿goolg ¿ggg ¿g ¿g ˜ŒDEFINE-CONDITION UNKNOWN-FORM™˜“€T™‚ùI™‚ú>™8)™‚Û ™‚ÜO™‚™D™‚™9™‚Ý4™‚Þ/™‚™#˜’ŒWARNING™™‚™™‚™˜“˜“™‚™˜•ŒXPOINTER˜“™‚™™‚à˜“™‚™™‚à˜“™‚µ™‚à™‚à˜“™‚䙂™˜’ŒUNKNOWN-FORM constructor™E˜“˜’Œ--STRUCTURE-DUMMY-SLOT--™‚ܘ’Œ CONDITION™™‚S™‚瀙‚´˜Œ UNKNOWN-FORM-˜“™‚»€˜•Œ%PRINT-CONDITION€€€˜“˜“™‚¼€™‚µ™‚¶€˜“™‚½€™‚·˜’ŒUNKNOWN-FORM-CONDITION™E˜“™‚S€™‚¸˜’ŒUNKNOWN-FORM-FORM™E€€™‚º€™‚ñ€€€œ™‚»˜–\gµh¸h¹ƒa¸i¹gµhºh»ƒaºi»`¼LnðLÈåhÒnÿåäÍ¿LjkØÐhÓÍ¿I”LH¿K”LJ¿L˜•Œ\INTERRUPTABLE™‚»‚ÿÿÿÿ™˜“˜“™‚Ÿ˜Œ CONDITION™‚j%˜’ŒUNKNOWN-FORMTYPE#™E™‚j™‚Ëœ˜’ŒUNKNOWN-FORM report method™E˜–Ao@É ™‚Й˜“˜“˜Œ CONDITION˜ŒSTREAM™‚¸™‚™˜Œ Can't find specifier for form ~s˜–,ggg ¿ggh ™‚²™˜“€&™8™8™‚Ó ˜•Œ%CONDITION-HANDLER™‚™ ™‚И•Œ%CONDITION-REPORTER™‚™˜–Zgio ¿goolg ¿ggg ¿g ¿g ˜Œ"DEFINE-CONDITION UNKNOWN-SPECIFIER™˜“€T™‚ùI™‚ú>™8)™‚Û ™‚ÜO™‚šD™‚š9™‚Ý4™‚Þ/™‚š#™‚´™‚š™‚š˜“˜“™‚š™‚µ˜“™‚š™‚à˜“™‚š™‚à˜“™‚µ™‚à™‚à˜“™‚䙂š˜’ŒUNKNOWN-SPECIFIER constructor™E˜“™‚¼™‚½™‚˜™‚瀙‚´˜ŒUNKNOWN-SPECIFIER-˜“™‚’‚Á€€€˜“˜“™‚¼€™‚µ™‚Ý€˜“™‚½€™‚Þ˜’ŒUNKNOWN-SPECIFIER-CONDITION™E˜“™‚˜€™‚ߘ’ŒUNKNOWN-SPECIFIER-SPECIFIER™E€€™‚မ‚ñ€€€œ™‚☖\gµh¸h¹ƒa¸i¹gµhºh»ƒaºi»`¼LnðLÈåhÒnÿåäÍ¿LjkØÐhÓÍ¿I”LH¿K”LJ¿L™‚Ê™‚â‚ÿÿÿÿ™˜“˜“™‚Ÿ™‚Ë™‚[%˜’ŒUNKNOWN-SPECIFIERTYPE#™E™‚[™‚Ëœ˜’ŒUNKNOWN-SPECIFIER report method™E˜–Ao@É ™‚ò™˜“˜“˜Œ CONDITION˜ŒSTREAM™‚¸™‚š˜ŒUnrecognized filecom ~s˜–,ggg ¿ggh ™‚Û™˜“€&™8™8™‚Ó ™‚Ø™‚š ™‚ò™‚Ù™‚š˜–1o ¿g X£ic¿ggo ™‚˜ŒDEFVAR *CONDITIONAL-KEYWORDS*™˜“€+™‚ᘌBOUNDP˜ŒPROCLAIM!˜ŒVARIABLE™‚ ™‚&˜ŒVControls whether TEXTMODULES insists on keywords in features of read-time-conditionals˜“˜ŒSPECIAL™‚˜–%o ¿ic¿ggo ™‚ž˜Œ#DEFPARAMETER *CONVERT-LOADED-FILES*™˜“€™‚ᙂþ™‚ÿ™‚ž˜Œ+Convert text files loaded by the first one.˜“™‚™‚ž˜–&o ¿l(c¿ggo ™‚Ÿ˜Œ%DEFPARAMETER *UPGRADE-COMMENT-LENGTH*™˜“€ ™‚ᙂþ™‚ÿ™‚Ÿ˜ŒALength at which a single semicolon comment is upgraded to double.˜“™‚™‚Ÿ˜–%o ¿ic¿ggo ™‚ ˜ŒDEFPARAMETER *JOIN-COMMENTS*™˜“€™‚ᙂþ™‚ÿ™‚ ˜Œ-Should comments be joined together when read?˜“™‚™‚ ˜–%o ¿hc¿ggo ™‚¡˜Œ DEFPARAMETER *DEFDEFINER-MACROS*™˜“€™‚ᙂþ™‚ÿ™‚¡˜Œ.Names of macros to change to definers on read.˜“™‚™‚¡˜–"o ¿g X‘Hoc™‚¢˜ŒDEFVAR *DELETE-FORM*™˜“€™‚ý™‚þ ™‚¢˜Œ˜“™‚™‚¢˜–8gh ¿o¿o ¿ggo ˜Œ!DEFCONSTANT COMMENT-LEVEL-MARKERS™˜“€2™‚ᙂþ˜’Œ SET-CONSTANTP™(™‚ÿ#™‚£™‚£™‚£-˜Œ%Comment markers for availible levels.˜“˜’ŒCONSTANT™‚Ü™‚£ ˜“™‚|™@™=˜•Œ;;;;™‚蘖8gh ¿o¿o ¿ggo ˜ŒDEFCONSTANT EOF-MARKER™˜“€2™‚ᙂþ™‚(™‚ÿ#™‚¤™‚¤™‚¤-˜Œ)Unique object passed through read at EOF.˜“™‚!™‚¤ ˜Œeof˜–Eo ¿g X³gg c¿ggo ™‚¥˜ŒDEFVAR *SEDIT-READ-MACROS*™˜“€?™‚á(˜ŒMAKE-HASH-TABLE#™‚Ó™‚ý™‚þ5™‚ÿ0™‚¥™‚4™‚5 ™‚¥:˜ŒUPresentation read macro entries that need to be added to SEdit Common Lisp readtables˜“™‚™‚¥˜–‚ o ¿gogg gg gnogg gg gognognognognogno gognognognognogno gognognognognogno gognogg gnognogno gognognogno gognognogno gognognogno gognognogno gognognognognogno gognognogno gogg gg gnognogno hc¿ggo ™‚¦˜ŒDEFPARAMETER *SPECIFIERS*™˜“€‚™‚á‚à™‚Ê‚ª™‚Ó‚›™‚Ó‚‚™‚Ê‚B™‚Ê‚♂ʂ¢™‚Ê‚b™‚Ê‚"™‚Ê‚♂ʂ¬™‚Ó‚ƒ™‚Ê‚#™‚ʂÙ‚Êc™‚Ê]™‚ÓN™‚Ó/™‚Ó ™‚Ó™‚þG‚ú™‚ÿ‚õ™‚¦‚Ï™‚ª‚¿™‚©‚¯™‚¨‚¥˜’ŒTRUE™‚ ™‚§‚–™^‚‘™‚¦‚‡™‚¥‚q™‚ª‚a™‚§‚Q™‚¦‚G™‚¥‚1™‚ª‚!™‚©‚™‚¨‚™‚§‚ñ™‚¦‚療¥‚Ñ™‚ª‚Á™‚§‚±™‚¦‚§™‚¥‚‘™‚ª‚™‚§‚q™‚¦‚g™‚¥‚Q™‚ª‚A™‚§‚1™‚¦‚'™‚¥‚™‚ª‚™‚§‚ñ™‚¦‚療¥‚Ñ™‚ª‚Á™‚©‚±™‚¨‚§™‚W‚¢™‚§‚’™‚¦‚ˆ™‚¥‚r™‚ª‚b™‚©‚R™‚¨‚B™‚§‚2™‚¦‚(™‚¥‚™‚ª‚™‚©‚ò™‚¨‚♂§‚Ò™‚¦‚È™‚¥‚²™‚ª‚¢™‚©‚’™‚¨‚‚™‚§r™‚¦h™‚¥X™‚4S™‚ªI˜ŒIDENTITYD™‚©4™‚¨*™k%™‚§™k™‚¦ ™‚¥9‚ÿ˜Œ5A list of all content specifier types for text files.‚ؘ–)@ ¸A ¿HA ¿gHð–H h˜Œ#lambda in DEFPARAMETER *SPECIFIERS*™‚'˜“˜“˜ŒFILECOM˜ŒSTREAM!™‚ò™‚4 ™‚ø™]™‚Ș– @ ˜Œ#lambda in DEFPARAMETER *SPECIFIERS*™‚'˜“˜“˜ŒFORM™‚ò™_‚¸˜–"@ ¿Agg@hhh ˜Œ#lambda in DEFPARAMETER *SPECIFIERS*™‚'˜“˜“˜ŒFORM˜ŒFILECOMS™‚™H™\ ™‚¨‚Œ˜ŒTop level form‚z˜–‚™@b¿h¸@¡hA ¿@YºI»Iò$ggIhH•o€hA ¿°UK ²gIH•o€hA ¿°3K‘h€i\‘L…KÃœgI²i¸°hgJoh ¿±ÿr˜Œ#lambda in DEFPARAMETER *SPECIFIERS*™‚'˜“˜“˜ŒFILECOM˜ŒSTREAM‚™‚]™‚4D™‚¯;™‚4 ™‚ø‚ƒ˜’ŒITEM™Eu˜•ŒNOERRORo™‚K™‚õ&™‚!™‚õ™‚‚‰˜“™‚!™‚"™‚Ç™‚#S˜“˜ŒIF-DOES-NOT-EXIST€1˜“™‚Q€‚j˜–h˜Œ#lambda in DEFPARAMETER *SPECIFIERS*™‚'˜“˜“˜ŒFORM‚Z˜– @gð˜Œ#lambda in DEFPARAMETER *SPECIFIERS*™‚'˜“˜“˜ŒFILECOM™‚V‚L˜ŒFILES com translator‚:—˜–‚¶nXA¿@b¹@b¿I¹@ºh»J‘Jh»HÉ ¿Igð²*KÁɼL¡°sL½M]`«KMloH-¿L¼°àI‘h€i\‘L…I‘i€h²I¼h½L‘L°:½KMloH-¿L¼°éId3@ðKIloH-¿°ooI ¿Jº±ÿh˜Œ#lambda in DEFPARAMETER *SPECIFIERS*™‚'˜“˜“˜ŒFILECOM˜ŒSTREAM‚ª™‚+&™‚øD˜•ŒSYSPROPS-˜•ŒALL‚¤˜ŒBad prop spec ~s in PROPS com‚Ÿ˜ŒIgnore property™‚a™‚i‚•˜–nA@ÁɲYR@ð‘h€i¹I‘IŠAo‘h€i²>ggg@hgAhhg@ÁÉA'hhHÉ hoA@ ™‚☌ PPRINT-PROP™‚'˜“˜“˜ŒSYMBOL˜ŒPROPh™‚YY™‚4C™‚6™‚-™‚(˜ŒGET#™‚a˜ŒNo ~s property for ~s~%˜“™‚Ì™‚Í™‚i~™‚r™‚iO™‚r‚*˜– @ ˜Œ#lambda in DEFPARAMETER *SPECIFIERS*™‚'˜“˜“˜ŒFORM™‚ò™_‚˜–"Ag@¸H@¸Hhh ˜Œ#lambda in DEFPARAMETER *SPECIFIERS*™‚'˜“˜“˜ŒFORM˜ŒFILECOMS™‚™‚È‚ ˜–Q@‘h€iX‘H…@‘i€h²?@gð²3@X‘h€iY‘I…H‘i€h²@¸Hgð›l@ ðhhhh˜Œ#lambda in DEFPARAMETER *SPECIFIERS*™‚'˜“˜“˜ŒFORMB™‚d6˜ŒGETF™‚‚ú˜– @gð˜Œ#lambda in DEFPARAMETER *SPECIFIERS*™‚'˜“˜“˜ŒFILECOM™‚È‚옌PROP com translator‚Ú—˜–/nXA¿@¹hºI‘IhºHÉ ¿JkoH-¿I¹°â˜Œ#lambda in DEFPARAMETER *SPECIFIERS*™‚'˜“˜“˜ŒFILECOM˜ŒSTREAM™‚ø™‚a™‚"˜–u@¹@ºIJÁɲYTJð‘h€i»K‘KŠIo‘h€i²>gggJhgIhhgJÁÉI'hhHÉ hoIJ ™‚☌ PPRINT-PROPS™‚'˜“˜“˜ŒFILECOMo™‚Y`™‚4J™‚=™‚4™‚/™‚o*™‚h˜ŒNo ~s property for ~s~%˜“™‚Ì™‚Í‚ʘ–h˜Œ#lambda in DEFPARAMETER *SPECIFIERS*™‚'˜“˜“˜ŒFORM‚º˜– @gð˜Œ#lambda in DEFPARAMETER *SPECIFIERS*™‚'˜“˜“˜ŒFILECOM™‚³‚¬˜ŒPROPS com translator‚š—˜–*@¸h¹H‘Hh¹A ¿Ikoh-A ¿H¸°Þ˜Œ#lambda in DEFPARAMETER *SPECIFIERS*™‚'˜“˜“˜ŒFILECOM˜ŒSTREAM™‚4™‚ø™‚§˜–`@¸@¹@òg@g@ hhI‘h€iºJ‘J…Iòg@@“@€hhhgHoh ˜ŒTRANSLATE-CONSTANTS™‚'˜“˜“˜ŒFILECOMZ™‚™‚ñM˜’ŒFILECOM™E8˜Œ DEFCONSTANT1™‚™‚ ™‚­™‚S˜“™‚!™‚"™‚#‚Š˜–h˜Œ#lambda in DEFPARAMETER *SPECIFIERS*™‚'˜“˜“˜ŒFORM‚z˜– @gð˜Œ#lambda in DEFPARAMETER *SPECIFIERS*™‚'˜“˜“˜ŒFILECOM˜•Œ CONSTANTS‚l˜ŒCONSTANTS com translator‚Z—˜–*@¸h¹H‘Hh¹A ¿Ikoh-A ¿H¸°Þ˜Œ#lambda in DEFPARAMETER *SPECIFIERS*™‚'˜“˜“˜ŒFILECOM˜ŒSTREAM™‚4™‚ø™‚Á˜–T@¸@¹@Ãg@oI‘h€iºJ‘J…Iòg@@“@€hhhgHoh ˜ŒTRANSLATE-INITVARS™‚'˜“˜“˜ŒFILECOMN™‚A™‚¬,˜ŒDEFVAR%™‚ ™‚Æ™‚G˜“™‚!™‚"™‚#˜“€‚J˜–h˜Œ#lambda in DEFPARAMETER *SPECIFIERS*™‚'˜“˜“˜ŒFORM‚:˜– @gð˜Œ#lambda in DEFPARAMETER *SPECIFIERS*™‚'˜“˜“˜ŒFILECOM˜•ŒINITVARS‚,˜ŒINITVARS com translator‚—˜–*@¸h¹H‘Hh¹A ¿Ikoh-A ¿H¸°Þ˜Œ#lambda in DEFPARAMETER *SPECIFIERS*™‚'˜“˜“˜ŒFILECOM˜ŒSTREAM™‚4™‚ø™‚Û˜–`@¸@¹@òg@g@ hhI‘h€iºJ‘J…Iòg@@“@€hhhgHoh ˜ŒTRANSLATE-VARS™‚'˜“˜“˜ŒFILECOMZ™‚™‚ñM™‚¬8˜Œ DEFPARAMETER1™‚™‚ ™‚à™‚S˜“™‚!™‚"™‚#‚ ˜–h˜Œ#lambda in DEFPARAMETER *SPECIFIERS*™‚'˜“˜“˜ŒFORM‚ú˜– @gð˜Œ#lambda in DEFPARAMETER *SPECIFIERS*™‚'˜“˜“˜ŒFILECOM˜•ŒVARS‚옌VARS com translator‚Ú˜–@ A ˜Œ#lambda in DEFPARAMETER *SPECIFIERS*™‚'˜“˜“˜ŒFILECOM˜ŒSTREAM™‚4™]‚ʘ– @ ˜Œ#lambda in DEFPARAMETER *SPECIFIERS*™‚'˜“˜“˜ŒFORM™‚ò™_‚º˜–Agg@hhh ˜Œ#lambda in DEFPARAMETER *SPECIFIERS*™‚'˜“˜“˜ŒFORM˜ŒFILECOMS™‚™\™‚¨‚›˜–h˜Œ#lambda in DEFPARAMETER *SPECIFIERS*™‚'˜“˜“˜ŒFORM‚˜ŒTop-level read-time conditional‚{˜–"@¸h¹H‘Hh¹A ¿IA ¿H¸°æ˜Œ#lambda in DEFPARAMETER *SPECIFIERS*™‚'˜“˜“˜ŒFILECOM˜ŒSTREAM™X™‚ø‚k˜–@¸h¹H‘HhY ¿H¸°ï˜Œ#lambda in DEFPARAMETER *SPECIFIERS*™‚'˜“˜“˜ŒFORM™P‚[˜–)Agh¸@YºJ ŽJ[H ¸Jº°ðHh ˜Œ#lambda in DEFPARAMETER *SPECIFIERS*™‚'˜“˜“˜ŒFORM˜ŒFILECOMS#™‚™F™‚U‚K˜– @gð˜Œ#lambda in DEFPARAMETER *SPECIFIERS*™‚'˜“˜“˜ŒFORM™‚‚;˜– @gð˜Œ#lambda in DEFPARAMETER *SPECIFIERS*™‚'˜“˜“˜ŒFILECOM™‚U‚-˜ŒGroup of definitions (COMS)‚˜–^@¸@¹hºI‘IhºA ¿J ™JA ¿°2JHho ²JH A ¿ŒoHJ ¿I¹°­˜Œ#lambda in DEFPARAMETER *SPECIFIERS*™‚'˜“˜“˜ŒFILECOM˜ŒSTREAMS™‚YE™‚4?™K:˜•ŒGETDEF1™‚'!™X™k™‚øL˜Œ,Unrecognised drek in ~S filecom ignored:~%~s,˜“™‚O‚ ˜–@ b¿i@ ™‚‡˜Œ#lambda in DEFPARAMETER *SPECIFIERS*™‚'˜“˜“˜ŒFORM™‚ò™O‚û˜–2@ b¿g@ ¿A@ @ hh ™‚‡˜Œ#lambda in DEFPARAMETER *SPECIFIERS*™‚'˜“˜“˜ŒFORM˜ŒFILECOMS,™‚"™U™I™‚ò™O ™‚Ȃ똖 @‘h€iX‘H…@‘i€hœ@ÁÉg'h˜Œ#lambda in DEFPARAMETER *SPECIFIERS*™‚'˜“˜“˜ŒFORM™‚‚Û˜–@ÁÉg'˜Œ#lambda in DEFPARAMETER *SPECIFIERS*™‚'˜“˜“˜ŒFILECOM™‚ ‚͘ŒDefiner‚»˜–SA ¿oA ¿@A ¿@¸h¹H‘H°¹A ¿IA ¿H¸°æA ¿oA ˜Œ#lambda in DEFPARAMETER *SPECIFIERS*™‚'˜“˜“˜ŒFILECOM˜ŒSTREAMM™‚ËA™‚ø5™X-™‚ø™‚I™‚Ë™‚éG˜Œ)˜Œ (eval-when ‚«˜–'g@²@¸h¹H‘HhY ¿H¸°ïh˜Œ#lambda in DEFPARAMETER *SPECIFIERS*™‚'˜“˜“˜ŒFORM™P™‚ò‚›˜–.Ag@h¸@YºJ ŽJ[H ¸Jº°ðHh ˜Œ#lambda in DEFPARAMETER *SPECIFIERS*™‚'˜“˜“˜ŒFORM˜ŒFILECOMS(™‚™F™‚S‚‹˜–@‘h€iX‘H…@‘i€h˜@gðh˜Œ#lambda in DEFPARAMETER *SPECIFIERS*™‚'˜“˜“˜ŒFORM™‚S{˜– @gð˜Œ#lambda in DEFPARAMETER *SPECIFIERS*™‚'˜“˜“˜ŒFILECOM™‚Sm˜Œeval-when top level form=˜– A@h ˜Œ#lambda in DEFPARAMETER *SPECIFIERS*™‚'˜“˜“˜ŒFORM˜ŒFILECOMS™‚˜ŒComment˜“™‚™‚¦+‚Ô™‚/‚Ä™‚/‚´™‚/‚v™‚/‚f™‚/‚V™‚/‚6™‚/‚&™‚/‚™‚/‚™‚/‚ö™‚/‚Ö™‚/‚Æ™‚/‚¶™‚/‚–™‚/‚†™‚/‚v™‚/‚V™‚/‚F™‚/‚6™‚/‚™‚/‚™‚/‚ö™‚/‚Ö™‚/‚Æ™‚/‚¶™‚/‚—™‚/‚w™‚/‚g™‚/‚W™‚/‚G™‚/‚7™‚/‚™‚/‚™‚/‚÷™‚/‚療/‚×™‚/‚·™‚/‚§™‚/‚—™‚/‚‡™‚/w™‚/9™‚/˜–$o ³ogh ¿˜Œ2 top-level forms™˜“€™S™‚­™‚ª™ ˜ŒEMPTY˜ŒEMPTY˜–‚"ggo ¿oRgg c¿oSgg c¿o ¿g X¦h¿g` ³0g`gggl2gl2  ¿Q¸gQ‘H†gHc¿ggg ¿ggg ¿ggg ¿ggg ¿ggg ˜•Œ FILEPKGTYPES˜•ŒPRETTYDEFMACROS˜•Œ PRETTYTYPELST˜Œ DEF-DEFINE-TYPE IL:PRESENTATIONS™˜“€ ‚™8‚™8‚ò™8‚Ý™8‚È™8‚™‚x‚˜™‚.n˜•ŒGETHASHV™‚ýK™‚þ>™‚3&™‚3™‚á!‚™‚X‚˜•ŒFILEPKGCONTENTS‚ ™‚¶‚˜’Œ%DEFINE-TYPE-FILEGETDEF™‚ý˜•Œ FILEGETDEF‚ø™‚¶‚혒Œ%DEFINE-TYPE-PUTDEF™‚蘕ŒPUTDEF‚㙂¶‚ؘ’Œ%DEFINE-TYPE-DELDEF™‚Ó˜•ŒDELDEF‚Ι‚¶‚Ø’Œ%DEFINE-TYPE-GETDEF™‚¾™‚'‚¹™‚¶‚¯™‚¶‚¥™‚¶‚˜Œ REHASH-SIZE‚‰˜ŒSIZE‚„™‚4™‚5z˜’Œ*DEFINITION-HASH-TABLE*™u™‚¶i™‚}d™‚¶^˜•ŒCHANGEDPRESENTATIONSLSTQ™‚~9™‚44™‚5!™‚4™‚5™‚µ™‚¶F˜“˜’ŒGLOBAL™™‚~.˜“™‚~™‚¶˜Œpresentation types˜“™‚¶˜’ŒX™˜“™‚¨™<˜“˜’Œ%DEFINE-TYPE-FILE-DEFINITIONS™˜“™‚™‚¶˜“™‚™‚ƒ ™‚˜–Dgio ¿goolg ¿ggg ˜Œ!DEFPRESENTATION HASH-BASED-NUMBER™˜“€>™8)™‚Û ™‚Ü9™‚Ý4™‚Þ/™‚¸#™‚“™‚¸™‚¸˜“˜“™‚¸™‚à˜“™‚¸™‚à˜“™‚¸™‚à˜“™‚à™‚à™‚à˜“™‚䙂¸™‚˜“™‚˜’ŒBASE™E˜ŒNUMBER™‚瀙‚“˜ŒHASH-BASED-NUMBER-˜“™‚˜’ŒHASH-BASED-NUMBER-P™E™p˜’ŒCOPY-HASH-BASED-NUMBER™E€€˜“˜“™‚˜“™‚™‚˜“™‚˜“˜“Ž#ŽB™q™‚|˜“Ž#ŽO™q™‚|˜“Ž#ŽX™q™‚|˜“Ž#ŽR™q™‚|™‚˜“™‚™r€™‚˜’ŒHASH-BASED-NUMBER-OPS™E˜“™‚’€€™‚Ž˜’ŒHASH-BASED-NUMBER-BASE™E˜“™‚“€€™‚˜’ŒHASH-BASED-NUMBER-NUMBER™E˜“˜“™‚™‚ €™‚‘€™‚ñ€€€œ™‚—˜–@Ù‚—™˜“˜“˜ŒOBJECT™‚¸˜–"g ¿g ¿g ™‚‹™˜“€™‚ù™‚ú™‚û™‚¸ ™‚¸™‚¸œ™‚˜–fgµgogg ¸a¸gµh¹hºƒa¹iºgµh»h¼ƒa»i¼`]H¿J”MI¿L”MK¿M™‚‚ÿÿÿÿ™˜“˜“™‚Ÿ™‚ý™2™‚™‚K˜’ŒHASH-BASED-NUMBERTYPE#™E9™‚'™2™r™‚ ™‚™‚ý˜“˜“Ž#ŽB™q™‚|˜“Ž#ŽO™q™‚|˜“Ž#ŽX™q™‚|˜“Ž#ŽR™q™‚|œ™‚˜˜–A@¸@Ñ°igHgh b¿°ß`X@É¿H@É¿H@É¿H™‚˜™˜“˜“˜ŒHASH-BASED-NUMBER™‚$™‚´™‚¸ ™‚¸™‚¸˜– o ™‚‹™˜“€™N˜“˜“Ž#ŽB™q™‚|˜“Ž#ŽO™q™‚|˜“Ž#ŽX™q™‚|˜“Ž#ŽR™q™‚|˜–Dgio ¿goolg ¿ggg ˜ŒDEFPRESENTATION HASH-COMMA™˜“€>™8)™‚Û ™‚Ü9™‚Ý4™‚Þ/™‚¹#™‚”™‚¹™‚¹˜“˜“™‚¹™‚à˜“™‚¹™‚à˜“™‚¹™‚à˜“™‚¹™‚à˜“™‚à™‚à™‚à™‚à˜“™‚䙂¹™‚³˜“™‚™‚™‚™‚™‚瀙‚”˜Œ HASH-COMMA-˜“™‚³˜’Œ HASH-COMMA-P™E™‚ˆ˜’ŒCOPY-HASH-COMMA™E€€˜“˜“™‚˜“™‚™‚˜“™‚˜“Ž#Ž,™‚‰™‚˜“™‚™‚‹€™‚Ș’ŒHASH-COMMA-OPS™E˜“™‚˜Œ HASH-COMMA€™‚ɘ’ŒHASH-COMMA-TYPE™E˜“™‚˜Œ#,€™‚ʘ’ŒHASH-COMMA-PREFIX™E˜“™‚€€™‚˘’ŒHASH-COMMA-CONTENTS™E˜“˜“™‚™‚Ù˜“™‚™‚ܘ“™‚™‚Ö€™‚Í€™‚ñ€€€œ™‚ј–@Ù‚Ñ™˜“˜“˜ŒOBJECT™‚¹˜–"g ¿g ¿g ™‚Æ™˜“€™‚ù™‚ú™‚û™‚¹ ™‚¹™‚¹œ™‚³˜–{gµgogg ¸a¸gµ g¹a¹gµ oºaºgµh»h¼ƒa»i¼`]H¿MI¿MJ¿L”MK¿M™‚³‚ÿÿÿÿ™˜“˜“™‚Ÿ™‚ý™‚Ꙃ(™‚¯™‚ ]˜’ŒHASH-COMMATYPE#™EK™‚¯9™‚(0™‚Ù'™‚Ꙃ‹™‚ ™‚™‚ýB™‚ܘ“Ž#Ž,™‚‰œ™‚Ò˜–H@¸@Ñ°igHgh b¿°ß`X@É¿H@É¿H@É¿H@É¿H™‚Ò™˜“˜“˜Œ HASH-COMMA™‚$™‚𙂹 ™‚¹™‚¹˜– o ™‚Æ™˜“€™N˜“Ž#Ž,™‚‰˜–Dgio ¿goolg ¿ggg ˜ŒDEFPRESENTATION HASH-DOT™˜“€>™8)™‚Û ™‚Ü9™‚Ý4™‚Þ/™‚º#™‚”™‚º™‚º˜“˜“™‚º™‚à˜“™‚º™‚à˜“™‚º™‚à˜“™‚º™‚à˜“™‚à™‚à™‚à™‚à˜“™‚䙂º™‚´˜“™‚™‚™‚™‚™‚瀙‚”˜Œ HASH-DOT-˜“™‚´˜’Œ HASH-DOT-P™E™‚ˆ˜’Œ COPY-HASH-DOT™E€€˜“˜“™‚˜“™‚™‚˜“™‚˜“Ž#Ž.™‚‰™‚˜“™‚™‚Œ€™‚ü˜’Œ HASH-DOT-OPS™E˜“™‚˜ŒHASH-DOT€™‚ý˜’Œ HASH-DOT-TYPE™E˜“™‚˜Œ#.€™‚þ˜’ŒHASH-DOT-PREFIX™E˜“™‚€€™‚ÿ˜’ŒHASH-DOT-CONTENTS™E˜“˜“™‚™‚ ˜“™‚™‚˜“™‚™‚ €™‚€™‚ñ€€€œ™‚˜–@Ù‚™˜“˜“˜ŒOBJECT™‚º˜–"g ¿g ¿g ™‚ú™˜“€™‚ù™‚ú™‚û™‚º ™‚º™‚ºœ™‚´˜–{gµgogg ¸a¸gµ g¹a¹gµ oºaºgµh»h¼ƒa»i¼`]H¿MI¿MJ¿L”MK¿M™‚´‚ÿÿÿÿ™˜“˜“™‚Ÿ™‚ý™‚Ꙃ(™‚¯™‚ ]˜’ŒHASH-DOTTYPE#™EK™‚¯9™‚(0™‚ '™‚ꙂŒ™‚ ™‚™‚ýB™‚˜“Ž#Ž.™‚‰œ™‚˜–H@¸@Ñ°igHgh b¿°ß`X@É¿H@É¿H@É¿H@É¿H™‚™˜“˜“˜ŒHASH-DOT™‚$™‚$™‚º ™‚º™‚º˜– o ™‚ú™˜“€™N˜“Ž#Ž.™‚‰˜–Dgio ¿goolg ¿ggg ˜Œ DEFPRESENTATION HASH-IL-READABLE™˜“€>™8)™‚Û ™‚Ü9™‚Ý4™‚Þ/™‚»#™‚–™‚»™‚»˜“˜“™‚»™‚à˜“™‚»™‚à˜“™‚»™‚à˜“™‚»™‚à˜“™‚à™‚à™‚à™‚à˜“™‚䙂»™‚e˜“™‚™‚Q™‚R™‚S™‚瀙‚–˜ŒHASH-IL-READABLE-˜“™‚e˜’ŒHASH-IL-READABLE-P™E™|˜’ŒCOPY-HASH-IL-READABLE™E€€˜“˜“™‚˜“™‚™‚˜“™‚˜“Ž#Ž+™~™‚˜“™‚™€™‚0˜’ŒHASH-IL-READABLE-OPS™E˜“™‚Q€€™‚1˜’ŒHASH-IL-READABLE-FEATURE™E˜“™‚R€€™‚2˜’ŒHASH-IL-READABLE-SIGN™E˜“™‚S€€™‚3˜’ŒHASH-IL-READABLE-FORM™E˜“˜“™‚™‚>€™‚5€™‚ñ€€€œ™‚9˜–@Ù‚9™˜“˜“˜ŒOBJECT™‚»˜–"g ¿g ¿g ™‚.™˜“€™‚ù™‚ú™‚û™‚» ™‚»™‚»œ™‚e˜–‚„gµgogg ¸a¸gµh¹hºƒa¹iºgµh»h¼ƒa»i¼gµh½h¾ƒa½i¾`_H¿J•OI¿L•OK¿N•OM¿O™‚e‚ÿÿÿÿ™˜“˜“™‚Ÿ™‚ý™‚h™‚g™‚j™‚]˜’ŒHASH-IL-READABLETYPE#™EK™‚j9™‚g'™‚h™™‚ ™‚™‚ý˜“Ž#Ž+™~œ™‚:˜–H@¸@Ñ°igHgh b¿°ß`X@É¿H@É¿H@É¿H@É¿H™‚:™˜“˜“˜ŒHASH-IL-READABLE™‚$™‚T™‚» ™‚»™‚»˜– o ™‚.™˜“€™N˜“Ž#Ž+™~˜–Dgio ¿goolg ¿ggg ˜Œ"DEFPRESENTATION HASH-IL-UNREADABLE™˜“€>™8)™‚Û ™‚Ü9™‚Ý4™‚Þ/™‚¼#™‚–™‚¼™‚¼˜“˜“™‚¼™‚à˜“™‚¼™‚à˜“™‚¼™‚à˜“™‚¼™‚à˜“™‚à™‚à™‚à™‚à˜“™‚䙂¼™‚f˜“™‚™‚Q™‚R™‚S™‚瀙‚–˜ŒHASH-IL-UNREADABLE-˜“™‚f˜’ŒHASH-IL-UNREADABLE-P™E™}˜’ŒCOPY-HASH-IL-UNREADABLE™E€€˜“˜“™‚˜“™‚™‚˜“™‚˜“Ž#Ž-™~™‚˜“™‚™‚€€™‚`˜’ŒHASH-IL-UNREADABLE-OPS™E˜“™‚Q€€™‚a˜’ŒHASH-IL-UNREADABLE-FEATURE™E˜“™‚R€€™‚b˜’ŒHASH-IL-UNREADABLE-SIGN™E˜“™‚S€€™‚c˜’ŒHASH-IL-UNREADABLE-FORM™E˜“˜“™‚™‚n€™‚e€™‚ñ€€€œ™‚i˜–@Ù‚i™˜“˜“˜ŒOBJECT™‚¼˜–"g ¿g ¿g ™‚^™˜“€™‚ù™‚ú™‚û™‚¼ ™‚¼™‚¼œ™‚f˜–‚„gµgogg ¸a¸gµh¹hºƒa¹iºgµh»h¼ƒa»i¼gµh½h¾ƒa½i¾`_H¿J•OI¿L•OK¿N•OM¿O™‚f‚ÿÿÿÿ™˜“˜“™‚Ÿ™‚ý™‚h™‚g™‚j™‚]˜’ŒHASH-IL-UNREADABLETYPE#™EK™‚j9™‚g'™‚h™‚€™‚ ™‚™‚ý˜“Ž#Ž-™~œ™‚j˜–H@¸@Ñ°igHgh b¿°ß`X@É¿H@É¿H@É¿H@É¿H™‚j™˜“˜“˜ŒHASH-IL-UNREADABLE™‚$™‚„™‚¼ ™‚¼™‚¼˜– o ™‚^™˜“€™N˜“Ž#Ž-™~˜–Dgio ¿goolg ¿ggg ˜ŒDEFPRESENTATION HASH-STAR™˜“€>™8)™‚Û ™‚Ü9™‚Ý4™‚Þ/™‚½#™‚“™‚½™‚½˜“˜“™‚½™‚à˜“™‚½™‚à˜“™‚à™‚à˜“™‚䙂½™‚<˜“™‚˜ŒVECTOR™‚瀙‚“˜Œ HASH-STAR-˜“™‚<˜’Œ HASH-STAR-P™E™v˜’ŒCOPY-HASH-STAR™E€€˜“˜“™‚˜“™‚™‚˜“™‚˜“Ž#Ž*™w™‚|™‚˜“™‚™x€™‚˜’Œ HASH-STAR-OPS™E˜“™‚”€€™‚‘˜’ŒHASH-STAR-VECTOR™E˜“˜“™‚™‚€™‚“€™‚ñ€€€œ™‚˜˜–@Ù‚˜™˜“˜“˜ŒOBJECT™‚½˜–"g ¿g ¿g ™‚Ž™˜“€™‚ù™‚ú™‚û™‚½ ™‚½™‚½œ™‚<˜–Mgµgogg ¸a¸gµh¹hºƒa¹iº`[H¿J”KI¿K™‚<‚ÿÿÿÿ™˜“˜“™‚Ÿ™‚ý™‚>™‚9˜’ŒHASH-STARTYPE#™E'™‚>™x™‚ ™‚™‚ý˜“Ž#Ž*™w™‚|œ™‚™˜–:@¸@Ñ°igHgh b¿°ß`X@É¿H@É¿H™‚™™˜“˜“˜Œ HASH-STAR™‚$™‚¯™‚½ ™‚½™‚½˜– o ™‚Ž™˜“€™N˜“Ž#Ž*™w™‚|˜–‚¯ggo ¿ogo ¿o ¿o ¿o ¿o ¿o ¿o ¿o ¿o ¿o ¿o ¿o ¿o ˜Œ14 top-level forms™˜“€‚©˜•ŒPUTPROPS‚ž™‚»‚“™‚»‚ˆ™‚»}™‚»r™‚»g™‚»\™‚»Q™‚»F™‚»;™‚»0˜•ŒREADVISE%˜’ŒREINSTALL-ADVICE™™‚½˜ŒBEFORE˜ŒAROUND™‚À‚¤˜“™;™‚̘“˜ŒXerox Corporation‚ÂÄ‚Å‚Æ‚Ç‚™˜“™;™‚͘“™ ˜ŒXCL™ ˜“™ ˜“˜“™ ™ ˜“™˜“™˜Œ TEXTMODULES˜“™˜ŒLISP˜ŒXCL˜“™˜ŒTM˜“™˜ŒLOAD-TEXTMODULE˜ŒMAKE-TEXTMODULE˜Œ *SPECIFIERS*˜ŒMAKE-SPECIFIER˜Œ INSTALL-FORM˜ŒFORM-SPECIFIER˜ŒFILECOM-SPECIFIER˜ŒADD-FORM˜Œ INSTALL-FORM˜Œ PRINT-FILECOM˜Œ*UPGRADE-COMMENT-LENGTH*˜Œ*JOIN-COMMENTS*˜Œ*CONVERT-LOADED-FILES*˜Œ*DEFDEFINER-MACROS*˜“™.™/™ ™2 ‚Ž˜“™;™‚Ì™‚´‚ƒ˜“™X™‚ɘ“€˜“˜•ŒFILECOM˜ŒSTREAM™‚ט•Œ SPECIFIERx˜“™F™‚ɘ“€˜“˜•ŒFORM™‚«™‚×™‚äm˜“™M™‚ɘ“€˜“™‚èb˜“™L™‚ɘ“€˜“™‚âW˜“™P™‚ɘ“€˜“™‚虂י‚äL˜“™‚Ê™‚ɘ“€˜“™‚Ÿ™‚¥™‚¦™‚§™‚¨™‚©™‚ªA˜“™T™‚ɘ“€˜“˜•ŒMODULE™‚Ÿ™‚˜ŒPATHNAME™‚«˜•ŒWIDTH6˜“™R™‚ɘ“€˜“ ™‚ù™‚Ÿ™‚ ™‚¡™ ™‚¢™‚£™‚¤™‚¥+˜“™‚À˜“™‚Á™‚™‚à ˜“˜“˜ŒLAST˜“˜ŒSETQ˜•ŒU˜“™_™‚˜“™‚Á™‚™‚à ˜“˜“™‚˜“™_˜“˜ŒCAR˜’ŒARGLIST™š‚ÿÿ