hưs2D p,COMPILE-DATADBOBlLambda TenҢ' FfFDp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITEpB LMIpB SOURCE-FILE-GENERIC-PATHNAME1DplFSMAKE-FASLOAD-PATHNAMEDpB+QUOTElDJDB:DSKDB:DGJCXDVIDB:DVI-IM-METHODSDB:pB lUNSPECIFICDB:BFpB QFASL-SOURCE-FILE-UNIQUE-ID1DB8DB:B;DB:DSKDB:DGJCXDVIDB:DVI-IM-METHODSDB:LISPDB:FpB BASEF pB ,PACKAGEpB DVIpB SYNTAXpB ,ZETALISP1DplSIlDEFFLAVOR2DB:IMAGEN-DVI-DOCUMENTDB:NILDB:DDOCUMENTDB:BmDpB METHODBkpB lINITIALIZEˀN0F3ByFA@C*FONT-DEFINITIONS*Á*TEMP-BUFFER*ÀART-8BBkpB ,SET-PRINTER-NAMEIMAGENpB SET-PRINTER-RESOLUTIONF,pB SET-PRINTER-MAX-FONTSpB SET-FONTMAPpBhlSIMPLE-MAKE-ARRAYÀART-QpB lSET-BUFFER1EpBhlFLAVOR-VAR-SELF-REF-INDEXEB:EBkFILE-BUFFERpB SET-FONTNUMSMAPHASHDpB ,INTERNALByDDpB ,MACROS-EXPANDEDDFILE-LENGTHFILL-POINTERSETFFUNCALL-SELFSENDDpB(lLOCAL-FUNCTION-MAPDDpB(,ARG-MAPDDpBh.OPERATION.DpB(lLOCAL-MAPDBmDpB INTERNAL-FEF-OFFSETSFD!BmBkBmPIXEL-HPIXEL-VCHCVCWCXCYCZPAGE-LENGTHCPAGE-WIDTHXPAGE-OFFSETYPAGE-OFFSETBOUTFILEÀBUFFERÀHSTACKÀVSTACKÀWSTACKÀXSTACKÀYSTACKÀZSTACKCPXL-HSTACKCPXL-VSTACKCURRENT-FONTFONTMAPFONTNUMSÀJOB-IDPRINTER-NAMECPRINTER-RESOLUTIONCPRINTER-MAX-FONTSB[ D B[ D B[D1B[D@@|DE@|@!@B[D@|DA`sDD@|@!@B[D@@|DE@|@!@DOByBˀ F DBByF@FILLDDpB SELF-FLAVORBkDBDÁFD-CHAR-STATUSDBDDÀIGNOREDÀTABLED!BmBkBmBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBE`OBDBvBkpB NORMAL-ENDINGˀ F BFA@BkDDBDDBD!BmBkBmBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBOBDBvBkpB ,ABNORMAL-ENDINGˀ F BFA@BkDDBDDBD!BmBkBmBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBOB1DDEFPROPBGLYB-pSYSTEM,SYSTEM-CONSTANT1DpBhlDEFCONST-1BF1DBÀMPLUSB-B1DBBF1DBÀMMINUSB-B1DBB%F1DBÀMMOVEB-B1DBB+F1DBÀBRULEB-B1DBB1F1DBPAGEB-B1DBB7F1DBENDPAGEB-B1DBB=F1DBCSPB-B1DBBCF1DBÀSET-SPB-B1DBBIF1DBCSET-ABS-VB-B1DBBOF1DBCSET-ABS-HB-B1DBBUF1DBCSET-FAMILYB-B1DBB[F1DBCREATE-PATHB-B1DBBaF1DBSET-PENB-B1DBBgF1DBCDRAW-PATHB-B1DBBmF1DBCSET-MAGNIFICATIONF1DBÀBITMAPF1DBÀOPAQUEF1DBEOFF1DBÂIMPRESS-SET-PUSH-MASKF1DBIMPRESS-PUSHF1DBIMPRESS-POPFDBvBkpB START-OUTPUTˀ F BFA@BkÀFORMATl~& Processing pages.... DDBDDBD!BmBkBmBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBEOBDBvBkpB lEND-OUTPUTˀW4FqBFA@BÁCHARS-PER-FONTBBkB~& Writing output ... pB ABORTFÁOPEN-8B-OUTPUT1EBEB:EBkBpB ,TRUENAME1EBEB:EBkB1EBEB:EBkBpB ,GET-HASHpB TYOpB lSTRING-OUT1EBEB:EBkBÀERRORPpB CLOSEDDBDÀPSETQÁCHAR-Y-OFFSETCHAR-HEIGHTÁCHAR-X-OFFSETCCHAR-WIDTHÁCHAR-PXL-WIDTHÁWRITE-2-BYTESCWRITE-BYTEBÁFD-RASTER-INFOCFD-FONT-DIRECTORYBDOTIMESBWITH-OPEN-STREAMDBDDBDBDBmDpBh.FILE-ABORTED-FLAG.DCOUTSTREAMDÀFNTNUMBmDKEYDFONTDEFDFONTDIMSDRASTERSDCHAR-STATUSDCHARCODEBmDCHARDIMSDÀRASTERDCIBmD!BmBkBmBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB E DA DE/E@@BBA|D@`DCDCEJ[E@DEF`GFE`HFE`I|DKJlIEJEJ[fXGEJEJ[LBDBD7ECE|ZJBD|CE|ZJBD7ELE`BD|LE`BD7ELE`BD|LE`BD7ELE`BD|LE`BD7ELE`BD|LE`BD7ELE`BD|LE`HEJEJ[M|MEi[ONBDMENEJNNEOUYJJEKUYCCEDUxYBEEZDAw@8@X@DAŭOBDBvBkpB ,DO-PAGESˀ'2FBFA@FNTDEF1NOPEOPCTRANSLATION-ARRAYBOPTOTAL-PAGESBkBBAD-DVIMissing bopbop command missingF NREVERSEpB BOPB~D ÁGET-PARAMETERSF DDBD GET-MESSAGE-NAMEBBLOOPBDECFBBSIGNED-QUADBINCFCBGET-BYTEBCMOVE-BACKDBDDBDBDBmBmDÁPREV-PAGE-PTRDBBmDCADCBDCCDCDDCURRENT-PAGEDCBOP-PARAMSDCOMMANDDCMNDDBYTEDÀBYTESD!BmBkBmBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB D@ bA|AEDCO@E@E@`#@!@E@E@`cJ[ X@E@E@`3@!@E@E@`J[E@E@E@`#J[F@E|@E@`3J[G@E|@E@`3J[H@E@E@`3@!EE2U8EEEE3S|[FE|ZGE|ZHB8@EBE@E@E@`S@!CCEDUY|JwIKw D D@`#@! D D@`cJ[K XC4 D D@`J[E D D@`#J[F D| D@`3J[G D| D@`3J[H D D@`3@!EE2U8EEEE3S|[FE|ZGE|ZHJEZJCCETYJB[DJEDILw D D@`#@! D D@`cJ[LB[ DLEJ[LE LEXIIE 4=XMw D D@`#@! D D@`cJ[M )XMEY DDDE@`MER#23@! D D@`#@! D D@`cJ[ D D@`#@! D D@`cJ[3N D D@`N3@! D D@`c@!UERO9BCORRECTˀ FB:FB@pBh,MACRO-REPORT-ARGS-ERRORDLETDDDIFFDC-BDPIXEL-ROUNDBDCONDDDCBDDBDBBDDBRBB%DSETQBDBFBDDpB EXPR-SXHASHvDBDDpBhl*MACROARG*DpBhl*MACROENVIRONMENT*DpB,FUNCTION-PARENTB:DARGLISTEZ58E|DÀMACROBtOvB:DBvBkpB ,SET-CHARˀ#X$F5ByF@B%BCONVBBkCARRAY-PUSH-EXTENDBB1EBEB:EBkB1EBEB:EBkB1EBEB:EBkBDDBD BBBFB:BÁCHAR-DVI-WIDTHBBBBBRDBDDBDBDBDDÀFNTDEFDCCHAR-DIMSDBDDBBmD!BmBkBmBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB D @ D@`EJ[A|@E`EMDAE`3DAE`3Dr|0SB8|BEZDC DCCEDUYBE 8|BEDC DCCEDUYDr|0OByDBvBkpB ,SET-RULEˀE"FVBF@B+B1B%BBBkBBBBDDBDBRULE-PIXELSÁWRITE2-BUFFERBBRBBFB:DBDDBDÀPARAMSDBDDCHTDCWDDBDDBBmD!BmBkBmBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBGIA@8AE8 D D r|0SB8|BEZDCD CCEDUYBE 8|BEDCDCCEDUY D r|0 DD7E DAs|0[D| DAs|0[D7E D@s|0[D| D@s|0[D7E| D@s|0SD|| D@s|0S DA3 DD7E D r|0[ RD| D r|0[ R D r|0[ OBDBvBkpB ,PUT-CHARˀ2F BF@B+BBkBBBBDDBDBBBBBBRDBDDBDBDBDDBDBD!BmBkBmBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB D@ D @`EJ[A D D7EAE`Z D|AE`Z|@ D `EMOBDBvBkpB ,PUT-RULEˀ6| FFBF@B1B%BBBkBBBBDDBDBBBBRBBFB:DBDDBDBDBDDBDBDBDDBBmD!BmBkBmBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBGIA@e8AEb8 D D r|0SB8|BEZDC DCCEDUYBE 8|BEDC DCCEDUY D r|0 D D7E DAs|0[ D| DAs|0[ D7E D@s|0[ D| D@s|0[ D7E| D@s|0S D|| D@s|0SOBDBvBkBˀO6F5BF@BOBUB7BBk1EBEB:EBkBB1EBEB:EBkB1EBEB:EBkB1EBEB:EBkB1EBEB:EBkB1EBEB:EBkB1EBEB:EBkBB1EBEB:EBkBpB EMPTY-STACKlUndefinedBBBDDBDBBRBBCDVI-ROUNDDBDDBDBD!BmBkBmBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB D DZ D DZ D DB[DDDD7E DD| DDD7E DD| DOBDBvBkpB EOPˀ F B!F@B=BkBBDDBDBRDBDDBDBD!BmBkBmBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB DO0B!DBvBkpB AFTERpB lPOP-STACKˀ (FB5F@BOBUBkBBBBDDBDBBRDBDDBDBD!BmBkBmBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB D D7E D D| D D D7E D D| DODB5DBvBkpB RIGHTˀ (FBGF@B+BBkBBBBDDBDBBFBRBDBDDBDDELTA-HDBDDBDD!BmBkBmBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB D3 D r|0@ D D7E@E R D|@E R@E OZBGDBvBkpB lWˀ/FB]F@B+BBkBBBBBDDBDBBFBRBDBDDBDÀNEW-WDBDDBDD!BmBkBmBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBE8E D 2 D r|0@ D D7E@E R D|@E R@E OpB]DBvBkpB lXˀ(b$F:BsF@B%BBCBBIBkBBBBBDDBDBBB:BBFBBRDBDDBDÀNEW-XDBDDBDDBBmD!BmBkBmBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBE8E D D7E D r|0 D| D r|0 DD 2D D r|03 Dr|0S@8|@EZBA DAAEBUY@E 8|@EBA DAAEBUY Dr|0OBsDBvBkpB DOWNˀ $FBF@BOBBkBBBBDDBDBBRBFBDBDDBDDELTA-VD!BmBkBmBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB D3 D r|0 D D7E D D| DOBDBvBkpB lYˀ )FBF@BOBBkB BBBBDDBDBBRBFBDBDDBDÀNEW-YD!BmBkBmBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBE8E D 2 D r|0 D D7E D D| DOBDBvBkpB lZˀ )FBF@BOBBkB BBBBDDBDBBRBFBDBDDBDÀNEW-ZD!BmBkBmBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBE8E D 2 D r|0 D D7E D D| DOBDBvBkpB ,SET-FNTˀ0 F BF@B[BkBBBBUndefined fontBBDDBDBRBBCGET-FNTNUMDBDDBDCTEXFNTNUMDBDDBBmDBD!BmBkBmBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB|D@`A@@EAU 8D@EJ[8@E@EB DBEJ[ X D DBOBDBvBkpB XXXˀA&F*BF@SELFCART-STRINGBkBBPARSE-XXX-STRINGÀINTERNÁSTRING-UPCASE,ÁIMAGEN-DVI-XXXBunknown \special command: ~ADDBDÀCONSPBBDBDDBDB3DBDDÀSTRINGDÀOFFSETDB-D!BmBkBmBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB @E D@`A@ D D@`3@! DAE D@`@E|ED @@BBGy8 @ @BD 8 @ @BDZDBDBOBDpB ,PROPERTYpB IMPRESS-BITMAPBˀ+dVFBF@BB{BwBOBUBsBBpB BUFFERB,~&Reading impress bitmap from ~S ~{~S ~S~^, ~}~%CPROBE-FILEFile does not exist. Continuing...~%BFBFÁOPEN-8B-INPUTFF ÁPROBE-DEFAULTS~&Getting defaults from ~A~%FORMS-FROM-FILEpB TYIF CREAD-32-LEpB MAGNIFICATIONEVALUATE-OFFSETpB ,H-OFFSETpB ,V-OFFSETFDBBÂSTREAM-COPY-UNTIL-EOFBBDDDBDBLOCFGETFWHENBBRBDBDDBDDBoDB-DBDDBBmDBDÀSTREAMDDEFAULTSDÀHSIZEDÀVSIZEDS-STREAMDBF%A@EDKXE@E @E@E@E DBDE/E@ACDE/EDE/E@CED8EDD@DGDCACAFEDE/ECC@E @EI DD D|z@E @E7E!@I"DD"D|zz|0@E|!@I"DD"D|zz|0@E @E7E!@I#DD#D|zz|0@E|!@I#DD#D|zz|0@E@E@EE@EF$DE/E%D\G&@CEGDEZ@E[[[BwA8'AXA(DBŭOCBB!ˀ 9F#DBBB@BBBpB ,WHICH-OPERATIONSDBBÂSTREAM-DEFAULT-HANDLERDDBDBBRSELECTQpBhSELECTQ-WITH-WHICH-OPERATIONSDBDDCOPDARG1DBDDARGSDCJDENDDCTOEt8|ZŀEt8@G|@KEZ|ZCBACEEAEJAAEB9E t8 |ZEE@OfB!Bˀ R$F2BF@ǀ KpB lPRINTER-RESOLUTIONpB ,PIXEL-HpB ,PIXEL-VÀFERRORThe argument ~2@*~A was ~1@*~S, which is not ~3@*~A.DÀMEMBERBqBsBpBh,TYPE-PRETTY-NAMEBDCORÀNUMBERÀSYMBOLCONSDDBDBÂINHIBIT-STYLE-WARNINGSBÀECASEBCETYPECASEDBDDBDBoDBDBmBmBmDB!E8Ey8DAEt8AE t8A  @E D DE D sG@IBA AEBGC@CEZABBY@E E DDE DOB1DpBh,DEFVAR-1*IMAGEN-DATA-BYTES*Bm1DBC*IMAGEN-DATA-SIZE*Bm1DB*BITREV-BYTE-TABLE*Bm1DBÁ*32^32-CHUNK*Bm1DB*128-BYTE-CHUNK*BmSETUP-IMAGEN-DATA-BYTESˀO0FgBFE@plTV,ALU-SETABBBBpBl%%BYTE-SPECIFIER-POSITIONBpBhSIMPLE-MAKE-ARRAY-1D-Q-SHORTBDF F ÀART-1BCMAKE-ARRAYpB TYPEBpB DISPLACED-TOBÃCOPY-ARRAY-PORTION-TRANSLATEDDDBDBB1BBBB(DBDDÀARRAYDBDBDCDXDCDYDBDDB]DÀVALUEDCKDÀEASY-YDREMAINDER-YDÀEASY-XDREMAINDER-XDB8DB:DYMAPDCDATA-BYTESDINCDÀBITREVD32^32-CHUNKDÁ128-BYTE-CHUNKDXMAPDÀXBASEDÀYBASEDÀX-WANTDÀY-WANT &X @3 @ D@E||BABE D|Z#@EZ|BS D|Z#AEZABBE 9AE@@E3UY 8  X@D @|DDD E |HDCE |HFEF8||3CED8||3HGHEEE|Uz|D| D D DNMLKJI7O1OE|[IE|[QPEPS |s[EQS |s[SRFXSED8NEDRESEEPE3QE3ME||NE||JEKEKE23KLOOEG9IIEH9OBBˀ FBF@DDBDBBDBDDCFROM-ARRAYDCFROM-STARTDFROM-ENDDTO-ARRAYDTO-STARTDÀTO-ENDDCTRANSLATION-TABLEDBDDB]EEEEEEDE@ E@EEE@EJ[#W[@@E9OB1DBC*BITMAP-PATHNAME-DEFAULTS*Bm1DCADD-INITIALIZATION,bitmap pathname defaultsDB:DÀPROGNDB^BDpB6MAKE-PATHNAME-DEFAULTSDpB6,MERGE-AND-SET-PATHNAME-DEFAULTSlFOO.IBITSBDB:DpB NOWWARMOPEN-PRINTER-BITMAP-FILEˀA2F-BFA@C*QUERY-IO*BPROMPT-AND-READpB ,PATHNAMEpB ,DEFAULTS~&Filename for bitmap, default "~A"> pB6,MERGE-PATHNAME-DEFAULTS,B~&Writing to "~A"~%pB6PARSE-PATHNAMEBpB LISPMpB SYSTEM-TYPEOPENpB lDIRECTIONpB OUTPUTpB RAWDDBDBpBhlXR-BQ-LISTDBDDPRINTERDBDDPATHNAME@ D DD|Uz D D@DD@@@@ED@Au8@ED@EDDDOKBDBpB IMPRESS-BITMAP-FILEpBh,PRINT-BIT-ARRAYˀS*F4BP@BBBBBBF_BBWRITE-32-LEBBBDDBDBBB(DBDDBBDBDLEFTDTOPDÀRIGHTDÀBOTTOMDBDDBBmDBDB4X@ D  EEEESES DB DE/E@ACCDCDDZCDZCCDD||FsJsvEBwA8AXADBŭOnBPDBpB lSAVED-PAINT-IMAGEBˀ+UVFBqF@ÁMAGNIFICATIONBB{BwBOBUBsBBBBBB,~&Loading paint file ~SLOAD-PAINT-ARRAYB pB NEW-PATHNAMEB,DEFAULTSpB ,VERSIONpB NEWESTl~&Getting defaults from ~ABCPIXEL-ARRAY-WIDTHCPIXEL-ARRAY-HEIGHTBBBBBB, processing ...BBFDDBDBBBRB&B'B(BDBDDBoDB-DBD DFILEDB6DBDÀWIDTHDÀHEIGHTDH-OFFSETDV-OFFSETDB8DB:DBDDATADB]DCN6AIEDDE@B@@DDDDA8EDA@AGA@BC@BDIDAD|zz @I!DA!D|zzE @I"DA"D|zzFX#@$D%E&'BE||CEDFGJH(IE(IE)(IE)(IE (IE (IE(IE (IE7EEE|0(IE|EE|0(IE (IE7EFE|0(IE|FE|0(IE (IE(IEG(IEHD||GsHsLKJ(IEJEKEJKKEL9(IEOBq1DpBh,FASL-RECORD-FILE-MACROS-EXPANDEDDB:D,DB?qDB1~3DBDBDB$DBR ЎDBP6nDB($DB'tDB&GDBNDBeaDB0jGDBCpIDBP\&DBRSDB DB:vDBFMDB[sDBvTDBLEDBazDB7CBDBbWDBC{DBf-wDB DB DBi)DDBZ΋DB DB DB DB DB DBQBDBDBJDBUDBAsDBxDBhS