hưs2€D€ p€,€¬�COMPILE-DATAD€¬€GJC€l�Lambda Ten†€ª£5ÄF€nF€èD€p€,�COMPILER,‚NEW-DESTINATIONSp€ì€GLOBALl€T€p€B€ ¬€SITEp€B€ ¬€LMI€p€B€ ¬ƒSOURCE-FILE-GENERIC-PATHNAME1€D€p€l€FSì‚MAKE-FASLOAD-PATHNAME€D€p€B€+ì€QUOTE€l€DJD€B€:¬€DSK€D€B€:D€l€L€,�EXAMPLESD€B€:l�FILE-UTILSD€B€:p€B€ l�UNSPECIFICD€B€:B€Fp€B€ ¬ƒQFASL-SOURCE-FILE-UNIQUE-ID€1€D€B€8D€B€:B€;D€B€:¬€DSK€D€B€:D€l€L€,�EXAMPLESD€B€:l�FILE-UTILSD€B€:¬€LISPD€B€:F€p€B€ l�READTABLE€p€B€ l€ZLp€B€ ¬€BASEF€ p€B€ ,�PACKAGE€p€B€ ¬€USERË€R†€4ÀF€6À‚PURGE-SOME-DIRS€À†€À†€@À†€…€F€ÀF€ÀF€eÀF€eÀF€eÀF€eÀF€eÀF€eÀF€eÀF€eÀF€e€p€B€6ì�DIRECTORY-LISTÒl‚LM:~;*.DIRECTORY#>Àp€B€ ¬€NAMEÀ�Y-OR-N-PÒ¬‚&PURGE DIRECTORY ~S?À‚FILESYSTEM-PURGEÒp€B€ ,‚VERSIONS-TO-KEEPÀp€B€ l�DIRECTORY€€D€D€p€B€ ,‚MACROS-EXPANDED€D€ÀPSETQ€ƒ€SENDÂINHIBIT-STYLE-WARNINGSÀDOLISTD€pÀB€(,�ARG-MAP€D€D€�VERSIONSD€pÀB€(l�LOCAL-MAP€D€ƒ€NIL€B€•B€•B€•D€C€X€D€ƒ€DIR€€@·EA·@ÄC÷B÷ BECGD÷DGxDGÿAÄôZBרC•CòYAE EbzC÷B÷ CGD÷DDÅ8BECGôZBרC•CòY@EEwC÷ 8CGE÷D€EDEÅC•÷Y…O€�B€jË€ †€ÀF€Àƒ�SOURCE-FILEPÀF€AÀ†€@À†€€€ƒ€MEM€Òƒ�STRING-EQUALÒp€B€ ¬€TYPEÀD€ ¬€TEXT¬€LISPì€BOTEX€¬€TEX€¬€TXT€¬€INITl€C€l€H€¬€LSP€l�DIRECTORY€,‚PATCH-DIRECTORY€€D€D€B€†D€B€ˆD€B€ŽD€D€B€–€€D€AÄ ÄO€ºB€ Ë€S†€>ÀF€9Àƒ‚BACKUP-HOST-TO-HERE€À†€AÀ†€@À†€„€‚CURRENT-PROCESS€Ñƒ�TERMINAL-IO€‘€ÀF€ ÀF€0ÀF€2ÀB€-ÀF€eÀF€eÀF€eÀF€e€p€ì€SYSTEM,ƒSTORE-KEYWORD-ARG-VALUESÒD€p€B€ ¬€DIRSp€B€ ì€PURGE€Àp€B€ ì€MORE-PÀp€B€ ,ƒDEEXPOSED-TYPEOUT-ACTIONÀp€B€ ,�PRIORITYÀp€B€ ,�QUANTUM€ÀF€eÀp€B€ l�SET-MORE-PÀp€B€ ¬ƒSET-DEEXPOSED-TYPEOUT-ACTIONÀp€B€ ì€PERMITÀp€B€ ¬�SET-QUANTUM€Àp€B€ ¬�SET-PRIORITYÀÂBACKUP-HOST-TO-HERE-1€’D€D€B€†D€B€ˆƒ€WHEND€B€ŽD€D€C�HOST-NAME€D€B€”D€B€•D€ƒ€DIRSD€ÀPURGE€D€ÀMORE-PD€ƒ€DTO€D€ƒ€PRIOD€ÀQUANT€D€pÀB€(,‚COMPILER-ARGLISTB€êC�&OPTIONAL€ƒ€&KEYB€îD€B€ðB€-€@8A·@EDÅ@Ä@Ä@Ä@ÄF÷E÷D÷C÷e||/EDÅDÄD ÅD Å€€EAEBÅDCÅDDÅDFÅDEÅ­›O€B€½Ë€F‹\†€ŒÀF€ÑÀB€æÀF€ÃÀ†€@À†€€€pÀB€6ìƒ*DISK-SPACE-WARNER-THRESHOLD*€ÑpÀB€6,�PUT-FREEÑpÀB€6,‚PUT-USAGE-ARRAY€Ñp€l€SIl�LOCAL-HOST‘p€B€l�PARSE-HOSTÒpÀB€ì�TIME-IN-60THS€Òp€B€6ì�PARSE-PATHNAMEÒÀFORMATÒì€~A:~A;ÀB€}ÀÂDIRECTORIES-TO-BACKUP€Àìƒ~&[Going to backup ~S to ~S]~%À¬‚[DIRECTORIES: ~S]~%€ÀÃ�MAP-ALL-FILES€ÒD€p€B€ ,�INTERNALB€æ€ÀÃ�DIR-FROM-SPEC€Òp€B€ ,�VERSION€Àp€B€ ì€NEWESTÀp€B€ ,�BEFORE-FÀD€B€B€æF€Àp€B€ ì�CALL-ON-PLIST€À�NREVERSEÒÇ€ €pÀì…~&[TOOK ~$ MINUTES TO LIST THE DIRECTORIES]~%€À¬ƒ~&[ ~D FILES TO CONSIDER]~%€Àp€B€ ¬�NEW-PATHNAMEÀp€B€ ¬€HOSTÀB€„ÀÂAPPEND-DIRECTORY-NAMESÒp€B€6,‚CREATE-DIRECTORYÒC�PROBE-FILEÒì‚~&ALREADY EXISTS: ~A~%Àp€B€ ,‚LENGTH-IN-BLOCKSÀ,‰~&[SCAN OF TARGET TOOK ~$ MINUTES. ~D FILES TO COPY, ~D BLOCKS NEEDED]~%ÀÀCERRORÒ¬�COPY ANYWAY€À¬‰Need ~D Blocks to copy the files, but have only ~D free blocks on local fileÀÃ�COPY-ONE-FILE€Òl‚~&[~D FILES TO GO]Àl†~%[COPY TOOK ~$ MINUTES. PURGING BACKUP TARGET]~%€ÀB€€ÒB€‚À¬…~%[PURGE TOOK ~$ MINUTES, ~D BLOCKS SAVED]~%Àp€B€ ì€ABORT€ÀF€˜Àƒ€OPENÒC�SUBSTRING€Òp€¬€TIMEl‚PRINT-CURRENT-TIMEÒp€B€ l�YY-MMM-DD€ÀB€§À¬€TEXTÀp€B€ l�DIRECTION€Àp€B€ ì€OUTPUTÀp€B€Il‚PRINT-CURRENT-DATEÒ¬ƒ~%Going to backup ~S to ~S~%Àl‚DIRECTORIES: ~S~%€À,ˆTook ~$ minutes to list the directories, ~D files to consider.~%À¬ˆScan of target took ~$ minutes. ~D files to copy, ~D blocks needed~%Àì‚Copy took ~$ minutes~%Àl…Purge took ~$ minutes, ~d blocks saved.~%€ÀÀERRORPÒp€B€ ì€CLOSE€€D€†Àÿùÿ€D€D€B€†D€ ‚WITH-OPEN-STREAMÃ�WITH-OPEN-FILEpÀB€l�XR-BQ-LISTƒ€PUSHƒ€INCF‚TIME-DIFFERENCE€B€‡B€ŠB€ˆD€pÀB€(l‚LOCAL-FUNCTION-MAPD€€F€D€B€ŽD€D€B€êD€B€îD€B€ðD€B€”D€D€C€H€D€C�START-TIMED€�DIR-TIMED€C�SCAN-TIME€D€C�COPY-TIME€D€C�PURGE-TIMED€ÀTARGETD€ÀFILES€D€ÀCFILESD€ƒ�PURGE-RESULTD€ƒ�NEED-BLOCKS€B€•D€B€˜D€ƒ€FILED€�NEW-FILED€ÀFILED€D€pÀB€¬‚.FILE-ABORTED-FLAG.€D€ƒ€LOG€D€p€B€ ¬‚INTERNAL-FEF-OFFSETSF€F€€ @€Å B|J÷A÷@÷ @ ÀED @Ä@ÅF÷�X@EDÐZ�÷ ED@EFÅ ED�Å�EK÷8KGL÷D\@@ELÅDDDDDÅK•ðY@GÅG÷| BAE˜[ÍZ’B÷ BA÷ EDBÅ EDGEÔÚ BA÷GEMwK÷*8KGM÷MGÿAD DFA Ä!D"ÀFA!ÄMGÿÁ!ÄN÷#NÅ$NÅ8 E%DNÅJEME&DÐZÿ3J÷MGNEMI|UzHEöZH÷K•ÖY| BAE˜[ÍZ’C÷@HÅH÷ E'DCEHEÔZJÅDDJ[2JU8()D*DJEDDJÛ BA÷HEOwK÷8KGO÷+DOE E,DOEHE[ÿIÔÚK•ñY| BAE˜[ÍZ’D÷ E-DDÅ BA÷‚ 8.@/D|!DFA!Ä DFÁ ÄI÷| BAE˜[ÍZ’E÷ E0DEEIÅ1DP÷Kw˜}|/E3@FADD4@5@E6Ä| Å7D8DDÄ9D:ÄK×Q÷;QÅ QEDBEGEÔÚ QE?DCEHEÔZJÅ QE@DDÅ DEþZQEADEEIÅPwÿ…K8BKÅXKCDPÅ­›O€žB€æË€†€ÀF€ ÀD€B€B€æ€ÀF€AÀ†€@À†€€€B€ ’D€D€B€†D€B€dD€pÀB€(,‚LEXICAL-REF-MAP€D€€B€‚D€B€ŽD€D€C€P€€€Ç8€E|ÀZöZ|š…O€²B€!Ë€  †€ÀF€ ÀD€B€B€æF€ÀF€AÀ†€@À†€€€B€Òl‚~&DESCENDING ~A~%€€D€D€B€ŽD€D€B€˜€€ED€ÅO€¿B€*Ë€8†€(ÀF€&ÀB€"ÀF€‚À†€@À†€€€p€B€ ¬�SYSTEM-TYPE€Àp€B€ ì€LISPM€ÀB€Òì€~A:~A;ÀB€}Àl�~{~A~^.~}€Àp€B€ ¬€UNIXÀì€~A:~A/Àl�~{~A~^/~}€ÀpÀB€ì�NO-CASE-ERROR€ÒÀECASE€ÀD€B€ˆƒ€HOSTB€ÆÀD€p€¬€LISPì€MEMBERB€ÈB€Ì€D€D€B€†D€ÀCONSP€B€ˆB€ÑD€B€ŽD€D€B€ÒD€B€˜D€B€”D€D€pÀB€ì�.SELECTQ.ITEM.€€AÄ@×t 8€E D€A Ä�¸ÀE D�Å@E t 8€E D€A Ä�¸ÀED�Å€EDD@EÄO€åB€"Ë€&R†€LÀF€<ÀB€€À†€À†€@À†€† „€B€ÑpÀB€,‚KEYWORD-GARBAGE€‘F€ ÀF€2ÀF€ÀF€2Àp€B€ ¬€ROOTÀF€3ÀB€ìÁF€0ÀF€0ÀF€eÀF€eÀF€eÀF€eÀF€eÀF€eÀF€e€B€ÍÒD€B€‚B€„B€4p€B€ l‚IGNORE-DIRECTORIESp€B€ ,�DONT-ASKÀÃ�MAKE-PATHNAME€ÒB€4ÀB€„Àƒ�YES-OR-NO-P€Ò¬†~&Do you really want to delete all the files in ~A?€ÀB€ÒD€B€B€€€ÀB€(ÀD€B€B€€F€Àp€B€ ¬�CALL-ON-LIST€D€†Àÿÿÿ†Àÿüÿ†Àÿùÿ€D€D€B€†D€B€çD€B€jD€€F€D€B€”D€ B€•D€‚VERSIONS-TO-KEEPD€C�DIRECTORY€B€•D€C‚IGNORE-DIRECTORIESD€�DONT-ASKD€B€ÒD€ƒ�SAVED-BLOCKSD€ƒ€PATHD€B€™F€ F€"D€B€ýB€þB€ÿD€B€F€D€B€B€òD€B€ÒB€B€B€€@8A·@EDÅCEt8DCEF÷|@DFEDBÅH÷G÷AEë 8A£8EXDHÅX… D \HE!D"D \#DÅG…O€-B€€Ë€ 9’†€@ÀF€YÀD€B€B€€€ÀF€AÀ†€@À†€€ˆ€p€l€EHl‚CONDITION-HANDLERS‘ƒ‚COMPUTE-EXTRA-FILES€ÒB€Ò,‚~D extra files €ÀF€aÀÀG4638€Àp€B€6¬‚DONT-DELETE-FLAG-SETÀpÀB€5¬‚CONDITION-CASE-THROWÀp€B€ ì‚DELETE-MULTIPLE-FILES€Àp€B€ ,‚CONDITION-NAMES€Àì‚~&;Losing because ~A~%Àp€B€ ì�REPORT-STRING€À¬�File-> ~S~%€ÀF€ˆÀÀG4648€ÀD€B€=pÀB€6l‚OPEN-DELETED-FILE€À�DELETEF€ÒB€KÀp€B€6l‚EXPUNGE-DIRECTORY€ÒB€2ÀB€}Àp€B€ ¬€WILDÀB€§ÀB€$Àl‚~D block~p saved~%€D€D€B€†D€ B€eB€‡B€ŠB€ˆC‚CONDITION-BIND-IF€pÀB€¬�SELECT-MEMQ€C‚CONDITION-CASE-IF€Ã�CONDITION-CASEB€çD€B€©D€€B€D€F€B€D€B€ŽD€D€B€‚D€B€”D€D€ƒ�EXTRA-FILES€B€•B€•D€B€–D€C€F€B€•D€B€–D€ÀSAVED€B€+€@€E|ÀÚ@÷T8E D@EÔÚa|.[ D D D D|¿[A×D|Ó[B×V@GÿDE@Å€ž9C÷ DCAÄ38EDCÁÄ@EB÷+8BGD÷EDDň|.[DD DD|¿[A×D|Ó[E×VDÅ€žF÷ DFAÄXDFAÄ8EDFÁÄB•ÕY€8@€GÿÁDDDDDDÄG÷EDGEGÅ|ÀZG3|š…O€mB€Ë€ †€ÀF€ÀD€B€B€€F€ÀF€AÀ†€@À†€€€B€Òì�~&Hacking ~A €Àp€B€Ëì�MEMBER-EQUALP€ÒB€„Àl�ignored~%€Àp€B€ ì€IGNORE€D€D€B€†D€B€ˆB€çD€B€©D€F€B€D€B€ŽD€D€B€–B€+€ED€Å@€A Ä|ÀÚxE Ä „ÿ…O€„B€Ë€!P†€ÀF€/ÀB€8ÀF€‚À†€@À†€€€ƒ€SORTÒD€B€B€8€ÀB€§ÀB€}À�STRING=€ÒCƒFUNCALL-EXTRA-FILES-FILTERÒB€-’D€D€B€†D€B€‡B€dB€ˆB€ŠD€B€jD€€D€B€ŽD€D€B€‚D€B€D€B€”D€D€ÀSORTEDD€ƒ�CURRENT-TYPED€ƒ�CURRENT-NAMED€C�PARTITION€D€ÀEXTRASB€•D€B€‹D€B€™F€€€E>x@€EÄ@÷@GÿAÄ@GÿA Ä@G|UzC÷B÷A÷@IE÷#8EGF÷ FAÄAÅ 8 FA ÄBÅ8FECEöZC÷ @�E ÀCÅDE[zD÷FEôZC÷FAÄA÷FA ÄB÷E•ÝY @�E ÀCÅDE[zD÷D…ÿ…O€¨B€8Ë€ 9†€ÀF€"ÀD€B€B€8€ÀF€‚À†€@À†€€€Ã�STRING-COMPAREÒB€}ÀB€§ÀB€$€D€D€B€†D€B€ˆD€B€ŽD€D€C€F1D€C€F2D€B€”D€D€C€N€€@€AÄ�AÄ||EEÅ@×í8…@Eì8…@€AÄ�AÄ||EEÅ@×í8…@Eì8…€A Ä�A ÄÿS@×í8……O€¾B€ŒË€ †€ÀF€ÀB€ŽÀF€‚À†€@À†€€€ƒƒCOMPUTE-EXTRA-FILES-NUMERIC€ÀB€8ÀƒƒCOMPUTE-EXTRA-FILES-DEFAULT€€D€D€B€ŽD€D€B€D€B€‚€€Eë8D€EDÐZ˜Dÿ�€E�ÅO€ËB€ŽË€ †€ÀF€ ÀB€ÄÀF€‚À†€@À†€€€�BUTLAST€’D€D€B€ŽD€D€B€D€B€‚€€�E€ÅO€×B€ÄË€ †€ÀF€ÀB€ÅÀF€‚À†€@À†€€€B€=Òl�try again€Àì…dont know how to compute extra files with: ~S€ÀB€Ž’D€D€B€ŽD€D€B€D€B€‚€DD€Å €€E�ÅO€äB€ÅË€8І€4ÀF€RÀD€p€B€ ,�PROPERTYp€B€ ,�STANDARDB€8ÀF€‚À†€@À†€€€B€Ò¬‚~&~A.~A#~{~D~^,~} =>ÀB€}ÀB€§ÀB€$ÀB€¥Òì€QFASL€ÀB€ÑÒ¬€LMC€À,�LMC-DCL€À,�LMC-LOCSÀ,�LMC-SYM€À,�LMC-TBL€À¬€EMC€À,�EMC-DCL€À,�EMC-LOCSÀ,�EMC-SYM€À,�EMC-TBL€À¬�~{~D~^,~}~%€€D€D€B€†D€�SELECTORB€‡B€‰B€ˆD€B€ŽD€D€ÀIGNORED€B€‚D€B€”D€B€•B€•B€•D€B€‹D€B€àD€B€ €ED�GÿAÄ�GÿA Ä@·�EB÷A÷ AEBGC÷CA ÄôZAרB•BõY@Å�GÿA ÄD÷ DE Ä8 @�Å3 DEÄ$X DEÄ X DEÄX DEÄX DEÄX DEÄX DEÄ X DEÄX DEÄX DEÄ8E �EÔZU8E @�IÅE÷EDBwB·EEA÷@÷ @EAGC÷CA ÄôZ@רA•AõYBÅE…O€ B€ëË€ †€ÀF€ÀD€B€èp€B€ ì€QFASL€B€8ÀF€‚À†€@À†€€€B€¥Òì€QFASL€ÀB€§€D€D€B€†D€B€ˆD€B€ŽD€D€B€ÿD€B€‚€D�GÿÁÄ8�……O€B€Ë€(†€ÀF€ÀB€5ÀF€‚À†€@À†€€€B€ò€D€D€B€ŽD€D€C€A€D€C€B€D€B€”D€D€ÀRESULT€€Et8E€Ø€E|Uz€E�Et8E�Ø�E|Uz�E[z@×ÔZ8@‡@…O€,B€5Ë€†€ÀF€ÀC‚CDR-DIRECTORY-NAMEÀF€AÀ†€@À†€€€B€ò€D€D€B€ŽD€D€B€!€€Et8€…€Ø„€EÔZ8„€‰O€7B€/Ë€†€ÀF€ÀÂNTHCDR-DIRECTORY-NAME€ÀF€‚À†€@À†€€€B€/’D€D€B€†D€B€‡D€B€ŽD€D€B€¹D€B€!D€B€”D€D€B€#D€C€J€€�E|A÷@÷@@Å@÷AÕAE€ù9@…O€JB€:Ë€" 8†€DÀF€-ÀB€À†€‚À†€@À†€‡ €€À€ÀF€ ÀF€2ÀB€-ÀF€2ÀB€QÀF€2ÀB€QÀF€2ÀB€QÀF€0ÀF€0ÀF€0ÀF€eÀF€eÀF€eÀF€e€B€ÍÒD€p€B€ l�RECURSIVE€B€}B€§B€$B€(B€ B€,ÀD€B€B€€ÀB€ÒB€2ÀB€}ÀB€§ÀB€$€D€ €†Àÿÿÿ†Àÿþÿ†Àÿýÿ†Àÿüÿ†Àÿûÿ†Àÿúÿ†Àÿùÿ†Àÿøÿ€D€D€B€†D€B€ˆB€‡B€çD€B€jD€�RECURSE€D€B€ŽD€D€B€eD€�FILESPECD€B€”D€ B€•D€C�RECURSIVE€D€ƒ€NAMED€ƒ€TYPED€�VERSION€D€�BEFORE-FD€ƒ�CALL-ON-LISTD€Ã�CALL-ON-PLIST€B€•D€B€™F€D€ B€ýB€eB€sB€þB€ÿD€B€wB€-D€B€yB€QD€B€{B€QD€B€}B€QB€B€�B€ƒ€@8A·@EDÅD \H÷H�@�ÅÿÁDDBEDCEDDÅO€�B€Ë€-j†€ ÀF€=ÀD€B€B€B€oÀF€AÀ†€@À†€€€B€zÀB€zÒB€„ÀB€-ÒB€2ÀB€5ÒB€}ÀB€§ÀB€$€D€D€B€†D€B€ˆB€ŠB€‡B€dD€ B€©D€F€B€}D€F€B€{D€F€B€yD€€D€�FUNCTIONB€oD€F€B€eD€F€B€�D€F€B€ƒD€F€B€wD€F€B€D€B€ŽD€D€B€ D€B€”D€D€C€L€D€C�DIRS-FOUNDD€ƒ�FILES-FOUND€B€•D€ƒ€ELEMD€B€˜B€�€|À8|ÀZÿA€Åt8…@€ÅÿI@÷8@GDÐ8|À8@QAEöZA÷ |À8@G@QBEöZB÷@•éY|À8|ÀZÿ ÀBÅ  @BÅDwC÷8CGD÷|ÀZÿDÅC•øY @AÅEwC÷8CGE÷|ÀZÿ€Á DD @EAÄEÁ Ä D|ÀZ D|ÀZD|ÀÚC•èY…O€¼B€b1€D€pÀB€,�DEFVAR-1ƒ�*UBIN-ALIST*D€B€:D€D€D€,�ULAMBDA€¬€LMC€,�LMC-DCL€,�LMC-SYM€,�LMC-TBL€D€D€,�ULAMBDA€¬€EMC€,�EMC-DCL€,�EMC-SYM€,�EMC-TBL€Ë€)3�†€RÀF€\ÀÃ�CLEAN-UBIN-DIRÀ†€À†€@À†€…ˆƒ€B€¿‘F€Àl�SYS:UBIN;€ÀF€eÀF€eÀF€eÀF€eÀF€eÀF€eÀF€eÀF€eÀF€eÀF€e€B€ÒB€2ÀB€}À,�ULAMBDA€ÀB€§ÀB€QÀB€$ÀB€Ò¬‚~&;CLEANING UP ~S~%€ÀB€zÒB€¤ÒB€¥ÒÀPRINC€Òl€.€ÀD€B€B€Ô€À,ƒGARBAGE COLLECTING ~S~%€À,ƒDELETING ~D FILE~P...~%€ÀB€AÀ¬�EXPUNGING...Àl‚~D BLOCKS SAVED~%€ÀB€O’D€D€B€†D€B€dB€çB€‡B€‰B€ŠB€ˆD€B€jD€€D€B€ŽD€D€B€˜D€B€”D€D€B€ B€•B€•B€•D€B€°D€�GARBAGE€D€B€eD€B€!D€B€™F€!D€Ã�DOCUMENTATION€,„Delete types as per *UBIN-ALIST*€@€ÅÿADDDDDDÄ@÷ED@ÅEA·@@ÅC÷B÷BECQôZBרC•CøYAE EbzEwD×FwC÷)8CGF÷DGwB÷!8BGG÷DFAÄGÉ8FAÄGÑ8 Ä!DFAÄGGöZDÅXE"DFÅFEEEöZE÷B•ßYC•×YEExE#DEEÔZEEÔÚEGÿ$DEEÅE%Ä€E&D'À@Åÿ…O€B€ÔË€ †€ÀF€ÀD€B€B€Ô€ÀF€‚À†€@À†€€€B€$ÀB€¥ÒB€}ÀB€§€D€D€B€†D€B€ˆD€B€ŽD€D€C€E€D€B€­B€€€G�AÄ›[ x@€K�ÁÄx€€E«Z�Á Äÿ…O€B€éË€F†€8ÀF€1ÀC‚FILESYSTEM-EXPUNGEÀ†€À†€@À†€„€B€ÑB€ì‘F€ ÀF€2ÀB€òÀF€3ÀB€ìÁF€eÀF€eÀF€eÀF€eÀF€e€B€ÍÒD€B€„B€4ÀÂFILESYSTEM-DIRECTORIESÒB€4ÀB€„ÀB€Òl‚~&;Expunging ~S~%€ÀB€OÒl‚;~D blocks saved~%€D€D€B€†D€B€‡B€eB€ŠB€çD€B€”D€B€•D€B€B€•D€B€ÒD€ÀTOTAL€B€•D€C€D€D€ÀAMOUNTD€B€ýB€þB€ÿD€B€B€òD€B€ÒB€€@8A·@EDÅBEt8DBEC÷D—@DCEDAÅE÷8EGF÷EDFÅ@FÅG÷EDGÅDEG3D÷E•îYD…O€7B€Ë€%G†€JÀF€6ÀB€$À†€À†€@À†€„€B€ÑB€ì‘F€ ÀF€3ÀB€ìÁF€2ÀB€òÀF€eÀF€eÀF€eÀF€eÀF€e€B€ÍÒD€B€4B€„ÀB€ÒD€B€B€$€ÀB€ÒB€4ÀB€„ÀB€§Àl�DIRECTORY€ÀB€}ÀB€QÀB€$ÀB€&ÀB€(ÀD€B€B€$F€ÀB€ŠÒD€B€B€$F€€D€†Àÿüÿ€D€D€B€†D€B€çD€B€jD€€F€F€D€B€”D€B€•B€•D€B€D€B€ÒD€B€îD€B€™F€F€ F€"D€B€ýB€ÿB€þD€B€ÒB€D€B€B€ò€@8A·@EDÅAEt8DAEC÷D@DCEDBÅDDDDDDD D\ÿÅ!€DE"ÄO€cB€$Ë€ †€ÀF€ÀD€B€B€$€ÀF€AÀ†€@À†€€€D€D€B€ŽD€D€B€–B€a€€…O€oB€GË€ †€ÀF€ÀD€B€B€$F€ÀF€AÀ†€@À†€€€B€Ò,�~&; ~S~%ÀB€2ÀB€}ÀB€QÀB€§ÀB€$€D€D€B€†D€B€ˆB€dD€B€©D€€B€îD€B€ŽD€D€B€–B€a€ED€Å€AD D D D D D Ä|ÀZöZ|šO€�B€JË€ †€ÀF€ ÀD€B€B€$F€ÀF€‚À†€@À†€€€ƒ‚DIRECTORY-NAME-DEPTHÒB€„€D€D€B€†D€B€ˆD€B€ŽD€D€C€P1D€C€P2B€a€@€ÁÄ@�ÁÄ ›O€“B€LË€†€ÀF€ ÀB€‰ÀF€AÀ†€@À†€€€B€ò€D€D€B€ŽD€D€B€–€€Et8…€Ø…€EÔšO€�B€‰Ë€!K†€BÀF€6ÀÃ�COPY-ALL-FILESÀ†€AÀ†€@À†€… €€ÀF€ ÀF€0ÀF€2ÀB€-ÀF€2ÀB€QÀF€2ÀB€QÀF€2ÀB€&ÀF€eÀF€eÀF€e€B€ÍÒD€p€B€ l�TRANSFORM€B€_B€}B€§B€$ÀC‚COMPUTE-ALL-FILES€ÒB€¯ÀB€_ÀB€}ÀB€§ÀB€$ÀB€Òl…~&Computing which files to copy from ~S~%€Àl‚~D files to copy~%ÀB€@’D€D€B€†D€B€‡B€ŠB€çD€B€ŽD€D€B€sD€B€”D€ B€•D€C�TRANSFORM€D€B€wD€B€yD€B€{D€B€}D€B€‚B€•D€B€‹D€ B€ýB€sB€þB€ÿB€¹D€B€wB€-D€B€yB€QD€B€{B€QD€B€}B€&€@8A·@EDÅ@€EDAEDBEDCEDDEDEÅF÷ED€ÅEDFEÔÚFEG÷8GGH÷HQHKHÏG•øY…O€ÉB€ Ë€ .†€8ÀF€%À‚COPY-TO-NEW-ROOTÀ†€‚À†€@À†€… ƒ€€À€ÀF€ ÀF€0ÀF€2À€ÀF€0ÀF€2ÀB€&ÀF€eÀF€eÀF€eÀF€e€B€ÍÒD€p€B€ ¬�FILTER-TYPESp€B€ l�STRIP-ROOTp€B€ l‚FILTER-DIRECTORIESB€$ÀB€ÒB€ ÒB€¯ÀD€B€B€Ì€ÀB€$€D€†Àÿÿÿ†Àÿþÿ†Àÿýÿ†Àÿûÿ€D€D€B€†D€B€çD€B€jD€€D€B€ŽD€D€B€sD€ƒ�TARGET-ROOT€D€B€”D€B€•D€ƒ�FILTER-TYPESD€C�STRIP-ROOTD€C‚FILTER-DIRECTORIESD€B€}D€B€€D€B€™F€D€ B€ýB€sB€ðB€þB€ÿB€ôD€B€ö€B€øD€B€}B€&€@8A·@EDÅ@�ÅE÷€€EDD\DDÅO€B€ÌË€2†€ ÀF€!ÀD€B€B€Ì€ÀF€AÀ†€@À†€€€B€¤ÒB€¥ÒB€§ÀÃ�SUBDIRECTORY-PÒB€„ÀB€2ÀB€4ÀB€5ÒB€:’D€D€B€†D€B€ˆD€B€©D€F€B€öD€€B€€D€F€B€øD€F€B€ôD€B€ŽD€D€B€­B€€D€AÄ|ÀÚ8… D€A Ä|ÀÚ8…€� D D|ÀZÿA Ä D À|ÀZÿA ÄÀ|ÀZ€Á ÄO€B€äË€ )†€ÀF€ÀB€ ÀF€‚À†€@À†€€€B€òÀB€¥’D€D€B€†D€B€‡D€B€ŽD€D€ƒ€DIR2D€ƒ€DIR1D€B€”D€D€C€L1D€C€L2D€B€l…RETURN T IF DIR2 IS A SUBDIRECTORY OF DIR1€�Et8…�؀؀�E€Å€�E€Ç€Ø…�E€EA÷@÷ 8@GAÇX…@•A•@÷Y…O€4B€ Ë€# =†€FÀF€0ÀB€±À†€AÀ†€@À†€… ƒ€€ÀF€ ÀF€0ÀF€2ÀB€-ÀF€2ÀB€QÀF€2ÀB€QÀF€2ÀB€&ÀF€eÀF€eÀF€eÀF€e€B€ÍÒD€B€¯B€_B€}B€§B€$ÀB€ÒD€B€B€±€ÀB€_ÀB€}ÀB€§ÀB€$ÀB€(ÀD€B€B€±F€ÀB€,ÀB€-’D€†Àÿÿÿ†Àÿúÿ€D€D€B€†D€B€çD€B€jD€€F€D€B€ŽD€D€B€sD€B€”D€B€•D€B€¹D€B€wD€B€yD€B€{D€B€}D€B€‚D€B€™F€F€D€B€ýB€sB€ÿB€¹D€B€wB€-D€B€yB€QD€B€{B€QD€B€}B€&€@8A·@EDÅD\€EDBEDCEDDEDEEDDDÅ €FÅO€gB€±Ë€†€ÀF€ÀD€B€B€±€ÀF€AÀ†€@À†€€€Ã‚COMPUTE-COPY-TRANSFORM’D€D€B€†D€B€dD€B€©D€€B€‚D€F€B€¹D€B€ŽD€D€B€­D€B€”D€D€ƒ€NEW€B€e€@|ÀZ€Ç@× x€E@E|Uz|ÀZöZ|šÿ…O€B€GË€  †€ÀF€ ÀD€B€B€±F€ÀF€AÀ†€@À†€€€B€Òl‚~&Descending ~S~%€€D€D€B€ŽD€D€B€ B€e€€ED€ÅO€ŒB€IË€ "†€ÀF€ÀB€oÀF€‚À†€@À†€€€B€¥Òl€MTÀ¬€MT:€ÀB€2ÀB€4€D€D€B€†D€B€ˆD€B€ŽD€D€B€eD€�PATHNAME€€X�…€E} 8€EÄX€EÄ8„�� D D€Å€��ÅO€œB€oË€ †€ÀF€ÀB€@ÀF€ÃÀ†€@À†€€€B€7ÒB€8ÒB€Òì‚~&Already exists: ~S~%À‚COPY-ONE-FILE-1€’D€D€B€ŽD€D€Ã�INPUT-PATHNAMED€‚OUTPUT-PATHNAME€D€ÀPLIST€€�Å�Å8€E D�Å €€E�E‚ÅO€­B€@1€D€B€¾Cƒ*COPY-ONE-FILE-PROPERTIES*D€B€:D€p€B€ ì€AUTHORp€B€ ì�CREATION-DATE€l‰Properties to carry over to the new file via a :CHANGE-PROPERTIES message€Ë€%fñ†€JÀF€‹ÀB€£ÀF€ÃÀ†€@À†€€�€ƒ€TIMEÑB€®ÑÃ�*ERROR-OUTPUT*‘B€ÒB€EÀF€ÀB€GÒB€PÀp€B€ ì€INPUT€Àp€B€ l�CHARACTERSÀp€B€ l�BYTE-SIZE€Àp€B€ ì€ERROR€ÀÇ€xÀB€[Òp€B€ ì€REPORTÀB€Òìƒ~&~A (~\scientific\seconds)~%€Àp€B€ ,�TRUENAMEÀF€êÀB€RÀpÀB€,�SETPROP€Òp€B€ l‚CHANGE-PROPERTIES€Àl„ ==> ~A (~\scientific\seconds)~%€Àp€B€ l‚READ-INPUT-BUFFER€À¬‡ copy: ~\scientific\seconds, ~\scientific\bytes per second~%Àp€B€ l�STRING-OUTÀp€B€ ¬‚ADVANCE-INPUT-BUFFERÀB€]À¬„ output-close: ~\scientific\seconds€À¬„ input-close: ~\scientific\seconds.€€D€D€B€†D€ B€eC�LEXPR-SENDB€çB€‡ƒ€SETFB€ŠB€ˆB€fƒ€LOCFB€`B€aD€B€ŽD€D€B€¤D€B€¦D€B€¨D€B€”D€B€•D€B€’D€�INSTREAMB€•D€B€’D€C�OUTSTREAM€D€C�COPY-PLISTD€C�NOT-VALUE€B€•D€B€­D€ÀVALUE€D€ÀBUFFERD€ÀOFFSETD€ÀLIMIT€D€ÀBYTES€€ BV DA÷}|/E @€E DDD‚·DÐZD‚·DÐZDÅ@×B÷| BD˜[ÍZ’öBÅ8BDÄŽEDBAÄÄ Bö DD÷ê||/E @�E DDD‚·DÐZD‚·DÐÚC×E÷E|UzG÷DH÷8HGI÷‚·IEGEzJ×GuXF·IEJÅH•ñYF8EDEFEÉÚ| BD˜[ÍZ’öEDEAÄÄ Bö|N÷MwLwKwBE|þÄM÷L÷K÷X| BD˜[ÍZ’öEDDNE¢8|Dÿ“ÿÅ NEMELSÿ3N÷EDKELEMÅB Ä× BÖDwÿÅC8CÅXC!DDÅ­| BD˜[ÍZ’öE"DÄ BÖAwÿÅ@8@ÅX@!DAÅ­| BD˜[ÍZ’ö€E#DÄO€ÿB€£Ë€H†€$ÀF€-ÀC‚16B-FILE-TO-ASCII€ÀF€‚À†€@À†€€€B€EÀF€PÀB€GÒB€ÃÀB€ÅÀF€EÀB€PÀB€RÀƒ‚16B-STREAM-TO-ASCII€ÒB€[ÒB€]€D€D€B€†D€B€ˆB€`B€aD€B€ŽD€D€C�INPUT-FILED€ƒ�OUTPUT-FILE€D€B€”D€B€•D€B€’D€ÀINPUT€B€•D€B€’D€ÀOUTPUT€DA÷P||/E@€E DE D:Å@×B÷DD÷E||/E@�E D ÄC×E÷DEþZBEEÅDwÿÅC8CÅXCDDÅ­[Awÿ…@8@ÅX@DAÅ­›O€B€Ë€H†€$ÀF€-ÀC‚ASCII-FILE-TO-16B€ÀF€‚À†€@À†€€€B€EÀF€PÀB€GÒF€EÀB€PÀB€RÀB€ÃÀB€ÅÀƒ‚ASCII-STREAM-TO-16B€ÒB€[ÒB€]€D€D€B€†D€B€ˆB€`B€aD€B€ŽD€D€B€ D€B€ D€B€”D€B€•D€B€’D€B€B€•D€B€’D€B€€DA÷P||/E@€Å@×B÷DD÷E||/E@�E D D DE D:ÅC×E÷DEþZBEEÅDwÿÅC8CÅXCDDÅ­[Awÿ…@8@ÅX@DAÅ­›O€1B€1€D€B€¾ƒ*OUTPUT-CHARACTER-TABLE*D€C�MAKE-ARRAYF€@1€D€B€¾ƒ*INPUT-CHARACTER-TABLE*€D€B€3F€1€D€C€DOD€D€B€E€D€C€1+B€ED€B€°D€B€:D€@F€0F€1F€2F€3F€4F€5F€6F€7F€8F€9F€AF€BF€CF€DF€EF€FF€GF€HF€IF€JF€KF€LF€MF€NF€OF€PF€QF€RF€SF€TF€UF€VF€WF€XF€YF€ZF€aF€bF€cF€dF€eF€fF€gF€hF€iF€jF€kF€lF€mF€nF€oF€pF€qF€rF€sF€tF€uF€vF€wF€xF€yF€zF€*F€-D€ƒ€CDR€B€°D€D€C€=€B€EF€@D€ƒ€ASETD€ƒ€CAR€B€°B€2B€ED€B€ŒB€EB€8D€B€�B€°Ë€ 6†€ÀF€!ÀB€ÀF€‚À†€@À†€€ƒ€B€2‘p€B€ ¬€TYO€ÀF€ÀÀTERPRIÒp€B€ ¬€TYI€€D€D€B€†D€B€‡B€ˆD€B€ŽD€D€B€D€B€D€B€”D€D€B€ED€ƒ€WORDD€ÀTABLE€€|DB÷@÷�DBEDAEÍZJÛ�DBE†}AEÍZJÛ�DBE|AEÍZJÛ|@E|îZÿ8 �Å@Õ€A ÄA÷ÞY €�ÅO€­B€Ë€ /†€ÀF€ÀB€#ÀF€‚À†€@À†€€€ƒ€CHARÑB€8‘B€žÀB€š€D€D€B€†D€B€ˆB€çD€B€ŽD€D€B€D€B€D€B€”D€D€B€¨D€B€¦€D@÷6@EDJ[A÷8@E€AÄJ[AE|èZÿ3A÷@E€AÄJ[AE|èZÿ3A÷� DAÅ€AÄöâY…O€¿B€#Ë€P†€8ÀF€6Àƒ�SXHASH-FILE€À†€AÀ†€@À†€…‰€C�ART-STRING‘€ÀF€ ÀF€2ÀF€ÀF€eÀF€eÀF€eÀF€eÀF€eÀF€eÀF€e€B€ÍÒD€p€B€ l�CHUNK-SIZEÀpÀB€l‚SIMPLE-MAKE-ARRAY€ÒB€EÀF€bÀB€GÒp€B€ l�STRING-IN€ÀB€[ÒB€]€D€D€B€†D€B€ˆB€‡B€`B€aB€çD€B€ŽD€D€�FILENAMED€B€”D€ B€•D€C�CHUNK-SIZED€B€ôB€•D€B€’D€B€D€ƒ€END€D€ƒ€EOFPD€�HASHSUM€D€B€ýB€ÜB€þB€ÿD€B€àF€€@8A·@EDÅ@AEÄB÷DD÷b||/E@€ÅC×E÷| EE|þDEBÅG÷F÷BEÿ||FE`zH÷Gð9HEDwÿ…C8CÅXCDDÅ­›O€ñB€Â1€D€pÀB€,„FASL-RECORD-FILE-MACROS-EXPANDEDD€B€:D€D€B€ß†€xBD€B€Þ†€FÎD€B€Ý†€<—bD€B€ü†€[$4D€B€W†€OäÃD€B€V†€?JOD€B€U†€lòºD€B€S†€u<�D€B€Ñ†€U˜®D€B€Ø†€Nî±D€B€f†€p¦D€B€e†€9QD€B€d†€½9D€B€c†€D€B€a†€Y7ÎD€B€`†€ýœD€B€ç†€·9D€B€Š†€5êÒD€B€‰†€_“ÀD€B€ˆ†€X¡D€B€‡†€C™ÉD€ƒ€CASE†€~fD€pÀB€¬„COMPILE-TIME-REMEMBER-MAPPING-TABLE€†€ÁD€pÀB€¬‚METHOD-MAPPING-TABLE†€`€€