(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "25-Sep-2022 11:00:13" ("compiled on " {DSK}kaplan>local>medley3.5>working-medley>lispusers>TEDIT-PF-SEE.;113) "21-Sep-2022 11:21:03" brecompiled exprs%: nothing in "FULL 21-Sep-2022 ..." dated "21-Sep-2022 11:21:06") (FILECREATED "25-Sep-2022 11:00:07" {DSK}kaplan>local>medley3.5>working-medley>lispusers>TEDIT-PF-SEE.;113 7734 :PREVIOUS-DATE " 5-May-2022 23:48:59" {DSK}kaplan>local>medley3.5>working-medley>lispusers>TEDIT-PF-SEE.;112) PF-TEDITA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 4 *PRINT-BASE* P 3 *READ-BASE* P 2 *READTABLE* P 1 *PACKAGE* I 0 SI::*CLEANUP-FORMS* F 5 TSTREAM F 6 EXPR F 7 LOC F 8 ISTREAM F 9 ENV F 10 FN F 11 DEFAULTFONT F 12 BOLDFONT F 13 WINDOW F 14 REPRINT F 15 TFPROP F 16 A0044) ò W c¿WgW ¿c ¿WU ¿WU ¿W¢±WWWc¿ ¿WHÉHÉHÉHÉW c ¿WHÉHÉHÉHÉWdVð²*¿WU ¿WU ¿WU ¿Vc lih±’V𢱅oU ¿VU ¿oU ¿WU ¿VU ¿WU ¿oU ¿VU ¿U ¿lhU ¿VlidhU ¿oU ŒVlhddU °WUWWcWc¿ ¿U ¿UWµghgigigWoW h ¿U gW ¿U gWoW hc ¿$(488 \MVLIST 483 PUTWINDOWPROP 478 CONCAT 473 FULLNAME 454 WFROMDS 447 PUTWINDOWPROP 435 WFROMDS 428 TEDIT 416 CONCAT 411 FULLNAME 368 TERPRI 361 PFI.MAYBE.PP.DEFINITION 334 PRINTDEF 320 PRIN3 308 PRINTDEF 291 TAB 281 TERPRI 274 PRIN2 263 PRIN1 251 CHANGEFONT 242 PRIN2 232 CHANGEFONT 223 PRIN1 211 PRIN2 202 PRIN1 170 DSPFONT 161 PRINT 152 DSPFONT 105 READ 72 SETFILEPTR 49 PRINT-READER-ENVIRONMENT 40 DSPFONT 29 OPENTEXTSTREAM 23 SETFILEINFO 6 LISPSOURCEFILEP) (459 TITLE 440 TF 397 TITLE 391 LEAVETTY 385 READONLY 379 PF-TEDIT 117 READER-ENVIRONMENT 80 READER-ENVIRONMENT 16 FORMAT) ( 466 " from " 404 " from " 314 ")" 257 " " 217 " " 196 "(") PF-TEDITA0002 :D8 (F 0 ISTREAM F 1 A0044) PgQ (11 CL:CLOSE) (5 :ABORT) () PF-TEDIT :D8 (P 11 A0044 P 10 ISTREAM P 9 W P 7 WINDOW P 6 TFPROP P 5 EXPR P 4 ENV P 3 TSTREAM P 2 LOC P 1 IFILE I 2 REPRINT I 1 IFILES I 0 FN F 12 LASTWORD F 13 *LAST-DF* F 14 *COMPILED-EXTENSIONS*) É Ad£d‘hb@d’bgð¦@ið¢@µ ib¿Wbƒc¿@ªo ¿oA ²ib¿Ao b€A³%@gi @gi b¢±5AqHµ@c£H¹h„H¹H¸Ig W ³Ú@I Zd¢±—¿@Jh¾ Oµh_²>B³;O ¿°§_¿NOg ô²Og –OµËi°ÈO_°½JJºgg i g OgO ¿$±ÿ9gð²,oi ¿Ii ¿oi ¿i ¿±ÿ@i ¿oi ¿Ji ¿oi ¿i ¿±þÕ@i oi i (454 TERPRI 448 PRIN1 437 PRIN1 426 TERPRI 419 PRIN1 407 PRIN1 399 PRIN1 387 PRIN1 376 TERPRI 369 PRIN1 357 PRIN1 349 PRIN1 322 CL:CLOSE 308 \MVLIST 303 PF-TEDITA0001 289 OPEN 254 GETWINDOWUSERPROP 239 GETWINDOWUSERPROP 219 TOTOPW 195 OPENWINDOWS 175 FINDFNDEF 166 MEMB 159 FILENAMEFIELD 118 \APPEND2 113 WHEREIS 101 WHEREIS 83 LDIFFERENCE 66 INTERSECTION 54 ERROR) (335 FILE.NOT.FOUND 315 :ABORT 298 PF-TEDITA0002 284 :INPUT 279 :DIRECTION 249 TEXTOBJ 234 TF 154 EXTENSION 107 FUNCTIONS 95 FNS 21 t) ( 442 " has no function definition" 413 "." 393 " not found on " 363 " not found." 343 "file " 78 (t T) 60 (T t) 49 "No function to print") (PRETTYCOMPRINT TEDIT-PF-SEECOMS) (RPAQQ TEDIT-PF-SEECOMS ((FNS PF-TEDIT) (COMMANDS ts tf) (FILES (SYSLOAD) REGIONMANAGER) (P (MOVD? ( QUOTE PFCOPYBYTES) (QUOTE PFI.MAYBE.PP.DEFINITION))) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA))))) (DEFCOMMAND ts (FILE WINDOW FORMAT) (TEDIT-SEE (OR (FINDFILE-WITH-EXTENSIONS FILE NIL (QUOTE (NIL TEDIT TED TXT TEXT TEX))) (ERROR "FILE NOT FOUND" FILE)) (OR WINDOW (QUOTE SEE-TEDIT)) FORMAT)) (DEFCOMMAND tf (FN . IFILES) (PF-TEDIT FN IFILES)) (FILESLOAD (SYSLOAD) REGIONMANAGER) (MOVD? (QUOTE PFCOPYBYTES) (QUOTE PFI.MAYBE.PP.DEFINITION)) NIL