(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "14-Sep-94 18:45:45" ("compiled on " {DSK}lispusers>TRANSOR.;1) "28-Jul-94 17:28:46" bcompl'd in "Medley 25-Aug-94 ..." dated "25-Aug-94 10:02:49") (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) PRECH :D8 (L (3 PRTYFLG 2 FILE 1 OLDECH 0 ECH)) =B A—@A €@ YC–d …I ¿H h(57 OUTPUT 51 TERPRI 45 PRINT 38 PRINTDEF 29 \PRECHBLOCK/PRECH1 24 \PRECHBLOCK/RETAIL 17 \PRECHBLOCK/LNC 5 OUTPUT) NIL () \PRECHBLOCK/PRECH1 :D8 (L (0 RECH)) àmþ1@dl d»HkØ¸K@ð¤µñh¹jHó’±“@d¢ˆl JºHdjð³vkð²@¥@°cg°\@gð²A@d3@ð²7Hlð²@¦@°g°gHkÙg@J°gHgJZ¿@ JºI—gJ€J (221 DREVERSE 201 \PRECHBLOCK/PRECH1 190 PACK* 166 PACK* 68 \PRECHBLOCK/PRECH2 21 MKSTRING 16 \PRECHBLOCK/PRECH2) (212 -- 185 |...| 179 |...| 161 |...| 153 |...| 146 & 108 DEFUN 98 &) () \PRECHBLOCK/PRECH2 :D8 (L (1 LEVEL 0 X)) Y@d²T`ð•okAñ•gP@°2d»AkÙb¿jAó•g†KA ¸IµHhZH&¹¼jAóhð´LµÏJ(60 \PRECHBLOCK/PRECH2) (52 -- 27 & 10 COMMENTFLG) ( 17 "**COMMENT**") \PRECHBLOCK/RETAIL :D8 (L (0 L)) ?o @d@ hX@°dYd¢ˆI ”IH¸µçH(49 MEMB 23 TAILP 9 DECLARE%:) NIL ( 4 ((SPECVARS L))) \PRECHBLOCK/LNC :D8 (L (1 L2 0 L1)) 1@µ¿@A ²@ XA ð³çH@b°à(36 LAST 29 LAST 20 TAILP 11 HELP) NIL () TRANSIT :D8 (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¿HXQc¿HchcocQ cQcTµ(HQ c™HR ²oo ‡Hð²×Tc¿S²$HdSð²¬So ð›g °0H¦`°&Hdd3@ð¿Hg •`„oc d´`U`(196 GETP 163 RETFROM 151 %## 118 HELP 101 MEMB 90 MEMB 73 LENGTH 42 TRANSERR 19 TAILP 9 WACHADOON) (229 TRANSITCONSES 221 TRANSITCONSES 205 LAMBDACOMS 191 XFORM 173 NLISTPCOMS 158 TRANSOR-PROCEED 27 TRANSERROR) ( 211 ((COMSQ (REMARK ILLCAR) DOTHESE)) 146 (UP) 113 "Show Jim Goodwin." 108 "The editor lost LASTAIL, and with it its sense of direction." 63 (ORR 2 NX !NX ((E (TRANSEXIT)))) 37 (CURRENTFORM CURRENTCOMS) 32 "The function TRANSIT reached a TAILP position; show Jim Goodwin.") WACHADOON :D8 (L (0 FLG) F 1 L F 2 TESTRAN) FRµC@žh¿Hh`Hñ³ Q`iQoHØh(48 PRECH 7 CLOCK) (66 WHENTODOIT 54 WACHADID 42 WACHADID 32 WHENTODOIT 25 WHENTODOIT 18 WACHADID) ( 59 180000) TRANXT :D8 (F 3 WHERETOGONEXT F 4 TRANSITAIL F 5 CURRENTFORM F 6 L F 7 TRANSITL F 8 OLDLENGTH F 9 LASTAIL F 10 CONTINUEL F 11 CONTINUETAIL) ¤ 0Wµ=T¸W YWð²[HUð³Sgð¯Hµ5Uµgc¿WHc¿TcSc¿WchgHi²Öh°ØgUZi²¿JS°ÃWkÙIð³goohTV ¥oh°’(152 TAILP 141 TRANSERR 106 EDITFINDP 87 EDITFINDP 18 LENGTH) (126 OUTOFBOUNDS 97 == 79 == 50 NLAM 35 NLAMIT) ( 158 (ORR !NX ((E (TRANSEXIT)))) 136 (CURRENTFORM CURRENTCOMS) 131 "Your transformations cheated and changed something out of bounds.") PRESCAN :D8 (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 lJjð³!J—J ³`Jd¿JkÙZ°ßA°d»`KKµj¿µéHg ¸Ig ¹ H ³:H \jð³óLµ`L ]²IM ¿°Ö ²ã°ÍLHIlB¿°ÂH ¿I (201 CLOSEF 194 CLOSEF 172 \FZEROP 164 BOUT 154 ELT 129 EOFP 119 GETSTREAM 107 GETSTREAM 91 SETA 61 SETA 47 \FZEROP 27 OUTPUT 22 OUTFILE 17 NAMEFIELD 10 INPUT 5 INFILE) (148 PRESCARRAY 114 OUTPUT 102 INPUT 79 PRESCARRAY 54 PRESCARRAY) () TRANSORA0001A0002 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 INPUTFILE F 3 EXPRESSION F 4 SI::NLSETQ-VALUE) i@R c¿hdcg(10 READ) (23 :NORMAL) () TRANSORA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 10 *CONDITION-HANDLER-BINDINGS* P 9 SI::*NLSETQFLAG* P 8 *PROCEED-CASES* P 7 SI::NLSETQ-VALUE 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 11 SOURCEFILE F 12 TRANSFORMATIONS F 13 *PROCEED-CASES* F 14 *CONDITION-HANDLER-BINDINGS*) Àpo ¿W«oo°W XµoWi¿Hg ¼gLgo^g Y¦o°)gLgo^g Z¬oNi¿Hg ¸oI ¿H I ¿oI ¿I ¿oI ¿I ¿I ¿oJ ¿H J ¿oJ ¿J ¿J ¿J ¿`WioW O gð´OšMdgð²7¿H –H ¿I ¿KJ ¿J ¿I J h³hoo°‚M ]I ±ÿs(443 TRANSOUT 436 TRANSFORM 428 TRANSERR 405 FULLNAME 399 FULLNAME 392 CLOSEF 385 TRANSLIST 377 ENDFILE 370 CLOSEF 363 OPENP 333 TRANSORA0001A0002 302 TERPRI 295 TERPRI 288 PRIN1 282 DATE 276 PRIN1 264 PRINT 258 FULLNAME 251 PRIN1 239 TERPRI 232 TERPRI 225 PRIN1 213 PRIN1 207 DATE 201 PRIN1 189 PRINT 183 FULLNAME 176 PRIN1 164 OPENSTREAM 152 ERROR 138 OPENSTREAM 127 PACKFILENAME 97 OPENSTREAM 86 PACKFILENAME 64 FILENAMEFIELD 52 ERROR 36 INFILEP 12 DECLARE%:) (353 STOP 339 :NORMAL 311 SI::NLSETQ-PROCEED-CASE 159 INPUT 133 OUTPUT 117 EXTENSION 111 NAME 92 OUTPUT 76 EXTENSION 70 NAME 59 NAME) ( 423 (EXPRESSION) 418 "NLISTP expression on file - expression discarded:" 320 (CL:ERROR . SI::NLSETQHANDLER) 270 " done on " 245 " Listing from TRANSORing of file " 219 " %")T)" 195 " done on " 170 "(PRIN1(QUOTE %" Transoring of" 145 "Cannot open file." 122 "LSTRAN" 104 "Cannot open file:" 81 "TRAN" 44 "Cannot find file:" 27 "" 22 "No transformations loaded." 7 ((SPECVARS LISTFILE LISTING))) TRANSOR :D8 (P 0 SI::*RESETFORMS* I 0 SOURCEFILE) 3g` hhhg ¿$(44 SI::RESETUNWIND 39 \MVLIST 34 TRANSORA0001 14 SETREADTABLE) (29 SI::RESETUNWIND 9 FILERDTBL 4 SETREADTABLE) () TRANSOR-PROCEEDA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 L F 3 FLG F 4 SI::NLSETQ-VALUE) [i@RSdgð—¿o°4dgð—¿o°$dgð—¿o°gð•o„ chcg(77 EDITL 72 HELP) (88 :NORMAL 59 OKCOMS 44 TRANSFORM 28 DOTHESE 12 DOTHIS) ( 66 ((LPQ (COMS (TRANXT) (TRANSIT)))) 52 ((LPQ (COMS (TRANSIT) (TRANXT)))) 36 (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)))) 20 ((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 :D8 (P 10 SI::*NLSETQFLAG* P 9 *PROCEED-CASES* P 8 SI::NLSETQ-VALUE 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 11 L F 12 *PROCEED-CASES*) RWqo ¿`W O gð´O˜gb°Ögooh(78 TRANSERR 36 TRANSOR-PROCEEDA0001 14 DECLARE%:) (63 TRANSERROR 54 OKCOMS 42 :NORMAL 23 SI::NLSETQ-PROCEED-CASE) ( 73 (CURRENTFORM CURRENTCOMS) 68 "Fail return to TRANSOR from EDITOR. Show Jim Goodwin." 9 ((SPECVARS L STOPPEDUP WHERETOGONEXT CONTINUEL CONTINUETAIL TRANSITL TRANSITAIL OLDLENGTH))) TRANSORFORMA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 LISTING F 3 SI::NLSETQ-VALUE) i@R hcg(10 TRANSLIST) (19 :NORMAL) () TRANSORFORM :D8 (P 4 SI::*NLSETQFLAG* P 3 *PROCEED-CASES* P 2 SI::NLSETQ-VALUE P 1 LISTING P 0 LISTFILE I 0 FORM F 5 *PROCEED-CASES*) 5 o @ bI²`UK gð@(42 TRANSORFORMA0001 18 TRANSFORM 12 DECLARE%:) (48 :NORMAL 31 SI::NLSETQ-PROCEED-CASE) ( 7 ((SPECVARS LISTFILE LISTING))) TRANSORFNSA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 LISTING F 3 SI::NLSETQ-VALUE) i@R hcg(10 TRANSLIST) (19 :NORMAL) () TRANSORFNS :D8 (P 6 SI::*NLSETQFLAG* P 5 *PROCEED-CASES* P 4 SI::NLSETQ-VALUE P 3 FN P 2 DEF P 1 LISTFILE P 0 LISTING I 0 FNLIST F 7 *PROCEED-CASES*) b0o @°3dKd3@ð²K Z —JK KoidµÎ`WM gð@(87 TRANSORFNSA0001 62 PRINT 47 TRANSFORM 39 EXPRP 33 VIRGINFN 12 DECLARE%:) (93 :NORMAL 75 SI::NLSETQ-PROCEED-CASE) ( 54 (NOT FOUND) 7 ((SPECVARS LISTING LISTFILE))) TRANSFORM :D8 (P 2 HELPCLOCK P 1 PASS1 P 0 L I 1 FNAME I 0 SOURCEXPR) S0o Aœ@@A@hh†@h@hh¸i g I ˆd ¿µöA“HH(67 PPASS1 59 DREVERSE 53 TRANSOR-PROCEED 43 WACHADOON 12 DECLARE%:) (48 TRANSFORM) ( 7 ((SPECVARS L PASS1))) TRANSEXIT :D8 (F 0 STOPPEDUP) $P²goo¿g (33 RETFROM 22 TRANSERR) (28 TRANSOR-PROCEED 7 TRANSERROR) ( 17 (CURRENTFORM CURRENTCOMS) 12 "The function TRANSEXIT missed the exit. Show Jim Goodwin.") KEEPLIST :D8 (P 0 TMP I 0 REMNAME F 1 LISTING F 2 PASS1 F 3 L F 4 TESTRAN) ;Qµkhc†dkØ¿Q@SRcT³@QXµ Q@QhQh h(55 \NCONC2) NIL () TRANSERRA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 MESS F 3 SI::NLSETQ-VALUE) 8i@i ¿i ¿oi ¿Ri ¿i hcg(44 TERPRI 37 PRIN1 29 PRIN1 17 TERPRI 10 TERPRI) (53 :NORMAL) ( 23 " TRANSOR made a translation error: ") TRANSERRA0002 :D8 (P 2 X P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 3 VARS F 4 SI::NLSETQ-VALUE) Ti@l ¿S°)dJid¿oi ¿J µØnè ¿i hcg(72 TERPRI 65 PRINTLEVEL 52 PRINT 47 \EVALV1 40 PRIN1 28 PRIN2 11 PRINTLEVEL) (81 :NORMAL) ( 34 ": ") TRANSERR :D8 (P 3 *CONDITION-HANDLER-BINDINGS* P 2 SI::*NLSETQFLAG* P 1 *PROCEED-CASES* P 0 SI::NLSETQ-VALUE I 2 VARS I 1 MESS I 0 REM F 4 *PROCEED-CASES* F 5 *CONDITION-HANDLER-BINDINGS*) Z@g@h ¿A²`TioUI B´'`TioUI gð´H(77 TRANSERRA0002 45 TRANSERRA0001 14 APPLY) (83 :NORMAL 58 SI::NLSETQ-PROCEED-CASE 26 SI::NLSETQ-PROCEED-CASE 6 KEEPLIST) ( 66 (CL:ERROR . SI::NLSETQHANDLER) 34 (CL:ERROR . SI::NLSETQHANDLER)) TRANSOUTA0001A0002 :D8 (NAME SI::*UNWIND-PROTECT* P 0 X I 0 SI::*CLEANUP-FORMS* F 1 XPR F 2 LAMBDAFONT F 3 FONTCHANGEFLG F 4 FILE) Tgðµ‚±Qdgð²c¿o Q°