;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for System version 123.125
;;; Reason:
;;;  By default, Imagen print-stream and Imagen print-file are silent regarding
;;;  the Imagen queue.  You can use :verbose t to get the old behavior.
;;; Written 27-Nov-87 21:21:24 by pld at site Gigamos Cambridge
;;; while running on Jack Flanders from band 2
;;; with Experimental System 123.124, Experimental Local-File 73.3, Experimental FILE-Server 22.1, Experimental Unix-Interface 11.0, Experimental Tape 18.0, Experimental KERMIT 34.0, Experimental ZMail 71.0, Experimental Lambda-Diag 15.0, microcode 1754, SDU Boot Tape 3.12, SDU ROM 8.



; From modified file DJ: L.NETWORK.IP-TCP.USER; IMAGEN.LISP#68 at 27-Nov-87 21:21:26
#10R TCP-APPLICATION#: 
(COMPILER-LET ((*PACKAGE* (GLOBAL:PKG-FIND-PACKAGE "TCP-APPLICATION")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: NETWORK; IP-TCP; USER; IMAGEN  "

(defun (:property :imagen si:print-file) (printer filename &rest options)
  (let ((address (cadr printer))
	(verbose (getf options :verbose nil)))
    (when (imagen-status-ok-to-print address verbose)
      (if (probe-file filename)
	  (with-open-file (stream filename)
	    (let ((date (file-write-date stream)))
	      (when date
		(setq options
		      (append options `(:file-date ,(time:print-universal-time date nil nil :dd-mmm-yyyy))))))
	    (print-stream-to-imagen stream address options))
	(format t "~&File not found: ~S~%" filename)))))

(defun (:property :imagen si:print-stream) (printer stream &rest options)
  (let ((address (cadr printer))
	(verbose (getf options :verbose nil)))
    (when (imagen-status-ok-to-print address verbose)
      (print-stream-to-imagen stream address options))))
))