(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "19-Jul-2022 23:34:15" ("compiled on " {DSK}kaplan>local>medley3.5>working-medley>sources>TTYIN.;17) "19-Jul-2022 18:31:42" brecompiled exprs%: TTYINREADP in "FULL 19-Jul-2022 ..." dated "19-Jul-2022 18:31:48") (FILECREATED "19-Jul-2022 23:34:14" {DSK}kaplan>local>medley3.5>working-medley>sources>TTYIN.;17 328952 :CHANGES-TO (FNS TTYINREADP ) :PREVIOUS-DATE " 2-Jul-2022 00:09:00" {DSK}kaplan>local>medley3.5>working-medley>sources>TTYIN.;16) TTYINA0001A0002 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 SI::NLSETQ-VALUE) i@hcg(9 TTYIN1) (18 :NORMAL) () TTYINA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 58 \INSIDE.TTYIN P 57 *CONDITION-HANDLER-BINDINGS* P 56 SI::*NLSETQFLAG* P 55 *PROCEED-CASES* P 54 SI::NLSETQ-VALUE P 50 \TTYINBUFFERSTREAM P 49 \TTPAGELENGTH P 48 \TEXTURE P 47 \STRINGVALUE P 46 \RMARG P 45 \REPEAT P 44 \READING P 43 \RDTBLSA P 42 \PROMPTFORWORD P 41 \PROMPT2 P 40 \PROMPT1 P 39 \PFW.FIRSTTIME P 38 \NOVALUE P 37 \NOFIXSPELL P 36 \LOC.ROW.0 P 35 \LMARG P 34 \LISPXREADING P 33 \LASTCHAR P 32 \LASTAILROW P 31 \LASTAILCOL P 30 \LASTAIL P 29 \LAST.DELETION P 28 \INITPOS P 27 \HOMEROW P 26 \HOMECOL P 25 \FONT P 24 \FIX P 23 \FIRSTLINE P 22 \FILLINGBUFFER P 21 \ENDBUFFER P 20 \DONTCOMPLETE P 19 \DESCENT P 18 \DELETING P 17 \CURSORROW P 16 \CURSORCOL P 15 \CURSOR P 14 \COMMENTFONT P 13 \COMMAND P 12 \CHARWIDTH P 11 \CHARHEIGHT P 10 \BUFFER P 9 \BMARG P 8 \ARROW P 6 \TTYINSTATE P 5 \RAISEINPUT P 4 \INITCRLFS P 3 \FIRSTTIME P 2 \DSP P 1 \AUTOFILL P 0 \INSIDE.TTYIN I 0 SI::*CLEANUP-FORMS* F 59 PROMPT F 60 SPLST F 61 RDTBL F 62 \PRIMTERMTABLE F 63 TTYINFILLDEFAULT F 64 \TERM.OFD F 65 DEFAULTPROMPT F 66 OPTIONS F 67 *PROCEED-CASES* F 68 TTYINWORDRDTBL F 69 UNREADBUF F 70 *READTABLE* F 71 *CONDITION-HANDLER-BINDINGS*) ]; iW~Wij` W|``%45hN"jhhddjhhddjhddddWx"Wh_j_hOh!OXnWzhWpWxhcxOh_jhOh_jOh_hOjdgdgdg_(_JgOj_LOjdg_^gOj_~Ojdg_ZnghbOjdgiRgOjY_L_Zh>Ojdg_0.gOjY_XOjdgY_X_D_W|gOjY_X_D_W|Ojdg_gOj_,Ojdg𓻱gOjgOj_^_TW_NhWzddiWWzcz_VWvdih_R_PrWcvWvd2d _PWv_RWvQWv_PODOT,h?lm cv Wvd3@Wv cvOZl Wv Wvg_RWxi_(OXh_ZOi 6`WioW9On gOl_f(`ODO OO*NO*OO*Ndkl NjO*hOf_fij `8Ofdi3h:Ofdd3@Ofd o _fOf(853 EDITE 841 EDITE 794 POSITION 744 ERROR! 726 GO.TO.FREELINE 692 TTYINA0001A0002 661 CLEARBUF 625 NCHARS 609 MKSTRING 592 STRINGP 583 SUBSTRING 510 TTYIN.SETUP) (816 CTRLUFLG 800 CTRLUFLG 713 TTYINERRORSETFLG 698 :NORMAL 670 SI::NLSETQ-PROCEED-CASE 635 |...| 500 READTABLEP 493 READTABLEP 451 PROMPTFORWORD-SPACE 442 PROMPTFORWORD 431 NOPROMPT 413 FILLBUFFER 400 TYPEAHEAD 386 TERMTABLEP 366 EVALQT 355 TERMTABLEP 337 LISPXREAD 318 READ 305 FIX 282 TEXT 269 RAISE 254 NORAISE 241 REPEAT 223 COMMAND 211 STRING 194 \NOVALUE 180 CRCOMPLETE 172 MUSTAPPROVE 164 NOFIXSPELL 50 TTYINBUFFER 32 TYPEAHEADFLG 27 TTYINBUFFER 20 TERMTABLEP 11 TTYINRAISEFLG) ( 848 (REPACK) 679 (CL:ERROR . SI::NLSETQHANDLER)) TTYIN :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 7 RDTBL I 6 UNREADBUF I 5 TABS I 4 ECHOTOFILE I 3 OPTIONS I 2 HELP I 1 SPLST I 0 PROMPT F 3 LISPXHIST) S!g $(23 SI::RESETUNWIND 18 \MVLIST 13 TTYINA0001) (8 SI::RESETUNWIND) () TTYIN.SETUP :D8 (F 2 \DSP F 3 \FONT F 4 \TTYINSTATE F 5 \COMMENTFONT F 6 SI::*RESETFORMS* F 7 \TTYIN.LAST.FONT F 8 \TTYIN.LAST.COMMENTFONT F 9 \TTPAGELENGTH F 10 \SCREENBITMAPS F 11 \CHARWIDTH F 12 \TEXTURE F 13 \INITPOS F 14 \RMARG F 15 \READING F 16 \CHARHEIGHT F 17 \LMARG F 18 \DESCENT) QRi H~THgg THgg THgg THHgT gThhdVc Rg hR WlAR chR cdWW8W3SgSg ggg cc ScSc S U HIHIc S c$hR chR chR c"hR chR c(332 DSPXPOSITION 323 DSPRIGHTMARGIN 314 DSPLEFTMARGIN 305 PAGEHEIGHT 296 DSPTEXTURE 237 FONTCOPY 214 FONTPROP 182 DSPFONT 173 CHARWIDTH 156 DSPDESTINATION 148 IMAGESTREAMTYPEP 117 PUTWINDOWPROP 88 PUTWINDOWPROP 61 PUTWINDOWPROP 36 PUTWINDOWPROP 6 WFROMDS) (285 FONTDESCRIPTOR 264 FONTDESCRIPTOR 256 FONTDESCRIPTOR 232 BOLD 226 MEDIUM 219 BOLD 209 WEIGHT 203 WEIGHT 143 TEXT 123 TTYIN.CLEANUP 105 TTYINSTATE 83 TTYINENTRYFN 78 WINDOWENTRYFN 56 TOTOPW 51 BUTTONEVENTFN 31 TOTOPW 26 RIGHTBUTTONFN) () TTYIN.CLEANUP :D8 (I 0 \TTYINSTATE) b@HNHg@ Hg@ Hg@ Hgh @h(87 PUTWINDOWPROP 74 PUTWINDOWPROP 52 PUTWINDOWPROP 32 PUTWINDOWPROP) (94 TTYINBUFFER 81 TTYINSTATE 59 WINDOWENTRYFN 39 BUTTONEVENTFN 18 RIGHTBUTTONFN) () TTYIN1 :D8 (P 16 \INSIDE.TTYIN F 17 \ARROW F 18 \CURSOR F 19 \ENDBUFFER F 20 UNREADBUF F 21 \PROMPT1 F 22 \INITPOS F 23 TABS F 24 \READING F 25 \FIRSTTIME F 26 \BUFFER F 27 \FIRSTLINE F 28 \RDTBLSA F 29 \PFW.FIRSTTIME F 30 \REPEAT F 31 \TERM.OFD F 32 OPTIONS F 33 \PRIMTERMSA F 34 \DONTCOMPLETE F 35 \LINEBUF.OFD F 36 \FONT F 37 \CURSORCOL F 38 \DSP F 39 \LASTAIL F 40 \LMARG F 41 \PROMPT2 F 42 \LISPXREADING F 43 \CHARWIDTH F 44 \LASTCHAR F 45 RDTBL F 46 \PROMPTFORWORD F 47 SPLST F 48 \FILLINGBUFFER F 49 \RAISEINPUT F 50 \COMMAND) N"WFY9W*W2g l IIWH ]WL W,Mc,WFhhcNW2W,j hW, W2g!W*W,W*WH ]dWPhc*c,W" W"W"WJW.W.dhkWVWJW.c.W( W23 R`B_W@gW@QgW@G`W( ]`W(M hhc([W(gWZO hW(hc(Oj Ohc2IN]W4W&M]d ] IkJhV3 2MdjdmhYdkdljԿi nYW4W&Mdh[Il Yi_Il WBɀIWBɀ jWBIldlYdlLdl?lAhc:W6W"W"dW"W"k IYW6i hc:Il W8ɀIW8ɀ jW8I_W`Ol l W$ -W:HIl >Il 8Il2Ik-Il'Il!IlIlIlW6 hc:Odl jWDi OlsOlu0W$I `:1L 'IdlxW^ `QWTM\`L `j`hnJhdJLW$ l l"Idl*I W. l W. ~uIdl )W\gW$ QI Gl?;Idl O>W"h__W$dO OkW$ _dl?vg OOMW8OkO d__Ol!OɀOOɀ jOOl jgO l=zOOsOkO _l?aOOJW8OkO d__Ol!OɀOOɀ jOOl jgO W$ WW"W&W&c$BW0"WRW" W" l WDWDgi W0W4 -W<(W6W"0W4`Wd!W4 W&ih[l ` Hl%W0iW$ W& i&l IdlZW lVW> 4lSW<=W$W&6l^W> lZW> hIHK dgPhLW0I qjIdlW0OI RHW*W*H gH oi g W6id IIcXI`]M^]ddiM jIkIlIdllIdllI`#g``  YIdl WbI I > 6(2120 ADDNAKEDCHAR 2112 ADDCHAR 2105 U-CASECODE 2085 RESTOREBUF 2079 MEMB 2069 \APPEND2 2046 MACHINETYPE 2031 TTDELETEWORD 2020 TTDELETELINE 2002 TTDELETECHAR 1974 EVAL 1930 TTBIN 1918 RETYPE.BUFFER 1908 USEREXEC 1894 PRIN1 1882 PRINT 1870 PRIN1 1855 GO.TO.FREELINE 1849 SAVE.CURSOR 1843 SETTAIL? 1836 ADDNAKEDCHAR 1812 BEEP 1805 ADDNAKEDCHAR 1779 TTYIN.FINISH 1763 BLTCHAR 1753 BLTCHAR 1725 BEEP 1718 BLTCHAR 1708 BLTCHAR 1682 ADDNAKEDCHAR 1656 TTBIN 1622 MOVE.TO.WHEREVER 1614 TTYIN.BALANCE 1609 AT.END.OF.TEXT 1590 START.NEW.LINE 1561 FIND.NEXT.WORD 1556 FIND.NON.SPACE 1521 TTSKREAD 1510 TTCOMPLETEWORD 1489 DO.EDIT.COMMAND 1480 DELETE.TO.END 1474 MOVE.FORWARD.TO 1463 AT.END.OF.TEXT 1424 TTUNREADBUF 1416 BREAKLINE 1398 AT.END.OF.TEXT 1387 DO?CMD 1360 GETHASH 1315 NLEFT 1288 NLEFT 1259 DO?CMD 1229 GETHASH 1184 NLEFT 1161 DEFINEDP 1141 NLEFT 1091 TTYIN.SHOW.?ALTERNATIVES 1079 ADDCHAR 1069 AUTOCR? 1060 AT.END.OF.TEXT 1033 TTADDTAB 1024 TTDOTABS 1009 TTDOTABS 1001 ADDCHAR 980 ADDNAKEDCHAR 970 BEEP 962 BEEP 953 TTCOMPLETEWORD 916 FIND.MATCHING.WORD 903 CURRENT.WORD 884 BEEP 875 TTCOMPLETEWORD 855 SHOW.MATCHING.PAREN 845 \SYSBUFP 827 ENDREAD? 821 ADDCHAR 798 TTCOMPLETEWORD 774 DELETE.TO.END 768 MOVE.TO.LINE 701 AT.END.OF.TEXT 670 GETHASH 631 RETYPE.BUFFER 617 TTBIN 610 RETYPE.BUFFER 605 PREVLINE 568 TTDELETEWORD 555 TTDELETELINE 542 TTDELETECHAR 520 GETHASH 479 DO.EDIT.COMMAND 446 TTBIN 389 EVAL 347 TTLOADBUF 341 SETFILEPTR 323 TTYIN.PPTOFILE 288 LDIFF 270 LAST 231 MAKE-TTSCRATCHFILE 153 TTPROMPTCHAR 130 STRINGWIDTH 104 INIT.CURSOR 94 GO.TO.ADDRESSING 82 TTYIN1RESTART 54 DSPBACKUP 46 CHARWIDTH 4 DRIBBLEFILE) (2074 \RESTOREBUFCODES 2064 TTYIN.RESTORE.BUF.CODES 2059 DORADO.RESTORE.BUF.CODES 2051 DORADO 2039 \RESTOREBUFCODES 1937 TTYINREADMACROS 1903 __ 1876 ^Y 1785 ABORT 1770 CTRLVFLG 1698 CTRLVFLG 1648 TEXT 1585 EOLCHARCODE 1574 CTRLVFLG 1542 TTYINCOMMENTCHAR 1502 CRCOMPLETE 1411 EOLCHARCODE 1380 ?= 1353 CHARTABLE 1340 CHARTABLE 1252 ? 1222 CHARTABLE 1209 CHARTABLE 1156 XHELPSYS 1051 PROMPTFORWORD-SPACE 930 LASTWORD 922 TTYINCOMPLETEFLG 910 USERWORDS 892 TTYINCOMPLETEFLG 836 SHOWPARENFLG 663 CHARTABLE 651 CHARTABLE 513 CHARTABLE 501 CHARTABLE 355 \TTSCRATCHFILE.GLOBALRESOURCE 314 PRETTY 296 \TTSCRATCHFILE.GLOBALRESOURCE 277 HISTSTR0 263 HISTSTR1 253 PRETTY 241 PRETTY 224 \TTSCRATCHFILE.GLOBALRESOURCE 112 NOPROMPT 69 STREAM 29 NOPROMPT 14 STREAM) ( 1888 "lisp: ") TTYIN1RESTART :D8 (F 1 \ARROW F 2 \LINEBUF.OFD F 3 \TTYINSTATE F 4 \FIRSTLINE F 5 \DELETING F 6 \ENDBUFFER F 7 \BUFFER F 8 \CURSOR) =Rj SccdQc ccQHQhH hc (53 KILL.LINES 11 \SETEOFPTR 4 \RESETLINE) NIL () TTYIN.FINISH :D8 (L (2 RESULT 1 DRIBFL 0 FINALCHAR) P 18 LINE P 17 \BUFFER P 16 \COMMAND P 0 *READTABLE* F 19 \ENDBUFFER F 20 \BUFFER F 21 HELP F 22 \COMMAND F 23 \NOVALUE F 24 \STRINGVALUE F 25 SPLST F 26 RDTBL F 27 \PROMPTFORWORD F 28 \ARROW F 29 \CURRENTDISPLAYLINE F 30 \RDTBLSA F 31 ECHOTOFILE F 32 \FIX F 33 \FILLINGBUFFER F 34 \REPEAT F 35 \TTYINSTATE F 36 \LINEBUF.OFD F 37 \READING) W4W6i @l bW8h_NW&TW&kN _l CWh__O%W(dW&;B@l tl Bi O_hO_O_O `W(W&*W(l?"W*W.WDW*o gWFW&W([WJWB@iWH@h bIW*oW(W& W* gW0W,K b`h__+I IW2hW(W&W,Ih_IO__OOzOOsW(W&OfIW(dW&hOgW( Odd3@O_O O$lO ggg OAW.i7Ih2W0IW( %W.W,IiibW,W2B_2IBb@ `Bjc:Bk`Zdi(gd OW@hOgJ(670 TTADJUSTWORD 627 SETLASTC 600 TTREADLIST 580 TTYINSTRING 552 RETFROM 529 EVAL 489 TTREADLIST 483 TTYINSTRING 376 TTADJUSTWORD 355 TTRATOM 345 TTYINSTRING 327 TTGIVEHELP 319 FIND.MATCHING.WORD 296 TTYIN.READ 291 TTYIN.SCRATCHFILE 256 TTGIVEHELP 201 TTECHO.TO.FILE 170 TTECHO.TO.FILE 162 SETLASTC 104 GETHASH 68 TTNLEFT 49 TTNLEFT 19 CLEAR.LINE? 12 TTCRLF) (693 ABORT 662 ABORT 649 TTYINUSERFN 633 TTYINUSERFN 547 ABORT 542 TTYIN.FINISH 535 IGNORE 474 STRING 361 TTYINRESPONSES 332 ABORT 261 ABORT 209 TTYINCOMMENTCHAR 97 CHARTABLE 87 CHARTABLE) ( 310 (? HELP) 251 "Terminate text with control-Z.") TTYIN.BALANCE :D8 (L (1 ADDPARENS 0 ERRORFLG) F 4 \ENDBUFFER F 5 \BUFFER F 6 \RDTBLSA F 7 \CURSOR) UhA 1HTxHd>VHdJlIɀJIɀ jIJluH 8H3 T H[jl) Kkٰi@WHT hHT (142 MOVE.TO.WHEREVER 131 BEEP 104 ADDCHAR 90 MOVE.TO.WHEREVER 77 AT.END.OF.TEXT 59 GETHASH 7 TTSKREAD) (52 CHARTABLE 42 CHARTABLE) () ADDCHAR :D8 (L (0 CHAR) F 3 \CURSOR F 4 \ARROW F 5 \CURSORCOL F 6 \TERM.OFD F 7 \AUTOFILL F 8 \RMARG) @d TSH IH @ddV V S S@ScUHc ITSTUj 0TTHWZjJjWWi S h(156 MOVE.TO.WHEREVER 149 ADJUSTLINE 107 OVERFLOW? 74 INSERT.NODE 67 BLTCHAR 55 BLTCHAR 38 TTINSERTSECTION 30 OVERFLOW? 24 END.DELETE.MODE 11 TTBITWIDTH) NIL () TTMAKECOMPLEXCHAR :D8 (L (1 PRINTCHARS 0 REALCHAR)) %jdAdHJ ԸIkԹ@HIA(17 TTBITWIDTH) NIL () ADDNAKEDCHAR :D8 (L (1 NOAUTOFILL 0 CHAR) F 0 \CURSOR F 1 \ENDBUFFER) ~@dl dl/l PQ` @dl A l l@l$h @dl l^@dll?l@h (123 ADDCHAR 118 TTMAKECOMPLEXCHAR 94 TTADDTAB 81 ADDCHAR 76 TTMAKECOMPLEXCHAR 61 ADDCHAR 52 AUTOCR? 36 BEEP 30 START.NEW.LINE) (25 EOLCHARCODE) () TTADDTAB :D8 (F 5 \CURSORCOL F 6 \ARROW F 7 \CHARWIDTH) ;l lUVWl2IHJ l K Lh[IkYL&(34 ADDCHAR 29 TTMAKECOMPLEXCHAR) NIL () ADJUSTLINE :D8 (L (1 LINE 0 JUSTIFYING) F 11 \RMARG F 12 \LMARG F 13 \CHARWIDTH F 14 \AUTOFILL F 15 \ARROW F 16 \CURSORCOL)  `jW`WHdII#Wj`WWWWHdIIW AWb_AA WA_hY_A_jOH@$AdHWOAH i YAW @WOKi YKNROjLLO [L>AdKjW@`AK@ YI[N@IOAi Y96@hN@iAdAHÿOAH i Yi_AAI AZIA] _JWJO AIOOl _ILN*@Ml LOW~L tgLb NmOl _Ml ]VAA\L T@iAl GLHAAdOOk YdLLIi Y Al A]Kj_h@iLb AO MK _N0Ml MKMdl AkM l.M l MK AKAW gL LI5KLKLLi @ Ab|i)@kbjWl NOl _Kd `O LLOLb,A bMAIIMA AAOAOk_@@i@kbjhb(855 INSERT.TEXT 835 INSERTLINE 809 TTDELSECTION 799 KILLSEGMENT 784 TTBITWIDTH 735 DELETELINE 713 GO.TO.RELATIVE 688 TYPE.BUFFER 677 INSERT.NODE 666 NLEFT 629 SEGMENT.BIT.LENGTH 621 GO.TO.RELATIVE 576 FIND.LINE.BREAK 558 NTH.RELATIVE.COLUMN.OF 515 START.OF.PARAGRAPH? 488 TTBITWIDTH 473 GO.TO.RELATIVE 456 START.OF.PARAGRAPH? 405 TTBITWIDTH 387 ERASE.TO.END.OF.LINE 381 GO.TO.RELATIVE 365 SEGMENT.BIT.LENGTH 347 SEGMENT.BIT.LENGTH 326 FIND.LINE.BREAK 320 NTH.RELATIVE.COLUMN.OF 272 FIND.LINE.BREAK 248 FIND.LINE.BREAK 213 NTH.RELATIVE.COLUMN.OF 186 FIND.LINE.BREAK 171 NTH.COLUMN.OF 158 FIND.LINE.BREAK 152 NTH.RELATIVE.COLUMN.OF 98 OVERFLOWLINE?) (707 LINE 465 LINE 39 TTYJUSTLENGTH 15 TTYJUSTLENGTH 4 TTYJUSTLENGTH) () ADJUSTLINE.AND.RESTORE :D8 (L (0 JUSTIFYING) F 0 \HOMECOL F 1 \ARROW F 2 \CURSOR) !@ PQR (30 RESTORE.CURSOR 24 MOVE.TO.WHEREVER 10 ADJUSTLINE 4 SAVE.CURSOR) NIL () AT.END.OF.SCREEN :D8 (F 0 \CURSOR F 1 \ARROW F 2 \RMARG F 3 \CURSORCOL F 4 \CHARWIDTH) QPSPd TR(15 SEGMENT.LENGTH) NIL () AT.END.OF.TEXT :D8 (L (0 BUF) F 1 \ENDBUFFER) .@HQ$Hddl dl dl ihhHXiNIL NIL () AUTOCR? :D8 (F 0 \AUTOFILL F 1 \CURSORCOL F 2 \CURSOR F 3 \RMARG F 4 \ARROW) &P#Q`STRl l i(34 BREAKLINE 26 START.NEW.LINE) (8 TTYINAUTOFILLMARGIN) () BACKSKREAD :D8 (L (1 NOTIFQUOTED 0 BUF) F 7 \BUFFER F 8 \RDTBLSA F 9 RDTBL) WdRH@AJhIWHdNlMɀNMɀ jMNdlrdlt6JoH@ \d@KHLUHYdl[L@l]CH[@dlFHd@AhjI(dlqJH@ AhLIdlGJhHXCjHdl;Wg HXd@idl hAhI(223 READTABLEPROP 173 FIND.MATCHING.QUOTE 91 TTSKREAD 61 GETHASH) (218 COMMONLISP 54 CHARTABLE 44 CHARTABLE) () BACKWARD.DELETE.TO :D8 (L (0 BUF) F 0 \CURSOR) P@ (12 FORWARD.DELETE.TO 6 MOVE.BACK.TO) NIL () BREAKLINE :D8 (L (1 STAY 0 USECR) F 2 \ARROW F 3 \CURSOR F 4 \CURSORCOL) qRdRSRTAR@ cARISIRIc RcI RTR AHcch(109 RESTORE.CURSOR 93 ADJUSTLINE 87 OVERFLOWLINE? 73 TYPE.BUFFER 45 SAVE.CURSOR 36 INSERTLINE 28 SAVE.CURSOR 21 ERASE.TO.END.OF.LINE) NIL () BUFTAILP :D8 (L (2 END 1 START 0 TAIL)) @A@AddBhbNIL NIL () CHECK.MARGIN :D8 (L (1 LINE 0 BUF) F 0 \RMARG) &A@APA@@kA @(33 TTNLEFT) NIL () CLEAR.LINE? :D8 (L (0 FLG)) @(12 ERASE.TO.END.OF.LINE 6 ERASE.TO.END.OF.PAGE) NIL () CURRENT.WORD :D8 (F 6 \ARROW F 7 \CURSOR F 8 \RDTBLSA F 9 \COMMAND) VWoV`dViBHWcWHdMlLɀMLɀ jLM»IKjKlFKlGhiKl jhiIJWhHhHXIhJ(68 GETHASH) (61 CHARTABLE 51 CHARTABLE 14 TTYINCOMMENTCHAR) () DELETE.TO.END :D8 (F 0 \ARROW F 1 \CURSOR F 2 \ENDBUFFER F 3 \CURSORCOL) 7i Pd PhPQcPS(30 KILL.LINES 10 ERASE.TO.END.OF.PAGE 5 SETTAIL?) NIL () DELETELINE :D8 (L (1 EMPTYLINE? 0 LINE) F 4 \ARROW F 5 \FIRSTLINE F 6 \PROMPT1 F 7 \CURSOR F 8 \PROMPT2 F 9 \BUFFER F 10 \ENDBUFFER) @1@T&UT!HVWW T k H@ @k [HHKc'@hA@YHZ HdJIHI@ T@HKbccg@ h(163 GO.TO.RELATIVE 135 KILL.LINES 113 KILLSEGMENT 75 PREVLINE 68 RENUMBER.LINES 55 DO.DELETE.LINES 48 FORWARD.DELETE.TO 39 MOVE.BACK.TO 25 BEEP) (157 LINE) () DELETETO :D8 (L (0 TAIL) F 1 \ENDBUFFER F 2 \CURSORCOL F 3 \CURSOR F 4 \ARROW F 5 \DSP) 9SQ@ @Q HU RHcT@ccTR(32 DSPBACKUP 22 SEGMENT.BIT.LENGTH 14 BACKWARD.DELETE.TO 4 SETTAIL?) NIL () DO.EDIT.COMMAND :D8 (L (1 EDITARG 0 CHAR) P 4 \BUFFER F 5 \CURSOR F 6 \ARROW F 7 \ENDBUFFER F 8 \CURSORCOL F 9 \BUFFER F 10 \FIRSTLINE F 11 \PRIMTERMSA F 12 \RDTBLSA F 13 \TTYINSTATE F 14 \READING F 15 \LOC.ROW.0 F 16 \CURSORROW F 17 \LASTCHAR F 18 \REPEAT) @AkjAijAb@ bdl )WWVdW@A ul @dl>/HlSUWULUA =l@k@l@dl<9Hl UWVUVk d UA l(Hl)UA @dl)"Hl(UA l VAk d @dl VAk }l{W o@dl}d Wl 6Hl^ V:WP4@WP-SQRUTQRPcUcRchNIL NIL () SHOW.MATCHING.PAREN :D8 (L (0 BUF) F 4 \LOC.ROW.0 F 5 \DSP) n@i 1HdZ YjIZTFIH I[1KJ `3 n `U hnְ(100 RESTORE.CURSOR 94 \CARET.DOWN 82 TTWAITFORINPUT 65 GO.TO.ADDRESSING 58 SAVE.CURSOR 51 \SYSBUFP 40 SEGMENT.BIT.LENGTH 18 FIND.LINE 6 BACKSKREAD) (87 \CARET.UP 70 SHOWPARENFLG) () SKIP/ZAP :D8 (L (3 MINUS 2 N 1 CHAR 0 CMD) F 0 \CURSOR F 1 \ARROW F 2 \TTYINSTATE) A bC.@dlSlB dlBlSlZm@mlZb@lBAPB )@mAPk B QPh APB bO@dlSB ElZB 9@dlBB *mQPPPB R@RA(194 BEEP 188 SHOULDNT 182 FORWARD.DELETE.TO 176 MOVE.BACK.TO 152 MOVE.BACK.TO 137 FORWARD.DELETE.TO 125 MOVE.FORWARD.TO 108 SCANFORWARD 88 SCANBACK 82 TTNLEFT 67 SCANBACK 51 SHOULDNT 5 U-CASECODE) NIL () START.NEW.LINE :D8 (L (0 USECR) F 0 \ARROW F 1 \CURSOR) P@ cc(6 INSERTLINE) NIL () START.OF.PARAGRAPH? :D8 (L (0 LINE)) @@b @@l NIL NIL () TTADJUSTWORD :D8 (L (0 WORD) F 0 SPLST F 1 \NOFIXSPELL F 2 \FIX F 3 HELP) P<@dg3dg*dg!dgdgdgVdP@@PRP @d3@Qg@lFPQi )R0@ g So h @(146 TTGIVEHELP 139 TTCRLF 133 TTPRIN1 120 TTPRIN1 110 TTPRIN1 99 FIXSPELL) (115 ? 84 NOFIXSPELL 53 %, 45 %" 36 %] 27 %[ 18 %) 9 %() ( 128 " please try again.") TTBIN :D8 (L (0 NOMETA) F 1 \DSP) Chi H`d`ln@HkHl`Q H(63 \CARET.DOWN 23 \GETKEY 6 TTWAITFORINPUT) (56 \CARET.UP 29 EDITPREFIXCHAR 15 EDITPREFIXCHAR) () TTBITWIDTH :D8 (L (0 CHAR) F 0 \FONT) @P (6 CHARWIDTH) NIL () TTCRLF :D8 NIL (9 TTCRLF.ACCOUNT 4 DO.CRLF) NIL () TTCRLF.ACCOUNT :D8 (F 0 \CURSORROW F 1 \LOC.ROW.0 F 2 \TTPAGELENGTH F 3 \CURSORCOL F 4 \DSP F 5 \BMARG F 6 \LMARG) PkcQPRQkchT c Vc(23 DSPYPOSITION) NIL () TTDELETECHAR :D8 (F 2 \CURSOR F 3 \ARROW F 4 \BUFFER) \RTSRFSR3Sk H YS Hd IRk hRk (89 TTRUBOUT 83 DELETETO 78 TTNLEFT 69 DELETETO 64 TTNLEFT 54 MOVE.TO.LINE 45 DELETELINE 38 OVERFLOWLINE? 29 PREVLINE 8 BEEP) NIL () TTDELETELINE :D8 (F 0 \ARROW F 1 \ENDBUFFER F 2 \CURSOR F 3 \BUFFER) MSQPPRQPk i PdR  P (74 FORWARD.DELETE.TO 66 MOVE.BACK.TO 59 DELETETO 46 SETTAIL? 39 DELETE.TO.END 34 MOVE.TO.LINE 29 PREVLINE 8 BEEP) NIL () TTDELETEWORD :D8 (L (0 N) F 3 \CURSOR F 4 \ARROW F 5 \BUFFER) HSdU@ !HdS#Tk YS@I ZTS J  (69 BACKWARD.DELETE.TO 63 MOVE.TO.WHEREVER 57 DELETE.LONG.SEGMENT1 49 PREVWORD 39 PREVLINE 25 SETTAIL? 17 PREVWORD 10 BEEP) NIL () TTECHO.TO.FILE :D8 (L (1 DRIBBLING 0 FILE) F 6 OPTIONS F 7 \PROMPT1 F 8 \ENDBUFFER F 9 \FIRSTLINE F 10 \PROMPT2 F 11 \PROMPTFORWORD) @g Wi3A&JhWVgVgVWW;II[dM8IAIdMW@ IMWIWh@ \HL!l LdjHl kٰHL K(166 \OUTCHAR 153 \OUTCHAR 118 PRIN1 93 TERPRI 10 GETSTREAM) (45 NOPROMPT 34 NOPROMPT 5 OUTPUT) () TTGIVEHELP :D8 (L (0 HELPKEY) P 0 *STANDARD-OUTPUT* F 1 \DSP) Q@diXdOdii g @i 1i&@i jg id @ ji(127 TERPRI 121 TERPRI 113 POSITION 107 TTGIVEHELP2 100 TTGIVEHELP1 92 PRIN1 79 POSITION 73 TTGIVEHELP2 58 TTGIVEHELP2 49 PRIN1 38 TTGIVEHELP1 19 TTGIVEHELP1 8 TERPRI) (87 % 44 % ) () TTGIVEHELP1 :D8 (L (1 NO.INTRO 0 NO.OTHER) F 2 SPLST F 3 \FIX) dR.Ao RHY@FSo `'Id`d Ido Ih(91 PRIN1 75 PRIN1 46 TERPRI 40 PRIN1 14 PRIN1) (62 SPELLSTR2 52 SPELLSTR1) ( 86 ", " 35 ", or other" 9 "Please select from among ") TTGIVEHELP2 :D8 (L (1 MIXED 0 HELPKEY)) H@dd3@@d (g@ @ A o h@Ajllj (69 SPRINTT 51 PRIN1 37 DISPLAYHELP 29 STRPOS 15 STRINGP) (23 % ) ( 46 "Sorry, no help available.") TTLASTLINE :D8 (F 1 \FIRSTLINE) QHHXNIL NIL () TTLOADBUF :D8 (L (0 BUF) F 4 \ENDBUFFER F 5 \READING F 6 RDTBL) @`~@bd@ @g @"H IH Zl Ji H IyH [l H IcJ Kl K  @d`@X@kH h@T@UV X@dXk TkH hHI h(208 READFROMBUF 199 NLEFT 190 NLEFT 177 DCHCON 160 NLEFT 131 ADDNAKEDCHAR 118 ADDNAKEDCHAR 107 GETFILEPTR 96 \INCCODE.EOLC 85 GETFILEPTR 76 ADDNAKEDCHAR 64 \INCCODE.EOLC 49 GETFILEPTR 37 GETSTREAM 25 SETFILEPTR) (148 HISTSTR0 32 INPUT 7 HISTSTR1) () TTNEXTLINE :D8 (L (1 N 0 LINE)) Aj@@bAkbNIL NIL () TTNEXTNODE :D8 (L (0 BUF)) @@dj&NIL NIL () TTNLEFT :D8 (L (2 START 1 N 0 BUF) F 2 \ARROW) /BRdAjH@HIAkbIH@HINIL NIL () TTNTH :D8 (L (1 N 0 BUF) F 1 \ARROW) QAj@dH@bAkbNIL NIL () TTNTHLINE :D8 (L (0 N) F 1 \FIRSTLINE) Q@j@kbHHNIL NIL () TTPRIN1 :D8 (L (2 INITP 1 DOWNCASE 0 STR) F 7 \CURSORCOL F 8 \DSP F 9 \RMARG F 10 \LMARG F 11 \TERM.OFD) A@ hbjaB WdWkj@K Y0LIl 🿿k@N YdHAI IW ԼKk԰LZWJWWHkԸk@M YAI IW Mk԰WJcl HkX>WAI IYW cWHkԸWIW cIW NkԱC(235 BLTCHAR 223 CHARWIDTH 208 TTCRLF 195 CHARWIDTH 185 L-CASECODE 168 TTCRLF 144 BLTCHAR 135 L-CASECODE 124 NTHCHARCODE 114 TTCRLF 80 CHARWIDTH 71 L-CASECODE 58 NTHCHARCODE 38 NTHCHARCODE 7 U-CASEP) NIL () TTPRINSPACE :D8 (L (0 N) F 1 \CURSORCOL F 2 \RMARG F 3 \TERM.OFD F 4 \DSP) ;@kbQ@R@Hjl S HkXQ@l T c(52 CHARWIDTH 34 BLTCHAR 17 TTCRLF) NIL () TTPRIN1COMMENT :D8 (L (1 DOWNCASE 0 STR) F 0 \COMMENTFONT) Pi @A i (20 DSPFONT 13 TTPRIN1 6 DSPFONT) NIL () TTPRIN2 :D8 (L (2 CDRLVL 1 CARLVL 0 EXPR) F 2 *READTABLE*) @dAl bBl b Ajg @Xd3@Hg'Y@@@kIY7g @AkBk @b&@Bo @ . @bog Bkbjo g iR (201 TTPRIN1 196 MKSTRING 188 TTPRIN1 177 TTPRIN1 157 TTPRIN1 138 TTPRIN1 131 TTPRIN2 124 TTPRIN1 103 TTPRIN2 90 TTPRIN1 42 TTPRIN1) (183 %) 152 % 85 %( 62 PRETTYWRAPPER 37 %# 6 LISTP) ( 172 "..." 119 " . ") TTPROMPTCHAR :D8 (L (0 LINE) F 2 \FIRSTLINE F 3 \LOC.ROW.0 F 4 \PROMPT1 F 5 \PROMPT2 F 6 \CURSORROW F 7 \INITCRLFS) ,@RTUHdhi Y@R SIccjc (25 TTPRIN1 4 CLEAR.LINE?) NIL () TTRUBOUT :D8 (F 2 \CURSOR F 3 \ARROW F 4 \BUFFER) @SRRk RTSk HRkH YSR I (61 MOVE.TO.WHEREVER 55 DELETE.LONG.SEGMENT1 47 TTNLEFT 34 PREVLINE 26 BEEP 16 BACKWARD.DELETE.TO 11 TTNLEFT) NIL () TTUNREADBUF :D8 (F 1 \CURSOR F 2 \ENDBUFFER) !QHRHd HX(25 BKSYSCHARCODE 13 DELETE.TO.END) NIL () TTWAITFORINPUT :D8 (L (1 RETKEYFLG 0 MSECS) F 7 \DSP F 8 \CHARHEIGHT F 9 \RMARG F 10 \TTPAGELENGTH F 11 \LOC.ROW.0 F 12 \TTYINSTATE F 13 \BUFFER F 14 \PFW.FIRSTTIME F 15 \ENDBUFFER F 16 \BMARG F 17 \WINDOWWORLD) \ @ l @hW RAi`ljFjW Z:JI1jW ]I[ KIW`` H  h WWWKMW WWW;KI1KWWkWlABhc'W"`llWgW\bL WhW ^FWNc hW ,(342 DSPCLIPPINGREGION 333 DO.EDIT.PP 314 DSPRIGHTMARGIN 303 \PROTECTED.APPLY 298 WHICHW 235 DO.MOUSE 206 TTLASTLINE 156 \INSUREWINDOW 147 TIMEREXPIRED? 139 \TTYBACKGROUND 129 WHICHW 92 LASTMOUSEY 71 LASTMOUSEX 50 GETMOUSESTATE 44 WAIT.FOR.TTY 36 \GETKEY 28 \SYSBUFP 20 DSPCLIPPINGREGION 10 \CLOCK0) (277 DOWINDOWCOM 252 LASTMOUSEBUTTONS 124 LASTMOUSEY 119 LASTMOUSEX 56 LASTMOUSEBUTTONS) () TTYINSTRING :D8 (L (1 TAIL 0 BUF) F 7 \ENDBUFFER) XAWbja@\dAHhdI Z@kMAJd[KliHkԸLJNMd MNkԾ(76 RPLCHARCODE 27 ALLOCSTRING) NIL () TYPE.BUFFER :D8 (L (1 END 0 START) F 3 \TERM.OFD F 4 \CURSORCOL) Dj!@AH@ZddS JS J TIcHIԸ@b(49 TTBITWIDTH 42 BLTCHAR 27 BLTCHAR) NIL () U-CASECODE :D8 (L (0 CHAR)) 5l@HllHlaHHdlzl ՀHNIL (49 CHARACTER 22 CHARACTER) () U/L-CASE :D8 (L (1 CAPFLG 0 N) F 5 \CURSOR F 6 \ARROW) @nVUV U@ AUH ZU[dH&UH JH YUHc Ih\lALKAL KkhbL (130 U-CASECODE 111 L-CASECODE 89 ADJUSTLINE.AND.RESTORE 81 TYPE.BUFFER 71 TTADJUSTWIDTH 63 SEGMENT.BIT.LENGTH 47 SEGMENT.BIT.LENGTH 37 CHECK.MARGIN 32 FIND.NEXT.WORD 24 MOVE.TO.START.OF.WORD 18 MOVE.BACK.TO) NIL () TTRATOM :D8 (F 1 \BUFFER F 2 \ENDBUFFER) *R`Q H Hc(28 RATOM 19 TTYINBUFFERSTREAM 4 TTSKIPSEPR) (34 STREAM 12 null) () TTREADLIST :D8 (F 4 \BUFFER F 5 \ENDBUFFER) -TU 0Hd I J KhZK&(27 READ 19 SKIPSEPRS 6 TTYINBUFFERSTREAM) NIL () TTSKIPSEPR :D8 (L (0 END) F 0 \BUFFER F 1 \ENDBUFFER) .PdQ(d@#ddl dl dl ihPcPNIL NIL () TTSKREAD :D8 (L (2 PARENCOUNT 1 END 0 BUF) F 5 \RDTBLSA F 6 \ENDBUFFER F 7 RDTBL) HAVbP@AsU@dJlIɀJIɀ jIJdlrdlt=@@AB bddABkd3 kl]Hl[@dlsdlu@dlq@A ddlF@dAhdlGU@bA?U@dLlKɀLKɀ jKLdlF@bdA𲿿hAhlG@j3@dl;(Wg @bdAidl h@b(293 READTABLEPROP 230 GETHASH 154 FIND.MATCHING.QUOTE 82 TTSKREAD 51 GETHASH) (288 COMMONLISP 223 CHARTABLE 213 CHARTABLE 44 CHARTABLE 34 CHARTABLE) () TTYIN.READA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 STREAM F 3 SI::NLSETQ-VALUE) i@R hcg(10 READ) (19 :NORMAL) () TTYIN.READ :D8 (L (1 DONTREAD 0 FINALCHAR) P 9 *CONDITION-HANDLER-BINDINGS* P 8 SI::*NLSETQFLAG* P 7 *PROCEED-CASES* P 6 SI::NLSETQ-VALUE I 2 STREAM F 10 \RDTBLSA F 11 \BUFFER F 12 \ENDBUFFER F 13 *CONDITION-HANDLER-BINDINGS* F 14 \LINEBUF.OFD F 15 *PROCEED-CASES*)  0WW6A@dl Hl9WɀHWɀ !jHBWdX WcWHdlsdluuIrIl WɀIWɀ jWIlFEl]l!Wɀl]Wɀ jWl]luB Bl] hiB@ Bd NBkJ Bj ABWBkil)@l]h0B -`WioW O gNKBj Bj L Mh\M&(362 \SETEOFPTR 354 \SETFILEPTR 332 TTYIN.READA0001 300 SKIPSEPRS 259 \SETFILEPTR 252 \SETEOFPTR 225 \OUTCHAR 212 \OUTCHAR 203 \BACKCCODE 183 GETHASH 136 GETHASH 77 \OUTCHAR 56 GETHASH) (338 :NORMAL 310 SI::NLSETQ-PROCEED-CASE 273 STREAM 240 FDEV 233 STREAM 176 CHARTABLE 163 CHARTABLE 129 CHARTABLE 117 CHARTABLE 49 CHARTABLE 37 CHARTABLE) ( 319 (CL:ERROR . SI::NLSETQHANDLER)) FIND.MATCHING.WORD :D8 (L (2 BUFTAIL 1 START 0 WORDS) F 2 \CURSOR) (BRb@HYhdAB IiI(28 WORD.MATCHES.BUFFER) NIL () TTCOMPLETEWORD :D8 (L (3 START 2 FIRSTMATCH 1 MUST.BE.UNIQUE 0 CAUTIOUS) P 22 *PACKAGE* F 23 \CURSOR F 24 \RDTBLSA F 25 SPLST F 26 \BUFFER F 27 \CURSORCOL F 28 *PACKAGE*) i CW.W4@h W4bcBW2C bQCj__W.WOW0Od__Ol!OɀOOɀ jOOdlGjElF?O_W.5Ok]BYdb \@MkLibIC YAhk_OjId_KB ZM [LMO OhNdMkټ_"NOON _O"!OOl O"lAOOlzNiNkԾO_CjbBdd3@B  W8Bi kNMJ_O O$k԰OOOW.O_ J_"k_$O*h_*HOd3 Ol!W0ɀOW0ɀ jW0OdlFi_*lGiNkԾJO_uO LHdJ@]l MkN`W2` 7BW2` $_W.o O$_k_&O0OW.)OO _OO"O_O"_"O&k԰W6OOW. O O OO _(O O O(OW.W.O O"dJ𓿱 O"_" J JJ_ O*h_*oAo @ AWgWg iAAhbBdibBBAo Yo AK hbAYhbAbIK Idg7AAbK H Bll BbvgIdgAAbK ggA !BaBBb_MOdA gO ON^#o Oll o H B8AN bBRH BBbll B/Bbll XIgwAiAo AK AAbYzIdo:2Ido:'Ido:Ido:LWWIo:Ido:I Io:Io:Io:`h]LWWId o IK 1A(o AgA o o C@ dkglgZoJo h(826 TTPRIN1COMMENT 821 CONCAT 781 ARGTYPE 772 TTPRIN1 761 TTPRIN1COMMENT 750 TTPRIN1COMMENT 734 TTPRIN1COMMENT 718 TTPRIN1COMMENT 710 TTPRIN1COMMENT 698 CL:KEYWORDP 690 TTPRINSPACE 644 TTPRIN1COMMENT 638 TTPRIN1 613 TTPRINSPACE 539 TTPRIN1COMMENT 531 TTPRIN1COMMENT 509 TTCRLF 499 TTCRLF 479 TTPRIN2 462 TTPRINSPACE 453 TTPRIN2 436 TTPRIN1COMMENT 425 TTCRLF 417 CL:SET-DIFFERENCE 406 TTPRIN1COMMENT 399 TTPRIN1COMMENT 388 TTPRIN2 376 TTPRIN1COMMENT 358 TTPRIN2 343 MEMB 320 TTCRLF 309 MEMB 284 TTPRIN1COMMENT 270 TTPRINSPACE 244 TTCRLF 233 TTPRIN2 221 TTPRIN1COMMENT 214 TTPRIN1COMMENT 200 TTPRINSPACE 183 TTPRIN1COMMENT 148 TTPRIN1COMMENT 140 TTPRIN1COMMENT 125 TTPRIN1COMMENT 106 TTPRINSPACE 100 TTCRLF 86 TTYIN.READ?=ARGS 52 READTABLEPROP 28 TTPRIN2 22 TTPRIN1 12 \CARET.DOWN) (802 NL* 791 NL 741 U 555 CHARACTER 489 &ALLOW-OTHER-KEYS 349 :ALLOW-OTHER-KEYS 303 &ALLOW-OTHER-KEYS 293 &KEY 261 &BODY 252 &REST 191 &OPTIONAL 164 CHARACTER 68 CHARACTER 47 CASEINSENSITIVE 38 :UPCASE) ( 816 "}" 810 " {" 767 ")" 756 "..." 729 " ..." 705 ":" 668 #\{ 660 #\[ 651 #\( 629 #\) 620 #\( 597 #\* 586 #\} 575 #\] 564 #\) 526 " . " 394 "]" 371 "[" 135 " . " 120 "+ ... " 17 "(" 4 " = ") TTYIN.READ?=ARGS :D8 (P 2 \ENDBUFFER P 1 \BUFFER F 3 \?TAIL F 4 \?PARAMS F 5 \BUFFER) KTd`@S Sh'`#UShdH Hch(50 TTYIN.READ 34 MAKE-TTSCRATCHFILE 16 TTSKIPSEPR) (68 \TTSCRATCHFILE.GLOBALRESOURCE 57 \TTSCRATCHFILE.GLOBALRESOURCE 27 \TTSCRATCHFILE.GLOBALRESOURCE 6 null) () DO?CMD.ERRORHANDLER :D8 (L (0 CONDITION) F 0 \STARTED F 1 \?TAIL) 1P@ Q gi (46 RETFROM 35 BACKWARD.DELETE.TO 29 RESTORE.CURSOR 24 TTPRIN1COMMENT 19 MKSTRING 12 GO.TO.FREELINE 6 SAVE.CURSOR) (40 DO?CMD) () BEEPA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS*) l (6 DISMISS) NIL () BEEP :D8 (L (0 DS) P 0 SI::*RESETFORMS*) 5gh hhhg $(46 SI::RESETUNWIND 41 \MVLIST 36 BEEPA0001 16 VIDEOCOLOR 9 VIDEOCOLOR) (31 SI::RESETUNWIND 4 VIDEOCOLOR) () BITBLT.DELETE :D8 (L (2 WIDTH 1 Y 0 X) F 1 \DSP F 2 \CHARHEIGHT F 3 \RMARG) 0S@BQ@BAQ@AHRgg @HABR h(44 BITBLT.ERASE 33 BKBITBLT) (27 REPLACE 22 INPUT) () BITBLT.ERASE :D8 (L (3 HEIGHT 2 WIDTH 1 BOTTOM 0 LEFT) F 0 \TEXTURE F 1 \DSP) PQ@ABCg (16 BLTSHADE) (10 REPLACE) () BITBLT.INSERT :D8 (L (2 WIDTH 1 Y 0 X) F 0 \DSP F 1 \CHARHEIGHT F 2 \RMARG) )P@AP@BAR@BQgg @ABQ (38 BITBLT.ERASE 29 BKBITBLT) (23 REPLACE 18 INPUT) () DO.CRLF :D8 (F 0 \DSP F 1 \CURRENTDISPLAYLINE F 2 \CHARHEIGHT) jcdRP l P (19 \DSPPRINTCR/LF 11 DSPLINEFEED) NIL () DO.DELETE.LINES :D8 (L (0 %#LINES) F 4 \LMARG F 5 \DSP F 6 \BMARG F 7 \CHARHEIGHT F 8 \RMARG F 9 \DESCENT) LhU VWWTVW@WKHH[UTJUTJKIHKgg TJIK h(72 BITBLT.ERASE 62 BKBITBLT 6 DSPYPOSITION) (56 REPLACE 51 INPUT) () DO.INSERT.LINE :D8 (F 3 \DSP F 4 \LMARG F 5 \CHARHEIGHT F 6 \LOC.ROW.0 F 7 \BMARG F 8 \DESCENT F 9 \RMARG F 10 \TTPAGELENGTH) hS WWTVkWPHUԸhS HWS STHSTHUIhS ZJmHUgg Vkc !STWUSTWIHWgg THIU h(154 BITBLT.ERASE 144 BKBITBLT 105 BKBITBLT 73 DSPCLIPPINGREGION 56 MOVETO 46 DSPXPOSITION 22 TTLASTLINE 6 DSPYPOSITION) (138 REPLACE 133 INPUT 99 REPLACE 94 INPUT) () DO.LF :D8 (F 0 \DSP) l P (7 \DSPPRINTCR/LF) NIL () ERASE.TO.END.OF.LINE :D8 (F 1 \DSP F 2 \DESCENT F 3 \RMARG F 4 \CHARHEIGHT) hQ HhQ RSHT (28 BITBLT.ERASE 17 DSPYPOSITION 6 DSPXPOSITION) NIL () ERASE.TO.END.OF.PAGE :D8 (F 1 \BMARG F 2 \LMARG F 3 \DSP F 4 \RMARG F 5 \DESCENT) %hS QHjRQUTRH (34 BITBLT.ERASE 11 DSPYPOSITION 4 ERASE.TO.END.OF.LINE) NIL () INSERT.TEXT :D8 (L (2 ENDOFLINE 1 END 0 START)) !AB@B @A @A (30 TYPE.BUFFER 23 TTINSERTSECTION 18 SEGMENT.BIT.LENGTH 10 TYPE.BUFFER) NIL () TTDELSECTION :D8 (L (0 WIDTH) F 0 \DSP F 1 \DESCENT) hP hP Q@ (21 BITBLT.DELETE 13 DSPYPOSITION 6 DSPXPOSITION) NIL () TTADJUSTWIDTH :D8 (L (1 END 0 DELTA) F 0 \ARROW) 0@j*j@j@ AP@ PP@ih(29 TTINSERTSECTION 16 TTDELSECTION) NIL () TTINSERTSECTION :D8 (L (0 WIDTH) F 0 \DSP F 1 \DESCENT) hP hP Q@ (21 BITBLT.INSERT 13 DSPYPOSITION 6 DSPXPOSITION) NIL () TTSETCURSOR :D8 (L (1 ROW 0 COL) F 0 \TTPAGELENGTH F 1 \CHARHEIGHT F 2 \BMARG F 3 \DSP) @PAkQRS (15 MOVETO) NIL () TTYINBUFFERDEVICE :D8 NIL 4`dgdjdk dgdgdgdgdg,dg.dg0dg:dgTdgdg@dgdgNdgPdgRdgDdgFdgVd`hdgHdgBdg*dg dgdgdg dgNIL (302 NILL 293 NILL 284 NILL 275 NILL 266 NILL 257 NILL 248 NILL 239 \GENERIC.CHARSET 230 *DEFAULT-EXTERNALFORMAT* 221 NILL 212 NILL 203 NILL 194 NILL 185 ZERO 176 ZERO 167 \NULLFILEGENERATOR 158 NILL 149 \EOF.ACTION 140 NILL 131 NILL 122 NILL 113 TTYINBUFFEREOFP 104 TTYINBUFFERBACKPTR 95 TTYINBUFFERREADP 86 TTYINBUFFERPEEK 77 NILL 68 TTYINBUFFERBIN 59 \NULL.OPENFILE 50 \NULL.OPENFILE 41 NILL 32 NILL 11 TTYIN 4 |FDEVTYPE#|) () TTYINBUFFERSTREAM :D8 (L (2 EOFACTION 1 END 0 BUF) F 2 \TTYINBUFFERSTREAM F 3 TTYINBUFFERDEVICE F 4 \ENDBUFFER) Rl dS dn5`HdI4dh2d`.dg*dg&dg$`HdIdjdjdk dk dk0djdldhdjdg cH@HATHBH@Hg H(210 \EXTERNALFORMAT 154 \SETACCESS) (205 :DEFAULT 196 STREAM 187 STREAM 175 STREAM 166 STREAM 149 INPUT 82 FILELINELENGTH 74 \STREAM.NOT.OPEN 65 \STREAM.NOT.OPEN 56 \EOSERROR 47 \NOIMAGEOPS 26 \STREAM.DEFAULT.MAXBUFFERS) () TTYINBUFFERBIN :D8 (L (0 STRM)) 0@H@@ Hd@H(27 \EOF.ACTION) (40 STREAM 17 STREAM 5 STREAM) () TTYINBUFFERPEEK :D8 (L (1 NOERRORFLG 0 STREAM)) +@H@Ah@ Hd(32 \EOF.ACTION) (17 STREAM 5 STREAM) () TTYINBUFFERREADP :D8 (L (0 STRM)) @@hNIL (13 STREAM 5 STREAM) () TTYINBUFFEREOFP :D8 (L (0 STRM)) @@NIL (13 STREAM 5 STREAM) () TTYINBUFFERBACKPTR :D8 (L (0 STRM)) 0@@k@ @HII(27 NLEFT) (35 STREAM 20 STREAM 11 STREAM 5 STREAM) () TTYINWORDRDTBL :D8 NIL Ng oohH IkH IhH l%gH Hgo H(74 READTABLEPROP 58 SETSYNTAX 45 SETBRK 37 SETSEPR 29 SETSEPR 9 COPYREADTABLE) (64 NAME 52 OTHER 4 ORIG) ( 69 "TtyinText" 22 (32 9 13) 14 (40 41 91 93 34 44)) DO.MOUSE :D8 (F 5 \DSP) `g 2IlIlٺkJ缻LHKjjkj`g 2IlIlٺkJ缻LHKjjkj`g 2IlIlٺkJ缻LHKjjkjg`g 2IlIlٺkJ缻LHKjjkj4`g 2IlIlٺkJ缻LHKjjkj`dll0H Xdd`U HH lkM@H XdWd`U H[HZ KIJ JI II `ll g (428 DO.SHIFTED.SELECTION 402 MOVE.TO.LINE 390 SEGMENT.BIT.LENGTH 382 SEGMENT.BIT.LENGTH 372 BRACKET.CURRENT.WORD 360 \CARET.DOWN 339 TTRACKMOUSE 320 MOVE.TO.LINE 310 \CARET.DOWN 287 TTRACKMOUSE 262 DO.SHIFTED.SELECTION 222 \KEYNAMETONUMBER 171 \KEYNAMETONUMBER 120 \KEYNAMETONUMBER 67 \KEYNAMETONUMBER 14 \KEYNAMETONUMBER) (423 DELETE 410 LASTMOUSEBUTTONS 353 \CARET.UP 303 \CARET.UP 268 LASTMOUSEBUTTONS 217 COPY 212 \LASTKEYSTATE 166 MOVE 161 \LASTKEYSTATE 115 CTRL 110 \LASTKEYSTATE 62 RSHIFT 57 \LASTKEYSTATE 9 LSHIFT 4 \LASTKEYSTATE) () DO.SHIFTED.SELECTION :D8 (L (0 INITMODE) F 45 \CURSOR F 46 \ENDBUFFER F 47 \DSP F 48 \ARROW F 49 \LAST.DELETION) --,`g _ _O lO l_kO__OOOjjkjga`g _*_(O*lO*l_"kO"_&_$O&O(O$jjkjg`g _4_2O4lO4l_,kO,_0_.O0O2O.jjkjC`g _>_lO>l_6kO6_:_8O:OH kH @&gAdig@HlL hidhH HjH (168 GETFILEPTR 159 PRINTDEF 146 NCHARS 111 POSITION 103 SPACES 95 PRIN2 75 LINELENGTH 62 CHARWIDTH 49 SETFILEPTR 38 \GTREADTABLE1 17 OPENSTREAM) (132 PRINT 118 PRETTY 31 READTABLEP 12 BOTH 7 {NODIRCORE}) () MAKE-TTSCRATCHFILE :D8 NIL gg (14 OPENSTREAM) (9 BOTH 4 {NODIRCORE}) () TTYIN.SCRATCHFILE :D8 NIL I``g !gggo `j `(65 SETFILEPTR 48 OPENSTREAM 21 OPENP) (70 TTYINEDIT.SCRATCH 59 TTYINEDIT.SCRATCH 53 TTYINEDIT.SCRATCH 38 OLD/NEW 33 BOTH 28 {NODIRCORE} 16 BOTH 11 TTYINEDIT.SCRATCH 4 TTYINEDIT.SCRATCH) ( 43 ((ENDOFSTREAMOP \TTYIN.RPEOF))) \TTYIN.RPEOF :D8 (L (0 STREAM)) F@g X)@h @gH Hl) Hj H Hj H (65 SETFILEPTR 53 SETFILEPTR 45 \OUTCHAR 36 STREAMPROP 23 \FORMATBYTESTREAM 13 STREAMPROP) (30 BYTESTREAM 8 BYTESTREAM) () TTYINPROMPTFORWORDA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 SI::*RESETFORMS* F 1 PROMPT.STR F 2 ECHO.CHANNEL F 3 URGENCY.OPTION F 4 CANDIDATE.STR F 5 \TERM.OFD F 6 GENERATE?LIST.FN F 7 TYPE) Sg`&RQCiXUgR hhPc`g` hhPcm l QQo hV WhdTd3 (136 TTYIN 130 MKSTRING 116 STRINGP 109 CONCAT 92 NTHCHARCODE 73 TTY.PROCESS 38 TTYDISPLAYSTREAM) (68 \RUNNING.PROCESS 63 TTY.PROCESS 55 \TTY.PROCESS 32 TTYDISPLAYSTREAM 12 \RUNNING.PROCESS 5 TTY) ( 104 " ") TTYINPROMPTFORWORD :D8 (L (7 KEYBD.CHANNEL 6 TERMINCHARS.LST 4 DONTECHOTYPEIN.FLG) P 5 RESETSTATE P 4 SI::*RESETFORMS* P 3 LISPXHIST P 0 TYPE I 5 URGENCY.OPTION I 3 ECHO.CHANNEL I 2 GENERATE?LIST.FN I 1 CANDIDATE.STR I 0 PROMPT.STR F 6 LISPXHIST F 7 TTYIN.USE.EXACT.CHARS) g!D$G F>g:g b -@ABCDEFG Zdl 2gIYhCV!g $l JlWi(111 SI::RESETUNWIND 106 \MVLIST 101 TTYINPROMPTFORWORDA0001 59 NON-TTYIN-PROMPTFORWORD 42 DISPLAYSTREAMP 35 GETSTREAM) (96 SI::RESETUNWIND 74 PROMPTFORWORD-SPACE 30 OUTPUT 22 PROMPTFORWORD-SPACE 4 PROMPTFORWORD) () (PRETTYCOMPRINT TTYINCOMS) (RPAQQ TTYINCOMS ((COMS (* ; "Main TTYIN editor") (FNS TTYIN TTYIN.SETUP TTYIN.CLEANUP TTYIN1 TTYIN1RESTART TTYIN.FINISH TTYIN.BALANCE ADDCHAR TTMAKECOMPLEXCHAR ADDNAKEDCHAR TTADDTAB ADJUSTLINE ADJUSTLINE.AND.RESTORE AT.END.OF.SCREEN AT.END.OF.TEXT AUTOCR? BACKSKREAD BACKWARD.DELETE.TO BREAKLINE BUFTAILP CHECK.MARGIN CLEAR.LINE? CURRENT.WORD DELETE.TO.END DELETELINE DELETETO DELETETO1 DO.EDIT.COMMAND DO.EDIT.PP TTDOTABS EDITCOLUMN EDITNUMBERP END.DELETE.MODE ENDREAD? FIND.LINE FIND.LINE.BREAK FIND.MATCHING.QUOTE FIND.NEXT.WORD FIND.NON.SPACE FIND.START.OF.WORD FORWARD.DELETE.TO GO.TO.ADDRESSING GO.TO.FREELINE GO.TO.RELATIVE INIT.CURSOR INSERT.NODE INSERTLINE KILL.LINES KILLSEGMENT L-CASECODE MOVE.BACK.TO MOVE.FORWARD.TO MOVE.TO.LINE MOVE.TO.NEXT.LINE MOVE.TO.START.OF.WORD MOVE.TO.WHEREVER NTH.COLUMN.OF NTH.RELATIVE.COLUMN.OF OVERFLOW? OVERFLOWLINE? PREVLINE PREVWORD PROPERTAILP READFROMBUF RENUMBER.LINES RESTORE.CURSOR RESTOREBUF RETYPE.BUFFER SAVE.CURSOR SCANBACK SCANFORWARD SCRATCHCONS SEGMENT.LENGTH SEGMENT.BIT.LENGTH SETLASTC SETTAIL? SHOW.MATCHING.PAREN SKIP/ZAP START.NEW.LINE START.OF.PARAGRAPH? TTADJUSTWORD TTBIN TTBITWIDTH TTCRLF TTCRLF.ACCOUNT TTDELETECHAR TTDELETELINE TTDELETEWORD TTECHO.TO.FILE TTGIVEHELP TTGIVEHELP1 TTGIVEHELP2 TTLASTLINE TTLOADBUF TTNEXTLINE TTNEXTNODE TTNLEFT TTNTH TTNTHLINE TTPRIN1 TTPRINSPACE TTPRIN1COMMENT TTPRIN2 TTPROMPTCHAR TTRUBOUT TTUNREADBUF TTWAITFORINPUT TTYINSTRING TYPE.BUFFER U-CASECODE U/L-CASE)) (COMS (* ; "Internal reading. These functions all expect caller to have bound *READTABLE* correctly (not bound in TTYIN for who-line transparency)" ) (FNS TTRATOM TTREADLIST TTSKIPSEPR TTSKREAD TTYIN.READ)) (COMS (* ; "Escape completion and friends") (FNS FIND.MATCHING.WORD TTCOMPLETEWORD WORD.MATCHES.BUFFER TTYIN.SHOW.?ALTERNATIVES)) (COMS (* ; "? and ?= handler") (FNS DO?CMD TTYIN.PRINTARGS TTYIN.READ?=ARGS DO?CMD.ERRORHANDLER)) (COMS (* ; "Display handling") (FNS BEEP BITBLT.DELETE BITBLT.ERASE BITBLT.INSERT DO.CRLF DO.DELETE.LINES DO.INSERT.LINE DO.LF ERASE.TO.END.OF.LINE ERASE.TO.END.OF.PAGE INSERT.TEXT TTDELSECTION TTADJUSTWIDTH TTINSERTSECTION TTSETCURSOR)) (COMS (* ; "TTYINBUFFERSTREAM") (FNS TTYINBUFFERDEVICE TTYINBUFFERSTREAM TTYINBUFFERBIN TTYINBUFFERPEEK TTYINBUFFERREADP TTYINBUFFEREOFP TTYINBUFFERBACKPTR TTYINWORDRDTBL) ( DECLARE%: DONTEVAL@LOAD DOCOPY (VARS (TTYINBUFFERDEVICE (TTYINBUFFERDEVICE)) (TTYINWORDRDTBL ( TTYINWORDRDTBL))))) (COMS (* ; "Mouse handling") (FNS DO.MOUSE DO.SHIFTED.SELECTION COPY.SEGMENT DELETE.LONG.SEGMENT DELETE.LONG.SEGMENT1 INVERT.LONG.SEGMENT INVERT.SEGMENT BRACKET.CURRENT.WORD TTBEFOREPOS TTNEXTPOS TTRACKMOUSE)) (COMS (* ;; "Auxiliary fns. These are outside the TTYIN block, and are provided to aid the outside world in special interfaces to TTYIN" ) (FNS SETREADFN TTYINENTRYFN TTYINREADP TTYINREAD TTYINFIX CHARMACRO? TTYINMETA TTYIN.LASTINPUT) (FNS TTYINEDIT SIMPLETEXTEDIT SET.TTYINEDIT.WINDOW TTYIN.PPTOFILE) (COMS (* ; "New, correct way of getting scratch file") (FNS MAKE-TTSCRATCHFILE) (RESOURCES TTSCRATCHFILE)) (COMS (* ; "Obsolete, but maybe someone calls it") (FNS TTYIN.SCRATCHFILE \TTYIN.RPEOF) (INITVARS ( TTYINEDIT.SCRATCH))) (INITVARS (TTYINEDITWINDOW) (TTYINEDITPROMPT T) (TTYINAUTOCLOSEFLG) (TTYINPRINTFN ) (TTYIN?=FN))) (COMS (* ; "Kludge of the week") (FNS TTYINPROMPTFORWORD) (INITVARS ( TTYIN.USE.EXACT.CHARS)) (DECLARE%: DONTEVAL@LOAD DOCOPY (* ; "This is so that you can (MOVD 'TTYINPROMPTFORWORD 'PROMPTFORWORD) and not die") (P (MOVD? (QUOTE PROMPTFORWORD) (QUOTE NON-TTYIN-PROMPTFORWORD) NIL T)))) (DECLARE%: DOEVAL@COMPILE DONTCOPY (COMS * TTCOMPILETIME)) (* ;; " The DORADO branch is deprecated (DORADO.RESTORE.BUF.CODES (CHARCODE (%"#B%")))") (INITVARS ( TTYIN.RESTORE.BUF.CODES (CHARCODE ("Function,^D" "Function,^R"))) (TTYINBUFFER) (?ACTIVATEFLG T) ( EDITPREFIXCHAR) (SHOWPARENFLG T) (TTYINBSFLG T) (\TTYIN.LAST.FONT) (\TTYIN.LAST.COMMENTFONT) ( TTYINFILLDEFAULT T) (TTYINCOMPLETEFLG T) (TTYINUSERFN) (TYPEAHEADFLG T) (null "") (DEFAULTPROMPT "** " ) (TTYJUSTLENGTH -1) (\INSIDE.TTYIN) (TTYINERRORSETFLG) (TTYINRAISEFLG T) (TTYINAUTOFILLMARGIN 8) ( TTYINFIXLIMIT 50) (TTYINDEBUGFLG) (HISTSTR1 "from file:") (TTYINCOMMENTCHAR) (\RESTOREBUFCODES)) (P ( MOVD? (QUOTE NILL) (QUOTE GUESTUSER?)) (MOVD? (QUOTE FIXSPELL) (QUOTE FIXSPELL!!)) (MOVD? (QUOTE HELPSYS) (QUOTE XHELPSYS)) (PUTDQ? SPRINTT (LAMBDA (X) (PRIN1 X))) (MOVD? (QUOTE NILL) (QUOTE WINDOWWORLD)) (MOVD? (QUOTE LISPXFIX) (QUOTE NONTTYINLISPXFIX))) (ADDVARS (TTYINREADMACROS) ( TTYINRESPONSES) (LISPXCOMS (STOP . OK)) (\SYSTEMCACHEVARS \RESTOREBUFCODES)) (PROP VARTYPE TTYINREADMACROS) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (COND ((CCODEP (QUOTE TTYIN)) (CHANGENAME (QUOTE PROMPTCHAR) (QUOTE LISPXREADP) (QUOTE TTYINREADP)) (SETREADFN) (MOVD (QUOTE TTYINFIX) (QUOTE LISPXFIX) ))))) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML CHARMACRO? ) (LAMA))))) (RPAQ TTYINBUFFERDEVICE (TTYINBUFFERDEVICE)) (RPAQ TTYINWORDRDTBL (TTYINWORDRDTBL)) (PUTDEF (QUOTE TTSCRATCHFILE) (QUOTE RESOURCES) (QUOTE (NEW (MAKE-TTSCRATCHFILE)))) (RPAQ? TTYINEDIT.SCRATCH) (RPAQ? TTYINEDITWINDOW) (RPAQ? TTYINEDITPROMPT T) (RPAQ? TTYINAUTOCLOSEFLG) (RPAQ? TTYINPRINTFN) (RPAQ? TTYIN?=FN) (RPAQ? TTYIN.USE.EXACT.CHARS) (MOVD? (QUOTE PROMPTFORWORD) (QUOTE NON-TTYIN-PROMPTFORWORD) NIL T) (RPAQ? TTYIN.RESTORE.BUF.CODES (CHARCODE ("Function,^D" "Function,^R"))) (RPAQ? TTYINBUFFER) (RPAQ? ?ACTIVATEFLG T) (RPAQ? EDITPREFIXCHAR) (RPAQ? SHOWPARENFLG T) (RPAQ? TTYINBSFLG T) (RPAQ? \TTYIN.LAST.FONT) (RPAQ? \TTYIN.LAST.COMMENTFONT) (RPAQ? TTYINFILLDEFAULT T) (RPAQ? TTYINCOMPLETEFLG T) (RPAQ? TTYINUSERFN) (RPAQ? TYPEAHEADFLG T) (RPAQ? null "") (RPAQ? DEFAULTPROMPT "** ") (RPAQ? TTYJUSTLENGTH -1) (RPAQ? \INSIDE.TTYIN) (RPAQ? TTYINERRORSETFLG) (RPAQ? TTYINRAISEFLG T) (RPAQ? TTYINAUTOFILLMARGIN 8) (RPAQ? TTYINFIXLIMIT 50) (RPAQ? TTYINDEBUGFLG) (RPAQ? HISTSTR1 "from file:") (RPAQ? TTYINCOMMENTCHAR) (RPAQ? \RESTOREBUFCODES) (MOVD? (QUOTE NILL) (QUOTE GUESTUSER?)) (MOVD? (QUOTE FIXSPELL) (QUOTE FIXSPELL!!)) (MOVD? (QUOTE HELPSYS) (QUOTE XHELPSYS)) (PUTDQ? SPRINTT (LAMBDA (X) (PRIN1 X))) (MOVD? (QUOTE NILL) (QUOTE WINDOWWORLD)) (MOVD? (QUOTE LISPXFIX) (QUOTE NONTTYINLISPXFIX)) (ADDTOVAR TTYINREADMACROS) (ADDTOVAR TTYINRESPONSES) (ADDTOVAR LISPXCOMS (STOP . OK)) (ADDTOVAR \SYSTEMCACHEVARS \RESTOREBUFCODES) (PUTPROPS TTYINREADMACROS VARTYPE ALIST) (COND ((CCODEP (QUOTE TTYIN)) (CHANGENAME (QUOTE PROMPTCHAR) (QUOTE LISPXREADP) (QUOTE TTYINREADP)) ( SETREADFN) (MOVD (QUOTE TTYINFIX) (QUOTE LISPXFIX)))) (PUTPROPS TTYIN COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1990 1991 2021)) NIL