;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 123.225
;;; Reason:
;;;  ZTOP fixes:
;;;    - :clear-window is a synonym for :clear-screen
;;;    - :clear-rest-of-line is a synonym for :clear-eol
;;;    - :string-out merely marks that redisplay is needed.
;;; Written 7-Apr-88 16:38:29 by pld at site LMI
;;; while running on Opus from band 2
;;; with Experimental System 123.221, 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 Tiger 27.0, Experimental Site Data Editor 9.0, Experimental Tape 22.0, microcode 1755, SDU Boot Tape 3.14, SDU ROM 8, Beta II/site/patch.



; From modified file OPUS: L.ZWEI; STREAM.LISP#177 at 7-Apr-88 16:39:05
#8R ZWEI#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "ZWEI")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: ZWEI; STREAM  "

(DEFMETHOD (ZTOP-STREAM-MIXIN :STRING-OUT) (&rest ignore)
  (MUST-REDISPLAY *STREAM-SHEET* DIS-TEXT))

))

; From modified file OPUS: L.ZWEI; STREAM.LISP#177 at 7-Apr-88 16:40:01
#8R ZWEI#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "ZWEI")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: ZWEI; STREAM  "

(defmethod (editor-stream-mixin :clear-rest-of-line) ()
  (send self :clear-eol))

))

; From modified file OPUS: L.ZWEI; STREAM.LISP#177 at 7-Apr-88 16:40:43
#8R ZWEI#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "ZWEI")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: ZWEI; STREAM  "

(defmethod (editor-stream-mixin :clear-window) ()
  (send self :clear-screen))

))