;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 121.20
;;; Reason:
;;;  Added optional macroenvironment argument to SI::DISPLACED macro.
;;; Written 2-Feb-87 09:27:37 by rauen at site LMI Cambridge
;;; while running on Poindexter from band 3
;;; with Experimental System 121.19, 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, microcode 1730, SDU Boot Tape 3.14, SDU ROM 103.



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

(macro displaced (form &optional macroenvironment)
       macroenvironment
       (caddr form))
))