;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 121.45 ;;; Reason: ;;; Fix brain death in do* defprop. ;;; Written 10-Mar-87 09:30:47 by jrm (Joe Marshall) at site LMI Cambridge ;;; while running on Lambda Four A from band 2 ;;; with Experimental System 121.44, 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.SYS2; CLMAC.LISP#15 at 10-Mar-87 09:30:54 #8R SYSTEM-INTERNALS#: (COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS"))) (COMPILER::PATCH-SOURCE-FILE "SYS: SYS2; CLMAC  " (defprop do* (macro . do*-expander) alternate-macro-definition) ))