(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "13-Dec-2020 16:27:00" ("compiled on " {DSK}arunwelch>Documents>unix>lisp>lde>docs>sybalsky>IMTRAN.;1) " 9-Apr-2000 18:01:32" tcompl'd in "Medley 3.5 Full Sysout 11-Dec-2020 ..." dated "11-Dec-2020 18:51:10") (FILECREATED " 8-Dec-91 15:16:14" {DSK}sybalsky>PUBS>IMTRAN.;2 61628 changes to%: (FNS PARTITION.LIST) (VARS IMTRANCOMS) previous date%: "11-Jul-86 12:39:31" {DSK}sybalsky>PUBS>IMTRAN.;1) ADD.ANY.PARENT.PROP.IF :D8 (I 1 VAL I 0 PROPNAME) "gg@hgAhh (31 ANY.PARENT.EVAL) (18 QUOTE 9 QUOTE 4 ADD.MY.PROP.IF) () ADD.MY.PROP.IF :D8 (I 1 VAL I 0 PROPNAME) @ @A@  i(22 PUT.MY.PROP 15 GET.MY.PROP 5 GET.MY.PROP) NIL () ANC.INDENT :D8 NIL g (9 GET.ANY.PARENT.PROP) (4 INDENT) () ANC.WIDTH :D8 NIL g (9 GET.ANY.PARENT.PROP) (4 WIDTH) () ANY.PARENT.CORRECT.ARG :D8 (I 0 NAME) gg@hh (21 ANY.PARENT.EVAL) (9 QUOTE 4 CORRECT.ARG) () ANY.PARENT.EVAL :D8 (P 1 VAL P 0 S I 0 FORM) 1g kHd gHd Xd@ YI(42 STKEVAL 33 STKSCAN 20 STKNTH 9 STKSCAN) (26 TO.NAME 4 TO.NAME) () ANY.PARENT.TO.MATCH :D8 (I 2 TAGLIST I 1 BEGINFLG I 0 NAME) ,gg@hgAhgBhh (41 ANY.PARENT.EVAL) (27 QUOTE 18 QUOTE 9 QUOTE 4 TO.MATCH) () ARGS.REMAINING :D8 (L (1 ARGS 0 NAME)) AA@@AAbNIL NIL () ARGS.REMAINING.AFTER :D8 (L (1 ARGS 0 NAME)) Ah@AAAd@AAAbNIL NIL () CHANGE.INDENT :D8 (I 0 X F 0 IM.OUTFILE F 1 INITIAL.WIDTH) \@goP oP o@P oP oQ@P oP oP (89 PRIN1 78 PRIN1 67 PRINTNUM 53 PRIN1 42 PRINTNUM 30 PRIN1 18 PRIN3) (5 NONE) ( 83 "{}" 72 "pt " 58 (FIX 4 10) 47 "pt " 35 (FIX 4 10) 24 "\parshape 1 " 12 "\parshape 0 {}") CONCCONC :D8 (I 1 Y I 0 X) !@AA@@dA A@dA(19 RPLNODE2) NIL () CORRECT.ARG :D8 (I 0 NAME F 0 TO.ARGS.REMAINING) @P (6 ARGS.REMAINING) NIL () CORRECT.TO :D8 (I 0 NAME F 0 TO.NAME) PigPdg dg@ hgio@dgi^g/@g&@g@g@g@dgPohgwPgo ah(160 ANY.PARENT.EVAL 42 GET.TO.TYPE 27 GET.ARG.TYPE) (148 FOOT 137 FOOT 118 COMDEF 109 MACDEF 100 PROPDEF 91 VARDEF 82 FNDEF 73 SUBSEC 62 CHAPTER 50 CHARS 33 SIMPLE 19 NOTE 9 COMMENT) ( 155 (EQ TO.NAME (QUOTE FOOT)) 127 (CHAPTER SUBSEC)) DECODE.TO.ARG.NAME.SYNONYM :D8 (I 0 NAME F 0 TO.NAME) Pg @'@(10 GETPROP) (5 TO.ARG.SYNONYMS) () DECODE.TO.NAME.SYNONYM :D8 (I 0 NAME F 0 TO.SYNONYM.LIST) @P@NIL NIL () DEFINED.TO :D8 (I 0 NAME) @g (10 GETPROP) (5 TO.PROG) () DESCRIBE.CURRENT.TO :D8 (F 0 TO.BEGIN.FLG F 1 TO.ORIG.NAME F 2 TO.TAG.LIST F 3 TO.ORIG.ARG.NAME) PgQRS (15 DESCRIBE.TO) (7 BEGIN) () DESCRIBE.TO :D8 (I 3 ORIG.ARG.NAME I 2 TAG.LIST I 1 ORIG.NAME I 0 BEGIN.END) Ho@AC2oCo %oAoB o o (69 CONCAT 57 CONCAT 46 LIST.TO.STRING 27 CONCAT) NIL ( 64 "" 51 "}" 40 " " 34 " " 22 ")" 16 " (arg " 4 "{") DUMP.ARG :D8 (I 0 NO.SKIP.FLG F 0 TO.ARG.NAME F 1 TO.DONE.FLG F 2 TO.NAME) <Rg P@ hco Q@ ico (57 ERROR 43 GOBBLE.DUMP 34 ERROR 20 GOBBLE.DUMP 10 GETPROP) (5 TO.ARGS) ( 52 "TO PROG BUG: attempting to process unlabeled arg twice" 29 "TO PROG BUG: attempting to dump arg not yet gotten") DUMP.FORMAT :D8 (I 1 FORMAT I 0 FORMAT.TYPE F 0 GOBBLE.SAVE.CONC) g P@A @A (28 DUMP 19 TCONC 9 BOUNDP) (4 GOBBLE.SAVE.CONC) () FLUSH.ARG :D8 (F 0 TO.ARG.NAME F 1 TO.DONE.FLG F 2 TO.NAME) :Rg Phco Qico (55 ERROR 41 GOBBLE.FLUSH 33 ERROR 19 GOBBLE.FLUSH 10 GETPROP) (5 TO.ARGS) ( 50 "TO PROG BUG: attempting to process unlabeled arg twice" 28 "TO PROG BUG: attempting to dump arg not yet gotten") GET.ANY.PARENT.PROP :D8 (I 0 PROPNAME) gg@hh (21 ANY.PARENT.EVAL) (9 QUOTE 4 GET.MY.PROP) () GET.ARG :D8 (P 5 NAME P 4 TAG.LIST P 3 BEGIN.END P 2 ORIG.NAME P 1 SAVE.FILE.PTR P 0 C F 6 TO.DONE.FLG F 7 IM.INFILE F 8 TO.ARG.NAME F 9 TO.NAME F 10 TO.ARGS.REMAINING F 11 TO.BEGIN.FLG F 12 TO.ORIG.ARG.NAME) `WVWg o W W Xddl}%Woioh ic hg$Woioh ic hHl{.oiooh W ic hW kYZdh[\JJKg8oiKJL ooh WI ic hKdgJ ]iL ic hMiL " 175 "CONTEXT:") IMTRAN :D8 (P 18 TO.DONE.FLG P 17 TO.ARGS.REMAINING P 16 TO.ORIG.ARG.NAME P 15 TO.ARG.NAME P 14 TO.TAG.LIST P 13 TO.BEGIN.FLG P 12 TO.ORIG.NAME P 11 TO.NAME P 10 TO.PROP.LIST P 9 IM.INFILE.FILENAME P 8 INFILE.STACK P 7 IM.INFILE P 6 INITIAL.INDENT P 5 INITIAL.WIDTH P 4 FIGURE.NUM P 3 FOOTNOTE.NUM P 2 SUBSEC.LAST.SUB P 1 SUBSEC.COUNT.LIST P 0 WARNING.COUNT.DOWN I 0 INFILE.NAME F 19 IM.NOTE.FLG) umojddnj7 @ W&ohoh hhgM gN i O OoioO h(113 CLOSEF 89 EOFP 81 DUMP.ARG 74 PUT.MY.PROP 62 PUT.MY.PROP 44 IM.PRINT.MESSAGE 22 OPEN.IM.FILE) (68 INDENT 56 WIDTH) ( 104 "unmatched right bracket at top level -- ignored" 98 "ERROR: " 37 "% WARNING: --- Note facility enabled --- Notes will be printed ---% " 31 " Warning: " 6 (0)) INCLUDE.FILE :D8 (I 0 FILENAME) ohd ohd @ (29 OPEN.IM.FILE 23 IM.PRINT.MESSAGE 11 IM.PRINT.MESSAGE) NIL ( 16 " Warning: " 4 " Warning: ") LIST.ORDER :D8 (I 1 B I 0 A) -@"A@A@Abb@Abb@A (42 ALPHORDER) NIL () LIST.TO.STRING :D8 (P 1 X P 0 STR I 0 LST) *o@YHIIoo H(33 CONCAT) NIL ( 28 "" 22 " " 4 "") MAKE.SAVE :D8 (P 0 S I 0 X) 8@d4d @  @h@ Hd (52 LAST 42 CHCON 31 IMAGEOBJP 25 CONCCONC 20 MAKE.SAVE 13 MAKE.SAVE) NIL () OPEN.IM.FILEA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 NEW.FILENAME F 3 NEW.FILE F 4 SI::NLSETQ-VALUE) i@R chcg(10 OPENTEXTSTREAM) (21 :NORMAL) () OPEN.IM.FILE :D8 (P 10 X P 9 *CONDITION-HANDLER-BINDINGS* P 8 SI::*NLSETQFLAG* P 7 *PROCEED-CASES* P 6 SI::NLSETQ-VALUE P 5 W P 3 NEW.FILE P 2 NEW.FILENAME P 1 OPEN.FILE.RESULT P 0 DIR.LIST I 0 FILENAME F 11 IM.INFILE.FILENAME F 12 DIRECTORIES F 13 IM.INFILE F 14 INFILE.STACK F 15 *CONDITION-HANDLER-BINDINGS* F 16 IM.INFILE.NOTE.TAGS F 17 *PROCEED-CASES*) o W-gWg gWg WW1@ 7@g g@gg iH h @iH Zdoho@o#oLLI.oho@oh gZg W JcKcW WWcohoJh `W"ioW O gNYtohoJoMoh M IEL\