;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 121.6
;;; Reason:
;;;  Finish making LISP:IF a special form.
;;;  ZL:IF gets an alternate definition.
;;; Written 14-Jan-87 17:02:46 by YOUCEF at site LMI Cambridge
;;; while running on Mother Pie and Applehood from band 1
;;; with Experimental System 121.0, Experimental Lambda-Diag 15.0, Experimental ZMail 70.0, Experimental KERMIT 32.0, Experimental Unix-Interface 10.0, Experimental Local-File 72.0, Experimental FILE-Server 21.0, Experimental Tape 13.0, microcode 1729, SDU Boot Tape 3.12, SDU ROM 102.



; From modified file DJ: L.SYS; QFCTNS.LISP#829 at 14-Jan-87 17:02:46
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS; QFCTNS  "

(DEFPARAMETER *COMMON-LISP-ONE-TRUE-AND-ONLY-OFFICIAL-SPECIAL-FORMS*
	      'LISP:(BLOCK CATCH COMPILER-LET DECLARE EVAL-WHEN FLET FUNCTION GO
			   IF LABELS LET LET* MACROLET MULTIPLE-VALUE-CALL MULTIPLE-VALUE-PROG1 PROGN
			   PROGV QUOTE RETURN-FROM SETQ TAGBODY THE THROW UNWIND-PROTECT)
  "So decree the Gang of Five")

))

; From modified file DJ: L.SYS2; CLMAC.LISP#7 at 14-Jan-87 17:06:33
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS2; CLMAC  "

(defmacro (zl:if alternate-macro-definition) (test then &rest elses)
  `(cli:if ,test ,then (progn ,@elses)))

))