github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-05-22 05:13:21 +00:00
Code Issues Projects Releases Wiki Activity
Files
db8a7f4a3704c7df9e2176113ac5221e29588810
Interlisp.medley/internal/TEDIT-DEBUG.LCOM
rmkaplan 406b509b38 Rmk185 tedit window and process glitches (#2604) 
* Substantive changes aimed to improve behavior of secondary selections as mouse moves around the screen, and to make sure the process does not reopen an inactive window after it has been deactivated and closed.

* Line-selection requires a click in the line-select region, just moving the mouse there doesn't change the current selection.

* A few other minor bug fixes
---------

Co-authored-by: Nick Briggs <nicholas.h.briggs@gmail.com>
2026-05-20 18:51:55 -07:00

1129 lines
60 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10 :FORMAT :UTF-8)
(FILECREATED "18-May-2026 10:46:12" ("compiled on " {MEDLEY}<internal>TEDIT-DEBUG.;191)
"17-May-2026 12:59:11" brecompiled exprs%: TEDIT-DEBUG in "FULL 17-May-2026 ..." dated
"17-May-2026 12:59:20")
(FILECREATED "18-May-2026 10:46:12" {MEDLEY}<internal>TEDIT-DEBUG.;191 139564 :EDIT-BY rmk :CHANGES-TO
(FNS TEDIT-DEBUG) :PREVIOUS-DATE "29-Apr-2026 09:51:30" {MEDLEY}<internal>TEDIT-DEBUG.;190)
GTO :D8
(P 0 TSTREAM I 1 NOERROR I 0 ARG) @A
Hd–É(6 GTS)
(17 STREAM)
()
GTS :D8
(P 6 TSTREAM P 5 TWINDOWS P 4 W I 1 NOERROR I 0 ARG F 7 LASTTEXTSTREAM) ÅWi
´W £hc¿AHµI@µ>Md²8¿°1\g
²Lg
©L»Jµ KhZ¹HX°ÁK&º°øi
Nµ
@£WµA²?hdWð³6¿W£Nc@ó%@ ³hgo gð“NcN@ (194 TEXTSTREAM 175 ASKUSER 157 STREAMP 112 TEXTSTREAM 84 GETWINDOWUSERPROP 71 GETWINDOWUSERPROP 57 WHICHW 31 OPENWINDOWS 21 OPENWP 16 \TEDIT.PRIMARYPANE 7 TEXTSTREAM)
(180 Y 165 Y 149 TEXTOBJ 79 TEDIT-DEBUG 66 TEDITCREATED)
( 170 " Switch default textstream? ")
GTW :D8
(I 0 ARG)
@ (10 \TEDIT.PRIMARYPANE 5 GTO)
NIL
()
GSEL :D8
(I 1 ARG I 0 WHICH) A É(5 GTO)
(17 SELECTION 10 TEXTOBJ)
()
TEST.TEMPLATE :D8
(P 3 TSTREAM P 2 SW P 1 ST I 0 FILE F 4 LASTTEXTSTREAM) œTi
²CT ²;T ².Tg
!HµBTgh ¿T ¿@hdo Kcd K KY Z²J ²Igh ¿J ¿HX°”(148 CLOSEW 141 PUTTEXTPROP 127 OPENWP 118 \TEDIT.PRIMARYPANE 109 STUFF 103 GTS 91 TEXTSTREAM 86 TEDIT 72 CLOSEW 67 TEDITWINDOWP 60 PUTTEXTPROP 40 GETTEXTPROP 27 OPENWP 22 TEDITWINDOWP 14 TEDITWINDOWP 6 TEXTSTREAM)
(135 DIRTY 54 DIRTY 35 SHOWSTREAMS)
( 81 (LEAVETTY T))
TESTACTION :D8
(I 1 TSTREAM I 0 CHAR) RA bd@ ’@°:@i
µ1@A
²@A
b ’@°@ Š@o
(79 \TEDIT.COMMAND.FUNCTION? 74 ERROR 62 CHARCODE.DECODE 52 CHARCODEP 44 TEDIT.GET.CHARBINDING 34 TEDIT.GET.CHARBINDING 25 CHARCODEP 14 CHARCODEP 5 GTS)
NIL
( 69 "is not a keybinding")
IPC :D8
(P 3 TAG P 2 OBJWINDOW P 1 PCWINDOW P 0 DECODED I 1 TOBJ I 0 PC) ‘@A
1HH¸bd²qHH¸»@hdK ¹@Êlð²c@ÉòY@ɲT@Êlð´@Éô@ÉhIgmþhIgh
K ZI
¿JI
Šoi
@(141 PRIN1 129 MOVEWITH 121 CLOSEWITH 114 INSPECT 108 RELCREATEPOSITION 34 INSPECT 6 IPC.DECODEARGS)
(100 BOTTOM 88 RIGHT 76 IMAGEOBJ 52 IMAGEOBJ)
( 135 "No such piece")
ILINES :D8
(P 0 WINDOW I 2 WHERE I 1 TAG I 0 LINES) Ä@òu@Éò@Ég
¸@Éô‚±ƒH²%@Ég
Hgg @Ég
@Ã’@°0@Ó@°#@ g
Ébd BA (193 INSPECT/TOP/LEVEL/LIST 186 COLLECTLINES 166 GETWINDOWPROP 156 \TEDIT.PRIMARYPANE 151 GTO 121 ILINES 102 ATTACHWINDOW 86 ILINES 44 ILINES)
(178 LINEDESCRIPTOR 171 PANEPROPS 161 PANEPROPS 140 LINEDESCRIPTOR 128 LINEDESCRIPTOR 116 LN 109 SELECTION 97 TOP 92 RIGHT 81 LN 74 SELECTION 59 LINEDESCRIPTOR 51 SELECTION 39 L2 32 SELECTION 24 LINEDESCRIPTOR 16 SELECTION 5 SELECTION)
()
ISEL :D8
(P 0 SEL I 1 TAG I 0 ARG) +@Ã’@°@ ÉHhdA H(39 INSPECT 15 GTO)
(27 SELECTION 20 TEXTOBJ 5 SELECTION)
()
ITS :D8
(P 1 WS P 0 TSW I 1 NPIECES I 0 TS) @ b @ggl
¸@gHglhl
I¹@ gIglhl
I¹@ ÉgIglhl
IYH
¿IH
@Aµl
@(178 SP 166 MOVEWITH 158 CLOSEWITH 149 INSPECT 144 RELCREATEPOSITION 112 TEXTOBJ 103 INSPECT 98 RELCREATEPOSITION 73 TEXTOBJ 64 INSPECT 59 RELCREATEPOSITION 33 INSPECT 28 RELCREATEPOSITION 5 GTS)
(131 RIGHT 124 LIST 117 TEXTOBJ 85 RIGHT 78 TEXTOBJ 46 RIGHT 40 STREAM 21 TTY 16 TEXTSTREAM)
()
IPANES :D8
(P 4 P I 2 WHERE I 1 TAG I 0 ARG) R@ AHdò5¿HÉ°/K&º°\dg
»JµìKhZ¹Lg
ɵØIBA (79 INSPECT/ALIST 61 GETWINDOWPROP 40 GETWINDOWPROP 5 GTO)
(66 PANEPROPS 56 PANEPROPS 35 PANEPROPS 15 TEXTOBJ)
()
ITL :D8
(I 0 THISLINE F 0 CHARSLOT F 1 LASTCS) /@ó @dið™¿hb¿Pc¿@ É8b€@ @(43 INSPECT 27 GTO)
(32 TEXTOBJ 5 THISLINE)
()
IHIST :D8
(P 5 HISTUNDOWHERE P 4 HISTUNDOW P 3 HISTW P 2 UNDONEEVENTS P 1 EVENTS P 0 TEXTOBJ I 1 ARG I 0 LAST F 6 DEFAULTFONT) ÄA HÉH¹A É1I²@’I€Ighg »J²vKµ@²LJJh´J°CghKgh
]MnXV È
kJ ØÖ ½°µJgMg ¼KŸLK
¿LK
¿I J h(190 LENGTH 184 LENGTH 177 MOVEWITH 169 CLOSEWITH 159 INSPECT 139 CREATEW 134 CREATEREGION 127 LENGTH 118 FONTCREATE 113 DSPFONT 100 RELCREATEPOSITION 58 INSPECT 23 GTO 5 GTO)
(154 HISTUNDO 148 LIST 92 BOTTOM 83 RIGHT 53 HIST 47 LIST 28 TEXTOBJ 14 TEXTOBJ)
()
IPCTB :D8
(I 0 ARG) @ bdÉg
@(25 INSPECT 5 GTO)
(20 LIST 13 TEXTOBJ)
()
IMB :D8
(P 0 OBJ I 1 ARG I 0 IDENTIFIER) "@A g Hd˜hd@ H(30 INSPECT 16 MB.GET 6 GTO)
(11 OBJECT)
()
ICL :D8
(P 0 DECODED I 1 ARG I 0 PC) 0@A
HH¸bdÉ hd@oHH¸ @É (42 INSPECT 37 CONCAT 6 IPC.DECODEARGS)
NIL
( 27 " ")
IPL :D8
(P 0 DECODED I 1 ARG I 0 PC) 0@A
HH¸bdÉhd@oHH¸ @É(42 INSPECT 37 CONCAT 6 IPC.DECODEARGS)
NIL
( 27 " ")
ICARET :D8
(I 0 ARG) =@ bdg
É @g
É(46 GETWINDOWPROP 35 INSPECT 18 GETWINDOWPROP 5 GTW)
(58 TEDITCARET 51 PANEPROPS 41 PANEPROPS 30 TEDITCARET 23 PANEPROPS 13 PANEPROPS)
()
INSPECTPIECES :D8
(P 7 PC P 3 I P 1 PIECES P 0 W I 3 WHERE I 2 TAG I 1 N I 0 PIECE) ž@ó0@d3 <20>¿@
°Ö@ Š@ b¿A3 ¬Bb¿Ab¿lb¿ AkB@µ° _¿KJó³O¾Mµ%Nh]¼OɵLYd Xdg@ @N&½°ß_¿KkÔ[°Â(135 PUTWINDOWPROP 122 INSPECT/TOP/LEVEL/LIST 50 \TEDIT.FIRSTPIECE 45 GTO 38 SELPIECE 24 NTHPIECE 18 GTO)
(147 PIECE 129 TITLE 88 PIECE 31 SELECTION 5 PIECE)
()
INSPECTFILEPIECES :D8
(P 3 PCI P 2 I P 0 PC I 2 TSTREAM I 1 N I 0 FILEPOS) KB °!»JIó¯K ¿JkÔºKɵèhHÉd²û¸@HÉó³ïAµkkH°à(31 INSPECT 13 \TEDIT.FIRSTPIECE 8 GTO)
(54 PIECE 20 PIECE)
()
SPA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 5 PFILES P 4 P P 3 PCNO P 2 I P 0 OFILE I 0 SI::*CLEANUP-FORMS* F 6 PC F 7 SI::*RESETFORMS* F 8 TEXTOBJ F 9 OFILE F 10 WTYPE F 11 NOCR F 12 TITLE F 13 FONT F 14 NP)  WWWlxWµo
ohH
hWcWkVW
µk#Vµ±”¼JI󒱇VÊo
²LVÉM
³AVÉgi §W ¿ggVÉohVÉ hWc¿oKH ¿oH
¿LHWW ¿LɵH H ´WgH ¼JkÔºKkÔ»±ÿJ(241 TEXTPROP.ADD 226 TEXTSTREAMP 220 TERPRI 207 SPPRINT 195 PRIN1 183 PRINTNUM 162 GETFILEPTR 130 \TEDIT.REOPEN.STREAM 122 GETSTREAM 106 MEMB 95 MEMB 56 PIECENUM 37 DSPFONT 22 DEBUGOUTPUT.STREAM)
(247 PIECE 235 SHOWSTREAMS 141 SETFILEPTR 136 PROGN 116 INPUT 73 PIECE)
( 189 "/" 176 (FIX 3) 149 (OLDVALUE) 90 (0 2 11 8 9) 30 (PROGN (DSPFONT OLDVALUE OFILE)) 16 (TERMINAL 8))
SP :D8
(P 5 RESETSTATE P 4 SI::*RESETFORMS* P 3 LISPXHIST P 2 TITLE P 1 WTYPE P 0 TEXTOBJ I 5 NOCR I 4 FONT I 3 TOBJ I 2 OFILE I 1 NP I 0 PC F 6 LISPXHIST) /@i
µC !Bµ8AµHÉjð²Foi
¿i hd3@ð²áAdið•¿g¹hb¿°Ïo
²Ãg¹hb¿°·@Ã’±—@µHµ ±<00>3 œHµ3C—Xµ)@î@do
²¿Hµ @ X °I@
°AHð¨@i
X—H °-@d£d‘hò @d£d‘hÉH
b¿AªA’l‚nÿÿb¿V!g ¿$@(295 SI::RESETUNWIND 290 \MVLIST 285 SPA0001 253 \TEDIT.CHTOPC 248 GTO 208 \TEDIT.FIRSTPIECE 200 GTO 188 NTHPIECE 180 SELPIECE 174 TEXTOBJ 162 MEMB 140 GTO 124 \TEDIT.FIRSTPIECE 119 GTO 84 MEMB 48 TERPRI 41 PRIN1 14 GTO 6 TEXTOBJ)
(280 SI::RESETUNWIND 240 LINEDESCRIPTOR 224 LINEDESCRIPTOR 149 SELECTION 104 PIECE 91 SP 67 SP)
( 157 (SEL T) 79 (T TEDIT) 35 "Document is empty")
SLA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 3 L P 1 L P 0 OFILE I 0 SI::*CLEANUP-FORMS* F 4 SI::*RESETFORMS* F 5 LASTLINE F 6 PANE F 7 TOBJ F 8 FIRSTLINE F 9 OFILE F 10 WTYPE F 11 TITLE F 12 PNO) Ò WWWho
ohH
hTcgnÿÿH
hhTcoH
¿oH
¿WH
¿oH
¿VH
¿H oH
¿lhH ¿oH
¿lH
¿oH
¿lhH ¿oH
¿oH
¿l$hH ¿oH
¿oH
¿l(hH ¿oH
¿H W†ÉµNUVg
ÉÉð²Vg
ÉHW ¿H WUð²XjU°*YHW ¿IdU𲘿°ž»JkÔºKɵîJH
¿oH
¿H ¿H ¿H ´WgH (463 TEXTPROP.ADD 448 TEXTSTREAMP 441 TERPRI 434 TERPRI 427 PRIN1 415 PRIN1 377 SHOWLINE 350 TERPRI 342 SHOWLINE 327 GETWINDOWPROP 299 GETWINDOWPROP 272 TERPRI 265 PRIN1 253 TAB 243 CHANGEFONT 231 PRIN1 219 TAB 209 PRIN1 197 CHANGEFONT 185 TAB 175 PRIN1 163 SPACES 154 PRIN1 142 TAB 132 CHANGEFONT 121 TERPRI 114 PRIN1 106 PRIN1 94 PRIN1 85 PRIN1 73 CHANGEFONT 53 LINELENGTH 32 DSPFONT 17 DEBUGOUTPUT.STREAM)
(457 SHOWSTREAMS 403 LINEDESCRIPTOR 392 LINEDESCRIPTOR 368 LINEDESCRIPTOR 332 PANEPROPS 322 PANEPROPS 311 LINEDESCRIPTOR 304 PANEPROPS 294 PANEPROPS 283 LINEDESCRIPTOR 44 LINELENGTH)
( 421 " lines below LASTLINE" 259 "LN/*=PARALAST" 237 (TERMINAL 8) 225 "CN" 203 "C1" 191 (TERMINAL 8 BOLD)
169 "BOT" 148 "HT" 126 (TERMINAL 8) 100 " = " 79 "Pane " 67 (TERMINAL 8) 25 (PROGN (DSPFONT OLDVALUE OFILE))
11 (TERMINAL 8))
SL :D8
(P 6 RESETSTATE P 5 SI::*RESETFORMS* P 4 LISPXHIST P 3 TITLE P 2 PNO P 1 WTYPE P 0 LINES I 4 OFILE I 3 TOBJ I 2 PANE I 1 LASTLINE I 0 FIRSTLINE F 7 LISPXHIST) À@DµAdo
²#¿g¹°3o
²+g¹hb¿° ²g¹oA
»hb¿@òA³@d—Ù@b¿@b€@ABC XdH¸bHH¸bHH¸bHH¸bHH¸ZW!g ¿$@(184 SI::RESETUNWIND 179 \MVLIST 174 SLA0001 124 SL.GETLINES 76 CONCAT 57 STRINGP 38 MEMB 17 MEMB)
(169 SI::RESETUNWIND 104 LINEDESCRIPTOR 89 LINEDESCRIPTOR 64 SL 45 SL 25 SL)
( 70 "SL: " 33 (T TEDIT) 12 (T TEDIT))
SSPA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 4 PC P 3 I P 0 OFILE I 0 SI::*CLEANUP-FORMS* F 6 SI::*RESETFORMS* F 7 OFILE F 8 TEXTOBJ F 9 NP F 10 SELPIECES) ŽWd¥g€hh ohH
hVc Wµl2Wk#Jµ°G¿JɼJɽKIó³*oKH ¿oH
¿LHW ¿LdMð‘hɼKkÔ[°Æ(118 SPPRINT 108 PRIN1 96 PRINTNUM 31 DSPFONT 16 DEBUGOUTPUT.STREAM)
(133 PIECE 78 PIECE 69 PIECE 60 SELPIECES 8 SSP)
( 102 "/" 89 (FIX 3) 24 (PROGN (DSPFONT OLDVALUE OFILE)))
SSP :D8
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 3 TEXTOBJ I 2 OFILE I 1 NP I 0 SELPIECES F 3 LISPXHIST) QAi
<00>A b¿hb°Bi
œB b¿hb…C ¿S!g ¿$@(73 SI::RESETUNWIND 68 \MVLIST 63 SSPA0001 48 GTO 35 TEXTOBJ 28 TEXTOBJ 13 TEXTOBJ 6 TEXTOBJ)
(58 SI::RESETUNWIND)
()
SPFA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 7 PF P 6 TYPE P 2 FIRSTPF P 0 OFILE I 0 SI::*CLEANUP-FORMS* F 8 TITLE F 9 SI::*RESETFORMS* F 10 PAGEREGIONS F 11 OFILE) WgW ohH
hWcoH
¿WH
¿oH
¿H oWg
RIµK¾WN
_¿H ¿oH
¿Ni
H
¿oH
¿OH
¿oH
¿OJð²Ngð³oH
¿H °H ¿O hdddH
¿H ¿O½Lµ
Mh\»IY±ÿZM&¼°÷(247 TERPRI 240 PRINTDEF 229 SPF1 221 TERPRI 213 TERPRI 206 PRIN1 179 CHANGEFONT 167 PRIN1 158 PRIN1 146 PRIN1 140 L-CASE 132 CHANGEFONT 120 TERPRI 111 TEDIT.GET.PAGEFORMAT 92 TEDIT.GET.PAGEFORMAT 75 TERPRI 68 CHANGEFONT 56 PRIN1 47 CHANGEFONT 28 DSPFONT 13 DEBUGOUTPUT.STREAM)
(192 FIRST/DEFAULT 87 FIRST/DEFAULT 6 SPF)
( 200 " defaults to first" 173 (TERMINAL 8) 152 " region " 126 (TERMINAL 8 BOLD) 80 (FIRST/DEFAULT LEFT RIGHT)
62 (TERMINAL 8) 41 (TERMINAL 8 BOLD) 21 (PROGN (DSPFONT OLDVALUE OFILE)))
SPF :D8
(P 6 RESETSTATE P 5 SI::*RESETFORMS* P 4 LISPXHIST P 3 PF P 1 PAGEREGIONS P 0 TEXTOBJ I 2 OFILE I 1 TITLE I 0 ARG F 7 LISPXHIST)  @d²&Jµ i²@°:d¢»hƒ»JºKóåh°æ@ XÊ8jð¬H X€HÉT¹oAµHµI
bW!g ¿$(120 SI::RESETUNWIND 115 \MVLIST 110 SPFA0001 93 CONCAT 65 TEXTOBJ 60 \TEDIT.MAINW 47 GTO)
(105 SI::RESETUNWIND 73 TEXTOBJ 36 PAGEREGION)
( 81 "Page regions for ")
SLFA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 32 PLOOKS P 31 I P 29 PARALOOKS P 28 CSLOOKS P 27 I P 25 CHARLOOKLIST P 24 PFS P 23 INDEX P 22 CLOOK P 21 CLOOK P 20 FAT P 19 LOOKNO P 18 FLAGS P 17 PLOOK P 16 PLOOKNO P 15 LASTCHARLOOKNO P 14 PLOOKSMAP P 13 LOOKSMAP P 12 LTYPE P 11 BYTELEN P 10 BYTESTAB P 9 FPOSTAB P 8 TYPETAB P 7 START P 6 TEXTPCNO P 5 CHNO P 4 PFPOS P 3 PCNO P 1 PCCOUNT P 0 TRAILER I 0 SI::*CLEANUP-FORMS* F 33 OUTFILE F 34 FORMATSTREAM F 35 SI::*RESETFORMS* F 36 PARAMAP F 37 TITLE F 38 SHOWPAGEFRAMES) d!WDi
²WD cD¿°oWD cDhWFcF¿oWD hWFcFWBµ°Fdið¨dgð²¿hdddo
cB¿°$¿oWBgg cBhWFcF¿WD H¹H³WDi
¿oi
¿i hIkjddHl
ll&YoWB
¿OWB
¿oWB
¿oWB
¿IWB
¿WB ¿WDO
¿KJó’±þWD _¿WD áWD Ø_lð˜WB °)KWB
¿oWB
¿WD lÙWB
¿Odlð²u¿WD áWD ØWHO
_"¿OhWB ¿oWB
¿O WB
¿oWB
¿O"oO"l kØmþ WB
¿WB ±Ùjð¢±'WD 1O$lålð_(¿WD áWD Ø_&¿OO&
_*¿O&_¿NkÔ¾OhWB ¿oWB
¿NWB
¿oWB
¿oLWB ¿oWB
¿O(šWDLO <00>OWB
¿O(•o„oWB
¿OhWB ¿oOWB ¿oWB
¿oWB
¿oWB
¿O&WB
¿oWB
¿O*hdi WB
¿WB ¿LOÔ\±¯Odk𢱿NkÔ¾OhWB ¿oWB
¿NWB
¿oWB
¿LWB
¿oWB
¿kWB
¿oOWB ¿oWB
¿oWB
¿WD WB
¿oWB
¿ WD djð²4¿OO
_,¿oWB
¿OWB
¿oWB
°"kð²WD _,¿oWB
„¿O,hdi WB
¿WB LOÔ¼±Žlð²lWD OhWB ¿oWB
¿WL²&OlØhWB ¿O0WB hddWB
°oWB
¿WB ¿WB ±Odlð¢±Æ¿OhWB ¿oWB
¿KmÿÔ»WD O2 _¿O2kO4µ±Î_8¿OlØhWB ¿oO6WB ¿oWB
¿O8ÉòO8ÉÉ
<EFBFBD>O8WB
¿WB ¿OO6O8 ¿O6kÔ_6¿O4_4±ÿlð²LOhWB ¿oWB
¿KmÿÔ»WD O: cH¿O:k O<µWB KkÔ[±û\_@¿OlØhWB ¿oO>WB ¿oWB
¿O@WB
¿WB ¿WHO>O@ ¿O>kÔ_>¿O<_<°•WB ²:WBghgggWJµoWD
h hWB(1629 TEDIT 1619 CONCAT 1614 FULLNAME 1573 TEXTSTREAMP 1550 SETA 1538 TERPRI 1530 PRIN1 1520 PRIN1 1507 PRINTNUM 1492 TAB 1467 TERPRI 1445 ARRAY 1440 LENGTH 1430 \TEDIT.GET.PARALOOKS.LIST 1417 PRIN1 1404 TAB 1373 SETA 1361 TERPRI 1353 PRIN1 1310 PRIN1 1297 PRINTNUM 1282 TAB 1246 ARRAY 1241 LENGTH 1231 \TEDIT.GET.CHARLOOKS.LIST 1218 PRIN1 1205 TAB 1180 TERPRI 1172 TERPRI 1164 PRIN1 1150 PRINTDEF 1139 POSITION 1129 TAB 1111 PRIN1 1098 TAB 1085 READ 1064 TERPRI 1056 PRIN3 1048 \TEDIT.CHARLOOKS.DEFPRINT 1037 SHOULDNT 1031 PRIN1 1016 \TEDIT.GET.SINGLE.CHARLOOKS 1003 PRIN1 990 PRIN1 980 PRIN1 965 ELT 943 PRIN1 930 PRIN1 923 \ATMIN 915 PRIN1 902 PRIN1 889 PRINTNUM 874 SPACES 865 PRIN1 852 PRIN1 843 PRIN1 830 PRIN1 821 PRIN1 808 TAB 774 TERPRI 766 PRIN3 758 \TEDIT.CHARLOOKS.DEFPRINT 747 PRIN1 734 PRIN1 724 PRIN1 711 PRIN1 698 PRIN1 685 PRINTNUM 670 TAB 659 PRIN1 637 PRIN1 627 SLF.FATPLEN 613 PRIN1 600 PRINTNUM 586 PRIN1 573 PRIN1 564 PRIN1 551 TAB 529 ELT 482 TERPRI 474 PRIN1 467 SUBSTRING 458 STRPOS 441 PRIN1 428 PRIN1 418 PRIN1 405 TAB 392 ELT 362 PRIN1 352 GETFILEPTR 344 PRIN1 331 PRIN1 321 TERPRI 297 \DWIN 282 SETFILEPTR 272 TERPRI 264 PRIN1 255 PRIN1 242 PRIN1 229 PRIN1 219 PRIN1 189 TERPRI 182 PRIN1 170 PRIN1 150 \TEDIT.GET.TRAILER 132 OPENSTREAM 104 OPENTEXTSTREAM 61 GETFILEPTR 38 \TEDIT.OPENTEXTFILE 21 TXTFILE 16 GTS 7 GTS)
(1598 TITLE 1593 TTY 1588 LEAVE 1582 Looks% File 1341 FONTCLASS 1334 CHARLOOKS 1325 FONTCLASS 1318 CHARLOOKS 127 NEW 122 OUTPUT 85 TEDIT)
( 1607 "SLF for " 1513 ": " 1498 (FIX 2) 1410 "Paralooks list" 1303 ": " 1288 (FIX 2) 1211 "Charlooks list"
1157 "..." 1104 "Pageframes" 1024 "Inline looks " 996 " " 973 "Previous looks " 936 " " 908 " " 895 " bytes"
880 (FIX 4) 858 "-1" 836 " " 814 "Objt piece #" 740 ": " 717 "Looks " 704 " " 691 " bytes" 676 (FIX 4)
652 "" 646 " fat" 606 "-" 592 (FIX 3) 579 " " 557 "Char piece #" 449 ":" 434 ": " 411 "Paragraph looks "
337 "|" 248 "PCCOUNT = " 235 " " 212 "Starting FILEPTR = " 176 " is not a Tedit looks file" 115 (PROGN (CLOSEF? OUTFILE OLDVALUE) (AND (EQ RESETSTATE (QUOTE ERROR)) (DELFILE OLDVALUE)))
98 (APPEND QUIET FONT DEFAULTFONT) 54 (PROGN (SETFILEPTR FORMATSTREAM OLDVALUE)) 31 (PROGN (CLOSEF? OLDVALUE)))
SLF :D8
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 3 SHOWPAGEFRAMES I 2 TITLE I 1 OUTFILE I 0 FORMATSTREAM F 3 LISPXHIST) S!g ¿$(23 SI::RESETUNWIND 18 \MVLIST 13 SLFA0001)
(8 SI::RESETUNWIND)
()
SHOWLINEA0001 :D8
(NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 LINE F 1 LOC) =oh
oh
Qh
oh
Qh
oh
l
hd oPÉ h oh
PɲoPÉh Šoi
¿oh
oh
oPÉh oh
oPÉh oh
oh
oPÉkØPÉÙh PÊ& jð¥o„oh
oh
oh
(314 PRIN1 303 CHANGEFONT 292 PRIN1 263 PRINTNUM 233 PRIN1 222 CHANGEFONT 211 PRINTNUM 192 PRIN1 181 PRINTNUM 162 CHANGEFONT 151 PRIN1 139 PRIN1 127 PRINTNUM 98 PRIN1 87 PRINTNUM 68 TAB 59 PRIN1 48 PRIN1 40 PRIN1 29 PRIN1 21 PRIN1 10 CHANGEFONT)
(269 LINEDESCRIPTOR 254 LINEDESCRIPTOR 244 LINEDESCRIPTOR 203 LINEDESCRIPTOR 173 LINEDESCRIPTOR 119 LINEDESCRIPTOR 104 LINEDESCRIPTOR 79 LINEDESCRIPTOR)
( 308 " " 297 (TERMINAL 8) 286 " " 280 "*" 238 (FIX 3) 227 " " 216 (TERMINAL 8) 197 (FIX 5) 186 " -> "
167 (FIX 5) 156 (TERMINAL 8 BOLD) 145 " " 133 "---" 113 (FIX 5) 92 " " 73 (FIX 4) 53 ": " 34 "/" 15 "L"
4 (TERMINAL 8))
SHOWLINE :D8
(P 6 LASTC P 5 C P 4 TSTREAM P 3 CNO P 1 SI::*RESETFORMS* P 0 LOC I 2 TEXTOBJ I 1 FILE I 0 LINE) ‹@ gA hhhg ¿$@Ê&jð³9lA
@Ê&jð¥o„oA
oA
A @É@ÉB #L@ÉkÙ
¿oA
¿KJó’±°L ’±¦L ]d²o^dl ðž¿oA
±<00>l
ð¦Mdl
ð<EFBFBD>¿oA
°hl
ðœoA
°WMdl ð<>¿oA
°Cn
ðœoA
°1MA
°( ²"oA
¿MA
¿oA
¿KkÔ[±ÿPoA
¿A ¿@É´ A h(391 TERPRI 374 TERPRI 367 PRIN3 348 PRIN1 336 PRIN1 328 PRIN1 315 IMAGEOBJP 308 PRINTCCODE 299 PRIN3 281 PRIN3 261 PRIN3 244 PRIN3 219 PRIN3 189 EOFP 175 PRIN1 163 SETFILEPTR 144 TEXTSTREAM 121 TERPRI 115 PRIN1 104 PRIN1 75 SPACES 49 SI::RESETUNWIND 44 \MVLIST 39 SHOWLINEA0001 19 OUTPUT 5 LOC)
(381 LINEDESCRIPTOR 154 LINEDESCRIPTOR 136 LINEDESCRIPTOR 128 LINEDESCRIPTOR 81 LINEDESCRIPTOR 60 LINEDESCRIPTOR 34 SI::RESETUNWIND 13 OUTPUT)
( 361 "%"" 342 " " 322 " " 293 "[MLB]" 275 "[FORM]" 255 "[LF]" 238 "[EOL]" 213 "[TAB]" 169 " %"" 109 "dummy"
98 "" 92 "l")
SLLA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 1 L I 0 SI::*CLEANUP-FORMS* F 2 FILE F 3 SI::*RESETFORMS* F 4 TEXTOBJ F 5 LINELIST) wooR
hScUHd d¢¹hƒ¹H¸Id²(¿R ¿oR
¿R ¿IRT ¿°ÈšIRT ¿°¼oR
¿R ¿°§(114 TERPRI 107 PRIN1 93 SHOWLINE 81 SLL 72 TERPRI 65 PRIN1 53 TERPRI 15 DSPFONT)
NIL
( 101 "(NIL LINE)" 59 "SUBLIST:" 9 (TERMINAL 8) 4 (PROGN (DSPFONT OLDVALUE FILE)))
SLL :D8
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 2 TEXTOBJ I 1 FILE I 0 LINELIST F 3 LISPXHIST) &B bS!g ¿$(31 SI::RESETUNWIND 26 \MVLIST 21 SLLA0001 5 GTO)
(16 SI::RESETUNWIND)
()
STBYTESA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 0 VERSION I 0 SI::*CLEANUP-FORMS* F 1 OUTFILE F 2 STREAM F 3 A0230) ŠRd lÙ
¿oQ
¿R Q
¿oQ
¿R Q
¿oQ
¿R Q
¿oQ
¿R Q
¿oQ
¿Rd lÙ
¿R Q
¿Q ¿oQ
¿R Q
¿oQ
¿R Q
¿oQ
¿Rd lÙ
¿R áR ØQ
¿Q ¿oQ
¿R Q
¿oQ
¿R Q
¿oQ
¿Rd lÙ
¿R áR Ødnÿñ•nÿÿÙkÙXQ
¿oQ
¿Hnz·ÙQ
¿oQ
¿Q  hc¿$(384 \MVLIST 378 TERPRI 371 PRIN1 359 PRIN1 347 PRIN1 335 PRIN1 309 SETFILEPTR 301 GETEOFPTR 293 PRIN1 281 PRIN1 272 PRIN1 260 PRIN1 251 PRIN1 239 TERPRI 232 PRIN1 219 SETFILEPTR 211 GETEOFPTR 203 PRIN1 191 PRIN1 182 PRIN1 170 PRIN1 161 PRIN1 149 TERPRI 142 PRIN1 136 \DWIN 129 SETFILEPTR 121 GETEOFPTR 113 PRIN1 101 PRIN1 92 PRIN1 80 PRIN1 71 PRIN1 59 PRIN1 50 PRIN1 38 PRIN1 29 PRIN1 17 SETFILEPTR 9 GETEOFPTR)
NIL
( 365 ")" 341 " (" 287 " = " 266 " " 245 "Version: " 197 " = " 176 " " 155 "Piece count: " 107 " = " 86
" " 65 " " 44 " " 23 "Piece start: ")
STBYTESA0003 :D8
(F 0 STREAM F 1 A0230) PgQ (11 CL:CLOSE)
(5 :ABORT)
()
STBYTES :D8
(P 1 A0230 P 0 STREAM I 1 OUTFILE I 0 FILE F 2 *TEDIT-EXTENSIONS*) ?@hR bdgg ig HgI ¿$(56 CL:CLOSE 44 \MVLIST 39 STBYTESA0001 25 OPEN 7 FINDFILE-WITH-EXTENSIONS)
(50 :ABORT 34 STBYTESA0003 20 :INPUT 15 :DIRECTION)
()
SSEL :D8
(P 1 I I 2 OFILE I 1 TEXTOBJ I 0 SEL) PA b@µdÉbÉ
kÙ@ÉIHó³AI
B
¿IkÔY°êB (77 TERPRI 63 PRIN1 57 TEDIT.NTHCHAR 5 GTO)
(40 SELECTION 30 SELECTION 23 SELECTION 16 TEXTOBJ)
()
STLA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 34 CHARCL P 33 CHARW P 32 CHAR P 31 CS P 29 I P 25 I P 20 CHARCL P 19 CHARW P 18 CHAR P 17 CHARCL P 16 CHARW P 15 CHAR P 14 LENGTH P 13 TX P 12 CHNO P 11 EXPANDSPACES P 10 CSLOT P 9 NSLOTS P 7 PSP P 6 SPACETOTAL P 5 NCHARS P 4 NSPACES P 3 LINE P 2 FIRSTSPACESLOT P 1 SPACEFACTOR P 0 OFILE I 0 SI::*CLEANUP-FORMS* F 36 THISLINE F 37 SI::*RESETFORMS* F 38 PREVSP F 39 OFILE F 40 LCHAR1) è$WNd‘h„ghlP ohH
hWJcJWHÉWHÉWHÉjddg ´WLg ðhð´WLWHjÉOdÙ¿OÉ_¿WHÉ_*¿KµEWHH
¿oH
¿H ¿lhH ¿oH
¿H ¿k_¿j_±§Ã¢±ŸKÉ_¿KÉ
_¿WHH
¿oH
¿KH
¿oH
¿H ¿lhH ¿oH
¿OH
¿oH
¿OH
¿oH
¿KÉH
¿H ¿WPµCO_¿lhH ¿oH
¿H ¿OÉ_¿OÉ_ ¿OÉ_"¿OdO*ð—±÷_¿°¼É_¿OÉ_ ¿OÉ_"¿OWH
¬oWH
¿oOH ¿O ¢±¸MkÔ½oH
¿oOH ¿oH
¿OO Ô_¿oH
¿lO jhdH
¿oH
¿oOH ¿l#hH ¿OH
¿oH
¿OH
¿oH
¿OH
¿OO Ô_¿OkÔ_±‹Od¢±ñ¿MkÔ½oH
¿oOH ¿oH
¿oOH ¿oH
¿Ol
ð®Ol
ð¨Odl
ð²¿OO Ô_¿OO Ô_¿o± l ð—o±Odl 𢱸¿OJð“i_<16>O¢±<00>OO ²40O °&dIO ê _,¿O.µ O,h_0‚O,&_.¿µÛO0ˆIO ê Ô_¿OO ²50O °&dIO ê _4¿O6µ O4h_8‚O4&_6¿µÛO8°IO ê ‹OO Ô_¿OO Ô_¿LkÔ¼o°Tl ð²OO Ô_¿OO Ô_¿o°8On ð²OO Ô_¿OO Ô_¿o°OO Ô_¿OO Ô_¿O H
¿lO jhdH
¿oH
¿oOH ¿l#hH ¿O"H
¿l@hH ¿OH
¿OkÔ_±”WH
³O’±O Ã’±OOð³nOlÐQ#O<dÙ¿O<É_>¿WHÉ_F¿O>É_@¿O>É_B¿O>É_D¿O>OFð³"O>WH
´OO@ð•O>µi‰O>lÐ_>°Èh¢±<00>LkÔ¼oH
¿oOH ¿oH
¿OO Ô_¿OO Ô_¿oH
¿OµoH
¿lO jhdH
¿oH
¿oOH ¿l#hH ¿OH
¿OkÔ_°lO d²9¿OJð–o°Rl ojhdH
¿l&O jhdH
¿OO Ô_°.ò@lhH ¿O H
¿l#hH ¿OH
¿H ¿OlÐ_¿OkÔ_±ûEoH
¿lhH ¿OH
¿oH
¿OH
¿oH
¿O H
¿H ¿H ¿OH
¿oH
¿lH
¿MH
¿oH
¿lH
¿LH
¿oH
¿lH
¿oH
¿WHÉH
¿H ¿oH
¿OH
¿lH
¿oH
¿Kd–ÉH
¿lH
¿oH
¿K´WHÉÉH
¿H ¿oH
¿JH
¿lH
¿oH
¿I´oIH H
¿H h(2020 TERPRI 2013 PRIN1 2007 PRINTNUM 1991 PRIN1 1979 SPACES 1970 PRIN1 1962 PRIN1 1950 TERPRI 1943 PRIN1 1917 PRIN1 1905 SPACES 1896 PRIN1 1879 PRIN1 1867 SPACES 1858 PRIN1 1849 PRIN1 1837 TERPRI 1830 PRIN1 1814 PRIN1 1802 SPACES 1793 PRIN1 1781 PRIN1 1773 SPACES 1764 PRIN1 1752 PRIN1 1744 SPACES 1735 PRIN1 1723 PRIN1 1714 TERPRI 1707 TERPRI 1700 PRIN1 1691 PRIN1 1679 PRIN1 1670 PRIN1 1658 PRIN1 1649 TAB 1639 PRIN1 1610 TERPRI 1603 PRIN1 1594 TAB 1584 PRIN1 1575 TAB 1549 FLUSHRIGHT 1534 FLUSHRIGHT 1488 PRIN1 1479 TAB 1469 PRINTNUM 1455 PRIN1 1443 FLUSHRIGHT 1428 PRIN1 1412 PRIN1 1384 PRIN1 1372 PRINTNUM 1358 PRIN1 1314 CHARSLOTP 1209 CHARSLOTP 1192 PRIN1 1183 TAB 1173 PRIN1 1164 TAB 1154 PRINTNUM 1140 PRIN1 1128 FLUSHRIGHT 1113 PRIN1 1107 CHARACTER 997 FIXR 958 FIXR 926 FIXR 888 FIXR 776 PRIN1 764 PRINTNUM 750 PRIN1 738 PRINTNUM 724 PRIN1 681 SPPRINT.OBJ 672 PRIN1 660 PRIN1 651 PRIN1 639 PRIN1 630 TAB 620 PRINTNUM 606 PRIN1 594 FLUSHRIGHT 579 PRIN1 559 PRIN1 547 PRINTNUM 533 PRIN1 514 IMAGEOBJP 506 PRINTNUM 492 HELP 479 CHARSLOTP 414 TERPRI 407 PRIN1 395 TAB 376 TERPRI 369 PRIN1 354 PRIN1 342 PRIN1 333 PRIN1 321 PRIN1 312 PRIN1 300 TAB 290 TERPRI 283 PRIN1 271 PRIN1 263 PRIN1 251 PRIN1 201 TERPRI 194 PRIN1 182 TAB 172 TERPRI 165 PRIN1 153 PRIN1 95 GETTOPVAL 81 BOUNDP 33 DSPFONT 18 DEBUGOUTPUT.STREAM)
(1935 LINEDESCRIPTOR 1928 THISLINE 1888 LINEDESCRIPTOR 1822 THISLINE 1564 CHARLOOKS 1272 THISLINE 1260 THISLINE 1251 THISLINE 1224 CHARLOOKS 361 LINEDESCRIPTOR 238 LINEDESCRIPTOR 227 LINEDESCRIPTOR 217 LINEDESCRIPTOR 137 THISLINE 125 THISLINE 116 THISLINE 90 PREVSP 76 PREVSP 66 THISLINE 57 THISLINE 48 THISLINE 10 STL)
( 2000 (FLOAT 2 3) 1985 "space factor = " 1956 "first expanded space = " 1911 "X limit = " 1873 "right margin = "
1843 "line length = " 1808 "next avail = " 1787 " spaces" 1758 " characters" 1729 " slots" 1685 " CHARW = "
1664 " CHAR = " 1633 " BAD CHARSLOT " 1524 "Invis" 1515 "First space" 1461 (FIX 4) 1449 " " 1422 "[ENDSP]"
1406 " " 1378 ":" 1364 (FIX 5) 1352 " " 1146 (FIX 4) 1134 " " 1082 "MTAB" 1051 "TAB" 1023 " " 831 "FORM"
819 "EOL" 770 " " 756 (FIX 3) 744 ": " 730 (FIX 5) 718 " " 666 " " 645 " " 612 (FIX 4) 600 " " 573 "Imobj"
553 ": " 539 (FIX 5) 527 " " 498 (FIX 4) 485 "THISLINE RUNS OFF THE EDGE" 401 "XLIM" 348 ", LXLIM = "
327 " LX1 = " 306 "Start at CHNO = " 277 ":" 257 " for " 188 "No line parameters, start at CHNO = 1 LX1 = 0"
159 ":" 26 (PROGN (DSPFONT OLDVALUE OFILE)))
STL :D8
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 3 OFILE I 2 LCHAR1 I 1 LASTCS I 0 THISLINE F 3 CHARSLOT F 4 LISPXHIST) J@ó @dið™¿hb¿Sb¿@ É8b€@T!g ¿$(67 SI::RESETUNWIND 62 \MVLIST 57 STLA0001 27 GTO)
(52 SI::RESETUNWIND 43 THISLINE 32 TEXTOBJ 5 THISLINE)
()
CLEARTHISLINE :D8
(P 5 CHARCL P 4 CHARW P 3 CHAR P 2 CSLOT P 0 THISLINE I 0 TSTREAM) a@ É8HhÎHQIdØ¿IɺHɾJÉ»JɼJɽJdNð´h¿Jh¿Jh¿JlÐZ°Û(5 GTO)
(52 THISLINE 43 THISLINE 35 THISLINE 21 THISLINE 10 TEXTOBJ)
()
CHARSLOTP :D8
(P 2 LASTUSEDSLOT P 1 LASTSLOT P 0 FIRSTSLOT I 1 TL I 0 X) sAôkAÉAÉlÿlÖÐAÉmúÐ@ÒHÒñ³@ÒHÒð´9@ÓHÓýñhð´/@ÒJÒýñ¯@ÒJÒð´!@ÓJÓñhð´@ÒIÒýñµ@ÒIÒð´ @ÓIÓñhðNIL
(35 THISLINE 21 THISLINE 13 THISLINE 5 THISLINE)
()
\TLVALIDATE :D8
(P 5 CHARCL P 4 CHARW P 3 CHAR P 2 CHARSLOT P 0 CHARSLOTS I 1 LINE I 0 THISLINE)  @ÉH «o@
¿@QIdØ¿Iɺ@ɾJÉ»JɼJɽJNð³PK ³K ³K@
«oJ
¿L«oJ
¿MëoJ
¿JlÐZ°¤h(148 HELP 129 HELP 113 HELP 101 CHARSLOTP 92 IMAGEOBJP 84 CHARCODEP 28 HELP 16 \BLOCKDATAP)
(136 CHARLOOKS 58 THISLINE 49 THISLINE 41 THISLINE 5 THISLINE)
( 142 "BAD CHARSLOT CLOOKS" 123 "BAD CHARSLOT CHARW" 107 "BAD CHARSLOT CHAR" 22 "CHARSLOTS is not an arrayblock")
NTHPIECE :D8
(P 1 PC P 0 I I 1 N I 0 PIECES) ^@í@ b¿A¤kb°jAñœ@ AØkØb€Ajð“@É
k@µ°¹HAð‘IIɵh¹HkÔX°ê(37 NPIECES 17 \TEDIT.FIRSTPIECE 12 GTO)
(85 PIECE 66 PIECE 5 PIECE)
()
NPIECES :D8
(P 1 PC I 0 TSTREAM) ,j@Ã’@°@ Š¹HkظIɵóH(24 \TEDIT.FIRSTPIECE 19 GTO)
(30 PIECE 9 PIECE)
()
NTHPIECECHAR :D8
(P 1 PCONTENTS P 0 PLEN I 1 N I 0 PC) {@É@ÉjAñ•AHÔb¿jAñ³bHAñ´^@Êdlð¤dlð˜¿IA
djð²¿IA@ÉØ
I dlð²¿IAà@ÉØ
I áI älð‘Ih(118 SHOULDNT 100 SETFILEPTR 73 SETFILEPTR 50 NTHCHARCODE)
(92 PIECE 65 PIECE)
()
SELPIECE :D8
(I 0 ARG) $@ bdÉÉ@
(33 \TEDIT.CHTOPC 5 GTO)
(25 SELECTION 20 SELECTION 13 TEXTOBJ)
()
PIECENUM :D8
(P 2 PC P 1 I P 0 PIECES I 1 ARG I 0 PIECE) G@ëo@
¿AÑAŠA !k¹H†IkÔ¹JÉd<>Z@ð²ïIµi(38 \TEDIT.FIRSTPIECE 33 GTO 17 ERROR)
(59 PIECE 24 PIECE 5 PIECE)
( 11 "NOT A PIECE")
PCBYTES :D8
(P 6 BYTE P 2 I P 0 PFILE I 0 PC) ]@Êo
´!@ÉH@É
@É@ÉÚkBJIó‘KH ¾JN NH kÙh½Lµ
Mh\»JkÔZ°ÖM&¼°÷(64 GETFILEPTR 57 CHARACTER 30 SETFILEPTR 13 MEMB)
NIL
( 8 (0 2 11 8 9))
FILEBYTESA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 7 B P 3 J P 2 I I 0 SI::*CLEANUP-FORMS* F 8 FILE F 9 START F 10 SI::*RESETFORMS* F 11 NBYTES) žW ²ggWd hhhd°oWg
chWc¿WW
WW WÙHdIñ‘¿IcdWkCKIó³-W _¿JOd h¾MµNh]¼JkÔºKkÔ[°ØN&½°óL(126 CHARACTER 83 GETEOFPTR 74 SETFILEPTR 54 OPENSTREAM 26 GETFILEPTR 6 STREAMP)
(49 INPUT 18 SETFILEPTR 13 PROGN)
( 42 (PROGN (CLOSEF? OLDVALUE)))
FILEBYTES :D8
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 2 NBYTES I 1 START I 0 FILE F 3 LISPXHIST) a@i
˜@ b€@ò@Êo
<00>A¥@Éb¿@Éb¿A£jb¿B¤l(b¿S!g ¿$(90 SI::RESETUNWIND 85 \MVLIST 80 FILEBYTESA0001 38 MEMB 13 SELPIECE 6 GTO)
(75 SI::RESETUNWIND 22 PIECE)
( 33 (0 2 11 8 9))
TFILEBYTESA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 1 B I 0 SI::*CLEANUP-FORMS* F 2 SI::*RESETFORMS* F 3 DEFAULTFONT F 4 TSTREAM F 5 FONT F 6 FILE F 7 BYTES) gT hhRcoSi
hRco T ¿oV
³ohihdi
¿i ¿WSi
¿Hµ hi ¿¹oIi ¿oi
¿oIi ¿oi
¿Uµoi
¿Idl
ð—¿g°)dl
ð—¿g°dl
ð–¿g<00>l ð•oƒIi
¿Si
¿i ¿HX±ÿ](265 TERPRI 258 CHANGEFONT 250 PRIN1 188 CHANGEFONT 173 PRIN1 161 PRINTNUM 146 PRIN1 134 PRINTNUM 117 TERPRI 104 DSPFONT 91 TERPRI 84 PRINTDEF 66 CONCAT 54 TEDIT.DEFER.UPDATES 48 BKSYSBUF 31 DSPFONT 10 TTYDISPLAYSTREAM)
(229 CR 216 LF 203 EOL 4 TTYDISPLAYSTREAM)
( 239 "SP" 182 (MODERN 10) 167 " " 152 (FIX 3) 140 " " 126 (FIX 6) 73 (for B in BYTES first (DSPFONT DEFAULTFONT T) do (printout T .I6 (CAR B) " " .I3 (CADR B) " " .FONT (OR FONT (QUOTE (MODERN 10))) (SELCHARQ (CADR B) (EOL (QUOTE EOL)) (LF (QUOTE LF)) (CR (QUOTE CR)) (SPACE "SP") (CADDR B)) .FONT DEFAULTFONT T) T)
60 "Bytes from " 43 " " 24 (PROGN (DSPFONT OLDVALUE T)))
TFILEBYTES :D8
(P 4 RESETSTATE P 3 SI::*RESETFORMS* P 2 LISPXHIST P 1 TSTREAM P 0 BYTES I 3 FONT I 2 NBYTES I 1 START I 0 FILE F 5 LISPXHIST) —@ABµlÈ hghgiggghgggo@
µooo
o U!g ¿$(144 SI::RESETUNWIND 139 \MVLIST 134 TFILEBYTESA0001 117 TEXTSTREAM 112 TEDIT 91 PACK* 69 CONCAT 11 FILEBYTES)
(129 SI::RESETUNWIND 58 TITLE 53 QUIET 48 APPEND 42 PARABREAKCHARS 37 OFF 32 HISTORY 26 LEAVETTY 20 FILEBYTES)
( 96 ((QUOTE (for B in BYTES first (DSPFONT DEFAULTFONT T) do (printout T .I6 (CAR B) " " .I3 (CADR B) " " .FONT (OR FONT (QUOTE (MODERN 10))) (SELCHARQ (CADR B) (EOL (QUOTE EOL)) (LF (QUOTE LF)) (CR (QUOTE CR)) (SPACE "SP") (CADDR B)) .FONT DEFAULTFONT T) T)) FONT DEFAULTFONT)
86 "ORM" 81 "F" 76 "Tedit EVAL" 63 "Bytes from ")
TRELMOVE :D8
(I 1 ARG I 0 DY) A j@
(13 RELMOVEW 5 GTW)
NIL
()
TSCROLL :D8
(I 1 ARG I 0 DY) A j@ (12 SCROLLW 5 GTW)
NIL
()
TSCROLL* :D8
(P 0 W I 1 ARG I 0 DIST) KA hddo dgð›¿Hj@ ¿°ádgð<>¿Hjd@Ù ¿°Ëgð´h(60 SCROLLW 38 SCROLLW 21 ASKUSER 5 GTW)
(68 FINISHED 47 DOWN 27 UP)
( 16 ((U NIL CONFIRMFLG NIL RETURN (QUOTE UP)) (D NIL CONFIRMFLG NIL RETURN (QUOTE DOWN)) (F NIL CONFIRMFLG NIL RETURN (QUOTE FINISHED))))
TRY :D8
(P 0 TSTREAM I 2 KEEPOPEN I 1 VAR I 0 FILE) ŒAµ gb ´
A Hµ @µ&g°) ²ìB³éH ¿°Ûið•g€@ Xdn1n„n<01>lP ho AH
HB
H ¿(136 \TEDIT.CHECK-BTREE 130 ITS 123 SET 116 TEDIT 105 CREATEREGION 87 OPENTEXTSTREAM 69 CLOSEW 64 WFROMDS 53 OPENWP 48 WFROMDS 27 TEXTSTREAMP 22 EVAL 14 BOUNDP)
(80 {LI}LOTS.TXT 41 {LI}FEW.TXT 7 TSTR)
( 111 (LEAVETTY T))
TEDITCLOSEW :D8
(P 0 W) AgH É$
´%HggH É$
H (62 CLOSEW 56 PUTWINDOWPROP 51 REMOVE 44 \INSUREWINDOW 25 MEMB 18 \INSUREWINDOW 4 WHICHW)
(38 TEDIT.DEACTIVATE.WINDOW 33 CLOSEFN 12 TEDIT.DEACTIVATE.WINDOW)
()
PARALASTWITHOUTEOL :D8
(P 1 PC P 0 TEXTOBJ I 1 HELP I 0 TSTREAM) S@ H °?YÊjð³/Imÿ
o
³IhH ¿A<C2BF>IdH
¿IÉd³Â(73 HELP 68 \TEDIT.PCTOCH 57 SPPRINT 47 MEMB 37 NTHPIECECHAR 14 \TEDIT.FIRSTPIECE 5 TEXTOBJ)
(21 PIECE)
( 42 (13 13 10))
FIXPARALAST :D8
(P 0 PC I 1 HELP I 0 TSTREAM) ?@ H¡hHÊjð³ Hmÿ
o
ªHjÏ¿HÉX°Ó(43 MEMB 33 NTHPIECECHAR 10 \TEDIT.FIRSTPIECE 5 TEXTOBJ)
(50 PIECE)
( 38 (13 13 10))
SPPRINT :D8
(P 9 C P 8 I P 6 PARALOOKS P 5 FONT P 4 CHNO P 3 PTYPE P 2 PCONTENTS P 1 PLEN P 0 POS I 3 NOCR I 2 TEXTOBJ I 1 OSTREAM I 0 P) @
@d3 —B
bÉ¢±A @É@É@Ê@É—@B
€khA
@ÉJ ²Jgi §BJ
ºHjA ¿oLA ¿oA
¿@lo@
Ø
A
¿lHØjA ¿oA
¿Kdo
›¿J@É
¿Kjð–g°WKdlð—¿g°Ilð–g°>Kdlð—¿g°0l ð–g°%Kdlð—¿g°lð•gŠKlð´gA
¿Hl#ØjA ¿oIA ¿@Êjð¥o„oA
¿Nò8NÉ ²NÉ"–o°#o°NÉ"•oŠo„oA
¿Hl+ØjA ¿Aið›oA
¿Ijð²oA
¿A ¿±4@Êlð²"JA
¿lA
¿JAHl+Ø ¿± @É Ã²@É Ê0jð«oA
¿oA
¿IkÙj OOó’±Ê@O
_l
ð§Odl
ð—¿o°Il
ð–o°>Odl ð—¿o°/l ð–o°$Odn ð—¿o°n
ð•o†O A
¿OIkÙÙjð›gA
¿C³=Oo
²/A ¿OdIkÙÙjð³¿MA
l*kØjA ¿A
¿OkÔ_±ÿ5A ¿MA
°oA
¿@A
¿A @(828 TERPRI 821 PRIN1 813 PRIN1 799 DSPFONT 791 TERPRI 774 DSPFONT 767 TAB 756 DSPFONT 736 TERPRI 728 MEMB 712 PRIN1 691 PRIN1 685 CHARACTER 593 \TEDIT.PIECE.NTHCHARCODE 568 PRIN1 556 PRIN1 517 SPPRINT.OBJ 505 SPACES 496 PRIN1 476 TERPRI 469 PRIN1 452 DSPFONT 436 TAB 424 PRIN1 350 PRIN1 325 PRINTNUM 312 TAB 300 PRIN1 197 SETFILEPTR 186 MEMB 173 PRIN1 161 TAB 149 PRIN1 143 SUBSTRING 137 STRPOS 122 PRIN1 110 PRINTNUM 97 TAB 88 \TEDIT.REOPEN.STREAM 80 \GETSTREAM 66 STREAMP 54 DSPFONT 45 \TEDIT.PCTOCH 24 POSITION 10 \TEDIT.CHTOPC)
(706 %" 539 CHARLOOKS 529 CHARLOOKS 398 PARALOOKS 375 PARALOOKS 365 PARALOOKS 357 PARALOOKS 294 Looks 282 Object 271 Substream 257 UFT-8 246 Fatstring 232 Thinstring 221 Fatfile2 207 Thinfile 74 INPUT)
( 807 "Piece has no CONTENTS" 723 (13 13 10 12) 677 "[MLB]" 665 "[MTAB]" 649 "[TAB]" 638 "[FORM]" 623 "[LF]"
612 "[EOL]" 562 "%"" 550 "i " 463 "[Empty piece]" 446 (MODERN 8) 418 "" 412 "" 406 "a" 390 "b" 383 "ba"
344 "" 338 "*" 318 (FIX 4) 181 (0 2 11 8 9) 167 " " 131 "}" 116 " P" 103 (FIX 3))
SPPRINT.CHAR :D8
(I 3 FONT I 2 LAST I 1 OSTREAM I 0 C) ›g @l
ð¦@dl
ð—¿o°9l
ð–o°.@dl ð—¿o° l ð–o°@dn ð–¿o„ A
B›gA
¿@o
´&A B³CA
l*kØjA ¿A
h(150 DSPFONT 143 TAB 132 DSPFONT 122 TERPRI 114 MEMB 102 PRIN1 89 PRIN1 83 CHARACTER 9 HELP)
(96 %" 4 NOTUSED)
( 109 (13 13 10 12) 77 "[MTAB]" 62 "[TAB]" 51 "[FORM]" 37 "[LF]" 26 "[EOL]")
SPPRINT.OBJA0001 :D8
(P 4 PPRINT P 3 SOBJ P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 5 OBJ F 6 STREAM F 7 POS F 8 SI::NLSETQ-VALUE) æi@Ug
gð²_Ug
V
¿V ¿WlØhV ¿Ug
°&dKg
V
¿oV
µÛh°hUg
¬Ug
²"Ug
µ
Ug
V
°/Ug
´"Ug
ºUVlJLd•V
hcg(217 PRIN1 197 IMAGEOBJPROP 184 IMAGEOBJPROP 171 PRIN1 165 IMAGEOBJPROP 152 IMAGEOBJPROP 139 IMAGEOBJPROP 127 IMAGEOBJPROP 108 PRIN1 96 PRIN1 90 IMAGEOBJPROP 72 IMAGEOBJPROP 60 TAB 47 TERPRI 40 PRIN1 34 IMAGEOBJPROP 15 IMAGEOBJPROP)
(227 :NORMAL 192 PREPRINTFN 179 PREPRINTFN 160 LABEL 147 IDENTIFIER 134 LABEL 122 IDENTIFIER 85 IDENTIFIER 67 SUBOBJECTS 29 IDENTIFIER 20 MB.NWAY.DISPLAYFN 10 DISPLAYFN)
( 102 " ")
SPPRINT.OBJ :D8
(P 3 *CONDITION-HANDLER-BINDINGS* P 2 SI::*NLSETQFLAG* P 1 *PROCEED-CASES* P 0 SI::NLSETQ-VALUE I 2 POS I 1 STREAM I 0 OBJ F 4 *PROCEED-CASES* F 5 *CONDITION-HANDLER-BINDINGS*) 6`TioUI gð´H«oA
h(49 PRIN1 26 SPPRINT.OBJA0001)
(32 :NORMAL 7 SI::NLSETQ-PROCEED-CASE)
( 43 "**IMAGEOBJECT DISPLAY ERROR**" 15 (CL:ERROR . SI::NLSETQHANDLER))
SHOWPIECEBYTES :D8
(P 4 I P 2 NBYTES P 1 FAT P 0 FILE I 1 ARG I 0 PC) ÖA b@d3 ™¿d@
bëo@
¿@Êo
ªo ¿@É@Êlð@iA I”@Éà‚@ÉZH@É
JkLKó³H i
¿oi
¿LkÔ\°ãi H@É
I’Jâ€JkLKó³I–H áH Ø<>H i
¿LkÔ\°ái (211 TERPRI 197 PRIN1 191 CHARACTER 160 SETFILEPTR 151 TERPRI 137 PRIN1 125 PRIN1 107 SETFILEPTR 87 SPPRINT 65 ERROR 54 MEMB 39 ERROR 20 NTHPIECE 5 TEXTOBJ)
(27 PIECE)
( 131 " " 60 "NOT A FILE PIECE TYPE" 49 (0 2 11 8 9) 33 "NOT A PIECE")
CHECKPLENGTHS :D8
(P 0 P I 1 TOBJ I 0 MSG) 7A °$¸jHÉñ²o@
H
¿HÉd³Ý(45 HELP 39 CONCAT 13 \TEDIT.FIRSTPIECE 8 GTO)
(20 PIECE)
( 33 "negative")
SBT :D8
(P 1 POS P 0 W I 1 ARG I 0 DONTCLOSE) uA bg l2l
@²#H²'lH ÉZJØmÿØØl
Y…H ¿gAÉgI
AÉ(106 SETTOPVAL 101 INSPECT 76 CLOSEW 68 CREATEPOSITION 48 \INSUREWINDOW 31 CREATEPOSITION 22 WINDOWP 17 GETTOPVAL 5 GTO)
(112 TEXTOBJ 95 LIST 88 TEXTOBJ 82 BTW 12 BTW)
()
COPYPCHAIN :D8
(P 7 NEXTPC P 6 NPC P 4 NEWPC P 3 PC P 2 LASTPC I 2 J I 1 I I 0 PIECES) z@d Bµ@ HdIñ‘¿I
1@Aµk½kMñ¡M€k
<00>ɵ L°7»`K
dLÎ
¿¼KdJð²Û¿°Ü^O¿N_É
µëN(80 NCREATE2 52 NTHPIECE 31 NTHPIECE 15 NPIECES 6 NPIECES)
(106 PIECE 100 PIECE 74 |PIECETYPE#| 68 PIECE)
()
POSLINEA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 2 AFTERCR P 1 END P 0 START I 0 SI::*CLEANUP-FORMS* F 3 INSTREAM F 4 FILEPOS F 5 OUTSTREAM F 6 SI::*RESETFORMS*) øSgi ³oSg
chVc ¿ggSohS hVc 0ST
Sg
l
ð“TkØ€TZSJ
Sg
dl
ðž¿S ¿S ‚³ájXSJ
Si
´
Sg
dl
ð—¿S ‚³ßjYoTU ¿oU
SUHT l€ U
SUTI (245 COPYCHARS 236 PRIN1 230 CHARACTER 223 COPYCHARS 214 PRIN1 202 PRINTNUM 185 GETFILEPTR 173 \INCCODE.EOLC 160 \PEEKCCODE 153 SETFILEPTR 141 GETFILEPTR 134 \INCCODE.EOLC 122 \BACKCCODE.EOLC 111 SETFILEPTR 94 \BACKCCODE.EOLC 83 SETFILEPTR 66 GETFILEPTR 29 OPENSTREAM 11 \GETSTREAM)
(168 ANY 117 ANY 89 ANY 49 SETFILEPTR 44 PROGN 24 INPUT 5 INPUT)
( 208 ": " 195 (FIX 6) 55 (OLDVALUE) 18 (PROGN (CLOSEF? OLDVALUE)))
POSLINE :D8
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 2 OUTSTREAM I 1 INSTREAM I 0 FILEPOS F 3 LISPXHIST) S!g ¿$(23 SI::RESETUNWIND 18 \MVLIST 13 POSLINEA0001)
(8 SI::RESETUNWIND)
()
PRESPLIT :D8
(P 3 POS P 2 I P 0 TEXTOBJ I 1 SPREAD I 0 N) ‡@¤lb¿A¤lb¿lkAjñ‘j<E28098>lZJIó³HJ KlÔ[o ¿JkÔZ°á@dlÙlZJIó³HJ KmüÔ[o ¿JkÔZ°áH H (132 SBT 126 SP 112 TEDIT.INSERT 97 CONCAT 67 TEDIT.INSERT 52 CONCAT 23 GTO 4 TTEST)
NIL
( 107 (FACE BOLD) 62 (FACE BOLD))
ALLTL :D8
(P 5 CHARW P 4 CHAR P 3 I P 2 LASTSLOT P 1 CHARSLOT I 1 N I 0 THISLINE) @¯@ É8b¿A3 µnÿÿbkÙ@É@ÉlÿlÖÐj$KHó’±ÄIɼIɽoKi ¿oi
¿Ii
¿Ld²1¿lLjhdi
¿oi
¿L i
¿o°J²oi
¿Li
¿o°-lLjhdi
¿oi
¿oi
¿oi
¿Mi
¿i ¿IdJð‘hlйKkÔ[±ÿ/(249 TERPRI 242 PRIN1 234 PRIN1 222 PRIN1 210 PRIN1 198 FLUSHRIGHT 177 PRIN1 169 PRIN1 148 PRIN1 142 CHARACTER 135 PRIN1 123 FLUSHRIGHT 102 PRIN1 94 PRIN1 82 PRINTNUM 7 GTO)
(43 THISLINE 35 THISLINE 12 TEXTOBJ)
( 228 " " 216 " " 204 " " 183 " " 163 " " 154 " " 129 " " 88 " " 75 (FIX 3))
NTHCHARSLOT :D8
(P 5 CHARCL P 4 CHARW P 3 CHAR P 2 CHARSLOT P 1 I I 1 SLOTN I 0 THISLINE) _@ï@ É8b€@kRHdØ¿Hɺ@ɾJÉ»JɼJɽJNð³IAð”JµiJlкIkÔ¹°Ýh(12 GTO)
(51 THISLINE 42 THISLINE 34 THISLINE 17 TEXTOBJ 5 THISLINE)
()
PLCHAIN :D8
(I 1 TSTREAM I 0 LN) !@A
@É´@Éb¿¿°ã(6 PRINTLINE)
(22 LINEDESCRIPTOR 12 LINEDESCRIPTOR)
()
PRINTLINE :D8
(P 4 CH P 3 CHNO P 0 TEXTOBJ I 1 TSTREAM I 0 LN)  oi
¿i ¿@i
¿oi
¿@Éi
¿oi
¿@Éi
¿oi
¿@É i
¿oi
¿@Éi
¿oi
¿@Éi
¿i ¿oi
¿@Éi
¿oi
¿@Éi
@ɛoi
¿o oi
¿@Éi
¿oi
¿@Éi
¿i ¿oi
¿@Éi
¿i ¿oi
¿@Éi
¿i A k@Éñ’±Œ@ÉHÉñ³xoi
HÉ@ɹdIñ‘¿I@ÉA@ÉkÙ
¿KJó³"A \d› i
…i
¿KkÔ[°Þoi
i h(539 TERPRI 533 PRIN1 514 PRINT 507 PRIN1 501 CHARACTER 483 \TEDIT.TEXTSETFILEPTR 433 PRIN1 386 TEXTOBJ 380 TERPRI 373 PRIN1 358 PRIN1 346 TERPRI 339 PRIN1 324 PRIN1 312 TERPRI 305 PRIN1 290 PRIN1 278 PRIN1 263 PRIN1 252 PRIN1 241 PRIN1 221 PRIN1 206 PRIN1 194 PRIN1 179 PRIN1 167 TERPRI 160 PRIN1 145 PRIN1 133 PRIN1 118 PRIN1 106 PRIN1 91 PRIN1 79 PRIN1 64 PRIN1 52 PRIN1 37 PRIN1 25 PRIN1 17 TERPRI 10 PRIN1)
(474 LINEDESCRIPTOR 462 LINEDESCRIPTOR 447 LINEDESCRIPTOR 439 TEXTOBJ 417 TEXTOBJ 409 LINEDESCRIPTOR 396 LINEDESCRIPTOR 365 LINEDESCRIPTOR 331 LINEDESCRIPTOR 297 LINEDESCRIPTOR 270 LINEDESCRIPTOR 227 LINEDESCRIPTOR 213 LINEDESCRIPTOR 186 LINEDESCRIPTOR 152 LINEDESCRIPTOR 125 LINEDESCRIPTOR 98 LINEDESCRIPTOR 71 LINEDESCRIPTOR 44 LINEDESCRIPTOR)
( 527 "|" 427 "|" 352 "Next: " 318 "Prev: " 284 " XLim: " 257 "RMar: " 247 ".
" 235 " Forced-end" 200 " Lim: " 173 "Char1: " 139 " Descent: " 112 " Ascent: " 85 " Height: " 58
" Base: " 31 " Bot: " 4 "-----")
SL.GETLINES :D8
(P 9 L P 8 I P 7 P P 6 I P 4 PANEPREFIX P 3 SEL P 2 TEXTOBJ P 1 NLINES P 0 PNO I 3 TOBJ I 2 PANE I 1 LASTLINE I 0 FIRSTLINE) ‹
BA3 µ
@Ñk<E28098>ld2@Ã’@°Ci
µ@i
´ @ hb¿ZB µKB3 ²>JkMdÓ¿Mɵ°%_¿NBð–Oµi°Og
ɵMhµ
k¸J b@Ã’±<00>@dgðŸ¿JÉbò@Êjð³@[BJ °V_¿NkÔ^°<>@µBg
É°1ið´-JÉÊjð³JÉ[BJ €hb€@²GAó?Kµ k @µ
°.BJ °'_¿OÉ”OIð•Oµi‹Oɵhb¿@AJBHµkh_¿OkÔ_¿°Â(319 \TEDIT.SEL.LN 284 \TEDIT.SEL.L1 225 GETWINDOWPROP 200 \TEDIT.SEL.L1 139 \TEDIT.PRIMARYPANE 118 GETWINDOWPROP 64 WINDOWP 53 GTO 45 GTO 36 GTO)
(381 LINEDESCRIPTOR 352 LINEDESCRIPTOR 326 LINEDESCRIPTOR 298 LINEDESCRIPTOR 276 SELECTION 269 TEXTOBJ 256 SELECTION 249 TEXTOBJ 237 LINEDESCRIPTOR 230 PANEPROPS 220 PANEPROPS 181 SELECTION 174 SELECTION 167 TEXTOBJ 158 SEL 147 LINEDESCRIPTOR 123 PANEPROPS 113 PANEPROPS 83 TEXTOBJ 25 TEXTOBJ 11 LINEDESCRIPTOR)
()
CHECKLINES :D8
(P 1 NEXT P 0 L I 2 MSG I 1 LINEN I 0 LINE1) ˆ@d¢±ƒÉjðš@Éb¿ @µ°dHɵ°XXÉY´IHÉkØIÉÙjð³(B²oi
¿Bi
¿i ¿HI
¿A²¦HdAð²¡h(122 HELP 114 TERPRI 107 PRIN1 99 PRIN1)
(78 LINEDESCRIPTOR 68 LINEDESCRIPTOR 57 LINEDESCRIPTOR 51 LINEDESCRIPTOR 40 LINEDESCRIPTOR 21 LINEDESCRIPTOR 10 LINEDESCRIPTOR)
( 93 "Line sequence error: ")
COLLECTLINES :D8
(P 3 L I 0 LINE) +@@d² °J&¹Ž[ºIµôJhY¸KɵéHNIL
(35 LINEDESCRIPTOR 19 LINEDESCRIPTOR)
()
NTHLINE :D8
(P 3 L P 2 I P 0 TOBJ I 1 N I 0 LINE) Y@ó.@ X g
ÉÉb¿@ kIµh»JdAð‘KkÔºIY°ì(60 COLLECTLINES 32 GETWINDOWPROP 22 \TEDIT.PRIMARYPANE 16 GTO)
(49 LINEDESCRIPTOR 44 LINEDESCRIPTOR 37 PANEPROPS 27 PANEPROPS 8 LINEDESCRIPTOR)
()
HEIGHT :D8
(P 1 L I 0 LINE) %j@°¹HIÉ Ô¸IɵçHNIL
(29 LINEDESCRIPTOR 19 LINEDESCRIPTOR 11 LINEDESCRIPTOR)
()
LINEBOTS :D8
(P 3 L I 0 LINE) a@ó% g
Éb¿@@d£d‘h°%J&¹°[ɺIµìJhY¸KɵâH(27 GETWINDOWPROP 17 \TEDIT.PRIMARYPANE 12 GTO)
(89 LINEDESCRIPTOR 72 LINEDESCRIPTOR 66 LINEDESCRIPTOR 39 LINEDESCRIPTOR 32 PANEPROPS 22 PANEPROPS 5 LINEDESCRIPTOR)
()
IPC.DECODEARGS :D8
(P 5 TPC P 4 OBJ P 3 I P 2 N P 1 ID P 0 TEXTOBJ I 1 TOBJ I 0 PC) iAi
@d–d3@ð´@@ò#H²k@HK
ð™Kµiº@±ÂKkÔ»°è@d3 šºH@
±¬o
˜H ±˜@i
ž@ A
±<00>I²gH²ok!H †KkÔ»MÉd¬Z²LHJ
°Y]Êlð´MÉôMÉ\²ÎILg
ð®ILg
ð²±Kµ·i°´H˜@¦H Šo@
bdÊlð´SdÉôI@É´D@Êlð´@Éô@Ég
µ"@Êlð´@Éô@Ég
Y@IœJoI €Jh(353 CONCAT 337 IMAGEOBJPROP 303 IMAGEOBJPROP 245 ERROR 233 SELPIECE 214 IMAGEOBJPROP 200 IMAGEOBJPROP 156 NTHPIECE 135 \TEDIT.FIRSTPIECE 116 NTHPIECE 110 TEXTOBJ 103 TEXTOBJ 93 SELPIECE 86 MEMB 73 NTHPIECE 42 NTHPIECE 6 GTO)
(332 LABEL 322 IMAGEOBJ 298 IDENTIFIER 288 IMAGEOBJ 264 IMAGEOBJ 209 LABEL 195 IDENTIFIER 180 IMAGEOBJ 163 PIECE 25 PIECE)
( 347 "-" 239 "NOT A PIECE" 81 (SEL T))
SPF1 :D8
(P 4 PAGEREGION I 0 PAGEREGION) g@Ég@Éhg@É
h@É@ÉAHµ Id¢¼hƒ¼H¸L »Jµ KhZ¹°ÜK&º°×(85 SPF1)
(53 PAGEREGION 45 PAGEREGION 34 PAGEREGION 28 TYPE 18 PAGEREGION 12 LOCALINFO 5 PAGEREGION)
()
SLF.FATPLEN :D8
(P 0 ORIGPTR I 2 BYTELEN I 1 PFPOS I 0 LOOKSFILE) E@ @A
@ lÿð²$@ djð˜¿BmþÔb°lÿð—@ ¿BlÙ‡BmþÔb<04>Bâ@H
¿(65 SETFILEPTR 15 SETFILEPTR 5 GETFILEPTR)
NIL
()
FILEPIECEA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 6 CLOOKSBYTES P 5 CLOOKSINDEX P 4 FLAG P 3 PTYPEBYTES P 2 TYPE P 1 BYTELENBYTES P 0 BYTELEN I 0 SI::*CLEANUP-FORMS* F 7 STREAM F 8 FILEPOS F 9 PTYPE F 10 A0233) ÏWW
¿W HãããHããlÿåHãlÿåHlÿåh¹W áW ØWãWHåh»W W áW ØMãMlÿåh¾Jdjð²L¿gWhgHhgIhgJhgLhgMhgNhhŽkð‘h‰o  hc¿$(197 \MVLIST 188 HELP 16 \DWIN 8 SETFILEPTR)
(160 CLOOKSBYTES 151 CLOOKSINDEX 142 FLAG 133 TYPE 124 BYTELENBYTES 115 BYTELEN 105 FILEPOS)
( 183 "Piece type?")
FILEPIECEA0002 :D8
(F 0 STREAM F 1 A0233) PgQ (11 CL:CLOSE)
(5 :ABORT)
()
FILEPIECE :D8
(P 1 A0233 P 0 STREAM I 1 FILE I 0 FILEPOS) 5Agg ig HgI ¿$(46 CL:CLOSE 34 \MVLIST 29 FILEPIECEA0001 15 OPEN)
(40 :ABORT 24 FILEPIECEA0002 10 :INPUT 5 :DIRECTION)
()
SELTEDIT :D8
(P 0 TARG I 2 LEN I 1 START I 0 SRC) `@ bhgho A³ @g
b¿B­@g
b¿@AB @H
Hgh H(92 TEXTPROP 80 TEDIT.COPY 73 TEDIT.SETSEL 62 TEDIT.SELPROP 46 TEDIT.SELPROP 29 TEXTSTREAM 24 TEDIT 5 GTS)
(86 DIRTY 57 LENGTH 41 CH# 13 SELTEDIT)
( 19 (LEAVETTY T))
PPARAA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 0 R I 0 SI::*CLEANUP-FORMS* F 1 BSTR F 2 SI::*RESETFORMS* F 3 PARA) YggQohQ hRcoi
¿Q i
¿i S<01>dHQ
µñh(80 PRUN 64 TERPRI 57 PRIN1 51 GETFILEPTR 44 PRIN1 26 GETFILEPTR)
(9 SETFILEPTR 4 PROGN)
( 38 "FILEPOS = " 15 (OLDVALUE))
PPARA :D8
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 1 BSTR I 0 PARA F 3 BSTREAM F 4 LISPXHIST) $A£Sb¿T!g ¿$(29 SI::RESETUNWIND 24 \MVLIST 19 PPARAA0001)
(14 SI::RESETUNWIND)
()
PRUNA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 3 FONT P 2 CL P 1 I I 0 SI::*CLEANUP-FORMS* F 4 RUN F 5 BSTR F 6 SI::*RESETFORMS*) ggUohU hVc oTi ¿oi
¿Ti
¿oi
¿l hi UT
TkIHó²[TJÉ»l
hi ¿Kg
i
¿Kg
i
¿Kg
gð²g°U Ui ¿IkÔY°•oi
¿Kg
gð•g„oi
¿i T(273 TERPRI 266 PRIN1 240 FONTPROP 228 PRIN1 210 SBC 185 FONTPROP 173 PRIN1 167 FONTPROP 155 PRIN1 149 FONTPROP 137 TAB 101 SETFILEPTR 91 TAB 81 PRIN1 69 PRIN1 60 PRIN1 48 PRINTNUM 26 GETFILEPTR)
(254 I 247 ITALIC 235 FACE 199 B 191 BOLD 180 FACE 162 SIZE 144 FAMILY 125 CHARLOOKS 9 SETFILEPTR 4 PROGN)
( 260 "" 222 "" 75 ": " 54 "/" 38 (FIX 5) 15 (OLDVALUE))
PRUN :D8
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 1 BSTR I 0 RUN F 3 BSTREAM F 4 LISPXHIST) $A£Sb¿T!g ¿$(29 SI::RESETUNWIND 24 \MVLIST 19 PRUNA0001)
(14 SI::RESETUNWIND)
()
ADDLINEPOSITIONSA0001A0002 :D8
(NAME SI::*UNWIND-PROTECT* P 0 B I 0 SI::*CLEANUP-FORMS* F 1 OUTSTREAM F 2 INSTREAM F 3 A0235) JnÿÿQ
¿ojQ ¿oQ
¿R XµQ hc¿$RQi °Þ(70 SBC 54 \MVLIST 49 FULLNAME 36 PRIN1 24 PRINTNUM 8 LINELENGTH)
NIL
( 30 ": " 17 (FIX 6))
ADDLINEPOSITIONSA0001A0003 :D8
(F 0 OUTSTREAM F 1 A0235) PgQ (11 CL:CLOSE)
(5 :ABORT)
()
ADDLINEPOSITIONSA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 1 A0235 P 0 OUTSTREAM I 0 SI::*CLEANUP-FORMS* F 2 INSTREAM F 3 A0234) ~Rgg ¿ggghgR
gggg
ig HgI ¿$ hc¿$(116 \MVLIST 106 CL:CLOSE 94 \MVLIST 89 ADDLINEPOSITIONSA0001A0002 75 OPEN 49 PACKFILENAME 43 FULLNAME 15 STREAMPROP)
(100 :ABORT 84 ADDLINEPOSITIONSA0001A0003 69 :NEW-VERSION 64 :IF-EXISTS 59 :OUTPUT 54 :DIRECTION 37 BODY 31 VERSION 26 POS 21 EXTENSION 10 NILL 5 ENDOFSTREAMOP)
()
ADDLINEPOSITIONSA0004 :D8
(F 0 INSTREAM F 1 A0234) PgQ (11 CL:CLOSE)
(5 :ABORT)
()
ADDLINEPOSITIONS :D8
(P 1 A0234 P 0 INSTREAM I 0 FILE) 5@gg ig HgI ¿$(46 CL:CLOSE 34 \MVLIST 29 ADDLINEPOSITIONSA0001 15 OPEN)
(40 :ABORT 24 ADDLINEPOSITIONSA0004 10 :INPUT 5 :DIRECTION)
()
SBR :D8
(P 2 I P 0 ORIGPTR I 0 RUN F 3 BSTREAM) cS S@
@i
¿oi
¿@i
¿oi
@kJIó™SH
@S Si ¿JkÔZ°å(90 SBC 79 SETFILEPTR 61 PRIN1 49 PRIN1 40 PRIN1 28 PRIN1 18 SETFILEPTR 5 GETFILEPTR)
NIL
( 55 ": " 34 "/")
SBC :D8
(I 3 SPACELINES I 2 OUTSTREAM I 1 INSTREAM I 0 BYTE) Ò@dl
ð²]¿oB
C²+B B oA B oB
oB
A B
oB
l
ð²\oB
C²+B B oA B oB
oB
A B
oB
@dl ð²]¿oB
C²+B B oA B oB
oB
A B
oB
l ð›oB
@dlð²\¿Bl
C²-B oA B oB
lB
oB
A B
oB
l\ð²2l\ B
oB
A B
oB
B@
(463 BOUT 455 PRIN1 444 PRIN1 438 GETFILEPTR 432 PRIN1 421 PRIN1 415 CHARACTER 402 PRIN1 391 PRIN1 385 GETFILEPTR 379 PRIN1 367 SPACES 359 PRIN1 348 PRINTNUM 342 GETFILEPTR 331 TERPRI 322 BOUT 305 PRIN1 289 PRIN1 278 PRIN1 272 GETFILEPTR 266 PRIN1 254 PRIN1 243 PRINTNUM 237 GETFILEPTR 226 TERPRI 220 TERPRI 211 PRIN1 191 PRIN1 180 PRIN1 174 GETFILEPTR 168 PRIN1 156 PRIN1 145 PRINTNUM 139 GETFILEPTR 128 TERPRI 122 TERPRI 113 PRIN1 96 PRIN1 85 PRIN1 79 GETFILEPTR 73 PRIN1 61 PRIN1 50 PRINTNUM 44 GETFILEPTR 33 TERPRI 27 TERPRI 18 PRIN1)
NIL
( 449 "]" 426 "[" 396 "]" 373 "[" 353 ": " 336 (FIX 6) 299 "[TAB]" 283 "]" 260 "[" 248 ": " 231 (FIX 6)
205 "[FORM]" 185 "]" 162 "[" 150 ": " 133 (FIX 6) 107 "[LF]" 90 "]" 67 "[" 55 ": " 38 (FIX 6) 12 "[CR]")
OLDWI :D8
(P 5 COMS P 4 F I 0 FN F 6 TEDITFILES) BVQHµI\ \²%@hL gL ™L»Jµ KhZ¹HX°ËK&º°ø(43 INFILECOMS? 38 GETDEF 27 FILECOMS 16 DFOV.OLDEST)
(32 VARS)
()
COMP :D8
(I 0 FN) (@ggd@gi
h (37 COMPAREDEFS 28 REMOVE 23 WHEREIS)
(17 FNS 10 SAVE 5 FNS)
()
DFR :D8
(P 1 FILEPKGFLG P 0 FNR I 1 FILE I 0 FN) {Aµ @gi bµ@o
¿Ai
bd«@o
¿@g
@HgggghgA
 Hho (120 EDITDEF.FNS 108 COPYDEF 103 PACKFILENAME 65 PACK* 53 ERROR 38 FINDFILE 30 ERROR 14 WHEREIS)
(96 BODY 90 VERSION 85 {RMEDLEY} 80 HOST 75 FNS 60 -R 8 FNS)
( 115 (:DONTWAIT) 48 " not found" 25 " not found")
DFGV :D8
(I 0 ARGS) 'g@@b@b@b¿h
(36 APPLY 26 GDIRECTORIES)
(4 DFOV)
()
GDIRECTORIES :D8
(P 4 D) K`AHµI\g
gð² gggL »Jµ KhZ¹HX°ÆK&º°ø(54 PACKFILENAME 25 FILENAMEFIELD)
(48 BODY 43 {MEDLEY} 38 HOST 30 WMEDLEY 20 HOST 4 DIRECTORIES)
()
TTEST :D8
(P 4 TESTDIR P 3 SUBDIR P 1 TEXTOBJ P 0 TEXTSTREAM I 5 READONLY I 4 DONTQUIT I 3 AFTERFORMS I 2 OPENONLY I 1 REGION I 0 FILE F 5 LASTTESTSTREAM F 6 LASTTESTFILE F 7 LASTTEXTSTREAMREGION F 8 LASTTEXTSTREAM) ÅAµg °d3@ð²A <00>A b¿@µ‚±¤g ’Vµxo ¿@ ˜@ b¿0g ²4U ²,D³)U Zh¿JÊ,jð­Jh
¿JjÏ,¿U ¿B¢±ž@hddE´o
±Ã µghgV b±ÿ| g'gK²LoK ¼@ b€@ ³0@i L`o µ
o@
b¿@c ±ÿA –A †A§gb¿@A hgiE´o Xdc
A cH YCµHcµ jC¿°ô¨C ¿°çC²âgC ¿°Ó(448 EVAL 428 EVAL 400 TEXTOBJ 392 REGIONP 382 TEXTSTREAM 377 TEDIT 355 COPY 337 COPY 330 REGIONP 314 ERROR 301 FINDFILE-WITH-EXTENSIONS 283 PSEUDOFILENAME 278 DIRECTORYNAME 269 STRINGP 260 ROOTFILENAME 253 CONCAT 224 UNPACKFILENAME.STRING 214 PACKFILENAME 195 STRINGP 187 OPENTEXTSTREAM 163 TEDIT.QUIT 150 \TEDIT.WINDOW.TITLE 131 TEXTOBJ 120 TEXTSTREAMP 112 BOUNDP 96 OPENSTRINGSTREAM 89 STRINGP 82 ERROR 68 BOUNDP 48 COPY 43 \EVALV1 36 REGIONP 31 \EVALV1 17 REGIONP 12 \EVALV1)
(441 PROGN 361 LEAVETTY 345 TTEST 289 DIRECTORIES 235 {TTESTS} 229 SUBDIRECTORY 208 BODY 202 VERSION 107 LASTTESTSTREAM 63 LASTTESTFILE 7 LASTTEXTSTREAMREGION)
( 370 (READONLY T) 308 "FILE NOT FOUND" 296 (TEDIT TXT NIL) 247 "/" 181 (READONLY T) 77 "NO FILE SPECIFIED")
LTEST :D8
(P 0 LPC I 1 SCROLL I 0 FILE) s@d3•b¿hb A² jA ¿ g
ÉÉÉ
Xd (112 SPLINES 107 SP 100 \TEDIT.CHTOPC 95 GTO 64 GETWINDOWPROP 54 \TEDIT.PRIMARYPANE 49 GTO 43 SCROLLW 36 WFROMDS 31 TEXTSTREAM 26 GTO 18 TTEST)
(88 LINEDESCRIPTOR 81 LINEDESCRIPTOR 76 LINEDESCRIPTOR 69 PANEPROPS 59 PANEPROPS)
()
SHOWSAFE :D8
(I 4 TEXTOBJ I 3 FILE I 2 HELP I 1 TAG I 0 PIECE F 0 SAFESHOW F 1 SAFEHELP F 2 TTY F 3 BYTESLEFT F 4 BYTESLEFTINBUFFER F 5 PREFIXBYTES) ¨C£Rb¿Pið®AdPðª¿P²yAP²tA²AC
¿oC
¿@ÉC
¿oC
¿SC
¿oC
¿TC
¿oC
¿UC
¿C ¿@CD ¿B³Qið¬AQð¨Q´AQ´ @A
(165 HELP 137 SPPRINT 132 GTO 123 TERPRI 116 PRIN1 108 PRIN1 96 PRIN1 88 PRIN1 76 PRIN1 68 PRIN1 56 PRIN1 46 PRIN1 34 PRIN1)
NIL
( 102 " Prefix = " 82 " Inbuffer = " 62 " Left = " 40 " ")
MYH :D8
(I 3 N I 2 SKIP I 1 MESS2 I 0 MESS1) B³Cµnèhi @A
h(22 HELP 15 DISMISS)
NIL
()
DFVENUE :D8
(P 1 DEF P 0 VNAME I 1 FILE I 0 FN F 2 VTDIR) ÀA§gb¿gAgR b A£hb¿@hAg Yd²m@oo Xoi
¿@i
¿oi
¿Ai
¿i HgI Hgh Hghdo
@i
¿oi
¿Ai
h(188 PRIN1 180 PRIN1 168 PRIN1 160 EDITDEF 141 ADDTOFILE 129 PUTDEF 117 TERPRI 110 PRIN1 102 PRIN1 90 PRIN1 82 PRIN1 70 PACK* 50 GETDEF 26 PACKFILENAME)
(147 FNS 135 FNS 123 FNS 45 NOERROR 20 BODY 14 NAME 6 TFBRAVO)
( 174 " not found on " 154 (:DONTWAIT) 96 " from " 76 "Editing " 65 "Venue" 60 "-")
VSEE :D8
(I 0 FILE F 0 VTDIR) gPg@ i
(22 PFI.MAYBE.SEE.PRETTY 16 PACKFILENAME)
(10 BODY 4 DIRECTORY)
()
PTT :D8
(I 1 NOTREADONLY I 0 FILE) @hdgigAhðh (26 TEDIT)
(13 READONLY 7 UNFORMATTED)
()
DEBUGOUTPUT.STREAM :D8
(I 4 FONT I 3 WIDTH I 2 TITLE I 1 WTYPE I 0 OFILE F 0 SI::*RESETFORMS* F 1 DEFAULTFONT) ãD£Qb¿A¢±·h@ hdgDggCd´ l D
Úhh
b¿CµsB£Ab¿gggg@gAhhggggigBhhhgg@hohhhd°&@
¿°ˆ@´!o@gg bhPc@(214 OPENSTREAM 187 LINELENGTH 62 OPENTEXTSTREAM 47 CHARWIDTH 17 REGIONP)
(209 NEW 204 OUTPUT 158 WFROMDS 153 WINDOWPROP 131 TITLE 125 LEAVETTY 120 QUIET 115 READONLY 110 QUOTE 100 QUOTE 94 TEDIT 89 RESETSTATE 84 CL:UNLESS 79 PROGN 35 RIGHTMARGIN 30 PARALOOKS 24 FONT)
( 198 (PROGN (CLOSEF? OLDVALUE)) 167 ((QUOTE TEDIT-DEBUG) T))
TEDIT-DEBUG :D8
(I 0 DONTOVERLOAD F 0 TEDITFILES F 1 TFILES) ðo o ²go
¿o @šg „¿o @ªo ¿ggPco ggogg
 o i ¿oi
¿o i
¿i (237 DRIBBLE 232 TERPRI 225 PRIN1 219 PSEUDOFILENAME 214 MEDLEYDIR 203 PRIN1 191 TERPRI 185 FILESLOAD 175 GIT-PUT-PROJECT-FIELD 169 GIT-GET-PROJECT 139 CNDIR 134 PSEUDOFILENAME 129 MEDLEYDIR 103 %. 91 FILESLOAD 80 EDIT-TEDIT 74 LOAD 62 FILESLOAD 51 PSEUDOHOST 46 MEDLEYDIR 29 DIRECTORYNAMEP 24 MEDLEYDIR 14 DRIBBLE 9 PSEUDOFILENAME)
(164 EXCLUSIONS 159 MEDLEY 149 EXCLUSIONS 144 MEDLEY 114 TEDIT-STRESS 109 TEDIT-DEBUG 69 TEDIT-EXPORTS.ALL 36 OT)
( 209 "library/tedit" 197 "Connected to " 180 ((NOERROR) {OT}OTWHEREIS) 154 "tedit-tests/" 124 "library/tedit"
98 (ANALYZE ON (TEDIT-STRESS TEDIT-DEBUG)) 86 ((NOERROR FROM {WMEDLEY}/library/tedit/) TEDIT-STRESS TEDIT-RENAMES)
57 ((NOERROR FROM LOADUPS) FULLER.DATABASE) 41 "../oldtedit/" 19 "../oldtedit/" 4 "{LI}TEDIT-DEBUG.DRIBBLE")
HEXTOHILO :D8
(I 0 NUM) )@d3 ¦ bãã o@nÿÿå (38 CONCAT 33 OCTALSTRING 18 OCTALSTRING 9 HEXNUM?)
NIL
( 23 ",")
CW :D8
NIL  (9 CLOSEW 4 WHICHW)
NIL
()
TRENAME :D8
(P 11 FS P 10 WH P 9 M P 7 M P 6 MAP P 5 TRANS P 4 F I 1 FILES I 0 FNS F 12 TEDITFILES) A A¤Wb¿@QHµ IN±‡£H¼h„H¼H¸Lk
l\ð²%oLlhi
®oLl
°!h°#oLhdi
•o„oL
]²—LM»Jµ KhZ¹°‰K&º°„dOO
µíN1 OµN_g
_¿o _¿OµfNO
¿Og
¿o ¿O²'OOO ¿O g
¿o ¿O_±ÿwdO’¿°–O_¿°Ž(294 %. 283 MARKASCHANGED 273 FILECOMS 265 DSUBST 260 FILECOMS 242 %. 231 MARKASCHANGED 217 DSUBLIS 212 GETD 196 %. 182 WHEREIS 152 COPYDEF 114 PACK* 96 STRPOS 76 SUBSTRING 62 STRPOS 41 NTHCHARCODE)
(278 VARS 226 FNS 177 FNS)
( 289 (ANALYZE ON IN FS) 237 (ERASE IN (CAR M)) 191 (WHO ON IN FILES CALLS (CAR M)) 108 "\TEDIT." 102 "\"
86 "TEDIT" 68 "\TEDIT." 51 "TEDIT.")
(PRETTYCOMPRINT TEDIT-DEBUGCOMS)
(RPAQQ TEDIT-DEBUGCOMS ((* ;;
"This is an internal/ file containing a hodge-podge of functions for use in Tedit debugging. To start working on TEDIT, (LOAD 'TEDIT-DEBUG.LCOM) and then run (TEDIT--DEBUG). That will load TEDIT-EXPORTS.ALL and EXPORTS.ALL, load the fuller database if available, and analyze the functions on TEDITFILES. And leave you connected to {MEDLEYDIR}/library/tedit/."
) (* ;;
"This has functions for accessing,showing, inspecting and manipulating a variety of internal Tedit data structures (textobj, piece, line, selection, thisline), and other random bits of code. It has grown as different issues have been addressed, at some point it should be cleaned up and documented."
) (* ;;
"This is stored in internal/ so that it remains compatible with the commits/branches/PRs/releases.") (
VARS (\TEDIT.THELPFLG T) (TFILES (CONS (QUOTE TEDIT-DEBUG) TEDITFILES))) (COMS (* ;
"Get/set (default) object, stream, window, selection") (FNS GTO GTS GTW GSEL) (INITVARS (
LASTTEXTSTREAM NIL)) (FNS TEST.TEMPLATE)) (FNS TESTACTION) (COMS (* ; "Inspect") (FNS IPC ILINES ISEL
ITS IPANES ITL IHIST IPCTB IMB ICL IPL ICARET INSPECTPIECES INSPECTFILEPIECES)) (COMS (* ; "Show") (
FNS SP SL SSP SPF SLF SHOWLINE SLL STBYTES SSEL) (FNS STL CLEARTHISLINE CHARSLOTP \TLVALIDATE)) (COMS
(FNS NTHPIECE NPIECES NTHPIECECHAR SELPIECE PIECENUM PCBYTES)) (COMS (FNS FILEBYTES TFILEBYTES)) (FNS
TRELMOVE TSCROLL TSCROLL*) (FNS TRY TEDITCLOSEW PARALASTWITHOUTEOL FIXPARALAST) (FNS SPPRINT
SPPRINT.CHAR SPPRINT.OBJ SHOWPIECEBYTES CHECKPLENGTHS SBT COPYPCHAIN) (FNS POSLINE) (FNS PRESPLIT) (
FNS ALLTL NTHCHARSLOT) (* ; "THISLINE") (FNS PLCHAIN PRINTLINE SL.GETLINES CHECKLINES COLLECTLINES
NTHLINE HEIGHT LINEBOTS) (FNS IPC.DECODEARGS) (FNS SPF1) (* ; "Page frames") (FNS SLF.FATPLEN
FILEPIECE) (* ; "Show looks file") (FNS SELTEDIT) (* ; "New editor on an old selection") (COMS (* ;
"Bravo") (FNS PPARA PRUN ADDLINEPOSITIONS SBR SBC)) (INITVARS (LASTTS NIL)) (VARS (OK.TO.MODIFY.FNS T)
) (FNS OLDWI COMP DFR) (FNS DFGV GDIRECTORIES) (COMS (FNS TTEST LTEST) (INITVARS (LASTTTESTFILE)) (
VARS * TTESTREGIONS)) (COMS (FNS SHOWSAFE) (INITVARS SAFESHOW SAFEHELP)) (FNS MYH) (VARS VTDIR VTF TF)
(FNS DFVENUE VSEE) (FNS PTT) (* ; "Plain text") (COMS (MACROS DEBUGOUTPUT) (FNS DEBUGOUTPUT.STREAM))
(FNS TEDIT-DEBUG) (FNS HEXTOHILO CW) (FNS TRENAME) (FILES (NOERROR) VERSIONDEFS) (* ;
"Until this is release") (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA
VSEE DFGV) (NLAML DFVENUE DFR) (LAMA)))))
(RPAQQ \TEDIT.THELPFLG T)
(RPAQ TFILES (CONS (QUOTE TEDIT-DEBUG) TEDITFILES))
(RPAQ? LASTTEXTSTREAM NIL)
(RPAQ? LASTTS NIL)
(RPAQQ OK.TO.MODIFY.FNS T)
(RPAQ? LASTTTESTFILE)
(RPAQQ TTESTREGIONS (RBRAVO RHUGE RMID RSMALL RBIG RHIGH))
(RPAQQ RBRAVO (1321 246 561 554))
(RPAQQ RHUGE (865 26 811 957))
(RPAQQ RMID (753 774 531 169))
(RPAQQ RSMALL (858 796 462 81))
(RPAQQ RBIG (900 400 600 358))
(RPAQQ RHIGH (877 880 462 103))
(RPAQ? SAFESHOW NIL)
(RPAQ? SAFEHELP NIL)
(RPAQQ VTDIR {DSK}<users>kaplan>local>medley3.5>pregit-medley>venuelispcore>library>.)
(RPAQQ VTF {DSK}<users>kaplan>local>medley3.5>pregit-medley>venuelispcore>library>TFBRAVO.)
(RPAQQ TF {WMEDLEY}<library>TEDIT>TEDIT-TFBRAVO.)
(PUTPROPS DEBUGOUTPUT MACRO ((FILE . FORMS) (RESETLST (LET ((OFILE FILE)) (RESETSAVE (DSPFONT NIL
OFILE) (QUOTE (PROGN (DSPFONT OLDVALUE OFILE)))) . FORMS))))
(FILESLOAD (NOERROR) VERSIONDEFS)
NIL
Reference in New Issue View Git Blame Copy Permalink