(FILECREATED "14-Sep-94 18:46:48" ("compiled on " {DSK}lispusers>TSET.;1) "28-Jul-94 17:28:46" bcompl'd in "Medley 25-Aug-94 ..." dated "25-Aug-94 10:02:49") (FILECREATED " 3-JUN-79 09:49:57" TSET.;2 18693 changes to: TRANSORSET LISPXUSERFN TSETCOMS TSETFNS TRANSORSETUSERFN previous date: " 8-Jul-76 23:22:21" TSET.;6) TRANSORSET D8 (P 0 CURRENTFN) Lg %gh gh g ghg i (72 CLEARBUF 65 USEREXEC 48 RPAQ 37 RPAQ 25 RPAQ 12 BOUNDP) (60 TRANSORSETUSERFN 54 + 43 UDRS 31 USERNOTES 19 TRANSFORMATIONS 7 TRANSFORMATIONS) () TRANSORINPUTP D8 (I 1 B I 0 A F 0 EDITCOMSL F 1 EDITCOMSA) ?@Ah@g@d)d3@@QA@P@@@d3@@PNIL (12 PP) () TRANSORSETUSERFN D8 (P 0 INLINE I 1 B I 0 A F 1 CURRENTFN F 2 EDITCOMSA F 3 EDITCOMSL F 4 LISPXHIST) w@A k@ A X@d3@@R@SHhQooi HQ QgQg H TQ g h(115 RETFROM 105 LISPXSTOREVALUE 98 /PUT 93 /NCONC 87 GETP 70 RUMARK 62 ERROR 23 COPY 17 COPY 9 TRANSORINPUTP) (110 LISPX 82 XFORM 76 XFORM) ( 56 "before transformations can be stored" 51 "You must specify a function with the 'fn' command") RUMARK D8 (I 1 FN I 0 XFORM) !@@oi @ho (30 EDITE 15 EDITFINDP) NIL ( 25 ((LPQ F (REMARK --) (E (RUMARK1) T))) 9 (REMARK --)) RUMARK1 D8 (P 2 TEXT P 1 RNAME P 0 CALL F 3 L F 4 FN F 5 USERNOTES) qS!Hdoi Hid NdYd3@AHZHZ5HT Yh J``JgIJhU h(109 /SETATOMVAL 74 /RPLACD 66 GENREMNAM 31 PRINT 22 PRIN1) (97 USERNOTES 89 COMMENTFLG 82 COMMENTFLG) ( 16 " Warning - badly formed remark: ") TRANSUNDER D8 (P 0 X I 1 FLG I 0 TSETFN F 1 LISPXLINE) Kg go A"QdHd3@oHi Qk@(61 ERROR 31 TRANSORSET 26 LISPXUNREAD 9 \EVALV1) (14 + 4 LISPXID) ( 54 "Arg not litatom:" 21 (REDO -1)) TXFN D8 (P 0 X I 0 LIN F 1 CURRENTFN) @QdHi @ (27 LAST 16 TXFN1) NIL () TXFN1 D8 (I 1 OLDMESS I 0 FN F 0 CURRENTFN F 1 TRANSFORMATIONS) dP!Pg gPQ A@1@dg oi @@Qg@Q o h(96 SAVESETQ 85 /SETATOMVAL 64 PRIN1 51 GETP 32 /SETATOMVAL 27 /DREMOVE 13 GETP) (77 TRANSFORMATIONS 46 XFORM 20 TRANSFORMATIONS 8 XFORM) ( 91 (CURRENTFN FN) 58 "You're adding to old xforms.") TXDUMP D8 (P 1 F P 0 FILE I 0 LIN F 2 XFORMSVARS F 3 XFORMSFNS F 4 DUMPFILE F 5 TRANSFORMATIONS F 6 USERNOTES) @U Vi H TgToi id Y XoIi gI I YgRgghR Sdggh S!gR ggR SHg H(192 PRETTYDEF 179 /SETATOMVAL 160 MEMB 145 /SETATOMVAL 123 /SETATOMVAL 93 NAMEFIELD 87 /SETATOMVAL 75 ERROR 61 OUTFILEP 55 RATOM 47 PRIN1 22 SORT 15 SORT 9 TXFN1) (187 XFORMSVARS 172 XFORMSFNS 167 XFORMSVARS 154 XFORMSFNS 139 XFORMSFNS 131 NOBIND 113 TRANSAVE 108 XFORMSVARS 99 TRANSAVE 81 DUMPFILE 31 NOBIND) ( 68 "Cannot open file:" 41 " File to dump on: ") TXERASE D8 (I 0 LIN F 3 CURRENTFN) 6@ S   0@d IHhZH&J(34 TXERASE1 21 TXFN1 15 LAST 9 TXERASE1) NIL () TXERASE1 D8 (I 0 FN F 0 TRANSFORMATIONS) :@dPg@P @dg g @o(47 /REMPROP 36 GETP 23 /SETATOMVAL 18 /DREMOVE) (42 XFORM 31 XFORM 11 TRANSFORMATIONS) ( 54 (-- NOTHING FOUND.)) TXTEST D8 (P 1 OLDO P 0 TESTRAN I 0 LIN F 2 TESTFORM) aid @g@ Rooi g ooi R I (93 OUTPUT 87 TRANSORFORM 82 COPY 75 ERROR 57 \DEFINEDP 46 ERROR 25 /SETATOMVAL 6 OUTPUT) (52 TRANSORFORM 18 TESTFORM) ( 69 "" 64 "You must load TRANSOR.COM before using the TEST command." 40 "+TEST (SAMPLE S-EXPRESSION TO BE TRANSOR'ED)" 35 "Correct format is:") TXSHOW D8 (P 2 FN P 1 FLG P 0 OLDO I 0 LIN F 3 CURRENTFN) bi @h@@?Shb8dJ IJhi Jg o H @ (94 LAST 88 OUTPUT 77 TERPRI 71 PRINTDEF 59 GETP 47 PRINT 36 TXFN1 5 OUTPUT) (54 XFORM) ( 66 (No transformations)) TXEDIT D8 (P 0 FN I 0 LIN F 1 CURRENTFN) U@HQhbAdH HgHg Hoi hH H @ (81 LAST 70 RUMARK 64 PUT 59 EDITE 52 ERROR 38 GETP 20 TXFN1) (33 XFORM 27 XFORM) ( 46 "not editable.") TXEXIT D8 NIL gh g (20 RETFROM 10 SETTOPVAL) (15 TRANSORSET 4 USERINPUTP) () TXNOTE D8 (P 1 TEXT P 0 NAME I 0 LIN F 2 USERNOTES) @HHd3@oHi !HRY<@Y)oi id Yd.Y% IdYdgI HI``IgHIhR H(147 /SETATOMVAL 111 EDITE 75 READLINE 65 READ 57 PRIN1 45 LISPXREADP 24 ERROR) (135 USERNOTES 127 COMMENTFLG 120 COMMENTFLG 100 %%) ( 51 "Text: " 17 "Arg not litatom:") GENREMNAM D8 (P 1 NAM P 0 N I 0 FN F 2 USERNOTES) /j@gh IRI@HkXgh Y(42 PACK 14 PACK) (33 : 6 :) () TXDELNOTE D8 (P 4 TMP P 3 R1 I 0 LIN F 5 USERNOTES) >P@4dh[U\KogLU KIHhZH&J(40 /SETATOMVAL 35 /DREMOVE) (28 USERNOTES) ( 20 (NOT FOUND)) (PRETTYCOMPRINT TSETCOMS) (RPAQQ TSETCOMS ((FNS * TSETFNS) TSETMACROS (VARS (LISPXMACROS (UNION TSETMACROS LISPXMACROS)) ( TESTFORM) (LISPXCOMS (UNION LISPXCOMS (MAPCAR TSETMACROS (FUNCTION CAR)))) (MERGE) (PRETTYDEFMACROS ( CONS (QUOTE (TRANSAVE NIL DUMPFILE USERNOTES NLISTPCOMS LAMBDACOMS (PROP XFORM * TRANSFORMATIONS) (P ( COND ((EQ (EVALV (QUOTE MERGE)) T) (RPAQ TRANSFORMATIONS (UNION TRANSFORMATIONS (LISTP (GETP (QUOTE TRANSFORMATIONS) (QUOTE VALUE))))) (MAPC (GETP (QUOTE USERNOTES) (QUOTE VALUE)) (FUNCTION (LAMBDA ( NOTE) (OR (ASSOC (CAR NOTE) USERNOTES) (SETQ USERNOTES (CONS NOTE USERNOTES))))))) (T (MAPC (GETP ( QUOTE TRANSFORMATIONS) (QUOTE VALUE)) (FUNCTION (LAMBDA (X) (AND (NOT (MEMB X TRANSFORMATONS)) ( /REMPROP X (QUOTE XFORM))))))))))) PRETTYDEFMACROS)) (LCASELST (APPEND (QUOTE (DO TRANSFORMATIONS)) LCASELST))) (PROP UCASE BBN LISP SRI MIT QA3 PLANNER UCI INTERLISP) (PROP FILEGROUP TSET) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML TRANSUNDER) (LAMA))))) (RPAQQ TSETFNS (TRANSORSET TRANSORINPUTP TRANSORSETUSERFN RUMARK RUMARK1 TRANSUNDER TXFN TXFN1 TXDUMP TXERASE TXERASE1 TXTEST TXSHOW TXEDIT TXEXIT TXNOTE GENREMNAM TXDELNOTE)) (RPAQQ TSETMACROS ((SHOW (TRANSUNDER TXSHOW)) (EXIT (TRANSUNDER TXEXIT)) (NOTE (TRANSUNDER TXNOTE T)) (TEST (TRANSUNDER TXTEST T)) (ERASE (TRANSUNDER TXERASE)) (EDIT (TRANSUNDER TXEDIT)) (DUMP (TRANSUNDER TXDUMP)) (FN (TRANSUNDER TXFN)) (DELNOTE (TRANSUNDER TXDELNOTE)))) (RPAQ LISPXMACROS (UNION TSETMACROS LISPXMACROS)) (RPAQ TESTFORM NIL) (RPAQ LISPXCOMS (UNION LISPXCOMS (MAPCAR TSETMACROS (FUNCTION CAR)))) (RPAQ MERGE NIL) (RPAQ PRETTYDEFMACROS (CONS (QUOTE (TRANSAVE NIL DUMPFILE USERNOTES NLISTPCOMS LAMBDACOMS (PROP XFORM * TRANSFORMATIONS) (P (COND ((EQ (EVALV (QUOTE MERGE)) T) (RPAQ TRANSFORMATIONS (UNION TRANSFORMATIONS (LISTP (GETP (QUOTE TRANSFORMATIONS) (QUOTE VALUE))))) (MAPC (GETP (QUOTE USERNOTES) (QUOTE VALUE)) ( FUNCTION (LAMBDA (NOTE) (OR (ASSOC (CAR NOTE) USERNOTES) (SETQ USERNOTES (CONS NOTE USERNOTES))))))) ( T (MAPC (GETP (QUOTE TRANSFORMATIONS) (QUOTE VALUE)) (FUNCTION (LAMBDA (X) (AND (NOT (MEMB X TRANSFORMATONS)) (/REMPROP X (QUOTE XFORM))))))))))) PRETTYDEFMACROS)) (RPAQ LCASELST (APPEND (QUOTE (DO TRANSFORMATIONS)) LCASELST)) (PUTPROPS BBN UCASE T) (PUTPROPS LISP UCASE T) (PUTPROPS SRI UCASE T) (PUTPROPS MIT UCASE T) (PUTPROPS QA3 UCASE T) (PUTPROPS PLANNER UCASE T) (PUTPROPS UCI UCASE T) (PUTPROPS INTERLISP UCASE T) (PUTPROPS TSET FILEGROUP (TRANSOR TSET)) NIL