;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 123.219
;;; Reason:
;;;  I noticed that ZWEI:*KILL-HISTORY* wasn't being cleared before a disk-save.
;;;  Neither were ZWEI:*DEFINITION-NAME-HISTORY* or ZWEI:*PATHNAME-ARGUMENT-HISTORY*
;;;  although the calls to (ZWEI:MAKE-HISTORY) should have marked them to be cleared.
;;;  The bug is that ZWEI:*HISTORIES-TO-CLEAR* is defined with ZWEI:DEFGLOBAL and
;;;  was reset to NIL when ZMACS was loaded, forgetting those three histories.
;;;  All four variables should have been defined with DEFVAR instead.
;;; Written 1-Apr-88 15:20:07 by pld at site Gigamos Cambridge
;;; while running on Jack Flanders from band 1
;;; with Experimental System 123.218, 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 21.1, Experimental Site Data Editor 9.0, microcode 1755, SDU Boot Tape 3.14, SDU ROM 8.



; From file DJ: L.ZWEI; DEFS.LISP#166 at 1-Apr-88 15:32:51
#8R ZWEI#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "ZWEI")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: ZWEI; DEFS  "

(net:delete-from-alist '*histories-to-clear* *global-initialization-list*)

(net:delete-from-alist '*kill-history* *global-initialization-list*)
(pushnew *kill-history* *histories-to-clear*)

(net:delete-from-alist '*definition-name-history* *global-initialization-list*)
(pushnew *definition-name-history* *histories-to-clear*)

(net:delete-from-alist '*pathname-argument-history* *global-initialization-list*)
(pushnew *pathname-argument-history* *histories-to-clear*)

))