hưs2D p,COMPILE-DATADAMS,Lisp Machine OneFdFDp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITEpB MITpB QFASL-SOURCE-FILE-UNIQUE-ID1DplFSMAKE-FASLOAD-PATHNAMEDpB+QUOTElOZDB:pB lUNSPECIFICDB:DhomeamsllsyspatchDB:system-100-5DB:lispDB:B>pB lPATCH-FILEpB lTpB BASEFpB ,PACKAGEpB USERpB lREADTABLEpB lZLOZ: /tree/sys/qcfileN^plSIPATCH-SOURCE-FILE-NAMESTRINGCOMPILE-FILEˀ &$FBb@FF F0F2B-F0F0pSYSTEM,STORE-KEYWORD-ARG-VALUESDpB OUTPUT-FILEpB SET-DEFAULT-PATHNAMEBVpB LOADQC-FILE,DDpB ,MACROS-EXPANDEDDWHENDpB(,ARG-MAPDDpB(lINPUT-FILEDpB(lLOCAL-MAPDNILDpB(OUTPUT-FILEDpB(SET-DEFAULT-PATHNAMEDpB(PACKAGE-SPECDLOADDÁDOCUMENTATIONlCompile file INPUT-FILE to a QFASL file named OUTPUT-FILE.OUTPUT-FILE defaults based on INPUT-FILE, which defaults using the standard defaults.SET-DEFAULT-PATHNAME if NIL means do not set the defaults.PACKAGE if non-NIL is the package to compile in.LOAD means to load the compiled file.DpB(,COMPILER-ARGLISTC&OPTIONALB&KEYBDBB-BVB@8 [@EDEAEDAEDEECEEBEOBbBNBaOZ: /tree/io/dleditNBapB_,EDIT-DISK-LABELˀ:7 tFqBnpB_,LE-UNITpB_LE-RQBpB_LE-STRUCTUREpB_LE-ITEM-NUMBERINHIBIT-SCHEDULING-FLAGplEHlCONDITION-RESUME-HANDLERSpB_,NOCATCHÁ*TERMINAL-IO*pB_lPACK-TYPESpB_LE-SOMETHING-CHANGEDF@FF1@F1@F2@F0F0F0Fe@FeFeFe@pB_DECODE-UNIT-ARGUMENTediting labelFpB_lGET-DISK-LABEL-RQBpB_LE-INITIALIZE-LABELpB_,READ-DISK-LABELpB_,LE-DISPLAY-LABELÀFORMATUse Control-R to read and edit existing label; hit HELP for help.~%ÀPRINCLabel Edit Command: FpB_,LE-EXITpB TYIINTERN-SOFTÁSTRING-UPCASElLE-COM-~:ClSIBEEPl~%~:C is not a known edit-disk-label command. Type ~:C for help, or ~:C to exit.FlReturn to EDIT-DISK-LABEL.FDÀERRORpBoABORTpB_lCATCH-ERROR-RESTART-THROWpBo,RETURN-DISK-RQBpB_,DISPOSE-OF-UNITDDB|DÂCATCH-CONTINUATION-IFCATCH-ERROR-RESTARTSENDCDO-FOREVERCWITHOUT-INTERRUPTSDBDDBDpB_INIT-PDBDDBDBDBDpB_lCHDpB_COMDBBBDB,Edit the label of a disk pack.LE-UNIT is the disk drive number, or a name of a machine (the chaosnet is used),or "CC" which refers to the machine being debugged by this one.DBBDBBv@DD DE/EE V!B"DƁX#D$DD%E&'()D.*D @+C,@-@%E.DC/D8DE|X0%E1DCE|23DE[F4D.FE5DFEEFE6DFEE[G DE[ VDEEEEEE EEEEEEEE9$Dĺ78ĭOBBNBa,OZ: /tree/io/file/pathnmNBa1DpB_lDEFCONST-1pB6,*MERGE-PATHNAME-ALLOW-UNSPECIFIED-TYPE*BThis is mainly for DEFSYSTEM to allow modules with distinctsourceobject components to not have object components include theLISP type in their pathnames.BNBa,OZ: /tree/io/file/pathnmNBapB6,MERGE-PATHNAME-DEFAULTSˀ1n bFBE@ BpB6,*ALWAYS-MERGE-TYPE-AND-VERSION**DEFAULT-PATHNAME-DEFAULTS*pB6*NAME-SPECIFIED-DEFAULT-TYPE*FFB)FpB NEWESTFF0F0F0F0F0F0F0F0F0FeFeFepB6PARSE-PATHNAMEPATHNAMEÁPATHNAME-HOSTpB6,DEFAULT-PATHNAMEpB DEVICEDSKpB6lWORKING-DIRECTORYpB6USER-HOMEDIRpB PRIMARY-DEVICEpB lDIRECTORYpB ,RELATIVEpB6,MERGE-RELATIVE-DIRECTORYpB NAMEFOOpB TYPEpB CANONICAL-TYPEpB ,VERSIONpB NEW-PATHNAMEpB ORIGINAL-TYPEDDB|DPATHNAME-VERSIONSETFÁPATHNAME-TYPEÁPATHNAME-NAMEÀUNLESSCPATHNAME-DIRECTORYBPATHNAME-DEVICEDBDDB?DpB6,DEFAULTSDpB6DEFAULT-TYPEDpB6,DEFAULT-VERSIONDpB6lALWAYS-MERGE-TYPEDBD DpB6HOSTDpB6,DEFAULTDpB6lSECONDARY-DEFAULTDpB6lNEW-DEVICEDpB6NEW-DIRECTORYDpB6,NEW-NAMEDpB6,NEW-TYPEDpB6NEW-VERSIONDpB6lNEW-OTYPEDpB6WDIRDpB6PDIRDpB6DDIRDBDefault components that are NIL in PATHNAME, and return the defaulted pathname.DEFAULTS is a pathname or a defaults-list to get defaults from.DEFAULT-TYPE and DEFAULT-VERSION are used as the defaults forthe type and version components, iff a name was specifiedand FS:*ALWAYS-MERGE-TYPE-AND-VERSION* is NIL.Otherwise, the type and version are obtained from DEFAULTS,and DEFAULT-TYPE and DEFAULT-VERSION are not used.If ALWAYS-MERGE-TYPE is non-NIL, that forces the type componentto be merged like the name, directory, etc. but has no effect on the version.@EEŀXDEDX@@ @EEAD @E@B @E@ABwA!"D8@E#DZ$@@IIA!@A%C& XA&XB8B&XIA&D! XAA!BEZZxBA!CDXA&AA&BEZZxBA&KJXKEJEz't8(@JEKD) XAA)BEZZxBA)*DE+"X)8X8AEE,HF8 8FX88BEZZxBA+EEF-X)8 8AA- BEZZxBA-EEG.DC8!DECED8&DEDEE8)DEEEF8+DEFEH8/DEHEG8-DEGOBBNBaOZ: /tree/sys2/maksysNBapB_CANONICALIZE-PATHNAMEˀ FBB@B&BpB_l*SYSTEM-PATHNAME-DEFAULT*FBFe@Fe@BDDBDDB?DpB_,DEFAULTEV6EEOBBNBa1DpB_,FASL-RECORD-FILE-MACROS-EXPANDEDDB:D DBe5ZDBdDBclDBb5vDBa-LDB`gDB_UDBXDBPDBX(DB.[@DB?ɰDB}h