;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 122.3
;;; Reason:
;;;  Add ALTERNATE-MACRO-DEFINITIONS for
;;;  FUNCALL-WITH-MAPPING-TABLE
;;;  FUNCALL-WITH-MAPPING-TABLE-INTERNAL
;;;  LEXPR-FUNCALL-WITH-MAPPING-TABLE
;;;  LEXPR-FUNCALL-WITH-MAPPING-TABLE-INTERNAL
;;; Written 11-May-87 15:05:12 by jrm (Joe Marshall) at site LMI Cambridge
;;; while running on Lambda Four A from band 2
;;; with Experimental System 122.2, Experimental Local-File 73.0, Experimental FILE-Server 22.0, Experimental Unix-Interface 11.0, Experimental Tape 17.0, Experimental Tiger 26.0, Experimental KERMIT 33.0, Experimental ZMail 71.0, Experimental Lambda-Diag 15.0, microcode 1742, SDU Boot Tape 3.14, SDU ROM 102.



; From file DJ: L.SYS2; CLMAC.LISP#23 at 11-May-87 15:05:21
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS2; CLMAC  "

(defmacro (funcall-with-mapping-table alternate-macro-definition) (function table &rest args)
  (declare (ignore table))
  `(APPLY ,function (LIST ,@(copylist args))))

))

; From file DJ: L.SYS2; CLMAC.LISP#23 at 11-May-87 15:05:26
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS2; CLMAC  "

(defmacro (funcall-with-mapping-table-internal alternate-macro-definition) (function table &rest args)
  (declare (ignore table))
  `(APPLY ,function (LIST ,@(copylist args))))

))

; From file DJ: L.SYS2; CLMAC.LISP#23 at 11-May-87 15:05:31
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS2; CLMAC  "

(defmacro (lexpr-funcall-with-mapping-table alternate-macro-definition) (function table &rest args)
  (declare (ignore table))
  `(APPLY (FUNCTION LEXPR-FUNCALL) ,function (LIST ,@(copylist args))))

))

; From file DJ: L.SYS2; CLMAC.LISP#23 at 11-May-87 15:05:35
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS2; CLMAC  "

(defmacro (lexpr-funcall-with-mapping-table-internal alternate-macro-definition) (function table &rest args)
  (declare (ignore table))
  `(APPLY (FUNCTION LEXPR-FUNCALL) ,function (LIST ,@(copylist args))))

))