;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for ZWEI version 125.7
;;; Reason:
;;;  Now that LISP/Edit windows really work, let's make them easy to get to:
;;;  
;;;      System-Top-L is to LISP/Edit what System-L is to LISP/Listener.
;;;  
;;;  (Get it? "Top-L -- Top Level?"  Thanks, Bob, for the innocent suggestion
;;;  when I couldn't think of the right key.)
;;;  
;;;  System-L still finds existing LISP/Edit windows, of course, but not
;;;  vice-versa, since people wanting a normal Listener may be very surprised
;;;  to get an editor-top-level.
;;;  
;;;      -Keith
;;; Written 30-Jul-88 06:43:22 by keith (Keith Corbett) at site Gigamos Cambridge
;;; while running on Azathoth from band 1
;;; with Experimental System 126.5, ZWEI 125.6, ZMail 73.0, Local-File 75.1, File-Server 24.0, Unix-Interface 13.0, Tape 24.2, Lambda-Diag 17.0, microcode 1762, SDU Boot Tape 3.14, SDU ROM 8, the old ones.



; From modified file DJ: L.ZWEI; STREAM.LISP#186 at 30-Jul-88 06:43:23
#8R ZWEI#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "ZWEI")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: ZWEI; STREAM  "

(tv:add-system-key #/TOP-L 'editor-top-level "LISP(Edit)" T)

))