;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 124.72
;;; Reason:
;;;  Provide alternate-macro-definitions for PROG1 and PROG2 -- Steele
;;;  claims these are macros, although we implement them as functions.
;;; Written 17-Jun-88 19:11:19 by pld (Peter L. DeWolf) at site Gigamos Cambridge
;;; while running on Cthulhu from band 1
;;; with Experimental System 124.65, Experimental Local-File 74.2, Experimental File-Server 23.1, Experimental Unix-Interface 12.0, Experimental ZMail 72.0, Experimental Tape 23.6, Experimental Lambda-Diag 16.2, microcode 1760, SDU Boot Tape 3.14, SDU ROM 8, the old ones.



; From modified file DJ: L.SYS2; CLMAC.LISP#23 at 17-Jun-88 19:11:28
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS2; CLMAC  "

(defmacro (prog1 alternate-macro-definition) (first &body forms)
  (let ((result (gensym)))
    `(let ((,result ,first))
       ,@forms
       ,result)))

))

; From modified file DJ: L.SYS2; CLMAC.LISP#23 at 17-Jun-88 19:11:34
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS2; CLMAC  "

(defmacro (prog2 alternate-macro-definition) (first second &body forms)
  `(progn
     ,first
     (prog1
       ,second
       ,@forms)))

))