(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "20-Feb-87 18:37:55" ("compiled on " {ERIS}SOURCES>PUPPRINT.;4) "17-Feb-87 15:48:10" brecompiled changes%: EFTP in "Xerox Lisp 17-Feb-87 ..." dated "17-Feb-87 16:21:25") (FILECREATED "20-Feb-87 18:37:12" {ERIS}SOURCES>PUPPRINT.;4 23166 changes to%: (FNS EFTP) previous date%: "25-Apr-86 12:44:52" {ERIS}SOURCES>PUPPRINT.;2) EFTPA0001 :D4 (NAME SI::*UNWIND-PROTECT* P 28 IPUP P 27 CAPABILITIES P 26 CLOSER P 25 ABORTER P 24 PRESSDATAPAGE# P 23 THISPAGELENGTH P 22 LENGTH P 21 LASTPAGELENGTH P 20 LASTPAGE# P 19 SOC P 18 ID P 17 CURPAGE# P 16 NEWSTATUS P 15 STATUS P 14 HOSTNAME P 13 NC P 12 USERNAMESTRING P 11 ENDING P 10 RESULT P 9 DATA P 8 STREAM P 7 CRDATE P 6 DOCNAME P 5 %#COPIES P 4 %#SIDES P 3 OPUP P 2 CHECKSTATUS P 1 TIMEOUT P 0 HOSTPORT I 0 SI::*CLEANUP-FORMS* F 33 PRINTOPTIONS F 34 SI::*RESETFORMS* F 35 FILE F 36 HOST) |!WHg `WB WFWF WFWFg _gOh_4hdWDcDOg _,n_*O,_(WBO*joWF O(k_0WBdg'WBg'^IWBg']MjkWBg'_d Oo _hdi _ _l"Okl 4 l3Nkl3 N lOhi _ OoO _g_&hhdWDcDKHllmO&i gO&Kh_2hdWDcDO"`o` j_$O"j/O j"O Oj O4O g _j_"KlL3 O6oH _ BOlVhH _6Ujd` o` WH` o` h_Ojd` O _` ` gO6 lTSLkgO6 lT?Kl(_nOnKgLkgghhOl lm_"WHi oi i O"O(O*ji_&KO*_.lO(O"Kn_.li_OKlKllKll O$_OKl(__< <_:Ok_@O>J9H _ d/O)jd` O _` Odldk`YhO&KhdI _8WBO$jiO@k԰dlAO8ll O8 O$O$k_$O"k_"OKllO$ O&K TlB`o` O8(O8 dlgO8l dl` lO8 ]OO2gOOjd` o` WH` o` (1143 PRIN1 1132 PRIN1 1123 PRIN1 1112 TAB 1077 RELEASE.PUP 1063 DISMISS 1049 GETPUPSTRING 1032 RELEASE.PUP 1022 PRIN1 1000 SENDPUP 993 \PUTBASEFIXP 956 RELEASE.PUP 951 \GETBASEFIXP 911 EXCHANGEPUPS 880 PRIN1 868 TAB 850 PUP.PRINTER.STATUS 826 \PUTBASEFIXP 814 SetBcplString 800 SetBcplString 789 SetBcplString 717 \GETBASEFIXP 639 TERPRI 634 PRIN1 625 PRIN1 606 \STOREPLIST 553 CHCON1 533 CHCON1 519 BLOCK 510 PRIN1 498 TAB 478 PRIN1 467 PRIN1 458 PRIN1 447 TAB 435 PUP.PRINTER.PROPERTIES 417 PUP.PRINTER.STATUS 387 OPENSTREAM 381 CLOSEF 371 SETFILEPTR 364 RANDACCESSP 355 GETFILEPTR 339 PRIN1 299 SETUPPUP 269 OPENPUPSOCKET 260 CONCAT 246 NCHARS 241 ETHERHOSTNAME 229 MKSTRING 224 SUBSTRING 213 NCHARS 208 SUBSTRING 193 NCHARS 188 USERNAME 179 GDATE 169 STRINGP 111 HELP 75 GETFILEINFO 44 OPENSTREAM 32 OPENP 15 ALLOCATE.PUP 7 BESTPUPADDRESS) (1140 PROMPTWINDOW 1129 PROMPTWINDOW 1120 PROMPTWINDOW 1109 PROMPTWINDOW 1097 STREAM 1090 * 1060 \EFTP.LONGTIMEOUT 1042 REJECT 1019 PUPTRACEFILE 1011 PUPTRACEFLG 897 \EFTP.LONGTIMEOUT 877 PROMPTWINDOW 865 PROMPTWINDOW 830 \MAXETHERTRIES 741 FDEV 736 STREAM 593 TRUE 589 FALSE 582 DUPLEX 545 DUPLEX 525 PRINT-INSTANCE 516 \EFTP.TIMEOUT 507 PROMPTWINDOW 495 PROMPTWINDOW 475 PROMPTWINDOW 464 PROMPTWINDOW 455 PROMPTWINDOW 444 PROMPTWINDOW 384 INPUT 336 PUPTRACEFILE 328 PUPTRACEFLG 303 \ABORT.EFTP 266 CLOSEPUPSOCKET 160 DOCUMENT.CREATION.DATE 144 %#COPIES 135 DOCUMENT.NAME 128 %#SIDES 72 LENGTH 50 CLOSEF? 41 INPUT 26 STREAM 10 \EFTP.TIMEOUT 4 ERROR) ( 1137 "]" 1117 "[No response from " 1016 "[abort]" 630 " does not support #sides specification" 472 "]" 452 "[No response from " 333 " (restarting)" 255 " on " 176 (DATEFORMAT TIME.ZONE) 106 "Press file with non-integral number of pages?") EFTP :D4 (P 1 SI::*RESETFORMS* P 0 LISPXHIST I 2 PRINTOPTIONS I 1 FILE I 0 HOST F 2 LISPXHIST) Rg  (19 CL:VALUES-LIST 15 SI::RESETUNWIND 12 \MVLIST 9 EFTPA0001) (6 SI::RESETUNWIND) () \ABORT.EFTP :D4 (I 1 PUP I 0 SOC) AlAlAk(@A (19 SENDPUP) NIL () \STOREPLIST :D4 (P 6 CH P 3 X P 2 PAIR P 1 PRE P 0 CNT I 2 LIMIT I 1 BASE I 0 LST)  jAjl(@dl(JdAHkXIǿl jKB Md @Mdj _Mdj k\M_Mdj lDlLM__M jh_Lk\O1vAHkXl)YAHkXl)HkM ]gOOLOL^l(Nl)Ndl'AHkXl'ǿNlAHkXNǰoK (264 ERROR 198 MKSTRING 105 %%ARRAY-TYPE-NUMBER 81 %%ARRAY-OFFSET 64 %%ARRAY-BASE 50 STRINGP) NIL ( 260 "Attempt to store fat string in thin plist") PUP.PRINTER.STATUS :D4 (P 4 IPUP P 3 RESULT P 2 OPUP P 1 SOC P 0 HOSTPORT I 0 PRINTER) @` CHhJHllhI `k^MJIJhi \9dlL(Ll L 9l`L` L "L Nk԰`o` ` J K(140 RELEASE.PUP 135 TERPRI 128 PRIN1 107 RELEASE.PUP 101 RELEASE.PUP 96 PRINTERRORPUP 78 RELEASE.PUP 72 GETPUPSTRING 48 EXCHANGEPUPS 31 SETUPPUP 12 ALLOCATE.PUP 9 \GETMISCSOCKET 6 BESTPUPADDRESS) (132 PUPTRACEFILE 125 PUPTRACEFILE 116 PUPTRACEFLG 93 PUPTRACEFILE 88 PUPTRACEFLG 34 \MAXETHERTRIES 3 PROMPTWINDOW) ( 122 "Printer status request timed out") PUP.PRINTER.PROPERTIES :D4 (P 4 IPUP P 3 RESULT P 2 OPUP P 1 SOC P 0 HOSTPORT I 0 PRINTER) @` CHhJHllhI `k^M7IJhi \Nk԰dlL [+l`"L` `o` ` LL K(123 RELEASE.PUP 116 TERPRI 109 PRIN1 92 PRINTERRORPUP 72 READPLIST 69 GETPUPSTREAM 48 EXCHANGEPUPS 31 SETUPPUP 12 ALLOCATE.PUP 9 \GETMISCSOCKET 6 BESTPUPADDRESS) (113 PUPTRACEFILE 106 PUPTRACEFILE 97 PUPTRACEFLG 89 PUPTRACEFILE 83 PUPTRACEFLG 34 \MAXETHERTRIES 3 PROMPTWINDOW) ( 103 "Printer capability request timed out") (PRETTYCOMPRINT PUPPRINTCOMS) (RPAQQ PUPPRINTCOMS ((FNS EFTP \ABORT.EFTP \STOREPLIST PUP.PRINTER.STATUS PUP.PRINTER.PROPERTIES) ( DECLARE%: DONTCOPY (CONSTANTS * EFTPPUPTYPES) (CONSTANTS * EFTPCONSTANTS) (ADDVARS * (LIST (CONS ( QUOTE PUPTYPES) EFTPPUPTYPES))) (GLOBALVARS \EFTP.TIMEOUT \EFTP.LONGTIMEOUT)) (INITVARS (\EFTP.TIMEOUT 5000) (\EFTP.LONGTIMEOUT 15000)))) (RPAQ? \EFTP.TIMEOUT 5000) (RPAQ? \EFTP.LONGTIMEOUT 15000) (PUTPROPS PUPPRINT COPYRIGHT ("Xerox Corporation" 1985 1986 1987)) NIL