;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 121.41
;;; Reason:
;;;  Fix double evaluation brain damage in QCFILE, remove
;;;  toupe from COMPILE-PROCLAIM (a toupe is unnecessary hair).
;;; Written 4-Mar-87 11:08:22 by jrm (Joe Marshall) at site LMI Cambridge
;;; while running on Lambda Four A from band 2
;;; with Experimental System 121.39, 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 1742, SDU Boot Tape 3.14, SDU ROM 102, 121.35.



; From modified file DJ: L.SYS; QCFILE.LISP#357 at 4-Mar-87 11:08:29
#8R COMPILER#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "COMPILER")))
  (PATCH-SOURCE-FILE "SYS: SYS; QCFILE  "

(DEFUN COMPILE-PROCLAIM (DECL-LIST PROCESS-FN)
  process-fn
  (apply #'proclaim (mapcar #'eval decl-list))
  decl-list)

))