;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 123.230
;;; Reason:
;;;  Add a couple of synonyms to zwei:*stream-comtab* for convenience:
;;;    - C-C is like C-M-Y -- yank from input history
;;;    - M-C is like M-Y -- yank pop from input history
;;; Written 11-Apr-88 12:58:36 by pld at site Gigamos Cambridge
;;; while running on Jack Flanders from band 1
;;; with Experimental System 123.229, 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.0, microcode 1755, SDU Boot Tape 3.14, SDU ROM 8.



; From modified file DJ: L.ZWEI; STREAM.LISP#180 at 11-Apr-88 12:58:37
#8R ZWEI#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "ZWEI")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: ZWEI; STREAM  "

 (SET-COMTAB *STREAM-COMTAB* '(#/C-C COM-YANK-INPUT-HISTORY
			       #/M-C COM-YANK-POP))
))