;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 130.5
;;; Reason:
;;;  New defsystem keyword: :CTS-CONTROLLED
;;;  Declaring this will make ZWEI remind you to add CTS comments
;;;  when you edit files in that system.
;;; Written 17-Nov-88 17:53:33 by smh (Steve Haflich) at site Gigamos Cambridge
;;; while running on Alex from band 3
;;; with Experimental System 130.4, Experimental ZWEI 128.3, Experimental ZMail 75.0, Experimental Local-File 77.0, Experimental File-Server 26.0, Experimental Unix-Interface 16.0, Experimental Tape 27.0, Experimental Lambda-Diag 19.0, Microcode 1762, SDU Boot Tape 3.14, SDU ROM 102, 11/14 Falcon System Loaded.



; From modified file DJ: L.SYS2; MAKSYS.LISP#222 at 17-Nov-88 17:53:52
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS2; MAKSYS  "

(DEFMACRO (:CTS-Controlled DEFSYSTEM-MACRO) ()
  (SETF (GETF (SYSTEM-PLIST *SYSTEM-BEING-DEFINED*) ':CTS-CONTROLLED) T)
  NIL)

))