;;; -*- Mode:Lisp; Readtable:T; Package:UNIX; Base:8; Patch-File:T -*-
;;; Patch file for Unix-Interface version 5.1
;;; Reason:
;;;  interrupt unix after setting carrier
;;; Written 15-Jan-85 20:05:10 by pace,
;;; while running on Lambda Two from band 0
;;; with Experimental System 102.14, Experimental Local-File 55.3, Experimental FILE-Server 13.1, Experimental Unix-Interface 5.0, Experimental MagTape 40.0, Experimental ZMail 57.0, microcode 713, 102.6 pace hack.


; From file LAMTTY.LISP#> QL.UNIX; LAM3: (49)
#8R UNIX#:
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "UNIX")))
  (COMPILER#:PATCH-SOURCE-FILE "SYS: UNIX; LAMTTY  "

(defmethod (unix-stream :set-carrier) (on-p)
  (setf (ldb si:%%share-tty-csr-carrier (si:%share-tty-lcsr share-tty)) (if on-p 1 0))
  (send self :interrupt-68000))

))