(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "17-Mar-87 17:04:38" ("compiled on " {DSK}TRANSOR.;16 {DSK}TSET.;1) "21-Jan-87 21:13:09" brecompiled exprs%: TRANSOUT PRECH1 in "Xerox Lisp 4-Mar-87 ..." dated " 4-Mar-87 11:37:05") (FILECREATED "17-Mar-87 17:03:54" {DSK}TRANSOR.;16 44778 changes to%: (VARS TRANSORCOMS) (FNS PRECH1 TRANSOUT) previous date%: "17-Mar-87 17:00:04" {DSK}TRANSOR.;15) (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) PRECH :D4 (L (3 PRTYFLG 2 FILE 1 OLDECH 0 ECH)) -B A@A @ YCd I H h(41 OUTPUT 37 TERPRI 33 PRINT 28 PRINTDEF 21 \PRECHBLOCK/PRECH1 18 \PRECHBLOCK/RETAIL 13 \PRECHBLOCK/LNC 3 OUTPUT) NIL () \PRECHBLOCK/PRECH1 :D4 (L (0 RECH)) m1@dl dHkظK@hjH{@dl JHdjak@@NgI@g6@l,Hl@@ggHkg @JgHg JZ@ JIgJJ (186 DREVERSE 170 \PRECHBLOCK/PRECH1 161 PACK* 144 PACK* 60 \PRECHBLOCK/PRECH2 17 MKSTRING 14 \PRECHBLOCK/PRECH2) (179 -- 158 |...| 154 |...| 141 |...| 135 |...| 131 & 96 DEFUN 88 &) () \PRECHBLOCK/PRECH2 :D4 (L (1 LEVEL 0 X) F 5 COMMENTFLG) R@dMUokAgP@2dAkbjAgKA IHhZYHhYjAhLJ(49 \PRECHBLOCK/PRECH2) (43 -- 20 &) ( 12 "**COMMENT**") \PRECHBLOCK/RETAIL :D4 (L (0 L)) 8o  @d@ hX@dYdI IHH(42 MEMB 18 TAILP 6 DECLARE%:) NIL ( 3 ((SPECVARS L))) \PRECHBLOCK/LNC :D4 (L (1 L2 0 L1)) (@@A @ XA H@b(27 LAST 22 LAST 16 TAILP 9 HELP) NIL () TRANSIT :D4 (F 1 L F 2 TRANSITAIL F 3 STOPPEDUP F 4 LASTAIL F 5 CURRENTCOMS F 6 CURRENTFORM F 7 OLDLENGTH F 8 CONTINUEL F 9 WHERETOGONEXT F 10 TRANSITL)  QHdQ goo HXQcHc hcocQ cQcT HQ cHR oo HTcSHdSSo g %H`Hdlg `oc d `U`(160 GETP 135 RETFROM 127 %## 97 HELP 84 MEMB 75 MEMB 60 LENGTH 32 TRANSERR 15 TAILP 7 WACHADOON) (186 TRANSITCONSES 180 TRANSITCONSES 167 LAMBDACOMS 157 XFORM 143 NLISTPCOMS 132 TRANSOR-PROCEED 21 TRANSERROR) ( 172 ((COMSQ (REMARK ILLCAR) DOTHESE)) 124 (UP) 94 "Show Jim Goodwin." 90 "The editor lost LASTAIL, and with it its sense of direction." 52 (ORR 2 NX !NX ((E (TRANSEXIT)))) 29 (CURRENTFORM CURRENTCOMS) 25 "The function TRANSIT reached a TAILP position; show Jim Goodwin.") WACHADOON :D4 (L (0 FLG) F 1 L F 2 TESTRAN) 5R2@hHh`HQ`i QHoh(36 PRECH 5 CLOCK) (49 WHENTODOIT 40 WACHADID 32 WACHADID 24 WHENTODOIT 19 WHENTODOIT 14 WACHADID) ( 45 180000) TRANXT :D4 (F 3 WHERETOGONEXT F 4 TRANSITAIL F 5 L F 6 CURRENTFORM F 7 TRANSITL F 8 OLDLENGTH F 9 LASTAIL F 10 CONTINUEL F 11 CONTINUETAIL)  0W*TW YW#WkI_goo hc WchHVSgH&VgcWHc TcSgHi hgVZi JSTU oh(130 TAILP 116 EDITFINDP 101 EDITFINDP 44 TRANSERR 16 LENGTH) (109 == 95 == 77 NLAM 64 NLAMIT 33 OUTOFBOUNDS) ( 135 (ORR !NX ((E (TRANSEXIT)))) 41 (CURRENTFORM CURRENTCOMS) 37 "Your transformations cheated and changed something out of bounds.") PRESCAN :D4 (P 5 AT P 4 AC P 2 I P 1 OUTF P 0 INF I 2 PRESCANFN I 1 CHARLST I 0 FILE) @ @i lJjJJ `Jd JkZAd`KKj Hg Ig  H 1H \jL`L ]IM LHIlBH I (157 CLOSEF 152 CLOSEF 132 \FZEROP 126 BOUT 119 ELT 98 EOFP 90 GETSTREAM 82 GETSTREAM 70 SETA 44 SETA 35 \FZEROP 17 OUTPUT 14 OUTFILE 11 NAMEFIELD 6 INPUT 3 INFILE) (115 PRESCARRAY 87 OUTPUT 79 INPUT 60 PRESCARRAY 39 PRESCARRAY) () TRANSORA0001A0002 :D4 (P 4 SI::*NLSETQFLAG* P 3 *CONDITION-HANDLER-BINDINGS* P 2 *PROCEED-CASES* P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 5 PROCEED-CASE0098 F 6 *PROCEED-CASES* F 7 EXPRESSION F 8 *CONDITION-HANDLER-BINDINGS* F 9 INPUTFILE) Ni@ggggUgjghgg VggWiW chd (73 \MVLIST 63 READ 38 MAKE-PROCEED-CASE 34 CL:SYMBOL-FUNCTION) (49 SI::NLSETQHANDLER 46 CL:ERROR 31 SI::ERRORSET-PRINT-FUNCTION 28 :REPORT 24 :TEST 20 :SELECTOR 16 :TAG 13 ABORT 10 :NAME 7 :NORMAL) () TRANSORA0001 :D4 (NAME SI::*UNWIND-PROTECT* P 11 PROCEED-CASE0096 P 10 A0100 P 9 PROCEED-CASE0097 P 8 A0099 P 7 PROCEED-CASE0098 P 6 TMP P 5 EXPRESSION P 4 NAMEFIELD P 3 LISTING P 2 LISTFILE P 1 OUTPUTFILE P 0 INPUTFILE I 0 SI::*CLEANUP-FORMS* F 12 SOURCEFILE) [ po `ooW XoWi Hg gLgo ^g YogLgo ^g ZoNi Hg oI H I oI I oI I I oJ H J oJ J J J hdO 1 O_O__OdgO j:hMdg)H H I KJ J I J hhoo M ]I (343 TRANSOUT 338 TRANSFORM 332 TRANSERR 314 FULLNAME 310 FULLNAME 305 CLOSEF 300 TRANSLIST 294 ENDFILE 289 CLOSEF 284 OPENP 263 CL:VALUES-LIST 231 TRANSORA0001A0002 219 TERPRI 214 TERPRI 209 PRIN1 205 DATE 201 PRIN1 192 PRINT 188 FULLNAME 183 PRIN1 174 TERPRI 169 TERPRI 164 PRIN1 155 PRIN1 151 DATE 147 PRIN1 138 PRINT 134 FULLNAME 129 PRIN1 120 OPENSTREAM 112 ERROR 101 OPENSTREAM 94 PACKFILENAME 72 OPENSTREAM 65 PACKFILENAME 50 FILENAMEFIELD 42 ERROR 29 INFILEP 9 DECLARE%:) (276 STOP 255 :NORMAL 117 INPUT 98 OUTPUT 87 EXTENSION 83 NAME 69 OUTPUT 58 EXTENSION 54 NAME 47 NAME 13 TRANSFORMATIONS) ( 329 (EXPRESSION) 325 "NLISTP expression on file - expression discarded:" 197 " done on " 179 " Listing from TRANSORing of file " 160 " %")T)" 143 " done on " 125 "(PRIN1(QUOTE %" Transoring of" 107 "Cannot open file." 91 "LSTRAN" 78 "Cannot open file:" 62 "TRAN" 36 "Cannot find file:" 23 "" 19 "No transformations loaded." 6 ((SPECVARS LISTFILE LISTING))) TRANSOR :D4 (P 0 SI::*RESETFORMS* I 0 SOURCEFILE) %g` hhhg  (34 CL:VALUES-LIST 30 SI::RESETUNWIND 27 \MVLIST 24 TRANSORA0001 8 SETREADTABLE) (21 SI::RESETUNWIND 5 FILERDTBL 2 SETREADTABLE) () TRANSOR-PROCEEDA0001 :D4 (P 3 SI::*NLSETQFLAG* P 2 *PROCEED-CASES* P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 4 L F 5 PROCEED-CASE0104 F 6 *PROCEED-CASES* F 7 FLG) ti@ggggUgjghgg VTWdgo(dgodgogo ch (111 \MVLIST 103 EDITL 100 HELP 38 MAKE-PROCEED-CASE 34 CL:SYMBOL-FUNCTION) (90 OKCOMS 79 TRANSFORM 66 DOTHESE 53 DOTHIS 31 SI::ERRORSET-PRINT-FUNCTION 28 :REPORT 24 :TEST 20 :SELECTOR 16 :TAG 13 ABORT 10 :NAME 7 :NORMAL) ( 96 ((LPQ (COMS (TRANXT) (TRANSIT)))) 86 ((LPQ (COMS (TRANSIT) (TRANXT)))) 73 (MARK (ORR ((IF (NOT (TAILP (CAR L) (CADR L)))) NX UP (E (PROG (LISPXHIST) (SETQ STOPPEDUP (%##))) T)) (!NX UP (E (PROG (LISPXHIST) (SETQ STOPPEDUP (%##))) T)) NIL) __ 1 (LPQ (COMS (TRANSIT) (TRANXT)))) 60 ((IF (TAILP (CAR L) (CADR L)) ((REMARK TAILP/DOTHIS) 1) NIL) MARK (ORR (NX UP (E (PROG (LISPXHIST) (SETQ STOPPEDUP (%##))) T)) (!NX UP (E (PROG (LISPXHIST) (SETQ STOPPEDUP (%##))) T)) NIL) __ (LPQ (COMS (TRANSIT) (TRANXT))))) TRANSOR-PROCEED :D4 (P 12 PROCEED-CASE0102 P 11 A0106 P 10 PROCEED-CASE0103 P 9 A0105 P 8 PROCEED-CASE0104 P 7 OLDLENGTH P 6 TRANSITAIL P 5 TRANSITL P 4 CONTINUETAIL P 3 CONTINUEL P 2 WHERETOGONEXT P 1 STOPPEDUP P 0 L I 0 FLG F 13 L) X Wqo hdO 1 O_O__OdgO j:hgbgoo h(84 TRANSERR 55 CL:VALUES-LIST 23 TRANSOR-PROCEEDA0001 11 DECLARE%:) (73 TRANSERROR 66 OKCOMS 47 :NORMAL) ( 81 (CURRENTFORM CURRENTCOMS) 77 "Fail return to TRANSOR from EDITOR. Show Jim Goodwin." 8 ((SPECVARS L STOPPEDUP WHERETOGONEXT CONTINUEL CONTINUETAIL TRANSITL TRANSITAIL OLDLENGTH))) TRANSORFORMA0001 :D4 (P 3 SI::*NLSETQFLAG* P 2 *PROCEED-CASES* P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 4 PROCEED-CASE0110 F 5 *PROCEED-CASES* F 6 LISTING) =i@ggggTgjghgg UV h (56 \MVLIST 50 TRANSLIST 38 MAKE-PROCEED-CASE 34 CL:SYMBOL-FUNCTION) (31 SI::ERRORSET-PRINT-FUNCTION 28 :REPORT 24 :TEST 20 :SELECTOR 16 :TAG 13 ABORT 10 :NAME 7 :NORMAL) () TRANSORFORM :D4 (P 6 PROCEED-CASE0108 P 5 A0112 P 4 PROCEED-CASE0109 P 3 A0111 P 2 PROCEED-CASE0110 P 1 LISTING P 0 LISTFILE I 0 FORM) : o @ bI&hdJ 1KK]NdgL j:@(51 CL:VALUES-LIST 28 TRANSORFORMA0001 13 TRANSFORM 9 DECLARE%:) (44 :NORMAL) ( 6 ((SPECVARS LISTFILE LISTING))) TRANSORFNSA0001 :D4 (P 3 SI::*NLSETQFLAG* P 2 *PROCEED-CASES* P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 4 PROCEED-CASE0116 F 5 *PROCEED-CASES* F 6 LISTING) =i@ggggTgjghgg UV h (56 \MVLIST 50 TRANSLIST 38 MAKE-PROCEED-CASE 34 CL:SYMBOL-FUNCTION) (31 SI::ERRORSET-PRINT-FUNCTION 28 :REPORT 24 :TEST 20 :SELECTOR 16 :TAG 13 ABORT 10 :NAME 7 :NORMAL) () TRANSORFNS :D4 (P 8 PROCEED-CASE0114 P 7 A0118 P 6 PROCEED-CASE0115 P 5 A0117 P 4 PROCEED-CASE0116 P 3 FN P 2 DEF P 1 LISTFILE P 0 LISTING I 0 FNLIST) b 0o @)dKdl Z JK Koid hdL 1M_M_OdgN j:@(91 CL:VALUES-LIST 64 TRANSORFNSA0001 49 PRINT 37 TRANSFORM 31 EXPRP 27 VIRGINFN 9 DECLARE%:) (84 :NORMAL) ( 43 (NOT FOUND) 6 ((SPECVARS LISTING LISTFILE))) TRANSFORM :D4 (P 2 HELPCLOCK P 1 PASS1 P 0 L I 1 FNAME I 0 SOURCEXPR) F0o A@@A@hh@h@hhi g I d AHH(54 PPASS1 48 DREVERSE 44 TRANSOR-PROCEED 38 WACHADOON 9 DECLARE%:) (41 TRANSFORM) ( 6 ((SPECVARS L PASS1))) TRANSEXIT :D4 (F 0 STOPPEDUP) Pgoo g (22 RETFROM 15 TRANSERR) (19 TRANSOR-PROCEED 4 TRANSERROR) ( 12 (CURRENTFORM CURRENTCOMS) 8 "The function TRANSEXIT missed the exit. Show Jim Goodwin.") KEEPLIST :D4 (P 0 TMP I 0 REMNAME F 1 LISTING F 2 PASS1 F 3 L F 4 TESTRAN) 9QkhcdkQ@SRcT@QX Q@QhQh h(53 \NCONC2) NIL () TRANSERRA0001 :D4 (P 4 SI::*NLSETQFLAG* P 3 *CONDITION-HANDLER-BINDINGS* P 2 *PROCEED-CASES* P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 5 PROCEED-CASE0122 F 6 *PROCEED-CASES* F 7 *CONDITION-HANDLER-BINDINGS* F 8 MESS) bi@ggggUgjghgg VggWi\ i oi Wi i h (93 \MVLIST 87 TERPRI 82 PRIN1 75 PRIN1 66 TERPRI 61 TERPRI 38 MAKE-PROCEED-CASE 34 CL:SYMBOL-FUNCTION) (49 SI::NLSETQHANDLER 46 CL:ERROR 31 SI::ERRORSET-PRINT-FUNCTION 28 :REPORT 24 :TEST 20 :SELECTOR 16 :TAG 13 ABORT 10 :NAME 7 :NORMAL) ( 71 " TRANSOR made a translation error: ") TRANSERRA0002 :D4 (P 5 X P 4 SI::*NLSETQFLAG* P 3 *CONDITION-HANDLER-BINDINGS* P 2 *PROCEED-CASES* P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 6 PROCEED-CASE0128 F 7 *PROCEED-CASES* F 8 *CONDITION-HANDLER-BINDINGS* F 9 VARS) |i@ggggVgjghgg WggWil W dMid oi M n i h (119 \MVLIST 113 TERPRI 108 PRINTLEVEL 97 PRINT 94 \EVALV1 89 PRIN1 80 PRIN2 64 PRINTLEVEL 38 MAKE-PROCEED-CASE 34 CL:SYMBOL-FUNCTION) (50 SI::NLSETQHANDLER 47 CL:ERROR 31 SI::ERRORSET-PRINT-FUNCTION 28 :REPORT 24 :TEST 20 :SELECTOR 16 :TAG 13 ABORT 10 :NAME 7 :NORMAL) ( 85 ": ") TRANSERR :D4 (P 9 PROCEED-CASE0127 P 8 A0130 P 7 PROCEED-CASE0126 P 6 A0129 P 5 PROCEED-CASE0128 P 4 PROCEED-CASE0120 P 3 A0124 P 2 PROCEED-CASE0121 P 1 A0123 P 0 PROCEED-CASE0122 I 2 VARS I 1 MESS I 0 REM) g @g@h A'hdH 1II[LdgJ j:B0hdM 1 N_N__OdgO j:h(94 CL:VALUES-LIST 64 TRANSERRA0002 47 CL:VALUES-LIST 24 TRANSERRA0001 10 APPLY) (86 :NORMAL 40 :NORMAL 4 KEEPLIST) () TRANSOUTA0001A0002 :D4 (NAME SI::*UNWIND-PROTECT* P 0 X I 0 SI::*CLEANUP-FORMS* F 1 XPR F 2 LAMBDAFONT F 3 FONTCHANGEFLG F 4 FILE F 5 DEFAULTFONT) TgQdgHo Q,dg H Hhi g g glQgbQYdHg?o RSR H RSU H Hlid o Q hQ (212 TERPRI 209 PRINTDEF 205 TERPRI 195 TERPRI 191 PRINTDEF 186 PRIN1 178 PRINTDEF 166 PRIN2 158 CHANGEFONT 149 PRIN2 142 CHANGEFONT 133 PRIN1 117 TERPRI 88 TERPRI 85 PRIN1 74 TERPRI 70 PRIN1 63 PRINTDEF 54 PRINT 48 PRIN1 41 TERPRI 30 TERPRI 27 PRIN1) (123 DEFUN 103 DEFUN 93 PROGN 82 %) 67 %) 45 %( 16 DEFINEQ 3 NIL%:) ( 183 ")" 130 "(DEFUN " 24 "(DEFINEQ") TRANSOUTA0001 :D4 (NAME SI::*UNWIND-PROTECT* P 0 SI::*RESETFORMS* I 0 SI::*CLEANUP-FORMS* F 1 TRANSOUTREADTABLE) #gQ hhhg  (32 CL:VALUES-LIST 28 SI::RESETUNWIND 25 \MVLIST 22 TRANSOUTA0001A0002 6 SETREADTABLE) (19 SI::RESETUNWIND 2 SETREADTABLE) () TRANSOUT :D4 (P 0 SI::*RESETFORMS* I 1 FILE I 0 XPR) #gA hhhg  (32 CL:VALUES-LIST 28 SI::RESETUNWIND 25 \MVLIST 22 TRANSOUTA0001 6 OUTPUT) (19 SI::RESETUNWIND 2 OUTPUT) () PPASS1 :D4 (I 0 P1 F 0 LISTFILE) ,@P oP @P oP @hPi P (41 TERPRI 37 PRECH 28 PRIN1 20 PRIN1 13 PRIN1 5 PRIN1) NIL ( 24 " at " 9 ". ") TRANSLIST :D4 (P 0 OLDO I 1 LISTFILE I 0 LISTING F 1 TESTRAN) AQ:Adg2 X@o o @i d H h(61 OUTPUT 57 TERPRI 49 TRANSLIST1 43 SORT 36 PRIN1 26 PRIN1 16 OUTPUT) (10 NIL%:) ( 33 " Index of Remarks " 23 " No REMARKS -- empty listing. ") TRANSLIST1 :D4 (I 0 L1) &@ o @hdoo @ (35 TERPRI 32 PREMTEXT 27 MAPRINT 11 PRIN1 4 PRIN1) NIL ( 23 ", " 19 ". " 8 " at ") PREMTEXT :D4 (P 0 TXT I 0 RNAM F 1 TRANSOREMARKS) <@`X.@Q)ol Hdgdhi H h(52 TERPRI 49 MAPRINT 42 COMMENT3 25 SPACES) (32 %% 6 USERNOTES) ( 19 (* The text of this remark was not defined in the TRANSFORMATIONS file.)) TRANSORSET :D4 (P 0 CURRENTFN) 4g gh gh g ghg i (48 CLEARBUF 43 USEREXEC 32 RPAQ 25 RPAQ 17 RPAQ 8 BOUNDP) (40 TRANSORSETUSERFN 36 + 29 UDRS 21 USERNOTES 13 TRANSFORMATIONS 5 TRANSFORMATIONS) () TRANSORINPUTP :D4 (L (1 B 0 A) F 0 EDITCOMSL F 1 EDITCOMSA) =@Ah@g@d)dlQA@P@@@l@PNIL (10 PP) () TRANSORSETUSERFN :D4 (P 0 INLINE I 1 B I 0 A F 1 CURRENTFN F 2 EDITCOMSA F 3 EDITCOMSL F 4 LISPXHIST) Z@A P@ A X@l@R@SdhQooi HQ QgQg H TQ g h(86 RETFROM 80 LISPXSTOREVALUE 75 /PUT 72 /NCONC 68 GETP 57 RUMARK 51 ERROR 17 COPY 13 COPY 7 TRANSORINPUTP) (83 LISPX 65 XFORM 61 XFORM) ( 47 "before transformations can be stored" 43 "You must specify a function with the 'fn' command") RUMARK :D4 (I 1 FN I 0 XFORM) @@oi @ho (24 EDITE 12 EDITFINDP) NIL ( 21 ((LPQ F (REMARK --) (E (RUMARK1) T))) 8 (REMARK --)) RUMARK1 :D4 (P 2 TEXT P 1 RNAME P 0 CALL F 3 COMMENTFLG F 4 L F 5 FN) ^T!Hdoi Hid @HYl3HZHZ'HU Yh JSSJgIJh` h(90 /SETATOMVAL 65 /RPLACD 59 GENREMNAM 26 PRINT 19 PRIN1) (86 USERNOTES 78 USERNOTES) ( 15 " Warning - badly formed remark: ") TRANSUNDER :D4 (P 0 X I 1 FLG I 0 TSETFN F 1 LISPXLINE) =g go AQdHloHi Qk@(47 ERROR 20 TRANSORSET 17 LISPXUNREAD 5 \EVALV1) (8 + 2 LISPXID) ( 42 "Arg not litatom:" 14 (REDO -1)) TXFN :D4 (P 0 X I 0 LIN F 1 CURRENTFN) @QdHi @ (23 LAST 14 TXFN1) NIL () TXFN1 :D4 (I 1 OLDMESS I 0 FN F 0 CURRENTFN) QPPg gP` A@*@dg oi @@`g@` o h(77 SAVESETQ 69 /SETATOMVAL 48 PRIN1 38 GETP 23 /SETATOMVAL 20 /DREMOVE 9 GETP) (65 TRANSFORMATIONS 61 TRANSFORMATIONS 56 TRANSFORMATIONS 35 XFORM 17 TRANSFORMATIONS 13 TRANSFORMATIONS 6 XFORM) ( 74 (CURRENTFN FN) 44 "You're adding to old xforms.") TXDUMP :D4 (P 1 F P 0 FILE I 0 LIN) @` `i H`g`oi id Y XoIi gI I Yg`ggh` `dggh `g` gg` `Hg H(160 PRETTYDEF 149 /SETATOMVAL 135 MEMB 120 /SETATOMVAL 102 /SETATOMVAL 76 NAMEFIELD 72 /SETATOMVAL 64 ERROR 53 OUTFILEP 49 RATOM 43 PRIN1 20 SORT 13 SORT 7 TXFN1) (157 XFORMSVARS 153 XFORMSFNS 145 XFORMSVARS 142 XFORMSFNS 139 XFORMSVARS 132 XFORMSVARS 129 XFORMSFNS 124 XFORMSFNS 116 XFORMSFNS 110 NOBIND 106 XFORMSFNS 97 XFORMSVARS 92 TRANSAVE 89 XFORMSVARS 83 XFORMSVARS 80 TRANSAVE 68 DUMPFILE 34 DUMPFILE 29 NOBIND 26 DUMPFILE 16 USERNOTES 10 TRANSFORMATIONS) ( 59 "Cannot open file:" 39 " File to dump on: ") TXERASE :D4 (I 0 LIN F 3 CURRENTFN) 2@S   0@d IHhZYHhYJ(26 TXERASE1 15 TXFN1 11 LAST 7 TXERASE1) NIL () TXERASE1 :D4 (I 0 FN) /@d`g@` @g @g @@o(36 /REMPROP 28 GETP 20 /SETATOMVAL 17 /DREMOVE) (33 XFORM 25 XFORM 14 TRANSFORMATIONS 10 TRANSFORMATIONS 4 TRANSFORMATIONS) ( 43 (-- NOTHING FOUND.)) TXTEST :D4 (P 1 OLDO P 0 TESTRAN I 0 LIN) Jid @g@ `ooi g ooi ` I (70 OUTPUT 66 TRANSORFORM 63 COPY 56 ERROR 43 \DEFINEDP 36 ERROR 19 /SETATOMVAL 4 OUTPUT) (60 TESTFORM 40 TRANSORFORM 23 TESTFORM 14 TESTFORM) ( 52 "" 48 "You must load TRANSOR.COM before using the TEST command." 32 "+TEST (SAMPLE S-EXPRESSION TO BE TRANSOR'ED)" 28 "Correct format is:") TXSHOW :D4 (P 2 FN P 1 FLG P 0 OLDO I 0 LIN F 3 CURRENTFN) Oi @h@@2Shb+dJ IJhi Jg o H @ (75 LAST 71 OUTPUT 62 TERPRI 58 PRINTDEF 49 GETP 41 PRINT 32 TXFN1 3 OUTPUT) (46 XFORM) ( 55 (No transformations)) TXEDIT :D4 (P 0 FN I 0 LIN F 1 CURRENTFN) B@7Qhb0dH HgHg Hoi hH H @ (62 LAST 53 RUMARK 49 PUT 46 EDITE 41 ERROR 30 GETP 18 TXFN1) (27 XFORM 23 XFORM) ( 37 "not editable.") TXEXIT :D4 NIL gh g (12 RETFROM 6 SETTOPVAL) (9 TRANSORSET 2 USERINPUTP) () TXNOTE :D4 (P 1 TEXT P 0 NAME I 0 LIN F 2 COMMENTFLG) @HHdloHi `Y3@Y oi id Yd(Y!IdYdgI HIRRIgHIh` H(124 /SETATOMVAL 98 EDITE 66 READLINE 58 READ 52 PRIN1 43 LISPXREADP 23 ERROR) (120 USERNOTES 112 USERNOTES 89 %% 28 USERNOTES) ( 48 "Text: " 18 "Arg not litatom:") GENREMNAM :D4 (P 1 NAM P 0 N I 0 FN) )j@gh I`I@HkXgh Y(36 PACK 10 PACK) (29 %: 17 USERNOTES 4 %:) () TXDELNOTE :D4 (P 4 TMP P 3 R1 I 0 LIN) >P@4dh[`\KogL` KIHhZYHhYJ(36 /SETATOMVAL 33 /DREMOVE) (30 USERNOTES 26 USERNOTES 13 USERNOTES) ( 21 (NOT FOUND)) (PRETTYCOMPRINT TRANSORCOMS) (RPAQQ TRANSORCOMS ((FNS TRANSOR TRANSOR-PROCEED TRANSORFORM TRANSORFNS TRANSFORM TRANSIT TRANXT TRANSEXIT KEEPLIST TRANSERR TRANSOUT PPASS1 TRANSLIST TRANSLIST1 PREMTEXT WACHADOON PRECH PRECH1 PRECH2 RETAIL LNC PRESCAN) TRANSORMACROS TRANSOREMARKS TRANSORGLOBALS (VARS (MAXLOOP 1530) (TESTRAN) ( USERMACROS (APPEND TRANSORMACROS USERMACROS)) (GLOBALVARS (APPEND TRANSORGLOBALS GLOBALVARS)) ( EDITCOMSA (UNION (QUOTE (NLAM NLAMIT DOTHESE DOTHIS XFORMER CONTINUE)) EDITCOMSA)) (EDITCOMSL (UNION ( QUOTE (REMARK)) EDITCOMSL)) (TRANSITCONSES (QUOTE (ORR NIL XFORMER))) (PRESCARRAY (ARRAY 127 127))) ( INITVARS (NLISTPCOMS) (LAMBDACOMS) (TRANSOUTREADTABLE FILERDTBL)) (DECLARE%: DOEVAL@LOAD DOEVAL@COMPILE DONTCOPY (PROP BLKLIBRARYDEF TAILP)) (PROP FILEGROUP TRANSOR) (BLOCKS (PRECHBLOCK PRECH PRECH1 PRECH2 RETAIL LNC (ENTRIES PRECH) (BLKLIBRARY TAILP MEMB LAST LENGTH ASSOC GETP)) ( TRANSITBLOCK TRANSIT WACHADOON (ENTRIES TRANSIT WACHADOON) (GLOBALVARS WACHADID WHENTODOIT TRANSITCONSES LAMBDACOMS NLISTPCOMS) (BLKLIBRARY TAILP MEMB LAST LENGTH ASSOC GETP)) (TRANXTBLOCK TRANXT (ENTRIES TRANXT) (BLKLIBRARY TAILP MEMB LAST LENGTH ASSOC GETP)) (NIL PRESCAN (GLOBALVARS PRESCARRAY))) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML TRANSERR KEEPLIST TRANSOR-PROCEED) (LAMA))) (EDITHIST TRANSOR))) (RPAQQ TRANSORMACROS ((REMARK (TXT) (E (KEEPLIST TXT) T)) (NLAM NIL (E (SETQQ WHERETOGONEXT NLAMIT) T) ) (NLAMIT NIL (ORR NX !NX ((E (TRANSEXIT))))) (DOTHESE NIL (E (TRANSOR-PROCEED DOTHESE) T) NLAM) ( DOTHIS NIL (E (TRANSOR-PROCEED DOTHIS) T) NLAM) (XFORMER NIL (E (TRANSERR TRANSFORMATIONERROR "FAULTY TRANSFORMATION" (CURRENTFORM CURRENTCOMS)) T)))) (RPAQQ TRANSOREMARKS ((TRANSFORMATIONERROR (* The TRANSFORMATIONS specified for this form failed to work properly. The TTY message %'FAULTY TRANSFORMATION' was printed, any commands remaining in the transformation after the erroneous one were skipped, and translation continued as if the transformation had been normally completed. The user should treat the translated form with caution and amend his transformation to avoid future problems.)) (TRANSERROR (* TRANSOR got confused at this point. The TTY message %'SHOW JIM GOODWIN' was printed and translation continued with the next form, but the user should treat the compromised area of code with caution.)) (BLAMBDA1 (* Non-atomic CAR of form, but not an open lambda. Either a parenthesis error or computed CAR of form. Computed CAR of form is no longer legal in BBN-LISP; APPLY* is used instead. If computed CAR of form was intended, the translation to APPLY* will run ok. See manual for discussion of APPLY*.)) (BLAMBDA2 (* Open LAMBDA with wrong number of args. What can it mean?)) (BLAMBDA3 (* Lambda-expression without forms. What can it mean?)) (ILLCAR (* Illegal data-type encountered as CAR of form Expression treated as list of forms.)) (TAILP/DOTHIS (* When the transormacro DOTHIS is executed at a TAILP position, TRANSOR does a 1 command first, assuming that the current position is a list of forms and CAR of it is the form intended. The user should make sure that this is what was intended by the TRANSFORMATIONS which called DOTHIS, i.e. the TRANSFORMATIONS for the form containing this one.)))) (RPAQQ TRANSORGLOBALS (USERNOTES USERNOTES TESTFORM TESTFORM TRANSFORMATIONS TRANSFORMATIONS XFORMSFNS XFORMSVARS XFORMSVARS DUMPFILE TRANSFORMATIONS TRANSFORMATIONS TRANSFORMATIONS TRANSFORMATIONS)) (RPAQQ MAXLOOP 1530) (RPAQQ TESTRAN NIL) (RPAQ USERMACROS (APPEND TRANSORMACROS USERMACROS)) (RPAQ GLOBALVARS (APPEND TRANSORGLOBALS GLOBALVARS)) (RPAQ EDITCOMSA (UNION (QUOTE (NLAM NLAMIT DOTHESE DOTHIS XFORMER CONTINUE)) EDITCOMSA)) (RPAQ EDITCOMSL (UNION (QUOTE (REMARK)) EDITCOMSL)) (RPAQQ TRANSITCONSES (ORR NIL XFORMER)) (RPAQ PRESCARRAY (ARRAY 127 127)) (RPAQ? NLISTPCOMS) (RPAQ? LAMBDACOMS) (RPAQ? TRANSOUTREADTABLE FILERDTBL) (PUTPROPS TRANSOR FILEGROUP (TRANSOR TSET)) (PUTPROPS TRANSOR COPYRIGHT (NONE)) (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