(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10) (FILECREATED "29-Apr-2026 23:49:14" ("compiled on " {MEDLEY}tedit>TEDIT-FILE.;684) "29-Apr-2026 23:35:41" brecompiled exprs%: \TEDIT.INTERPRET.MCCS.SHIFTS in "FULL 29-Apr-2026 ..." dated "29-Apr-2026 23:35:50") (FILECREATED "29-Apr-2026 23:49:14" {MEDLEY}tedit>TEDIT-FILE.;684 174888 :EDIT-BY rmk :CHANGES-TO (FNS \TEDIT.INTERPRET.MCCS.SHIFTS) :PREVIOUS-DATE "24-Apr-2026 21:09:13" {MEDLEY}tedit>TEDIT-FILE.;683) TEDIT.GETA0001A0002 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 TEXTOBJ F 1 TSTREAM F 2 MAINWINDOW F 3 NTEXTOBJ F 4 PROPS F 5 SI::*RESETFORMS* F 6 ACTIVE F 7 TEDITCREATED F 8 NTSTREAM F 9 UNFORMATTED? F 10 FSTREAM) ÝgPÉLgð©PÉLµ` hhUc hdQhP Pg cP cd²P ¿Rg c¿W›giTc¿WRhdT cdÉcQSSQÎ.Qj R²$S ¿RgW¿RgQ¿V´Q (218 TEDIT 208 PUTWINDOWPROP 195 PUTWINDOWPROP 181 \TEDIT.UPDATE.TITLE 172 \TEDIT.TEXTSETFILEPTR 135 OPENTEXTSTREAM 105 GETWINDOWUSERPROP 93 TEDIT.KILL 82 \TEDIT.MAINW 74 GETTEXTPROP 63 \TEDIT.TEXTCLOSEF 57 \TEDIT.SHOWSEL 39 TTYDISPLAYSTREAM) (202 TEXTSTREAM 188 TEDITCREATED 162 TEXTOBJ 153 STREAM 143 STREAM 116 CLEARGET 100 TEDITCREATED 69 ACTIVE 34 PROMPTWINDOW 25 TEXTOBJ 17 DON'T 10 TEXTOBJ 4 TTYDISPLAYSTREAM) () TEDIT.GETA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 11 RESETSTATE P 10 SI::*RESETFORMS* P 9 LISPXHIST P 8 TEDITCREATED P 7 NTEXTOBJ P 6 NTSTREAM P 5 PROC P 4 ACTIVE P 3 MAINWINDOW P 2 GETFN P 1 FSTREAM P 0 TEXTOBJ I 0 SI::*CLEANUP-FORMS* F 12 FILE F 13 TSTREAM F 14 SI::*RESETFORMS* F 15 LISPXHIST) (W oHo hWcHÊ,jð³H ¿oiHÉL¡hWµ HoHg µH cd®HoidhHg Z²WW glJgð³×W Yd Igi³%HgW¿HWo ihW!g ¿$J²WHÉ, glJW(281 FULLNAME 258 SI::RESETUNWIND 253 \MVLIST 248 TEDIT.GETA0001A0002 231 TEDIT.PROMPTPRINT 225 CONCAT 211 PUTTEXTPROP 196 \GETSTREAM 183 STREAMP 176 \TEDIT.OPENTEXTFILE 151 FULLNAME 139 GETTEXTPROP 126 TEDIT.PROMPTPRINT 109 \TEDIT.MAKEFILENAME 104 TEDIT.GETINPUT 99 \TEDIT.LIKELY.FILENAME 91 GETTEXTPROP 67 MOUSECONFIRM 47 TEDIT.PROMPTCLEAR 25 \TEDIT.MARKACTIVE 6 TEXTOBJ) (286 AFTER 274 TEXTOBJ 243 SI::RESETUNWIND 204 LASTGETFILENAME 190 INPUT 166 DON'T 156 BEFORE 134 GETFN 86 LASTGETFILENAME 60 TEXTOBJ) ( 220 " not found--aborted" 119 "No input file--aborted" 80 "GET from: " 53 "Not saved yet; LEFT go Get anyway." 20 "Get" 14 (PROGN (\TEDIT.MARKINACTIVE OLDVALUE))) TEDIT.GET :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 3 PROPS I 2 UNFORMATTED? I 1 FILE I 0 TSTREAM F 3 LISPXHIST) &@ bS!g ¿$(31 SI::RESETUNWIND 26 \MVLIST 21 TEDIT.GETA0001 5 TEXTSTREAM) (16 SI::RESETUNWIND) () TEDIT.FORMATTEDFILEPA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 0 STREAM I 0 SI::*CLEANUP-FORMS* F 1 FILE F 2 SI::*RESETFORMS*) ^QgiH²ggQohQ °!oQ –Q €Qg XhRc¿H (91 \TEDIT.GET.TRAILER 76 OPENSTREAM 64 FULLNAME 57 STREAMP 44 GETFILEPTR 11 GETSTREAM) (71 INPUT 27 SETFILEPTR 22 PROGN 5 INPUT) ( 51 (PROGN (CLOSEF? OLDVALUE)) 33 (OLDVALUE)) TEDIT.FORMATTEDFILEP :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 0 FILE F 3 LISPXHIST) !@´S!g ¿$(26 SI::RESETUNWIND 21 \MVLIST 16 TEDIT.FORMATTEDFILEPA0001) (11 SI::RESETUNWIND) () TEDIT.FILEDATE :D8 (P 0 IDATE I 1 INTEGER I 0 FILE) @ l H´A‘HH (29 GDATE 12 NTH 5 TEDIT.FORMATTEDFILEP) NIL () TEDIT.INCLUDEA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 6 NDCSTREAM P 5 FTSTREAM P 4 WASOPEN P 3 FSEL P 2 TSEL P 1 FROMFILE P 0 TOOBJ I 0 SI::*CLEANUP-FORMS* F 7 START F 8 END F 9 TSTREAM F 10 FILE F 11 SI::*RESETFORMS* F 12 PLAINTEXT F 13 *TEDIT-EXTENSIONS* F 14 SAFE) üWÉWRoHo hWcHÉZdÊjðHoihHhJÉ³$Iµ#Ho YµHoih ³*I ³"IhW³HIo idhW£jc¿W®Wg c¿WWñžHoidhW³~Igi“i¼°Igho¹ggg¾I ›INWWŠINWW¿L¦I ¿N ¿jc¿Ng c¿NY€Igi³&Ig ¹HdghdddI ¿IhWWgHJ gHÉ:gWh ]d É [dkM ÉgKJMWKÉ(502 \TEDIT.COPY 492 \TEDIT.UPDATE.SEL 480 TEXTOBJ 471 \TEDIT.COPYSEL 454 TEXTOBJ 447 OPENTEXTSTREAM 414 \TEDIT.GET.INSERT.CHARLOOKS 395 \TEDIT.HISTORYADD 390 \TEDIT.HISTORY.EVENT 371 OPENSTREAM 358 \GETSTREAM 340 GETFILEINFO 324 CLOSEF 317 CLOSEF 308 COPYCHARS 296 COPYBYTES 284 \TEDIT.GET.TRAILER 277 OPENSTREAM 256 OPENSTREAM 234 \GETSTREAM 216 TEDIT.PROMPTPRINT 194 GETFILEINFO 170 TEDIT.PROMPTPRINT 163 CONCAT 149 FINDFILE-WITH-EXTENSIONS 138 FINDFILE 130 STREAMP 123 TEDIT.PROMPTPRINT 108 \TEDIT.MAKEFILENAME 103 TEDIT.GETINPUT 87 \TEDIT.READONLY 75 TEDIT.PROMPTPRINT 29 \TEDIT.MARKACTIVE) (487 LEFT 466 SELECTION 459 TEXTOBJ 432 PLAINTEXT 425 TEXTOBJ 419 PARALOOKS 407 FONT 379 :Closefile 366 INPUT 352 INPUT 335 LENGTH 272 NEW 267 OUTPUT 262 {NODIRCORE} 245 INPUT 228 INPUT 189 LENGTH 57 SELECTION 50 SELECTION 43 TEXTOBJ 6 STREAM) ( 251 ((TYPE TEXT)) 209 "Negative number of characters to include--aborted" 158 " not found--include aborted" 117 "No file to include--aborted]" 98 "Include from: " 69 "Please select a destination for the included text" 24 "Include" 18 (PROGN (\TEDIT.MARKINACTIVE OLDVALUE))) TEDIT.INCLUDE :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 5 PLAINTEXT I 4 SAFE I 3 END I 2 START I 1 FILE I 0 TSTREAM F 3 LISPXHIST) &@ bS!g ¿$(31 SI::RESETUNWIND 26 \MVLIST 21 TEDIT.INCLUDEA0001 5 TEXTSTREAM) (16 SI::RESETUNWIND) () TEDIT.RAW.INCLUDE :D8 (I 4 SAFE I 3 END I 2 START I 1 INFILE I 0 TSTREAM) @ABCDi (11 TEDIT.INCLUDE) NIL () TEDIT.PUTA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 7 FORM P 6 PUTSTRING P 5 NEWEXTFORMAT P 4 OLDEXTFORMAT P 3 PUTFN P 2 NEWPIECES P 1 CHARSTREAM P 0 TEXTOBJ I 0 SI::*CLEANUP-FORMS* F 8 FILE F 9 SI::*RESETFORMS* F 10 UNFORMATTED? F 11 TSTREAM F 12 FORCENEW F 13 QUIET F 14 FORMAT) ŽWÉaHg [²+WW glKgðžHoidhHÉjñ³ Hoo lYð´‚±NW ¢±ƒWgi²sW¹HÉ, ´HÉ,g \WµHg µ Lµg]oHo hWcoWgggW¢±Ìg±ÉW³=H ²1Hg ´%Hook gð€ic¿Wµ]W³9Hg ²,Hook gð—gc¿HoW¨HW €h ciðšHW c¿W’±þãHoidhghogMhhYhWcg`g hhWcW³!oI o¾HNi¿WIWMi YHg dO µñK²WI glK¿W³HNo i¿Wgð›HghI(650 TEXTPROP 628 TEDIT.PROMPTPRINT 622 CONCAT 595 FULLNAME 579 EVAL 566 GETTEXTPROP 554 TEDIT.PUT.STREAM 540 TEDIT.PROMPTPRINT 531 CONCAT 521 FULLNAME 496 \TEDIT.PUTRESET 466 OPENSTREAM 433 TEDIT.PROMPTPRINT 411 \TEDIT.LIKELY.FILENAME 397 \TEDIT.MAKEFILENAME 392 TEDIT.GETINPUT 385 \TEDIT.LIKELY.FILENAME 353 U-CASE 348 NTHCHAR 342 TEDIT.GETINPUT 324 TEXTPROP 294 U-CASE 289 NTHCHAR 283 TEDIT.GETINPUT 265 GETTEXTPROP 252 \TEDIT.FORMATTEDSTREAMP 198 \TEDIT.MARKACTIVE 171 GETTEXTPROP 155 STREAMPROP 140 STREAMP 127 \GETSTREAM 110 STREAMP 94 CHCON1 89 TEDIT.GETINPUT 64 TEDIT.PROMPTPRINT 34 FULLNAME 22 GETTEXTPROP) (644 TEMPLATE 636 DETEMPLATE 600 AFTER 561 TEDIT.PUT.FINISHEDFORMS 490 DON'T 485 \RUNNING.PROCESS 480 \TEDIT.PUTRESET 453 FORMAT 440 BINARY 365 DETEMPLATE 358 N 319 TEMPLATE 299 N 260 CLEARGET 239 TEXT 228 TYPE 223 NEW 218 OUTPUT 181 :DEFAULT 166 OUTPUT-FORMAT 150 FORMAT 121 OUTPUT 49 DON'T 39 BEFORE 17 PUTFN 6 STREAM) ( 617 "done" 526 "..." 515 "Put to " 448 (LINELENGTH T) 426 "No output file--aborted" 374 "Put to: " 337 "No" 332 "Overwrite template? " 278 "No" 273 "Convert plaintext to formatted file? " 211 (AND RESETSTATE (DELFILE (CLOSEF? OLDVALUE))) 193 "Put" 187 (PROGN (\TEDIT.MARKINACTIVE OLDVALUE)) 84 "Yes" 79 "Document is empty. Save anyway? " 57 "This document cannot be saved") TEDIT.PUT :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 5 QUIET I 4 FORMAT I 3 UNFORMATTED? I 2 FORCENEW I 1 FILE I 0 TSTREAM F 3 LISPXHIST) @@ bd gðœ@oiS!g ¿$(57 SI::RESETUNWIND 52 \MVLIST 47 TEDIT.PUTA0001 32 TEDIT.PROMPTPRINT 13 \TEDIT.READONLY 5 TEXTSTREAM) (42 SI::RESETUNWIND 18 READONLY) ( 26 "Cannot save a read-only text-stream--aborted") TEDIT.PUT.STREAMA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 2 OPENEDHERE P 1 NEWPIECES P 0 TEXTOBJ I 0 SI::*CLEANUP-FORMS* F 3 DESTSTREAM F 4 UNFORMATTED? F 5 TSTREAM F 6 SI::*RESETFORMS* F 7 EXTERNALFORMAT F 8 CONTINUE) ôU !Sgi³$oSghochVc¿iºWSgW¿HSTWYW¢±‰S T³S gSi ¿Sg cdUISj Si HÉ,˜HÉ, ¿HS,HjÏ,¿jdðhðHS Hdg HgTSJ²ýS µS (241 FULLNAME 233 CLOSEF? 222 PUTTEXTPROP 210 \TEDIT.HISTORYADD 205 \TEDIT.HISTORY.EVENT 193 \TEDIT.UPDATE.TITLE 170 CLOSEF? 158 \PEEKBIN 151 SETFILEPTR 144 \TEDIT.INSERT.NEWPIECES 134 OPENSTREAM 122 SETFILEINFO 117 TEDIT.FILEDATE 105 FULLNAME 96 CLOSEF? 83 \TEDIT.PUT.PCTB 72 STREAMPROP 44 OPENSTREAM 20 \GETSTREAM 5 TEXTOBJ) (216 CLEARGET 200 :Put 129 INPUT 110 ICREATIONDATE 65 FORMAT 33 OUTPUT 14 OUTPUT) ( 39 (LINELENGTH T) 27 (AND RESETSTATE (DELFILE (CLOSEF? OLDVALUE)))) TEDIT.PUT.STREAM :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 4 CONTINUE I 3 EXTERNALFORMAT I 2 UNFORMATTED? I 1 DESTSTREAM I 0 TSTREAM F 3 LISPXHIST) S!g ¿$(23 SI::RESETUNWIND 18 \MVLIST 13 TEDIT.PUT.STREAMA0001) (8 SI::RESETUNWIND) () \TEDIT.GET.FOREIGN.FILE :D8 (P 8 FILETYPE P 4 FTEXTOBJ P 3 FSTREAM P 2 USERTEMP P 1 USERFILEFORMAT P 0 TTEXTOBJ I 4 PROPS I 3 END I 2 START I 1 TSTREAM I 0 TEXT) Š AÉa`OµYhYd²R¾@ADJBClN[d²@ ´9AdKð³3¿K \ hH¿HLÉ¿HLÉTT¿HLÉ::¿HLÉ@@A_½@ADlMZ“O°™O_°Ž(80 \TEDIT.INSERTPIECES 73 \TEDIT.FIRSTPIECE 67 TEXTOBJ 52 TEXTSTREAMP) (15 TEDIT.INPUT.FORMATS 5 STREAM) () \TEDIT.GET.UNFORMATTED.FILEA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 4 PIECES P 3 DEFAULTPARALOOKS P 2 DEFAULTCHARLOOKS P 1 FORMAT P 0 TEXTOBJ I 0 SI::*CLEANUP-FORMS* F 7 STREAM F 8 START F 9 END F 10 SI::*RESETFORMS* F 11 TSTREAM) rgWgWgghhdWcWW WÉWg RHgiHÉ@ZHÉ:[Idgð²!¿WgižWg c¿IgðªIdgð²¿WWWJK ±´gð²WWWJK ±›Igð²YWgižWg c¿`dW¿dW¿WWÙâ½dM¿dJ¿djÏ¿dK¿dlÏ¿dl°7`dW¿dW¿WWÙ¾dN¿dJ¿djÏ¿dK¿djÏ¿dk¿\dhH(367 \TEDIT.INSERTPIECES 241 COPYFILE 228 \IOMODEP 203 \TEDIT.GET.UNFORMATTED.FILE.UTF8 178 \TEDIT.GET.UNFORMATTED.FILE.MCCS 142 COPYFILE 129 \IOMODEP 87 PUTTEXTPROP 72 STREAMPROP 51 \SETFILEPTR 28 STREAMPROP) (307 |PIECETYPE#| 249 |PIECETYPE#| 236 {NODIRCORE} 222 OUTPUT 212 :STRING 186 :UTF-8 160 :XCCS 151 :MCCS 137 {NODIRCORE} 123 OUTPUT 112 :STRING 102 TEXTOBJ 93 TEXTOBJ 81 CLEARGET 67 FORMAT 58 STREAM 23 NILL 18 ENDOFSTREAMOP 11 ENDOFSTREAMOP 4 STREAMPROP) () \TEDIT.GET.UNFORMATTED.FILE :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 4 PROPS I 3 END I 2 START I 1 TSTREAM I 0 STREAM F 3 LISPXHIST) S!g ¿$(23 SI::RESETUNWIND 18 \MVLIST 13 \TEDIT.GET.UNFORMATTED.FILEA0001) (8 SI::RESETUNWIND) () \TEDIT.GET.FORMATTED.FILE :D8 (P 5 PC P 4 PROPS P 3 IDATE P 2 PCCOUNT P 1 TRAILER P 0 TEXTOBJ I 4 PROPS I 3 END I 2 START I 1 TSTREAM I 0 TEXT) ËAÃ‘A‡AÉ@C BI´‚±žHhTHI\IZIdlð²¿@AJBC hH°Cdlð¿@AJBC °0dkð¿@AJBC °jðž@AJJBC ‰o ¿H ]µgHÉ\gð¥A HkÏ¿°â(192 \TEDIT.MCCS.TRANSLATE 166 \TEDIT.LASTPIECE 159 \TEDIT.THELP 148 \TEDIT.GET.PCTB0 129 \TEDIT.GET.PCTB1 111 \TEDIT.GET.PCTB2 92 \TEDIT.INSERTPIECES 85 \TEDIT.GET.PIECES3 28 \TEDIT.GET.TRAILER) (184 MCCS 174 CHARENCODING 44 TEXTOBJ 21 TEXTOBJ 14 STREAM 5 TEXTOBJ) ( 154 "File format version incompatible with this version of TEdit.") \TEDIT.FORMATTEDSTREAMP :D8 (P 5 PC P 4 TENTATIVE P 3 DEFAULTPLOOKS P 2 DEFAULTCLOOKS P 1 FORMATLEVEL P 0 TEXTOBJ I 0 TSTREAM) À@ jHÉ@HÉ:Hg H °]MÊjð£MÉ©KMÉ «Idlñ³=¿l°8JMÉ ™L²MÊjð«Idlñ³¿l°MÊo —Idkñ¡¿k¹MÉµ Ijð²h]Êlð²lY°éIdlð•glð•gIlð´g(116 MEMB 79 \TEDIT.EQCLOOKS 57 \TEDIT.EQFMTSPEC 35 \TEDIT.FIRSTPIECE 26 GETTEXTPROP 5 TEXTOBJ) (189 IMAGEOBJ 177 PARALOOKS 167 CHARLOOKS 142 PIECE 21 TEDIT.TENTATIVE) ( 111 (2 4)) \ARBIN :D8 (P 1 USERSTR P 0 LEN I 0 STREAM) A@ á@ ØHjð³2H—H ³&@H g Y` I ¿h(59 CLOSEF? 53 READ 42 OPENSTRINGSTREAM 32 \STRINGIN 23 \FZEROP) (48 *TEDIT-FILE-READTABLE* 37 INPUT) () \ATMIN :D8 (P 2 I P 0 LEN I 0 STREAM) H@ á@ ØHjðªHd˜ ‘hHk2JIó³@ ½Lµ Mh\»JkÔZ°èM&¼°÷K (69 PACK 42 CHARACTER 22 \FZEROP) NIL () \DWIN :D8 (I 0 FILE) @ ááá@ ááØ@ áØ@ ØNIL NIL () \STRINGIN :D8 (P 3 I P 1 STR P 0 LEN I 1 SETLEN I 0 STREAM) EAµ@ á@ ØH YHjð³,Hd— ³ HkKJó³IK@ ¿KkÔ[°êI(58 RPLCHARCODE 53 READCCODE 33 \FZEROP 17 ALLOCSTRING) NIL () \TEDIT.GET.TRAILER :D8 (P 5 PROPS P 4 IDATE P 3 VERSION P 2 PCCOUNT P 1 TRAILERSIZE P 0 PIECESTART I 1 LEN I 0 STREAM) —Aµ@ bdlñ´‚±ƒ€@AlÙ @ X@ á@ ØZ@ á@ Ødnÿñ•nÿÿÙkÙnz·Ù[ddlð²&¿@A _¹O^¼N½HIKJLMh°lð¨Kkð¤Kjð´HlKJhdd@j ¿(147 SETFILEPTR 90 \MVLIST 85 \TEDIT.GET.PROPS3 39 \DWIN 33 SETFILEPTR 8 GETEOFPTR) NIL () \TEDIT.CACHEFILE :D8 (P 0 CACHE I 3 END I 2 START I 1 TEXTOBJ I 0 TEXT) kgggog@g hhXB¢C²@HBµjCµmÿ†@H ¿@ AµHgi¿°ò(102 PUTTEXTPROP 86 CLOSEF 79 COPYBYTES 71 COPYBYTES 49 OPENSTREAM 38 GETSTREAMPROP) (96 CACHE 33 :EXTERNAL-FORMAT 27 :EXTERNAL-FORMAT 17 NEW 12 BOTH 7 {NODIRCORE}) ( 22 (TYPE TEXT)) \TEDIT.GET.PIECES3 :D8 (P 20 PARALOOKS P 19 J P 17 CHARLOOKS P 16 J P 14 P P 11 OLDPARALOOKS P 10 DEFAULTCHARLOOKS P 9 CHARLOOKSMAP P 8 PARALOOKSMAP P 7 FIRSTPC P 6 PREVPC P 5 BYTELEN P 4 PC P 3 ORIGBYTE# P 2 TEXTOBJ P 1 PCNO I 4 END I 3 CURTEXTBYTE# I 2 PCCOUNT I 1 TSTREAM I 0 TEXT) ¿@Dµd lÙ @d BkAÉC¤ JÉ@_¿JÉ:_¿`dj¿dj¿_¾IHó´OÉ\hÎ ¿L±à¼@ ½@ á@ Ødjð²>¿`d@¿dC¿dM¿dO¿djÏ¿dk¿dNÎ ¿\@ ¿CMÔb±xdlð²#¿Nµ@ _¿JkÏ:±XkÏ¿°ådkð²h¿`d@¿dC¿dk¿dO¿dlÏ¿dNÎ ¿¼AL@C¿CMÔb¿L@ _jð³Oµ@J ±ø ²ïN”NÉµïO°ëdlð²Q¿ImÿÔ¹J@J V¿JÉV _¿JÉVkOµ±°_"¿OO O"¿O kÔ_ ¿O_°Ýdlð²P¿ImÿÔ¹J@J X¿JÉX _¿JÉXkO$µ°[_(¿OO&O(¿O&kÔ_&¿O$_$°Þlð²J@` T°"Joi¿@d @ á@ ØØ ¿L–NL¿L¾IkÔY±þh¿OÉµ(@g dgð§dgð—¿L@ L_É²OOOÉ ¿OÉ²§OÉ_¿OOjð³ŠOO ±ÿ€(698 ELT 653 ELT 615 \TEDIT.INTERPRET.MCCS.SHIFTS 591 STREAMPROP 552 SETFILEPTR 540 GETFILEPTR 532 TEDIT.PROMPTPRINT 516 \TEDIT.PARSE.PAGEFRAMES 511 READ 479 SETA 446 ARRAY 441 LENGTH 430 \TEDIT.GET.PARALOOKS.LIST 395 SETA 361 ARRAY 356 LENGTH 345 \TEDIT.GET.CHARLOOKS.LIST 312 \FZEROP 302 \TEDIT.GET.SINGLE.CHARLOOKS 273 \TEDIT.GET.OBJECT 195 \TEDIT.GET.PARALOOKS.INDEX 170 \TEDIT.GET.CHARLOOKS.INDEX 107 \DWIN 29 SETFILEPTR 24 \DWIN 17 SETFILEPTR 9 GETEOFPTR) (683 PIECE 671 PIECE 646 PIECE 637 PIECE 622 PIECE 605 :XCCS 597 :MCCS 586 FORMAT 506 *TEDIT-FILE-READTABLE* 229 |PIECETYPE#| 204 TEXTOBJ 125 |PIECETYPE#| 65 |PIECETYPE#| 44 TEXTOBJ 37 STREAM) ( 526 "WARNING: Unknown-type piece skipped.") \TEDIT.GET.PROPS3 :D8 (P 5 PROPS P 4 PROPSLEN P 3 IDATE P 2 TRAILERSIZE P 1 DATEPTR P 0 ORIGPTR I 1 END I 0 STREAM) ÎAlñ´‚±Å@ AlÙl3@I @ lDð¢±Œ@ lAð¢±ƒ@ lTð²{@ lEð²t@ l:ð²m@ »Jl ÔºAJl Øñ²Y@Il Ù ¿@ lPð²G@ lRð²@@ lOð²9@ lPð²2@ lSð²+@ l:ð²$@ ¼@ILÙ ¿@` ½JLÔº@H JKµ @g M$(199 GETFILEINFO 184 SETFILEPTR 171 READ 159 SETFILEPTR 149 \DWIN 100 SETFILEPTR 76 \DWIN 31 SETFILEPTR 15 GETFILEPTR) (194 ICREATIONDATE 166 *TEDIT-FILE-READTABLE*) () \TEDIT.MAKE.STRINGPIECE :D8 (P 0 SPIECE I 1 STRING I 0 PC) ™A —kA …A b0AÊjð¦A ƒAÊ‡lDð²*`@ dlÏ¿dA¿A ¹dI¿dl°'`@ dlÏ¿dA¿A ºdJ¿dk¿d@Î ¿X@É–@ÉHÎ ¿@HH(117 NCHARS 99 NCREATE2 77 NCHARS 59 NCREATE2 38 %%ARRAY-TYPE-NUMBER 20 CONCAT 13 ALLOCSTRING 5 CHARCODEP) (93 |PIECETYPE#| 53 |PIECETYPE#|) () \TEDIT.GET.UNFORMATTED.FILE.MCCS :D8 (P 12 C P 11 I P 9 STRING P 8 STARTPOS P 7 PLEN P 6 CHARLIST P 5 TWOBYTE P 4 CHAR P 3 PC P 2 PREVPC P 1 CHARSET P 0 FIRSTPIECE I 4 DEFAULTPARALOOKS I 3 DEFAULTCHARLOOKS I 2 END I 1 START I 0 STRM) Ä `dj¿dj¿j‚ Hºj_¿@ _¿@ \²4Llÿð³.M—Lá¹@ \²$ILä¼M§Ijð£LN¾OkÔ_¿Lo ²ËOjð’±+Ldl ð²4¿M² @i jð²O@ ¿@i l ð²9@ °;@i l ð²0@ °+l ð²'Odkð˜¿o^°mÿÔ_¿@ ¿M–@ ¿N²fN hdi_¿NOOµ*h¾`dlÏ¿dO¿dO¿dl¿dj°i_¿OOO¿O_¿OmÿÔ_¿°µM²%`dlÏ¿d@¿dO¿dO¿dl°!`djÏ¿d@¿dO¿dO¿dk¿[C¿KD¿KJÎ ¿JK¿KºLdlÿð²,¿@ YµHÉlÿð´@ YµHÉjð¦@ ¿i½Iá¹±þ^’±þZHÉ(433 \MCCS.24BITENCODING.ERROR 282 RPLCHARCODE 213 ALLOCSTRING 205 LENGTH 195 \BACKFILEPTR 186 \BACKFILEPTR 145 \PEEKCCODE 129 \PEEKCCODE 115 \PEEKCCODE 87 MEMB 31 GETFILEPTR) (342 |PIECETYPE#| 307 |PIECETYPE#| 235 |PIECETYPE#| 4 |PIECETYPE#|) ( 171 (13) 82 (13 10)) \TEDIT.INTERPRET.MCCS.SHIFTS :D8 (P 2 EOLC P 1 BYTE P 0 PC I 1 PFILE I 0 PIECES) f0@±?HÉ ¿A Ylÿð¢±’A Ydjð²-¿HHÉlÔ¿HHÉmþÔ±õlÿð²NA jð³oA lÙ ¿HlÏ¿HHÉlÔ¿HHÉlÙâ±¤HIA±™HÊlð²HHÉâ°|Hk¿AHÉHÉØkÙ ¿A Ydl ð²S¿HÉkð²HlÏ¿Hkl °BHHÉmÿÔ¿A l ð”lZ°kºHl HjÏ¿XŒl ð‘jºHjÏ¿HÉµJ™AJÏ@¸AdHÉð’±þ§°Ü(299 \TEDIT.MAKE.STRINGPIECE 280 \BACKBIN 250 ALLOCSTRING 216 \SETFILEPTR 165 \TEDIT.RUN.TO.STRINGPIECE 106 \TEDIT.THELP 98 GETFILEPTR 14 \SETFILEPTR) (343 PIECE 332 STREAM 266 PIECE 260 PIECE 189 PIECE 183 PIECE 146 PIECE 140 PIECE 126 PIECE 120 PIECE 66 PIECE 60 PIECE 46 PIECE 40 PIECE) ( 92 "MCCS CHARACTER NOT IN PLANE 0, FILEPOS = ") \TEDIT.CONVERT.XCCSTOMCCSA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 2 CHAR P 1 CHNO I 0 SI::*CLEANUP-FORMS* F 3 TSTREAM F 4 SI::*RESETFORMS*) eggSohSgghTcS kIHó‘hSI Z²Jd Zð«SIJhi ¿IkÔY°Õ(92 \TEDIT.RPLCHARCODE 78 MTOXCODE 66 TEDIT.NTHCHARCODE 49 TEDIT.NCHARS 36 TEXTPROP) (31 OFF 26 HISTORY 9 TEXTPROP 4 PROGN) ( 15 ((QUOTE HISTORY) OLDVALUE)) \TEDIT.CONVERT.XCCSTOMCCS :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 0 TSTREAM F 3 LISPXHIST) S!g ¿$(23 SI::RESETUNWIND 18 \MVLIST 13 \TEDIT.CONVERT.XCCSTOMCCSA0001) (8 SI::RESETUNWIND) () \TEDIT.RUN.TO.STRINGPIECE :D8 (P 2 I P 0 STRING I 2 PFILE I 1 CHARSET I 0 PC) AAáb@Éhdi!@Ékº¹JIó²@lÏ@H@l@HJAB ä¿JkÔZ°Û(56 RPLCHARCODE 14 ALLOCSTRING) NIL () \TEDIT.GET.UNFORMATTED.FILE.UTF8 :D8 (P 11 PREVCRLF P 10 CODESIZE P 9 CRBEFORE P 8 FILEPOS P 7 RUNLEN P 6 PTYPE P 5 PREVPC P 4 CHAR P 3 EOLC P 2 NEXTCODESIZE P 1 FIRSTPC P 0 NEXTFILEPOS I 4 DEFAULTPARALOOKS I 3 DEFAULTCHARLOOKS I 2 END I 1 START I 0 STRM) KA`dC¿dD¿dj¿dj¿k³ @ dgð•¿Hl°"dgð¨dgð²¿o ¿HlÔX¿J_¿I½H_¿BHñ²?@ \ ºOJð£h¼°)@ ºHJÔ¸Lo ²Ï@ µj ºHOÙ_¿Ll ð—OmÿÔ_Ojñ²OOkð‘jl¾M`dNÏ¿d@¿dO¿OOÛ_¿dO¿dC¿dD¿dO¿dMÎ ¿_¿O½Ll ð²O“l»Šk»Ml ½BHñ³Kš@KÏ¿IÉJ_¿Ll ð_¢±ÿj»±ÿ(287 \TEDIT.MAKE.STRINGPIECE 160 NUTF8-BYTE1-BYTES 152 \PEEKBIN 144 MEMB 128 UTF8.VALIDATE 112 NUTF8-BYTE1-BYTES 106 \PEEKBIN 78 ERROR 36 READBOM) (301 STREAM 203 |PIECETYPE#| 64 :UTF-16LE 56 :UTF-16BE 42 :UTF-8 5 |PIECETYPE#|) ( 139 (13 10) 73 "BOM :UTF-16 not yet implemented") \TEDIT.GET.CHARLOOKS.LIST :D8 (P 1 I I 1 TEXTOBJ I 0 FILE) ,@ á@ Øk2IHó‘J@A ¼Kµ Lh[ºIkÔY°çL&»°÷(22 \TEDIT.GET.SINGLE.CHARLOOKS) NIL () \TEDIT.GET.SINGLE.CHARLOOKS :D8 (P 29 PROPS P 28 PROPS P 27 BITS P 26 ITALIC P 25 BOLD P 24 STYLESTR P 23 SUPER P 22 SIZE P 21 NAME P 20 FONT P 19 LOOKSLEN P 18 FILEPOS P 2 LOOKS I 1 TEXTOBJ I 0 FILE) ¤`dg¿ghhHdI ¿dj¿ñ@ @ á@ Ø@ _*¿@ á@ Ø_,¿@ á@ Ødnÿñ•nÿÿÙkÙ_.¿J@ µj¿@ _:do ’°rdgð³gdgð²2¿O:g¿O:O:¿gO:[µ°=g¿Kd°.gð²O:² O:O:°gO:oh_:¿JgO:¿ggO:JÉ ¿ggO:JÉ ¿@ á@ Ø_6nå\jðµ L´L hð_2¿O6nå]jðµ M´M hð_4¿JO6n å^jð¬N–N ¡k€jÏ¿JO6nå_jð®O—O ¡k€jÏ0¿JO6nå_jðµO´ O hð¿JO6nå_jð®O—O ¡k€jÏ¿JO6l€å_jð®O—O ¡k€jÏ ¿JO6l@å_jð®O—O ¡k€jÏ0¿JO6l å_jð®O—O ¡k€jÏ¿JO6lå_jð®O—O ¡k€jÏ¿JO6lå_jð®O—O ¡k€jÏ ¿JO6lå_jð®O—O ¡k€jÏ0¿JO6lå_ jð®O —O ¡k€jÏ¿JO6kå_"jð®O"—O" ¡k€jÏ ¿JO.¿O*d²)O*_* _(g ¿O(jÏ°1O,O2•g„gO4•g„gg_(¿JO(¿@O$O&Ø J(928 SETFILEPTR 908 FONTCREATE 903 PACK* 835 FONTCLASS 799 \FZEROP 764 \FZEROP 728 \FZEROP 692 \FZEROP 656 \FZEROP 620 \FZEROP 584 \FZEROP 548 \FZEROP 512 \FZEROP 478 \FZEROP 439 \FZEROP 402 \FZEROP 371 \FZEROP 344 \FZEROP 315 PUTASSOC 292 PUTASSOC 138 MEMB 123 \ARBIN 111 \ARBIN 71 \ARBIN 47 GETFILEPTR) (898 R 893 R 887 I 879 M 873 B 857 FONTCLASS 847 TEDIT-FONTCLASS 842 FONTCLASS 813 CHARLOOKS 778 CHARLOOKS 742 CHARLOOKS 706 CHARLOOKS 670 CHARLOOKS 634 CHARLOOKS 598 CHARLOOKS 562 CHARLOOKS 526 CHARLOOKS 489 CHARLOOKS 453 CHARLOOKS 416 CHARLOOKS 382 CHARLOOKS 303 CHARENCODING 298 CLCHARENCODING 280 USERINFO 275 CLUSERINFO 263 COLOR 243 USERINFO 217 COLOR 203 USERINFO 190 \TEDIT.USERINFO 173 COLOR 161 \TEDIT.COLOR 152 * 19 CLUSERINFO 11 BLACK 4 |CHARLOOKSTYPE#|) ( 251 (COLOR . BLACK) 133 (CHARPROPS \TEDIT.CHARPROPS)) \TEDIT.GET.CHARLOOKS :D8 (P 0 FLAGS I 2 LOOKSARRAY I 1 FILE I 0 PC) \A !@BA áA Ø HkåYjð³I–I ¥@kÏ¿HlåZjð³%J—J ³@dÉlÛ@lÏ@llh(63 \FZEROP 37 \FZEROP 17 ELT) NIL () \TEDIT.GET.PARALOOKS.INDEX :D8 (I 1 PARAHASH I 0 STREAM) @ á@ ØNIL NIL () \TEDIT.GET.CHARLOOKS.INDEX :D8 (P 0 FLAGS I 1 FORMATSTREAM I 0 PC) LA !@A áA ØHkåYjð³I–I ¥@kÏ¿HlåZjð³J–J @l@lÏlh(57 \FZEROP 31 \FZEROP) NIL () \TEDIT.GET.PARALOOKS.LIST :D8 (P 1 I I 1 TEXTOBJ I 0 FILE) ,@ á@ Øk2IHó‘J@A ¼Kµ Lh[ºIkÔY°çL&»°÷(22 \TEDIT.GET.SINGLE.PARALOOKS) NIL () \TEDIT.GET.SINGLE.PARALOOKS :D8 (P 9 TAB# P 5 TABS P 4 DEFTAB P 3 TABFLG P 2 LOOKSLEN P 1 FILEPOS P 0 PARALOOKS I 1 TEXTOBJ I 0 FILE) þ `dj ¿dj¿dj¿@ @ á@ ØSH@ á@ Ødnÿñ•nÿÿÙkÙH@ á@ Ødnÿñ•nÿÿÙkÙH@ á@ Ødnÿñ•nÿÿÙkÙH@ á@ Ødnÿñ•nÿÿÙkÙH@ á@ Ødnÿñ•nÿÿÙkÙH@ á@ Ødnÿñ•nÿÿÙkÙ @ [H@ dkð—¿g°0dlð—¿g°#dlð—¿g°lð•g‰o Kkå^jð’±äN™N ’±Ö@ á@ Ødnÿñ•nÿÿÙkÙ\kñ¢l$¼HL.¿@ k2OOó’± @ á@ Ødnÿñ•nÿÿÙkÙ@ djð—¿g°]dkð—¿g°Qdlð—¿g°Ddlð—¿g°7dlð—¿g°*dlð—¿g°dlð–¿gŽlð•g„_¿OµOh__¿OkÔ_±ÿgO&_¿°ñO½HM0¿HÉ.¥Hl$.¿Klå_jð’±öOšO ’±æH@ á@ Ødnÿñ•nÿÿÙkÙ¿H@ á@ Ødnÿñ•nÿÿÙkÙ¿H@ ¿H@ ¿H@ ¿H@ ¿H@ ¿H@ ¿H@ "¿H@ ‘k€jÏ¿H@ $¿@ IJØýñ™H@ ¿@ IJØýñ™H@ *¿@ IJØýñ™H@ &¿@ IJØýñ™H@ ¿@ IJØýñ²Aoi¿@IJØ H(762 SETFILEPTR 752 TEDIT.PROMPTPRINT 733 GETFILEPTR 724 \ARBIN 711 GETFILEPTR 702 \ARBIN 689 GETFILEPTR 680 \ARBIN 667 GETFILEPTR 658 \ARBIN 645 GETFILEPTR 636 \ARBIN 621 \ARBIN 611 \ARBIN 601 \ARBIN 591 \ARBIN 581 \ARBIN 571 \ATMIN 561 \ATMIN 551 \ARBIN 496 \FZEROP 419 \TEDIT.THELP 247 \FZEROP 225 \TEDIT.THELP 26 GETFILEPTR) (413 DOTTEDDECIMAL 403 DOTTEDCENTERED 390 DOTTEDRIGHT 377 DOTTEDLEFT 364 DECIMAL 351 CENTERED 338 RIGHT 326 LEFT 214 JUSTIFIED 203 CENTERED 190 RIGHT 177 LEFT 4 |PARALOOKSTYPE#|) ( 746 "WARNING: Newer file version; you lost PARALOOKS info" 220 "UNRECOGNIZED QUAD BYTE") \TEDIT.GET.OBJECT :D8 (P 3 OBJ P 2 GETFN P 1 FILEPTRSAVE P 0 TEXTOBJ I 4 BYTELEN I 3 CURTEXTBYTE# I 2 FILE I 1 PIECE I 0 TSTREAM) ¹@ 1B ZB YBC BJhD[dg ²6@Kg •o„oKg i¿BI AKAdÉ –dÉ É°HÉ@µ` H AKg ’llÏK(172 IMAGEOBJPROP 158 \TEDIT.UNIQUIFY.CHARLOOKS 152 \TEDIT.CHARLOOKS.FROM.FONT 111 SETFILEPTR 103 TEDIT.PROMPTPRINT 97 CONCAT 92 IMAGEOBJPROP 69 \DEFINEDP 64 IMAGEOBJPROP 50 IMAGEOBJPROP 38 READIMAGEOBJ 29 SETFILEPTR 21 GETFILEPTR 14 \ATMIN 5 TEXTOBJ) (167 SUBSTREAM 147 DEFAULTFONT 138 TEXTOBJ 117 PIECE 87 UNKNOWNGETFN 59 UNKNOWNGETFN 45 UNKNOWNGETFN) ( 81 "Image object with unknown GETFN " 75 "Cannot read image object with GETFN ") \TEDIT.PUT.PCTB :D8 (P 22 A0226 P 21 A0225 P 20 A0224 P 19 A0223 P 17 UNFORMATTED? P 16 RUNLEN P 15 NEXTNEW P 14 PFILE P 13 PC P 12 EOLC P 11 EXTFORMAT P 10 *PRINT-BASE* P 9 *READTABLE* P 8 PARAHASH P 7 LOOKSHASH P 6 EDITSTENTATIVE P 5 PCCOUNT P 4 NEWPIECES P 3 UNFORMATTED? P 2 OLDTEXTBYTE# P 1 CURTEXTBYTE# P 0 NSHIFTBYTES I 4 KEEPSEPARATE I 3 CONTINUE I 2 FORMATSTREAM I 1 CHARSTREAM I 0 TEXTOBJ) WD²B ªo ¿Ag gð–@ ¿jddBiðB ³gggob¿C´`dj¿dj¿j@g l2 l2 `l Ag AÊm@ µ±^_¿L_¿@ÉTB@ÉT ¿MkÔ½@ ¿@ ¿BO@ÉX¿BO@ÉV¿AÉ ÉNAkO&YºOÉ_$jð’±îO$šO$ ’±ÞOÉ ™OÉ Êjð®BOO¿MkÔ½Oo ²7AOÊo ‘i€j ¿AÉ ÉNAkO(JÙ¸OA@BJ ¿OdÉNO@ —OÉ_°ßAÉ ÉNAkO*YJÙ_ ¿OÊlð®BO ONO ¿MkÔ½L²OOJO O@OH _¿IºOÉµEK³dgð”¿l°1dgð§dgð”¿l°dgð§dgð“¿l…¿ J¤I¢±ì@Iµj_"¿_ O"ãlÿå ¿O O"lÿå ¿J lÿñšo ¿@J ¿J±œd@O0_&¿_$O&ãlÿå ¿O$O&lÿå ¿@O0dgð“¿j°]dgð“¿k°Qdgð”¿l°Ddgð”¿l°7dgð”¿l°*dgð”¿l°dgð“¿lŽgð’l„ µ‚±ÿc@AÉµj_*¿_(O*ãlÿå ¿O(O*lÿå ¿@AÉµj_.¿_,O.ãlÿå ¿O,O.lÿå ¿@AÉ @AÉ @AÉ @AÉ @AÉ @AÉ @AÉ" @AÊjðhð @AÉ$ @AÉ @AÉ* @AÉ& @AÉ @ HÙ[@H @Kãlÿå ¿@Klÿå @mÿ (808 SETFILEPTR 800 \BOUT 789 \BOUT 778 SETFILEPTR 768 GETFILEPTR 762 \ARBOUT 753 \ARBOUT 744 \ARBOUT 735 \ARBOUT 726 \ARBOUT 717 \ARBOUT 703 \ARBOUT 694 \ARBOUT 685 \ARBOUT 676 \ARBOUT 667 \ATMOUT 658 \ATMOUT 649 \ARBOUT 639 \BOUT 626 \BOUT 602 \BOUT 589 \BOUT 557 \BOUT 552 \TEDIT.THELP 444 \BOUT 431 \BOUT 401 \BOUT 396 LENGTH 388 \TEDIT.THELP 374 LENGTH 367 \BOUT 354 \BOUT 326 \BOUT 321 \TEDIT.THELP 245 \BOUT 221 \BOUT 208 \BOUT 187 \BOUT 174 \BOUT 153 \BOUT 140 \BOUT 119 \BOUT 106 \BOUT 85 \BOUT 73 \BOUT 53 \BOUT 42 \BOUT 26 \BOUT 18 \BOUT 5 GETFILEPTR) (542 DOTTEDDECIMAL 531 DOTTEDCENTERED 518 DOTTEDRIGHT 505 DOTTEDLEFT 492 DECIMAL 479 CENTERED 467 RIGHT 455 LEFT 309 JUSTIFIED 301 JUST 288 CENTERED 280 CENTER 267 RIGHT 255 LEFT) ( 383 "Paragraph has more than 255 TABs set--can't be saved.") \TEDIT.PUT.PARALOOKS :D8 (I 2 PARAHASH I 1 PC I 0 LOOKSFILE) 8@j @j ¿@l @AÉB HIã HIlÿå (53 \BOUT 43 \BOUT 32 GETHASH 22 \BOUT 13 \BOUT 6 \DWOUT) NIL () TEDITFROMLISPSOURCE :D8 (I 5 END I 4 START I 3 USERTEMP I 2 PROPS I 1 TSTREAM I 0 SOURCEFILE F 0 DEFAULTFONT F 1 TEDIT.SOURCE.LINELENGTH F 2 TEDIT.SOURCE.NLINES) \Aµ bghgQl P ÖgRP È ÖgCÉ o @A A(88 COPY.TEXT.TO.IMAGE 81 PUTTEXTPROPS 63 TEDIT.ATOMBOUND.READTABLE 42 FONTCREATE 29 CHARWIDTH 7 OPENTEXTSTREAM) (56 READER-ENVIRONMENT 50 BOUNDTABLE 35 OPENHEIGHT 20 OPENWIDTH 14 PARABREAKCHARS) ( 68 (DEFAULTPUTEXTENSION "")) SHELLSCRIPTP :D8 (I 0 FILE) @g gð(15 L-CASE 10 FILENAMEFIELD) (20 sh 5 EXTENSION) () TEDITFROMSHELLSCRIPT :D8 (I 5 END I 4 START I 3 USERTEMP I 2 PROPS I 1 TSTREAM I 0 SOURCEFILE F 0 DEFAULTFONT) \@ggA ²"AgP h ¿@ADE°#@hDEggB bA(86 OPENTEXTSTREAM 80 \APPEND2 75 \APPEND2 53 COPYCHARS 43 TEDIT.LOOKS 35 FONTCREATE 21 TEXTSTREAMP 15 STREAMPROP) (69 DEFAULTFONT 64 FONT 29 FONT 10 :UTF-8 5 :EXTERNAL-FORMAT) () (PRETTYCOMPRINT TEDIT-FILECOMS) (RPAQQ TEDIT-FILECOMS ((DECLARE%: EVAL@COMPILE DONTCOPY (CONSTANTS (\PieceDescriptorLOOKS 0) ( \PieceDescriptorOBJECT 1) (\PieceDescriptorPARA 2) (\PieceDescriptorPAGEFRAME 3) ( \PieceDescriptorCHARLOOKSLIST 4) (\PieceDescriptorPARALOOKSLIST 5) (\PieceDescriptorSAFEOBJECT 6) ( \PieceDescriptorMETAINFO 7) (\PieceDescriptorPROPERTIES 8)) (EXPORT (MACROS \SMALLPIN \SMALLPOUT)) ( RECORDS \TEDIT.FILETRAILER)) (COMS (* ;; "Public entries ") (FNS TEDIT.GET TEDIT.FORMATTEDFILEP TEDIT.FILEDATE TEDIT.INCLUDE TEDIT.RAW.INCLUDE TEDIT.PUT TEDIT.PUT.STREAM) (FNS \TEDIT.GET.FOREIGN.FILE \TEDIT.GET.UNFORMATTED.FILE \TEDIT.GET.FORMATTED.FILE \TEDIT.FORMATTEDSTREAMP \ARBIN \ATMIN \DWIN \STRINGIN \TEDIT.GET.TRAILER \TEDIT.CACHEFILE) (COMS (* ;; "Until CL:COMPILE-FILE and any others are updated, They should use the public TEDIT.FORMATTEDFILEP") ( P (MOVD? (QUOTE \TEDIT.GET.TRAILER) (QUOTE \TEDIT.FORMATTEDP1)))) (FNS \TEDIT.GET.PIECES3 \TEDIT.GET.PROPS3 \TEDIT.MAKE.STRINGPIECE) (FNS \TEDIT.GET.UNFORMATTED.FILE.MCCS \TEDIT.INTERPRET.MCCS.SHIFTS \TEDIT.CONVERT.XCCSTOMCCS \TEDIT.RUN.TO.STRINGPIECE) (* ; "MCCS") (FNS \TEDIT.GET.UNFORMATTED.FILE.UTF8) (* ; "UTF-8") (FNS \TEDIT.GET.CHARLOOKS.LIST \TEDIT.GET.SINGLE.CHARLOOKS \TEDIT.GET.CHARLOOKS \TEDIT.GET.PARALOOKS.INDEX \TEDIT.GET.CHARLOOKS.INDEX ) (FNS \TEDIT.GET.PARALOOKS.LIST \TEDIT.GET.SINGLE.PARALOOKS) (FNS \TEDIT.GET.OBJECT)) (COMS (* ;; "Putting pageframe functions are on TEDIT-PAGE)") (FNS \TEDIT.PUT.PCTB \TEDIT.PUT.PCTB.PIECEDATA \TEDIT.PUT.TRAILER \TEDIT.PUT.PCTB.MERGEABLE \TEDIT.PUT.UTF8.SPLITPIECES \TEDIT.PUT.MCCS.SPLITPIECES \TEDIT.PUT.PCTB.NEXTNEW \TEDIT.INSERT.NEWPIECES \TEDIT.PUTRESET \ARBOUT \ATMOUT \DWOUT \STRINGOUT) ( FNS \TEDIT.PUT.CHARLOOKS.LIST \TEDIT.PUT.SINGLE.CHARLOOKS \TEDIT.PUT.CHARLOOKS \TEDIT.PUT.CHARLOOKS1 \TEDIT.PUT.OBJECT) (FNS \TEDIT.PUT.PARALOOKS.LIST \TEDIT.PUT.SINGLE.PARALOOKS \TEDIT.PUT.PARALOOKS)) ( GLOBALVARS TEDIT.INPUT.FORMATS *TEDIT-FILE-READTABLE*) (FNS TEDITFROMLISPSOURCE SHELLSCRIPTP TEDITFROMSHELLSCRIPT) (INITVARS (TEDIT.SOURCE.LINELENGTH 110) (TEDIT.SOURCE.NLINES 30)) (ADDVARS ( TEDIT.INPUT.FORMATS (LISPSOURCEFILEP TEDITFROMLISPSOURCE) (SHELLSCRIPTP TEDITFROMSHELLSCRIPT))) ( INITVARS (* ; "For consistent reading and writing of info on TEdit files.") (*TEDIT-FILE-READTABLE* ( COPYREADTABLE \ORIGREADTABLE))))) (MOVD? (QUOTE \TEDIT.GET.TRAILER) (QUOTE \TEDIT.FORMATTEDP1)) (RPAQ? TEDIT.SOURCE.LINELENGTH 110) (RPAQ? TEDIT.SOURCE.NLINES 30) (ADDTOVAR TEDIT.INPUT.FORMATS (LISPSOURCEFILEP TEDITFROMLISPSOURCE) (SHELLSCRIPTP TEDITFROMSHELLSCRIPT )) (RPAQ? *TEDIT-FILE-READTABLE* (COPYREADTABLE \ORIGREADTABLE)) NIL