;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 121.51
;;; Reason:
;;;  Add ALTERNATE-MACRO-DEFINITIONS for ADVICE.
;;; Written 27-Mar-87 16:01:28 by jrm (Joe Marshall) at site LMI Cambridge
;;; while running on Lambda Four A from band 1
;;; with Experimental System 121.50, Experimental Lambda-Diag 15.0, Experimental ZMail 70.2, Experimental KERMIT 32.0, Experimental Unix-Interface 10.0, Experimental Local-File 72.0, Experimental FILE-Server 21.0, Experimental Tape 13.0, Experimental IMicro 20.0, microcode 1742, SDU Boot Tape 3.14, SDU ROM 102, 121.46.



; From file DJ: L.SYS2; CLMAC.LISP#18 at 27-Mar-87 16:01:41
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS2; CLMAC  "

(defmacro (advise-let alternate-macro-definition) (&rest expressions)
  `(LET ,@expressions))

(defmacro (advise-multiple-value-list alternate-macro-definition) (&rest expressions)
  `(MULTIPLE-VALUE-LIST ,@expressions))

(defmacro (advise-prog alternate-macro-definition) (&rest expressions)
  `(PROG ,@expressions))

(defmacro (advise-progn alternate-macro-definition) (&rest expressions)
  `(PROGN ,@expressions))

(defmacro (advise-return-list alternate-macro-definition) (&rest expressions)
  `(RETURN-LIST ,@expressions))

(defmacro (advise-setq alternate-macro-definition) (&rest expressions)
  `(SETQ ,@expressions))
))