(DEFINE-FILE-INFO PACKAGE "XCL-USER" READTABLE "XCL") (IL:FILECREATED "14-Sep-94 18:46:34" ("compiled on " IL:|{DSK}lispusers>TRANSOR-LOADTRAN.;1| ) "28-Jul-94 17:28:46" IL:|bcompl'd| IL:|in| "Medley 25-Aug-94 ..." IL:|dated| "25-Aug-94 10:02:49") (IL:FILECREATED "13-Apr-87 17:38:17" IL:{DSK}LOADTRAN.\;9 2045 IL:|changes| IL:|to:| (IL:VARS IL:LOADTRANCOMS STOP) (IL:FUNCTIONS MYLOAD I.S.OPR PRETTYCOMPRINT SETTEMPLATE DEFINE-FILE-INFO) (IL:FNS PRETTYCOMPRINT SETTEMPLATE) IL:|previous| IL:|date:| " 6-Apr-87 16:57:48" IL:{DSK}LOADTRAN.\;1 ) PRETTYCOMPRINT :D8 (IL:L (0 X)) jNIL NIL () SETTEMPLATE :D8 (IL:L (1 Y 0 X)) (4 NILL) NIL () (IL:PRETTYCOMPRINT IL:LOADTRANCOMS) (IL:RPAQQ IL:LOADTRANCOMS ((IL:VARS STOP) (IL:FNS PRETTYCOMPRINT SETTEMPLATE) (IL:FUNCTIONS DEFINE-FILE-INFO I.S.OPR MYLOAD) (IL:DECLARE\: IL:DONTEVAL@LOAD IL:DOEVAL@COMPILE IL:DONTCOPY IL:COMPILERVARS (IL:ADDVARS (IL:NLAMA PRETTYCOMPRINT) (IL:NLAML) (IL:LAMA SETTEMPLATE))))) (IL:RPAQQ STOP STOP) (DEFUN DEFINE-FILE-INFO (&REST ARGS) (NILL)) (DEFUN I.S.OPR (X) (NILL)) (DEFUN MYLOAD (FILE) (LET ((FILE (OPEN FILE :DIRECTION :INPUT))) (UNWIND-PROTECT (IL:\\CML-LOAD FILE T *TERMINAL-IO* (FIND-PACKAGE "XCL-USER")) (CLOSE FILE)))) (IL:PUTPROPS IL:LOADTRAN IL:COPYRIGHT ("System Development Corp." 1987)) NIL