;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for MICRO-COMPILATION-TOOLS version 3.3
;;; Reason:
;;;  This is first patch loaded by customers getting the Micro-Compiler
;;;  installation tape.  It enables the microcompiler in the editor and
;;;  make the patch system unfrozen (not part of :SYSTEM-REVISION-LEVEL).
;;; Written 6-Aug-86 21:08:13 by dg (Dave Goodine) at site LMI Cambridge
;;; while running on Maurice Ravel from band 1
;;; with System 110.232, Lambda-Diag 7.17, Experimental Local-File 68.7, FILE-Server 18.4, Unix-Interface 9.1, ZMail 65.14, Object Lisp 3.4, Tape 6.39, Site Data Editor 3.3, Tiger 24.0, KERMIT 31.3, Gateway 4.15, TCP-Kernel 39.7, TCP-User 62.7, TCP-Server 45.5, MEDIUM-RESOLUTION-COLOR 3.4, MICRO-COMPILATION-TOOLS 3.2, System Revision Level 3.137, Experimental Window-Maker 2.0, microcode 1563, SDU Boot Tape 3.12, SDU ROM 102, Alpha VII.


(eval-when (eval load)
;  (setq si:frozen-patch-systems-list
;	(delq (si:get-patch-system-named :micro-compilation-tools)
;	      si:frozen-patch-systems-list))
  (setq compiler:*microcompile-switch* t)
  (zwei:command-store 'zwei:com-microcompile-region
		      #/m-c-sh-c
		      zwei:*standard-comtab*))