(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP") (FILECREATED " 8-Feb-97 11:27:10" ("compiled on " |{DSK}medley2.1>library>dosprint.;1|) "20-Dec-94 17:11:06" |tcompl'd| |in| "PARC STEMMER MAKER 7-Feb-97 ..." |dated| " 7-Feb-97 19:30:19") (FILECREATED "20-Nov-95 11:34:56" {DSK}LIBRARY/DOSPRINT.\;1 2006 |changes| |to:| (VARS DOSPRINTCOMS) |previous| |date:| "26-Jul-93 14:01:26" {DSK}LIBRARY/DOSPRINT.\;1) DOSPRINTA0001A0002 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 PRINTER F 1 |in| F 2 |out| F 3 A0168) 6`oP¿QR ¿`o hc¿$(44 \\MVLIST 39 CL:FORMAT 23 COPYCHARS 15 CL:FORMAT) (29 PROMPTWINDOW 4 PROMPTWINDOW) ( 34 "Done." 9 "Spooling output to DOS printer \"~A\"...") DOSPRINTA0001A0003 :D8 (F 0 |in| F 1 A0168) PgQ(11 CL:CLOSE) (5 :ABORT) () DOSPRINTA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 1 A0168 P 0 |in| I 0 SI::*CLEANUP-FORMS* F 2 FILE F 3 A0167) =Rg ig HgI¿$ hc¿$(51 \\MVLIST 41 CL:CLOSE 29 \\MVLIST 24 DOSPRINTA0001A0002 10 OPENSTREAM) (35 :ABORT 19 DOSPRINTA0001A0003 5 INPUT) () DOSPRINTA0004 :D8 (F 0 |out| F 1 A0167) PgQ(11 CL:CLOSE) (5 :ABORT) () DOSPRINT :D8 (P 5 A0167 P 4 |out| P 3 TYPE P 2 NAME P 1 COPIES P 0 PRINTER I 2 PRINTOPTIONS I 1 FILE I 0 HOST) X@µ`Bg'Bg'H Hg ig LgM¿$(81 CL:CLOSE 69 \\MVLIST 64 DOSPRINTA0001 50 OPENSTREAM 36 PRINTERTYPE) (75 :ABORT 59 DOSPRINTA0004 45 OUTPUT 26 DOCUMENT.NAME 16 \#COPIES 7 |DosPrinterName|) () (PRETTYCOMPRINT DOSPRINTCOMS) (RPAQQ DOSPRINTCOMS ((FNS DOSPRINT) (INITVARS (|DosPrinterName| NIL)) (DECLARE\: EVAL@COMPILE DONTCOPY (GLOBALVARS |DosPrinterName|)) (DECLARE\: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA))))) (RPAQ? |DosPrinterName| NIL) (PUTPROPS DOSPRINT COPYRIGHT ("Xerox Corporation" 1995)) NIL