(DEFINE-FILE-INFO PACKAGE "XCL-USER" READTABLE "XCL" BASE 10)


(IL:FILECREATED "18-Feb-2026 22:58:35" IL:|{WMEDLEY}<lispusers>TRANSOR-LOADTRAN.;2|
 1561   

      :EDIT-BY IL:|rmk|)


(IL:PRETTYCOMPRINT IL:TRANSOR-LOADTRANCOMS)

(IL:RPAQQ IL:TRANSOR-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:DECLARE\: IL:DONTCOPY
  (IL:FILEMAP (NIL (830 1053 (PRETTYCOMPRINT 843 . 979) (SETTEMPLATE 981 . 1051)) (1055 1106 (
DEFINE-FILE-INFO 1055 . 1106)) (1108 1141 (I.S.OPR 1108 . 1141)) (1143 1341 (MYLOAD 1143 . 1341)))))
IL:STOP