‘XCL Compiler output for source file {DSK}export>lispcore>sources>CLTL2>CMLPACKAGE.;1 Source file created Friday, 22 October 1993, 15:10:13. FASL file created Tuesday, 2 November 1993, 23:07:37. ÿ˜–#ogg o ˜•ŒFILECREATEDLOC˜Œ*STANDARD-INPUT*˜Œ1 top-level form˜ŒFUNCTION˜“€˜•ŒDEFINE-FILE-INFO˜ŒOPEN ˜ŒOUTPUT˜Œ DIRECTION˜“˜Œ READTABLE˜ŒXCL˜ŒPACKAGE˜ŒXCL˜Œ{Null}˜–!ggo ¿o˜Œ2 top-level forms™˜“€˜•ŒPUTPROP˜•ŒCMLPACKAGECOMS˜•Œ FILEDATES˜•Œ CMLPACKAGE˜“˜“˜•Œ*˜•Œ;;;˜ŒiThis is the second part of the package system, the first is in LLPACKAGE, which is loaded during the init˜“˜•ŒSETFS˜ŒSYMBOL-PACKAGE˜“˜•Œ FUNCTIONS˜•ŒDWIM-SYMBOL-PACKAGE˜’ŒESCAPE-COLONS-PROCEED˜‘˜ŒXEROX-COMMON-LISP˜’ŒMAKE-EXTERNAL-PROCEED™ ˜’ŒMAKE-INTERNAL-PROCEED™ ˜’ŒUGLY-SYMBOL-PROCEED™ ˜“˜•ŒDECLARE:˜•Œ DONTEVAL@LOAD˜•ŒDOCOPY˜“˜•ŒADDVARS˜“˜•Œ DWIMUSERFORMS˜“™˜“™˜•Œ;;˜Œ.User friendly symbol error resolving functions˜“˜•Œ STRUCTURES˜’Œ READ-CONFLICT™ ˜’ŒMISSING-EXTERNAL-SYMBOL™ ˜’ŒMISSING-PACKAGE™ ˜“˜•Œ VARIABLES˜’Œ*PREFERRED-READING-SYMBOLS*™ ˜“™˜•ŒRESOLVE-READER-CONFLICT˜•ŒRESOLVE-MISSING-EXTERNAL-SYMBOL˜•ŒRESOLVE-MISSING-PACKAGE˜“™2˜’Œ PACKAGE-ERROR™ ˜’ŒSYMBOL-CONFLICT™ ˜’Œ USE-CONFLICT™ ˜’ŒEXPORT-CONFLICT™ ˜’ŒEXPORT-MISSING™ ˜’ŒIMPORT-CONFLICT™ ˜’ŒUNINTERN-CONFLICT™ ˜“™˜•ŒRESOLVE-USE-PACKAGE-CONFLICT˜•ŒRESOLVE-EXPORT-CONFLICT˜•ŒRESOLVE-EXPORT-MISSING˜•ŒRESOLVE-IMPORT-CONFLICT˜•ŒRESOLVE-UNINTERN-CONFLICT˜“™2˜’ŒSYMBOL-COLON-ERROR™ ˜“™˜•Œ\INVALID.SYMBOL˜“™˜•Œ;˜ŒAAlso defined (w/o the error condition or proceed case) in LLREAD.˜“™™/˜ŒSymbol inspector˜“™˜•ŒSYMBOL-INSPECT-FETCHFN˜•ŒSYMBOL-INSPECT-STOREFN˜“˜•ŒP˜“˜ŒLET˜“˜“˜•ŒFORM˜“˜ŒQUOTE˜“˜“˜•ŒFUNCTION˜ŒSYMBOLP˜“˜•ŒNAME˜•ŒVALUE˜•ŒPLIST˜ŒPACKAGE™U™V€€€˜ŒSymbol inspector˜“˜ŒCOND˜“˜“˜ŒNOT˜“˜•ŒMEMBER™Z˜•Œ INSPECTMACROS˜“˜•Œpush™l™Z˜“™™/˜ŒPackage inspector˜“™˜•ŒPACKAGE-INSPECT-FETCHFN˜•ŒPACKAGE-INSPECT-STOREFN˜“™X˜“™Y˜“˜“™Z˜“™[˜“˜“™\˜ŒPACKAGEP˜“™_˜•Œ NICKNAMES˜•ŒUSE-LIST˜•ŒINTERNAL-SYMBOLS˜•ŒEXTERNAL-SYMBOLS˜•ŒSHADOWING-SYMBOLS™w™x€€€˜ŒPackage inspector˜“™i˜“˜“™j˜“™k™Z™l˜“™o™l™Z˜“™™/˜ŒPackage-hashtable inspector˜“™˜•Œ!PACKAGE-HASHTABLE-INSPECT-FETCHFN˜•Œ!PACKAGE-HASHTABLE-INSPECT-STOREFN˜“™X˜“™Y˜“˜“™Z˜“™[˜“˜“™\˜ŒPACKAGE-HASHTABLE-P˜“˜•ŒSIZE˜•ŒFREE˜•ŒDELETED˜•ŒCONTENTS™‚™‚‘˜“™i˜“˜“™j˜“™k™Z™l˜“™o™l™Z˜“™™/˜ŒJPackage's Prefix accessor and setfs (Edited by TT 14-June-90 for AR#11112)˜“™˜’ŒPACKAGE-PREFIX™ ˜’ŒSETF-PACKAGE-PREFIX™ ˜“™™‚§˜“˜•ŒPROP˜“˜•ŒFILETYPE˜•ŒMAKEFILE-ENVIRONMENT™˜“™&™'˜•ŒDOEVAL@COMPILE˜•ŒDONTCOPY˜•Œ COMPILERVARS˜“™)˜“˜•ŒNLAMA˜“˜•ŒNLAML˜“˜•ŒLAMA ˜“˜”˜Œ14-Jun-90 17:33:55•Œ.{PELE:MV:ENVOS}SOURCES>CMLPACKAGE.;3˜–gg ˜ŒDEFSETF SYMBOL-PACKAGE™˜“€ ˜ŒSET-SETF-INVERSE˜•ŒSETF-SYMBOL-PACKAGE™œ™˜–‚ÌWX‘HW¸h¹Hd3@ð²xH Y²gIºh»h¼h½h¾J_’O°P^Hð_“O°0N _“O°#Wd3@ð–W‘h‚i€h–N …N ‘h€iN½L”LM&¼„Mh\»Jº°ªKY‚h€h²>I¾h½h¼N[‘K°.¼HLhiI•g€h  ŽW˜WL LN¾°ÎMh ˜•ŒFAULTX ˜•Œ FAULTAPPLYFLG™ ™˜“€‚»˜•Œ/RPLACA‚­˜•Œ FIXSPELL1h˜ŒFBOUNDPa˜ŒBOUNDPD˜ŒKEYWORDP˜ŒFIND-ALL-SYMBOLS˜Œ SYMBOL-NAME‚¥˜•Œ MUSTAPPROVEœ˜’Œ/ESCAPE-COLONS-PROCEED proceed case default test™ ˜–PØ’Œ*CURRENT-CONDITION*™ ™‚Ñ™˜“€™L˜–0ggg ¿ggo ˜Œ-DEFINE-PROCEED-FUNCTION ESCAPE-COLONS-PROCEED™˜“€*™™˜ŒSYMBOL-FUNCTION ˜•Œ%DEFAULT-PROCEED-REPORT™! ™‚ј•Œ%DEFAULT-PROCEED-TEST™!%˜Œ0Treat the extra colon(s) as if they were escapedœ™!˜–g X–H h™!™˜“€˜’ŒINVOKE-RESTART˜‘˜Œ CONDITIONS˜’Œ FIND-RESTART™‚Þ™!œ˜’Œ/MAKE-EXTERNAL-PROCEED proceed case default test™ ˜–PÙ‚Ò™‚♘“€™4˜–0ggg ¿ggo ˜Œ-DEFINE-PROCEED-FUNCTION MAKE-EXTERNAL-PROCEED™˜“€*™™™‚× ™‚Ø™" ™‚♂ٙ"%˜Œ)Return a new external symbol by that nameœ™"˜–2emÿó“ekó—jk ¿ejð£ka¸R¸g Y—IH h™‚Ò™"‚ÿÿÿÿ™˜“˜“˜Œ &OPTIONAL˜Œ CONDITION*™‚ß!™‚à ˜’ŒARGUMENT-ERROR˜‘˜ŒSYSTEM™"œ˜’Œ/MAKE-INTERNAL-PROCEED proceed case default test™ ˜–PÙ‚Ò™‚ñ™˜“€™4˜–0ggg ¿ggo ˜Œ-DEFINE-PROCEED-FUNCTION MAKE-INTERNAL-PROCEED™˜“€*™™™‚× ™‚Ø™# ™‚ñ™‚Ù™#%˜Œ)Return a new internal symbol by that nameœ™#˜–g X–H h™#™˜“€™‚ß™‚à™#œ˜’Œ-UGLY-SYMBOL-PROCEED proceed case default test™ ˜–PÙ‚Ò™‚ú™˜“€™5˜–5ggg ¿ggg ˜Œ+DEFINE-PROCEED-FUNCTION UGLY-SYMBOL-PROCEED™˜“€/™*™‚×™™‚×%˜•ŒDEFAULT-PROCEED-REPORTER ™‚Ø™$ ™‚ú™‚Ù™$œ™$˜–g X–H h™$™˜“€™‚ß™‚à™$˜– o ˜Œ1 top-level form™˜“€˜•ŒADDTOVAR˜“™*˜“™˜–Zgio ¿goolg ¿ggg ¿g ¿g ˜ŒDEFINE-CONDITION READ-CONFLICT™˜“€T˜ŒESTABLISH-SETFS-AND-OPTIMIZERSI˜ŒESTABLISH-ACCESSORS>™)˜’Œ%STRUCTURE-DECLARE-DATATYPE™‚î ˜ŒSET-PARSED-STRUCTUREO™3D™39˜ŒTYPE-EXPAND-STRUCTURE4˜Œ TYPE-EXPANDER/™3#˜’Œ READ-ERROR™ ™3™3˜“˜“™3˜•ŒXPOINTER˜“™3˜•ŒPOINTER˜“™3™‚˜“™‚™‚™‚˜“˜ŒPS™3˜’ŒREAD-CONFLICT constructor™ ˜“˜’Œ--STRUCTURE-DUMMY-SLOT--™‚ŒNAME™ ˜’ŒPACKAGES™ ˜ŒDATATYPE€™‚˜ŒREAD-CONFLICT-˜“™‚€˜•Œ%PRINT-CONDITION€€€˜“˜“™‚€™‚™‚€˜“™‚€™‚˜’ŒREAD-CONFLICT-NAME™ ˜“™‚€™‚˜’ŒREAD-CONFLICT-PACKAGES™ €€™‚€˜“˜ŒACCESSOR˜Œ PREDICATE€€€œ™‚˜–\gµh¸h¹ƒa¸i¹gµhºh»ƒaºi»`¼LnðLÈåhÒnÿåäÍ¿LjkØÐhÓÍ¿I”LH¿K”LJ¿L˜•Œ\INTERRUPTABLE™‚‚ÿÿÿÿ™˜“˜“˜Œ&KEY˜ŒNAME˜ŒPACKAGES%˜’ŒREAD-CONFLICTTYPE#™ ™‚1™‚0œ˜’ŒREAD-CONFLICT report method™ ˜–FAo@É ¿@ɸh¹H‘Hh¹oA ¿I A ¿H¸°Ü™‚6™˜“˜“˜Œ CONDITION˜ŒSTREAM;˜ŒPRINC5˜Œ PACKAGE-NAME.™‚;˜ŒFORMAT™3™3(˜Œ ˜Œ$Symbols named ~A exists in packages:˜–,ggg ¿ggh ™‚ ™˜“€&™™™‚× ˜•Œ%CONDITION-HANDLER™3 ™‚6˜•Œ%CONDITION-REPORTER™3˜–Zgio ¿goolg ¿ggg ¿g ¿g ˜Œ(DEFINE-CONDITION MISSING-EXTERNAL-SYMBOL™˜“€T™‚ I™‚ >™)™‚ ™‚O™4D™49™‚4™‚/™4#™‚™4™4˜“˜“™4™‚˜“™4™‚˜“™4™‚˜“™‚™‚™‚˜“™‚™4˜’Œ#MISSING-EXTERNAL-SYMBOL constructor™ ˜“™‚™‚™b™‚€™‚˜ŒMISSING-EXTERNAL-SYMBOL-˜“™‚L€™‚"€€€˜“˜“™‚€™‚™‚G€˜“™‚€™‚H˜’ŒMISSING-EXTERNAL-SYMBOL-NAME™ ˜“™b€™‚I˜’ŒMISSING-EXTERNAL-SYMBOL-PACKAGE™ €€™‚K€™‚+€€€œ™‚L˜–\gµh¸h¹ƒa¸i¹gµhºh»ƒaºi»`¼LnðLÈåhÒnÿåäÍ¿LjkØÐhÓÍ¿I”LH¿K”LJ¿L™‚.™‚L‚ÿÿÿÿ™˜“˜“™‚/™‚0™ %˜’ŒMISSING-EXTERNAL-SYMBOLTYPE#™ ™ ™‚0œ˜’Œ%MISSING-EXTERNAL-SYMBOL report method™ ˜–"Ao@É@É ™‚\™˜“˜“˜Œ CONDITION˜ŒSTREAM™‚=™‚<™4™4˜Œ*External symbol ~a not found in package ~a˜–,ggg ¿ggh ™‚E™˜“€&™™™‚× ™‚B™4 ™‚\™‚C™4˜–Zgio ¿goolg ¿ggg ¿g ¿g ˜Œ DEFINE-CONDITION MISSING-PACKAGE™˜“€T™‚ I™‚ >™)™‚ ™‚O™5D™59™‚4™‚/™5#™‚™5™5˜“˜“™5™‚˜“™5™‚˜“™5™‚˜“™5™‚˜“™‚™‚™‚™‚˜“™‚™5˜’ŒMISSING-PACKAGE constructor™ ˜“™‚™‚<™‚Θ’ŒEXTERNAL™ ™‚€™‚˜ŒMISSING-PACKAGE-˜“™‚m€™‚"€€€˜“˜“™‚€™‚™‚g€˜“™‚<€™‚h˜’ŒMISSING-PACKAGE-PACKAGE-NAME™ ˜“™‚΀™‚i˜’ŒMISSING-PACKAGE-SYMBOL-NAME™ ˜“™‚n€™‚j˜’ŒMISSING-PACKAGE-EXTERNAL™ €€™‚l€™‚+€€€œ™‚m˜–ugµh¸h¹ƒa¸i¹gµhºh»ƒaºi»gµh¼h½ƒa¼i½`¾NnðNÈåhÒnÿåäÍ¿NjkØÐhÓÍ¿I”NH¿K”NJ¿M”NL¿N™‚.™‚m‚ÿÿÿÿ™˜“˜“™‚/˜Œ PACKAGE-NAME˜Œ SYMBOL-NAME˜ŒEXTERNAL7˜’ŒMISSING-PACKAGETYPE#™ %™‚~™‚}™‚|œ˜’ŒMISSING-PACKAGE report method™ ˜–Ao@É@É ™‚ƒ™˜“˜“˜Œ CONDITION˜ŒSTREAM™‚=™5™5˜Œ*Can't find package ~a to look up symbol ~a˜–,ggg ¿ggh ™‚e™˜“€&™™™‚× ™‚B™5 ™‚ƒ™‚C™5˜–5o ¿g X§oc¿ggo ™8˜Œ"DEFVAR *PREFERRED-READING-SYMBOLS*™˜“€/˜•ŒSET-DOCUMENTATION™‚˘ŒPROCLAIM%˜ŒVARIABLE ™8 ™8*˜Œ‚µList of symbols whose lookup is preferred by the litatom to symbol converter. Initially it contains a list of symbols which are conflicting but are always qualified in old sources.˜“n˜•ŒAPPEND˜•ŒAPPLY˜•ŒAPROPOS˜•ŒARRAY˜•ŒARRAYP˜•ŒASSOC˜•ŒATAN˜•ŒATOM˜•ŒBLOCK˜•ŒBREAK˜•ŒCHAR˜•Œ CHARACTER˜•ŒCLOSE˜•ŒCOMMON˜•ŒCOMPILE˜•Œ COMPILE-FILE˜•ŒCOS˜•ŒCOUNT˜•Œ DEFSTRUCT˜•ŒDELETE˜•ŒDESCRIBE˜•Œ DIRECTORY˜•ŒDO˜•Œ DOCUMENTATION˜•ŒELT˜•ŒEQUAL˜•ŒERROR˜•ŒEVAL˜•ŒEVERY˜•ŒEXP˜•ŒEXPT˜•Œ FILL-POINTER˜•ŒFIND˜•ŒFIRST˜•ŒFLOATP˜•ŒFLOOR˜•ŒFORMAT™\˜•ŒGCD˜•ŒGENSYM˜•ŒGETHASH˜•ŒIF˜•Œ INTERSECTION˜•ŒKEYWORD˜•ŒLABELS˜•ŒLAMBDA˜•ŒLDIFF˜•ŒLENGTH˜•ŒLISTP˜•ŒLOAD˜•ŒLOCALLY˜•ŒLOG˜•ŒLOOP˜•ŒMAP˜•ŒMAPC˜•ŒMAPCAR˜•ŒMAPCON˜•ŒMAPHASH˜•ŒMAPLIST™k˜•ŒMERGE˜•ŒMISMATCH˜•ŒMOD˜•Œ NAMESTRING˜•ŒNOTANY˜•ŒNOTEVERY˜•ŒNTH˜•ŒNUMBER˜•ŒNUMBERP˜•Œ NUMERATOR˜•ŒPOP˜•ŒPOSITION˜•ŒPRIN1˜•ŒPRINT˜•ŒPUSH˜•ŒPUSHNEW˜•ŒRATIONAL˜•ŒREAD˜•Œ READTABLE˜•ŒREMOVE˜•ŒREPLACE˜•ŒREST˜•ŒREVERSE˜•ŒSEARCH˜•ŒSECOND˜•ŒSETQ˜•Œ SIGNED-BYTE˜•Œ SIMPLE-STRING˜•ŒSIN˜•ŒSOME˜•ŒSORT˜•ŒSQRT˜•ŒSTRINGP˜•Œ STRUCTURE˜•ŒSUBLIS˜•ŒSUBSEQ˜•ŒSUBST˜•ŒSYMBOL˜•ŒTAN˜•ŒTERPRI˜ŒTRACE˜•ŒUNION˜•ŒUNLESS˜•ŒVALUES˜•ŒVARIABLE˜•ŒVECTOR˜•ŒWHEN˜•ŒZEROP™˜•Œ***˜“˜ŒSPECIAL™8œ™:˜–‚³nZ@A¿Bg𢱚JÉW»JÉW¼K•L‘h‚i€h“JÉL•K‘h‚i€h“JÉh½gggjgnognoJgh gggkgnognoJgh ggglgnognoJgh hWN¹n—_¿ggJÉ go o h  ½g‚h¹_gð”M$O_jð“JÉOkð²+JÉWgg c¿JÉWc¿JÉOlð“JÉhJɘ’Œ*CATCH-RETURN-PC*™‚Œ*PROCEED-CASES*˜’Œ*CATCH-RETURN-TO*™‚î ™8 ™‚™: ™˜“˜“˜ŒILSYM˜ŒCLSYM˜Œ CLSYMWHERE ‚Ž˜ŒREMOVE‚‰™‚ׂH˜•Œ\MVLIST‚C˜ŒERROR‚:˜Œ FIND-PACKAGE‚0™‚ ‚!™‚΂ý˜’Œ MAKE-RESTART™‚Þ‚½™‚ ~™‚ ‚„˜ŒEQ‚˜ŒTEST‚\˜ŒNORMAL‚N™‚‚&™‚1‚™‚0‚™3‚ö˜ŒINTERACTIVE-FN‚㘌REPORT‚Ó™‚‚̘ŒSELECTOR‚ǘ’ŒRETURN-ILSYM-PROCEED™ ‚™‚0‚¶™‚‚£™‚‚“™‚‚™‚‚ˆ˜’ŒPREFER-ILSYM-PROCEED™ ‚ƒ™‚0w™‚d™‚T™‚N™‚I˜’ŒPREFER-CLSYM-PROCEED™ D™‚0™‚~‚5˜Œ INTERLISP‚+˜ŒLISP‚옖@oHÉ ˜Œ!lambda in RESOLVE-READER-CONFLICT˜ŒCLOSURE˜“˜“˜ŒSTREAM ™‚=˜Œ#Just return the INTERLISP symbol ~A‚ܘ–PÙ‚Ò˜Œ!lambda in RESOLVE-READER-CONFLICT™‚˜“€™3‚¬˜–@oHÉ ˜Œ!lambda in RESOLVE-READER-CONFLICT™‚˜“˜“˜ŒSTREAM ™‚=˜Œ1Return the INTERLISP symbol ~A; make it preferred‚œ˜–PÙ‚Ò˜Œ!lambda in RESOLVE-READER-CONFLICT™‚˜“€™3m˜–@oHÉ ˜Œ!lambda in RESOLVE-READER-CONFLICT™‚˜“˜“˜ŒSTREAM ™‚=˜Œ,Return the LISP symbol ~A; make it preferred]˜–PÙ‚Ò˜Œ!lambda in RESOLVE-READER-CONFLICT™‚˜“€™3‚蘕ŒCOMPILED-CLOSURE‚Ø™‚5‚¨™‚5‚˜™‚5i™‚5Y™‚5˜•Œ \PTRHUNK2˜–ggo ˜Œ DEFUN IL:RESOLVE-READER-CONFLICT™˜“€™‚Ž˜ŒFUNCTION™: ˜ŒReader finds unqualified symbol that exists in both InterLisp and Lisp. Checks *PREFERRED-READING-SYMBOLS* list against names.œ™;—˜–‚nZ@A¿ggJÉgJÉ Jý¿h»gggjgnoJgnoJgh gggkgnoJgnoJgh hWL¹n½JÉ »g‚ h¹^gð”K$N_jð²JÉJÉ _JÉ ¿OOkð›JÉJÉ h™‚™‚™‚ ™‚™; ™˜“˜“˜ŒNAME˜ŒPACKAGE‚˜ŒINTERN‚˜ŒEXPORT‚÷™‚A‚Ê™‚ ‚Å™‚ ‚®™‚ l™‚ #˜’ŒMAKE-CONDITION™ ‚Ý™‚‚Й‚‚§™‚‚”™‚‚™‚{™‚v™#q™‚0e™‚R™‚?™‚9™‚4™"/™‚0™ ™‚0 ™4‚˜–@oHÉ HÉ ˜Œ)lambda in RESOLVE-MISSING-EXTERNAL-SYMBOL™‚˜“˜“˜ŒSTREAM™‚= ™‚<˜Œ3Return a new internal symbol in package ~A named ~A[˜–@oHÉ HÉ ˜Œ)lambda in RESOLVE-MISSING-EXTERNAL-SYMBOL™‚˜“˜“˜ŒSTREAM™‚= ™‚<˜Œ3Return a new external symbol in package ~A named ~A‚™™‚5‚†™‚5W™‚5D™‚5˜•Œ \PTRHUNK4™‚Q‚Š˜–QHÉð™‚Ò˜ŒFILTER™‚˜“€™‚QH™‚T˜–ggo ˜Œ(DEFUN IL:RESOLVE-MISSING-EXTERNAL-SYMBOL™˜“€™‚Ž™‚:™; ˜Œ9Handle missing external symbols in a package during read.œ™<—˜–‚ƒnZ@AB¿ggJÉgJÉgJÉ Jý¿h»gggjgnoJgnoJgh gggkgnoJgnoJgno hWL¹n.½JÉ »g‚h¹^gð”K$N_jð²@JÉÉ _¿JÉÉO _¿JÉÉ™OO ¿OOkð²9JÉÉJÉÉ•o„oJÉÉ W h™‚™‚™‚ ™‚ ˜Œ *PACKAGE*™< ™˜“˜“˜Œ PACKAGE-NAME˜Œ SYMBOL-NAME˜Œ EXTERNALP ‚{™‚A‚t˜•ŒCONCAT‚;™‚B‚$™‚A‚˜Œ MAKE-PACKAGE‚ß™‚ ‚Ú™‚ ‚Ù‚ w™‚ .™‚C‚m™5‚W™5‚M™5‚/™5‚™5‚ ™5‚ò™‚‚噂‚²™‚‚Ÿ™‚‚Œ™‚‚†™‚‚™$|™‚0p™‚]™‚J™‚D™‚?˜’ŒNEW-PACKAGE-PROCEED™ :™‚0%™‚~™‚}™‚|™5‚e˜Œ::‚_˜Œ:‚»˜–Ph™‚Y˜Œ!lambda in RESOLVE-MISSING-PACKAGE™‚˜“€‚¨˜–)@oHÉHÉ•o„oHÉQ ™‚Y˜Œ!lambda in RESOLVE-MISSING-PACKAGE™‚˜“˜“˜ŒSTREAM#™‚=™‚<˜Œ::˜Œ:˜Œ:Return new ugly symbol |~a~a~a| made in current package ~af˜–@oHÉHÉ ˜Œ!lambda in RESOLVE-MISSING-PACKAGE™‚˜“˜“˜ŒSTREAM ™‚=˜Œ1Return new symbol named ~A made in new package ~A‚·™‚5‚¤™‚5‚‘™‚5b™‚5O™‚5™‚P™‚u‚•˜–QHÉð™‚Ò˜ŒFILTER™‚˜“€™‚uS™‚x˜–Zgio ¿goolg ¿ggg ¿g ¿g ˜ŒDEFINE-CONDITION PACKAGE-ERROR™˜“€T™‚ I™‚ >™)™‚ ™‚O™>D™>9™‚4™‚/™>#™‚ ™>™>˜“˜“™>™‚˜“™>™‚˜“™‚™‚˜“™‚™>˜’ŒPACKAGE-ERROR constructor™ ˜“™‚™b™‚€™‚ ˜ŒPACKAGE-ERROR-˜“™‚€™‚"€€€˜“˜“™‚€™‚™‚{€˜“™b€™‚|˜’ŒPACKAGE-ERROR-PACKAGE™ €€™‚~€™‚+€€€œ™‚˜–Cgµh¸h¹ƒa¸i¹`ºJnðJÈåhÒnÿåäÍ¿JjkØÐhÓÍ¿I”JH¿J™‚.™‚‚ÿÿÿÿ™˜“˜“™‚/™ ˜’ŒPACKAGE-ERRORTYPE#™ ™ ˜–#ggh ¿ggh ™‚y™˜“€™ ™™‚B™>™‚C™>˜–Zgio ¿goolg ¿ggg ¿g ¿g ˜Œ DEFINE-CONDITION SYMBOL-CONFLICT™˜“€T™‚ I™‚ >™)™‚ ™‚O™?D™?9™‚4™‚/™?#™>™?™?˜“˜“™?™‚˜“™?™‚˜“™?™‚˜“™‚™‚™‚˜“™‚™?˜’ŒSYMBOL-CONFLICT constructor™ ˜“™‚™b˜’ŒSYMBOLS™ ™‚€™>˜ŒSYMBOL-CONFLICT-˜“™‚–€™‚"€€€˜“˜“™‚€™‚™‚‘€˜“™b€™‚’˜’ŒSYMBOL-CONFLICT-PACKAGE™ ˜“™‚—€™‚“˜’ŒSYMBOL-CONFLICT-SYMBOLS™ €€™‚•€™‚+€€€œ™‚–˜–\gµh¸h¹ƒa¸i¹gµhºh»ƒaºi»`¼LnðLÈåhÒnÿåäÍ¿LjkØÐhÓÍ¿I”LH¿K”LJ¿L™‚.™‚–‚ÿÿÿÿ™˜“˜“™‚/™ ˜ŒSYMBOLS%˜’ŒSYMBOL-CONFLICTTYPE#™ ™‚£™ ˜–#ggh ¿ggh ™‚™˜“€™ ™™‚B™?™‚C™?˜–Zgio ¿goolg ¿ggg ¿g ¿g ˜ŒDEFINE-CONDITION USE-CONFLICT™˜“€T™‚ I™‚ >™)™‚ ™‚O™@D™@9™‚4™‚/™@#™?™@™@˜“˜“™@™‚˜“™@™‚˜“™@™‚˜“™@™‚˜“™‚™‚™‚™‚˜“™‚™@˜’ŒUSE-CONFLICT constructor™ ˜“™‚™b™‚—˜’Œ USED-PACKAGE™ ™‚€™?˜Œ USE-CONFLICT-˜“™‚²€™‚"€€€˜“˜“™‚€™‚™‚¬€˜“™b€™‚­˜’ŒUSE-CONFLICT-PACKAGE™ ˜“™‚—€™‚®˜’ŒUSE-CONFLICT-SYMBOLS™ ˜“™‚³€™‚¯˜’ŒUSE-CONFLICT-USED-PACKAGE™ €€™‚±€™‚+€€€œ™‚²˜–ugµh¸h¹ƒa¸i¹gµhºh»ƒaºi»gµh¼h½ƒa¼i½`¾NnðNÈåhÒnÿåäÍ¿NjkØÐhÓÍ¿I”NH¿K”NJ¿M”NL¿N™‚.™‚²‚ÿÿÿÿ™˜“˜“™‚/™ ™‚£˜Œ USED-PACKAGE7˜’ŒUSE-CONFLICTTYPE#™ %™‚Á™‚£™ œ˜’ŒUSE-CONFLICT report method™ ˜–0io@É @É @É ˜Œ*STANDARD-OUTPUT*™‚Æ™˜“˜“˜Œ CONDITION™‚Ç*™‚=™‚<™‚<"™@™@™@˜ŒCPackage ~a using ~a results in name conflicts for symbols:~%~{~s ~}˜–,ggg ¿ggh ™‚ª™˜“€&™™™‚× ™‚B™@ ™‚Æ™‚C™@˜–Zgio ¿gool g ¿ggg ¿g ¿g ˜Œ DEFINE-CONDITION EXPORT-CONFLICT™˜“€T™‚ I™‚ >™)™‚ ™‚O™AD™A9™‚4™‚/™A#™?™A™A˜“˜“™A™‚˜“™A™‚˜“™A™‚˜“™A™‚˜“™A™‚˜“™‚™‚™‚™‚™‚˜“™‚™A˜’ŒEXPORT-CONFLICT constructor™ ˜“™‚™b™‚—˜’ŒEXPORTED-SYMBOLS™ ™‚™‚€™?˜ŒEXPORT-CONFLICT-˜“™‚Ø€™‚"€€€˜“˜“™‚€™‚™‚Ñ€˜“™b€™‚Ò˜’ŒEXPORT-CONFLICT-PACKAGE™ ˜“™‚—€™‚Ó˜’ŒEXPORT-CONFLICT-SYMBOLS™ ˜“™‚Ù€™‚Ô˜’Œ EXPORT-CONFLICT-EXPORTED-SYMBOLS™ ˜“™‚€™‚Õ˜’ŒEXPORT-CONFLICT-PACKAGES™ €€™‚×€™‚+€€€œ™‚ؘ–‚gµh¸h¹ƒa¸i¹gµhºh»ƒaºi»gµh¼h½ƒa¼i½gµ h¾h_¿…a¾i_¿`_¿ OnðOÈåhÒnÿåäÍ¿OjkØÐhÓÍ¿I•OH¿K•OJ¿M•OL¿O•ON¿O ™‚.™‚Ø ‚ÿÿÿÿ™˜“˜“™‚/™ ™‚£˜ŒEXPORTED-SYMBOLS™‚1M˜’ŒEXPORT-CONFLICTTYPE#™ 7™‚1%™‚陂£™ œ˜’ŒEXPORT-CONFLICT report method™ ˜–Pio@É @É@ɸh¹hºh»H¢I°H »I”JK&º„KhZ¹H¸°ä ™‚Ç™‚“˜“˜Œ CONDITION™‚ÇJ™‚=2™‚<™‚<™A™A™A˜ŒlExporting these symbols from the ~a package:~%~{~s ~}~%results in name conflicts with package(s):~%~{~a ~}~%˜–,ggg ¿ggh ™‚Ï™˜“€&™™™‚× ™‚B™A ™‚C™A˜–Zgio ¿goolg ¿ggg ¿g ¿g ˜ŒDEFINE-CONDITION EXPORT-MISSING™˜“€T™‚ I™‚ >™)™‚ ™‚O™BD™B9™‚4™‚/™B#™>™B™B˜“˜“™B™‚˜“™B™‚˜“™B™‚˜“™‚™‚™‚˜“™‚™B˜’ŒEXPORT-MISSING constructor™ ˜“™‚™b™‚—™‚€™>˜ŒEXPORT-MISSING-˜“™‚ý€™‚"€€€˜“˜“™‚€™‚™‚ø€˜“™b€™‚ù˜’ŒEXPORT-MISSING-PACKAGE™ ˜“™‚—€™‚ú˜’ŒEXPORT-MISSING-SYMBOLS™ €€™‚ü€™‚+€€€œ™‚ý˜–\gµh¸h¹ƒa¸i¹gµhºh»ƒaºi»`¼LnðLÈåhÒnÿåäÍ¿LjkØÐhÓÍ¿I”LH¿K”LJ¿L™‚.™‚ý‚ÿÿÿÿ™˜“˜“™‚/™ ™‚£%˜’ŒEXPORT-MISSINGTYPE#™ ™‚£™ œ˜’ŒEXPORT-MISSING report method™ ˜–"io@É @É ™‚Ç™‚ ™˜“˜“˜Œ CONDITION™‚Ç™‚=™‚<™B™B˜ŒGThese symbols aren't in package ~a; can't export them from it:~%~{~s ~}˜–,ggg ¿ggh ™‚ö™˜“€&™™™‚× ™‚B™B ™‚ ™‚C™B˜–Zgio ¿goolg ¿ggg ¿g ¿g ˜Œ DEFINE-CONDITION IMPORT-CONFLICT™˜“€T™‚ I™‚ >™)™‚ ™‚O™CD™C9™‚4™‚/™C#™?™C™C˜“˜“™C™‚˜“™C™‚˜“™C™‚˜“™‚™‚™‚˜“™‚™C˜’ŒIMPORT-CONFLICT constructor™ ˜“™‚™b™‚—™‚€™?˜ŒIMPORT-CONFLICT-˜“™‚€™‚"€€€˜“˜“™‚€™‚™‚€˜“™b€™‚˜’ŒIMPORT-CONFLICT-PACKAGE™ ˜“™‚—€™‚˜’ŒIMPORT-CONFLICT-SYMBOLS™ €€™‚€™‚+€€€œ™‚˜–\gµh¸h¹ƒa¸i¹gµhºh»ƒaºi»`¼LnðLÈåhÒnÿåäÍ¿LjkØÐhÓÍ¿I”LH¿K”LJ¿L™‚.™‚‚ÿÿÿÿ™˜“˜“™‚/™ ™‚£%˜’ŒIMPORT-CONFLICTTYPE#™ ™‚£™ œ˜’ŒIMPORT-CONFLICT report method™ ˜–"io@É @É ™‚Ç™‚,™˜“˜“˜Œ CONDITION™‚Ç™‚=™‚<™C™C˜ŒHImporting these symbols into package ~a causes a name conflict:~%~{~s ~}˜–,ggg ¿ggh ™‚™˜“€&™™™‚× ™‚B™C ™‚,™‚C™C˜–Zgio ¿goolg ¿ggg ¿g ¿g ˜Œ"DEFINE-CONDITION UNINTERN-CONFLICT™˜“€T™‚ I™‚ >™)™‚ ™‚O™DD™D9™‚4™‚/™D#™?™D™D˜“˜“™D™‚˜“™D™‚˜“™D™‚˜“™D™‚˜“™‚™‚™‚™‚˜“™‚™D˜’ŒUNINTERN-CONFLICT constructor™ ˜“™‚™b™‚—˜ŒSYMBOL™‚€™?˜ŒUNINTERN-CONFLICT-˜“™‚<€™‚"€€€˜“˜“™‚€™‚™‚6€˜“™b€™‚7˜’ŒUNINTERN-CONFLICT-PACKAGE™ ˜“™‚—€™‚8˜’ŒUNINTERN-CONFLICT-SYMBOLS™ ˜“™‚=€™‚9˜’ŒUNINTERN-CONFLICT-SYMBOL™ €€™‚;€™‚+€€€œ™‚<˜–ugµh¸h¹ƒa¸i¹gµhºh»ƒaºi»gµh¼h½ƒa¼i½`¾NnðNÈåhÒnÿåäÍ¿NjkØÐhÓÍ¿I”NH¿K”NJ¿M”NL¿N™‚.™‚<‚ÿÿÿÿ™˜“˜“™‚/™ ™‚£˜ŒSYMBOL7˜’ŒUNINTERN-CONFLICTTYPE#™ %™‚K™‚£™ œ˜’ŒUNINTERN-CONFLICT report method™ ˜–io@É@É ™‚Ç™‚P™˜“˜“˜Œ CONDITION™‚Ç™‚=™D™D˜ŒJUninterning symbol ~s causes a name conflict among these symbols:~%~{~s ~}˜–,ggg ¿ggh ™‚4™˜“€&™™™‚× ™‚B™D ™‚P™‚C™Dœ™F—˜–‚'nZ@B¿Ag b¿ggJÉgAgJÉ Jý¿h»gggjgnoJgnoJgh gggkgnoJgnoJgh ggglgnoJgnoJgh ggglgnoJgnoJgh hWL¹nµ½JÉ »g‚h¹^gð”K$N_jð²&A_¿h_¿O’Oh_JÉ ¿O_¿°æOkð²&A_¿h_¿O’Oh_JÉ ¿O_¿°æOlð²3A_¿h_¿O’Oh_ JÉ JÉ ¿O_¿°ÙOlð›gh h™‚™‚™‚ ™‚™F ™˜“˜“˜Œ USED-PACKAGE˜ŒSYMBOLS˜ŒPACKAGE‚˜•ŒRETFROM‚˜•Œ MOBY-UNINTERN‚ý˜Œ FIND-SYMBOL‚õ™‚΂Í™‚^‚£˜ŒSHADOW‚f™‚ ‚a™‚ ‚H™‚ ‚™‚ ‚™‚ ‚€™‚ 7™‚C˜ŒSORT ‚˜Œ USE-PACKAGE‚y™‚‚l™‚‚A™‚‚.™‚‚™‚‚™‚‚˜’ŒABORT™ ‚ ™‚0‚þ™‚‚뙂‚Ø™‚‚Ñ™‚‚̘’ŒUNINTERN-USEE-PROCEED™ ‚Ç™‚0‚»™‚‚¨™‚‚•™‚‚™‚‚Š˜’ŒUNINTERN-USER-PROCEED™ ‚…™‚0y™‚f™‚S™‚M™‚H˜’ŒSHADOW-USE-CONFLICTS-PROCEED™ C™‚0.™‚Á(™‚£ ™ ™@˜ŒSTRING<‚7˜–@oHÉ HÉ ˜Œ&lambda in RESOLVE-USE-PACKAGE-CONFLICT™‚˜“˜“˜ŒSTREAM™‚=™‚< ™‚<˜ŒAbort making package ~a use ~a‚ô˜–@oHÉ ˜Œ&lambda in RESOLVE-USE-PACKAGE-CONFLICT™‚˜“˜“˜ŒSTREAM™‚= ™‚<˜Œ9Unintern all conflicting symbols from ~A (VERY DANGEROUS)‚±˜–@oHÉ ˜Œ&lambda in RESOLVE-USE-PACKAGE-CONFLICT™‚˜“˜“˜ŒSTREAM™‚= ™‚<˜Œ4Unintern all conflicting symbols from ~A (DANGEROUS)o˜–@oHÉ HÉ ˜Œ&lambda in RESOLVE-USE-PACKAGE-CONFLICT™‚˜“˜“˜ŒSTREAM™‚=™‚< ™‚<˜Œ(Shadow conflicting symbols from ~A in ~A ‚3™‚5‚ ™‚5‚ð™‚5‚Ý™‚5‚­™‚5‚š™‚5k™‚5X™‚5™‚P™‚€‚$˜–QHÉð™‚Ò˜ŒFILTER™‚˜“€™‚€‚ᙂƒ™‚€‚ž™‚ƒ™‚€\™‚ƒ˜–ggo ˜Œ%DEFUN IL:RESOLVE-USE-PACKAGE-CONFLICT™˜“€™‚Ž™‚:™F ˜Œ#Handle a conflict from use-package.œ™G—˜–‚ŒnZ@B¿Ag b¿JÉno Jý¿ggJÉgAgCgJÉ Jý¿h»gggjgnoJgnoJgh gggkgnoJgnoJgh hWL¹nK½JÉ »g‚h¹^gð”K$N_jð²XJÉ_¿h_¿O’OŠh__’OC_¿A_¿h_¿O’O°!_ O O ¿O_¿°ÛO_¿°¶Okð›gh h™‚™‚™‚ ™‚™G ™˜“˜“˜ŒPACKAGE˜ŒSYMBOLS˜ŒPACKAGES˜ŒEXPORTED-SYMBOLS ‚„™‚]‚c™‚^‚\™‚_‚U™‚΂ü™‚ ‚÷™‚ ‚à™‚ ‚ž™‚ U™‚C)™‚a™‚a‚~™‚B‚™‚‚™‚‚Ù™‚‚Æ™‚‚³™‚‚­™‚‚¨™‚c‚£™‚0‚—™‚‚„™‚q™‚k™‚f˜’ŒUNINTERN-PROCEED™ a™‚0L™‚1F™‚é@™‚£8™ 3™A™‚g‚Ϙ–@oHÉ ˜Œ!lambda in RESOLVE-EXPORT-CONFLICT™‚˜“˜“˜ŒSTREAM™‚= ™‚<˜Œ+Abort exporting the symbols from package ~a‚˜–=@oHÉ‘k€jHɹhºh»h¼I¢J°I ¼J”KL&»„Lh[ºI¹°ä ˜Œ!lambda in RESOLVE-EXPORT-CONFLICT™‚˜“˜“˜ŒSTREAM7™‚= ™‚<˜Œ@Unintern all conflicting symbols in package~P~{ ~a~} (DANGEROUS)"˜–@ A ˜Œ!lambda in RESOLVE-EXPORT-CONFLICT™‚˜“˜“˜ŒA˜ŒB ™‚g™‚<™‚<‚Ë™‚5‚¸™‚5‚‰™‚5v™‚5™‚5™‚P™‚¡‚¼˜–QHÉð™‚Ò˜ŒFILTER™‚˜“€™‚¡z™‚¤˜–ggo ˜Œ DEFUN IL:RESOLVE-EXPORT-CONFLICT™˜“€™‚Ž™‚:™G ˜Œ#Handle a conflict raised by export.œ™H—˜–‚ônZ@¿Ag b¿h»gggjgnognoJgh gggkgnognoJgh hWL¹n½g »g‚ h¹^gð”K$N_jð™AJÉ Okð›gh h™‚™‚™‚™‚™H™˜“˜“˜ŒPACKAGE˜ŒSYMBOLS‚왂]‚Û˜ŒIMPORT‚±™‚ ‚¬™‚ ‚“™‚ T™‚ ™‚a‚時B‚Ä™‚‚·™‚‚§™B‚Œ™‚y™‚i™‚c™‚^™‚cY™‚0M™‚:™‚*™‚$™‚˜’ŒIMPORT-PROCEED™ ™‚0 ™‚g‚‚˜–@oHÉ ˜Œ lambda in RESOLVE-EXPORT-MISSING™‚˜“˜“˜ŒSTREAM ™‚=˜ŒAbort export from package ~AC˜–@oHÉ ˜Œ lambda in RESOLVE-EXPORT-MISSING™‚˜“˜“˜ŒSTREAM ™‚=˜Œ0Import missing symbols into ~A, then export them~™‚5n™‚5?™‚5/™‚5™‚6™‚»r˜– Pgð™‚Ò˜ŒFILTER™‚˜“€™B™‚»3™‚¾˜–ggo ˜ŒDEFUN IL:RESOLVE-EXPORT-MISSING™˜“€™‚Ž™‚:™H ˜Œ(Handle missing symbols needed to export.œ™I—˜–‚nZ@¿Ag b¿ggJÉgA Jý¿h»gggjgnoJgnoJgh gggkgnoJgnoJgh hWL¹n"½JÉ »g‚ h¹^gð”K$N_jð‘hOkð›gh h™‚™‚™‚™‚™I™˜“˜“˜ŒPACKAGE˜ŒSYMBOLS‚™‚]‚Ó™‚ ‚Ι‚ ‚·™‚ u™‚ ,™‚C™‚a‚™‚­‚時‚Ù™‚‚°™‚‚™‚‚Š™‚‚„™‚™‚cz™‚0n™‚[™‚H™‚B™‚=˜’ŒSHADOWING-IMPORT-PROCEED™ 8™‚0%™‚£™ ™C ™‚g‚¦˜–@oHÉ ˜Œ!lambda in RESOLVE-IMPORT-CONFLICT™‚˜“˜“˜ŒSTREAM™‚= ™‚<˜ŒAbort import into package ~Sd˜–@oHÉ g ˜Œ!lambda in RESOLVE-IMPORT-CONFLICT™‚˜“˜“˜ŒSTREAM™‚= ™‚<˜ŒSHADOWING-IMPORT˜Œ&Import symbols into ~S with ~S instead‚¢™‚5‚™‚5`™‚5M™‚5™‚6™‚Õ‚“˜–QHÉð™‚Ò˜ŒFILTER™‚˜“€™‚ÕQ™‚ؘ–ggo ˜Œ DEFUN IL:RESOLVE-IMPORT-CONFLICT™˜“€™‚Ž™‚:™I ˜ŒPHandle conflict signalled by import. Returning from here does shadowing import.œ™J—˜–‚PnZ@AB¿JÉg Jý¿ggJÉgJÉgJÉ Jý¿h»gggjgnoJgnoJgnoJ gggkgnoJgnoJgh hWL¹nC½JÉ »g‚h¹^gð”K$N_¿N_¿Ojð²O_JÉ ¿gi Okð›gh h™‚™‚™‚ ™‚™J ™˜“˜“˜ŒSYMBOL˜ŒSYMBOLS˜ŒPACKAGE ‚H™‚]‚7™‚]‚+™‚Ò‚ô™‚ ‚ ‚Ø™‚ ‚–™‚ @™‚C™‚a‚B˜ŒUNINTERN‚1™J‚™‚‚ú™‚‚Ñ™‚‚¾™‚‚«™‚‚¥™‚‚ ™‚c‚›™‚0‚‚™‚o™‚\™‚V™‚Q™‚ÇL™‚07™ /™‚£'™‚K"™D™‚g‚ǘ–@oHÉHÉ ˜Œ#lambda in RESOLVE-UNINTERN-CONFLICT™‚˜“˜“˜ŒSTREAM™‚= ™‚<˜Œ+Abort unintern of symbol ~s from package ~s‚‹˜–e`YºIo¿JYºIHÉ¿JYºIi ¿JYºIg ¿JYºIg¿J¹jjnÿnÿhºI»IJ ¿K ZHÉ“Jh°ž˜Œ#lambda in RESOLVE-UNINTERN-CONFLICT™‚˜“€T˜•ŒMENU4˜•ŒDEFAULTMENUHELDFN(˜•Œ CLRPROMPT˜•Œ MENUTYPE# ˜Œ!Choose symbol to shadowing-importx˜–@ogHÉ ˜Œ#lambda in RESOLVE-UNINTERN-CONFLICT™‚˜“˜“˜ŒSTREAM™‚=™‚<™‚Ò˜Œ7Choose symbol and ~S it to hide conflicts in package ~S‚Ù‚5‚°™‚5‚‡™‚5t™‚5a™‚5™‚P™‚÷‚´˜–QHÉð™‚Ò˜ŒFILTER™‚˜“€™‚÷e™‚ú˜–ggo ˜Œ"DEFUN IL:RESOLVE-UNINTERN-CONFLICT™˜“€™‚Ž™‚:™J ˜Œ$Handle a conflict noted by unintern.˜–Zgio ¿goolg ¿ggg ¿g ¿g ˜Œ#DEFINE-CONDITION SYMBOL-COLON-ERROR™˜“€T™‚ I™‚ >™)™‚ ™‚O™LD™L9™‚4™‚/™L#™‚™L™L˜“˜“™L™‚˜“™L™‚˜“™‚™‚˜“™‚™L˜’ŒSYMBOL-COLON-ERROR constructor™ ˜“™‚™‚™‚€™‚˜ŒSYMBOL-COLON-ERROR-˜“™‚€™‚"€€€˜“˜“™‚€™‚™‚€˜“™‚€™‚˜’ŒSYMBOL-COLON-ERROR-NAME™ €€™‚€™‚+€€€œ™‚˜–Cgµh¸h¹ƒa¸i¹`ºJnðJÈåhÒnÿåäÍ¿JjkØÐhÓÍ¿I”JH¿J™‚.™‚‚ÿÿÿÿ™˜“˜“™‚/™‚0˜’ŒSYMBOL-COLON-ERRORTYPE#™ ™‚0œ˜’Œ SYMBOL-COLON-ERROR report method™ ˜–io@É ™‚Ç™‚™˜“˜“˜Œ CONDITION™‚Ç™‚=™L˜ŒInvalid symbol syntax in "~A"˜–,ggg ¿ggh ™‚ÿ™˜“€&™™™‚× ™‚B™L ™‚™‚C™Lœ™N˜–‚ânZ¿ggC›C`ð‘h‚i€hŸC ‘C‹C „oBkð•oBlð•o„o@jAW Jý¿h»gggjgnoJgogh WL¹n½JÉ »g‚ h¹^gð”K$N_jð‘hh™‚™‚™‚˜•Œ\FATPNAMESTRINGP ™‚™N™˜“˜“˜ŒBASE˜ŒLEN˜ŒNCOLONS˜ŒPACKAGE˜Œ EXTRASEGMENTS‚¸™‚ ‚³™‚ ‚Ÿ™‚ _™‚CZ™‚_U˜•Œ\GETBASESTRING+™‚<"˜ŒSTRINGP ‚Ë™‚‚¾™‚‚˜™‚‚Ž™‚{™‚u™‚p™!k™‚0˜•Œ*KEYWORD-PACKAGE* ™‚0™L‚“˜Œ0Treat the extra colon(s) as if they were escaped‚„˜–QHÉð™‚Ò˜Œlambda in \INVALID.SYMBOL™‚˜“€K˜ŒE˜Œ:::˜Œ:1˜Œ‚€™‚5™‚6œ™U˜–LAgð–@ Agð²@ –@ gAgð•@ÁÉAgð–@ h™U™˜“˜“˜ŒOBJECT˜ŒPROPERTYD™!˜Œ SYMBOL-VALUE™‚Ë ™‚Î<™b.™a'˜•ŒNOBIND™`™_œ™V˜–HAgðšo Agð—@B Agð™@ÁXB¿BAgð—@B h™V™˜“˜“˜ŒOBJECT˜ŒPROPERTY˜ŒVALUE@™‚ØŒSET˜•Œ PROMPTPRINT7™b%™a™`™_ ˜ŒCan't set symbol name˜–oP ‘hoPc™l˜Œ1 top-level form™˜“€™k˜“˜“™\™]˜“™_™`™a™b™U™V€€€˜ŒSymbol inspector™‚Dœ™w˜–iAgð˜@ÉAgð˜@ÉAgð˜@É Agð˜@ÉAgð˜@ÉAgð˜@Éh™w™˜“˜“˜ŒOBJECT˜ŒPROPERTY _™bW™‚€N™bF™=™b5™~,™b$™}™b™| ™b™_œ™x˜– o ™x™˜“˜“˜ŒOBJECT˜ŒPROPERTY˜ŒVALUE™‚<˜Œ!Can't set the fields of a package˜–oP ‘hoPc™l˜Œ1 top-level form™˜“€™k˜“˜“™\™z˜“™_™|™}™~™™‚€™w™x€€€˜ŒPackage inspector™‚Wœ™‚˜–GAgð˜@ÉAgð˜@ÉAgð˜@ÉAgð˜@Éh™‚™˜“˜“˜ŒOBJECT˜ŒPROPERTY=˜ŒPACKAGE-HASHTABLE5™‚˜,™‚]$™‚—™‚]™‚– ™‚]™‚•œ™‚‘˜– o ™‚‘™˜“˜“˜ŒOBJECT˜ŒPROPERTY˜ŒVALUE™‚<˜Œ+Can't set the fields of a package-hashtable˜–oP ‘hoPc™l˜Œ1 top-level form™˜“€™k˜“˜“™\™‚“˜“™‚•™‚–™‚—™‚˜™‚™‚‘™‚jœ™‚§˜–F@¸@Ã’H°$H —H °Hd3@ð›H €hY‘IŠoH É™‚§™˜“˜“˜ŒPACKAGE9™‚¬(™‚ #™‚Ι‚ ™‚$>™b™b3˜Œ*Not an existing package, string or symbol œ™‚¨˜–‚¶Ad3@ð²K@¸@Ã’H°$H —H °Hd3@ð›H €hY‘IŠoH XA¿AA ²S@¸@Ã’H°$H —H °Hd3@ð›H €hY‘IŠoH ¸A ¹HI¿IoA ™‚¨™˜“˜“˜ŒPACKAGE˜ŒPREFIX ‚°™‚ ‚™‚A‚‘™‚¬‚€™‚ {™‚Îm™‚ f™‚$R™‚$@™‚¬/™‚ *™‚Ι‚ ™‚$‚–™b\™bE™b ™b‚ª˜Œ~S must be symbol or string.‚‹™‚o:™‚o˜–gg ˜ŒDEFSETF PACKAGE-PREFIX™˜“€ ™‚™‚¨™‚§˜–"o ¿o ¿o ˜Œ3 top-level forms™˜“€˜•ŒPUTPROPS™‚|™‚|˜“™˜•Œ COPYRIGHT˜“˜ŒVenue & Xerox Corporation‚‚ÂÄ‚Æ ˜“™™‚­˜“™ ˜ŒXCL™ ˜ŒXCL˜“™™‚¬˜Œ COMPILE-FILEš‚ˆÿÿ