;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for Tiger version 27.1
;;; Reason:
;;;  Make tiger:*laser1-orientation*, which determines the printout orientation
;;;  of the HP laser1 printer driver, a site variable called (YES!)
;;;  :LASER1-ORIENTATION.  Do the same for the Laser1+ version.  I also
;;;  officially added LASER1+ to Tiger, so people will get it like any
;;;  other driver.
;;; Written 28-Apr-88 18:00:06 by keith at site Gigamos Cambridge
;;; while running on Azathoth from band 3
;;; with Experimental System 123.246, Experimental Local-File 73.4, Experimental FILE-Server 22.2, Experimental Unix-Interface 11.0, Experimental KERMIT 34.3, Experimental ZMail 71.0, Experimental Lambda-Diag 15.0, Experimental Tape 22.2, Experimental Serial-IP 1.0, Experimental Tiger 27.0, microcode 1756, SDU Boot Tape 3.14, SDU ROM 8, the old ones.



; From modified file DJ: L.HARDCOPY.TIGER; LASER1.LISP#8 at 28-Apr-88 18:00:21
#10R TIGER#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "TIGER")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: HARDCOPY; TIGER; LASER1  "


(defvar *laser1-orientation* :PORTRAIT
  "Determine orientation of LASER1 printer, should be
  :LANDSCAPE or :PORTRAIT")

))

; From modified file DJ: L.HARDCOPY.TIGER; LASER1.LISP#8 at 28-Apr-88 18:00:24
#10R TIGER#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "TIGER")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: HARDCOPY; TIGER; LASER1  "


(define-site-variable *laser1-orientation* :laser1-orientation
  "Determine orientation of LASER1 printer, should be
  :LANDSCAPE or :PORTRAIT")

))

; From modified file DJ: L.HARDCOPY.TIGER.LASER; LASER1+.LISP#3 at 28-Apr-88 18:16:55
#10R TIGER#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "TIGER")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: HARDCOPY; TIGER; LASER; LASER1+  "


(defvar *laser1+-orientation* :PORTRAIT
  "Determine orientation of LASER1-PLUS printer, should be
  :LANDSCAPE or :PORTRAIT")

))

; From modified file DJ: L.HARDCOPY.TIGER.LASER; LASER1+.LISP#3 at 28-Apr-88 18:16:57
#10R TIGER#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "TIGER")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: HARDCOPY; TIGER; LASER; LASER1+  "


(define-site-variable *laser1+-orientation* :laser1+-orientation
  "Determine orientation of LASER1-PLUS printer, should be
  :LANDSCAPE or :PORTRAIT")

))