(DEFINE-FILE-INFO §PACKAGE "XCL-USER" §READTABLE "XCL")

(IL:FILECREATED "13-Apr-87 17:38:17" IL:{DSK}<XAVIER>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}<XAVIER>LOADTRAN.\;1)


; Copyright (c) 1987 by System Development Corp..  All rights reserved.

(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)
(IL:DEFINEQ

(PRETTYCOMPRINT

  (IL:NLAMBDA X
                                        (IL:* IL:\; "Edited  6-Apr-87 15:47 by DJVB")

    0))

(SETTEMPLATE

  (LAMBDA (X Y)
         (BLOCK SETTEMPLATE (NILL))))
)

(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:DECLARE\: IL:DONTEVAL@LOAD IL:DOEVAL@COMPILE IL:DONTCOPY IL:COMPILERVARS 

(IL:ADDTOVAR IL:NLAMA
 PRETTYCOMPRINT)

(IL:ADDTOVAR IL:NLAML
 )

(IL:ADDTOVAR IL:LAMA
 SETTEMPLATE)
)
(IL:PUTPROPS IL:LOADTRAN IL:COPYRIGHT ("System Development Corp." 1987))
(IL:DECLARE\: IL:DONTCOPY
  (IL:FILEMAP (NIL (1134 1357 (PRETTYCOMPRINT 1147 . 1283) (SETTEMPLATE 1285 . 1355)))))
IL:STOP