‘XCL Compiler output for source file {DSK}larry>medley>lispusers>HARDCOPY-RETAIN.;2 Source file created 8-Feb-2022 09:25:36 FASL file created Tuesday, 8 February 2022, 9:26:57 ÿ˜–#ogg o ˜•ŒFILECREATEDLOC˜Œ*STANDARD-INPUT*˜Œ1 top-level form˜ŒFUNCTION˜“€˜•ŒDEFINE-FILE-INFO˜ŒOPEN ˜ŒOUTPUT˜Œ DIRECTION˜“˜ŒPACKAGE˜Œ INTERLISP˜Œ READTABLE˜ŒXCL˜ŒBASE ˜Œ{Null}˜–!ggo ¿o˜Œ2 top-level forms™˜“€˜•ŒPUTPROP˜•ŒHARDCOPY-RETAINCOMS˜•Œ FILEDATES˜•ŒHARDCOPY-RETAIN˜“˜“˜•Œ FUNCTIONS˜•ŒHARDCOPYIMAGEW.TOFILE&PRINTER˜•ŒINSTALL-OPTION˜“˜•ŒDECLARE:˜•Œ DONTEVAL@LOAD˜•ŒDOCOPY˜“˜•ŒP˜“™ ˜“˜”˜Œ 8-Feb-2022 09:25:36•Œ4{DSK}larry>medley>lispusers>HARDCOPY-RETAIN.;2œ™˜–‚‡X²~¹HºH»@JK ¿I²dgJ gJ gJ gJ ggKU¼L¼L¼L\‘L€KgV \I hh˜•ŒPRINTFILETYPES˜Œ*DEFAULT-PATHNAME-DEFAULTS*™™˜“˜“˜Œ &OPTIONAL˜ŒWINDOW }˜•ŒSEND.FILE.TO.PRINTERv˜•ŒPACKFILENAME.STRINGp˜Œ NAMESTRINGH˜Œ PATHNAME-NAME=˜ŒPATHNAME-DIRECTORY2˜ŒPATHNAME-DEVICE'˜Œ PATHNAME-HOST˜•ŒHARDCOPY.SOMEHOW ˜•ŒGetPrinterName˜•Œ GetImageFilej˜•ŒBODYR˜•Œ EXTENSIONM™8B˜•ŒNAME7˜•Œ DIRECTORY,˜•ŒDEVICE!˜•ŒHOST˜–ggo ˜Œ&CL:DEFUN HARDCOPYIMAGEW.TOFILE&PRINTER™˜“€˜•ŒSET-DOCUMENTATION˜ŒFUNCTION™ ˜Œ0Send hardcopy of WINDOW to a printer and a file.œ™—˜–3Q¸H Hkoh-¿H¸°ïR¸H Hkoh-¿H¸°ïhc¿hc˜•ŒWindowMenuCommands˜•ŒBackgroundMenuCommands˜•Œ WindowMenu˜•ŒBackgroundMenu™™˜“€™I˜–{@koh-X²n@gð²LgHgnogg ‘hHooohh H¹HºJ¡IJkoh-¿Jº°îh˜Œ FIND-PLACE-BM˜ŒCLOSURE˜“˜“˜ŒITEM[˜•Œ\NCONC2=˜ŒFIND7˜ŒSYMBOL-FUNCTION2˜ŒEQ-˜ŒTEST˜ŒKEY™˜•ŒHardcopyP˜ŒUSends image to a printer of your choosing, retaining the printer version of the file.K˜“˜ŒQUOTE˜“™F˜ŒTo a file and a printer&˜– @¸H¸H˜Œlambda in FIND-PLACE-BM™K˜“˜“˜ŒX"˜•ŒCOMPILED-CLOSURE™al™a™a˜–@¸Hgð˜@¸Hh˜Œ GET-SUBITEMS™K˜“˜“˜ŒITEM ˜•ŒSUBITEMS™I ˜–{@koh-X²n@gð²LgHgnogg ‘hHooohh H¹HºJ¡IJkoh-¿Jº°îh˜Œ FIND-PLACE-WM™K˜“˜“˜ŒITEM[™O=™P7™Q2™R-™S™T™™UP˜ŒUSends image to a printer of your choosing, retaining the printer version of the file.K˜“™W™F˜ŒTo a file and a printer&˜– @¸H˜Œlambda in FIND-PLACE-WM™K˜“˜“˜ŒX"™`™tl™t™t™g˜–ggo ˜ŒCL:DEFUN INSTALL-OPTION™˜“€™@™A™ ˜Œ Install the new Hardcopy option.˜–¿o ˜Œ2 top-level forms™˜“€ ˜•ŒPUTPROPS™˜“™˜•Œ COPYRIGHT˜“˜ŒXerox Corporation‚ÂÄ‚æš‚ÿÿ