;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 121.34
;;; Reason:
;;;  Fix bug recently introduced in call-macro-expander function.  Could result in incorrect
;;;  macro expansion.
;;; Written 16-Feb-87 22:22:19 by rg (Richard Greenblatt) at site LMI Cambridge
;;; while running on Guinea Pig from band 2
;;; with Experimental System 121.22, 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 1730, SDU Boot Tape 3.12, SDU ROM 102.



; From modified file DJ: L.SYS; QFCTNS.LISP#833 at 16-Feb-87 22:22:20
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS; QFCTNS  "

(defun call-macro-expander (expander macro-call environment)
  (let ((*macroexpand-environment* environment)
	(ainf (args-info expander)))
    (cond ((or (symbolp expander) ;; No check for explicit macro expanders
	       (> (ldb %%arg-desc-max-args ainf) 1))
	   (values (funcall *macroexpand-hook* expander macro-call environment)
		   t))
	  (t
	   (values (funcall *macroexpand-hook* expander macro-call)
		   t)))))

))