;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 121.63
;;; Reason:
;;;  Post-postultimate fix of alternate macro definitions for DO, DO*, DO-NAMED,
;;;  and DO*-NAMED.  Now they enclose blocks named NIL, and can be returned from.
;;; Written 4-May-87 10:57:32 by rauen at site LMI Cambridge
;;; while running on Debtor in Possession from band 2
;;; with Experimental System 121.62, 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, 121.53.



; From file DJ: L.SYS2; CLMAC.LISP#20 at 4-May-87 10:57:48
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS2; CLMAC  "

(deff do-expander  (expand-do-macro 'let  'psetq))
))

; From file DJ: L.SYS2; CLMAC.LISP#20 at 4-May-87 10:57:56
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS2; CLMAC  "

(deff do*-expander (expand-do-macro 'let* 'setq))
))

; From file DJ: L.SYS2; CLMAC.LISP#20 at 4-May-87 10:58:02
#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)
))

; From file DJ: L.SYS2; CLMAC.LISP#20 at 4-May-87 10:58:08
#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)
))

; From file DJ: L.SYS2; CLMAC.LISP#20 at 4-May-87 10:58:14
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS2; CLMAC  "

(defmacro (do-named alternate-macro-definition) (name vars test-and-result &body body)
  `(BLOCK ,name
     (DO ,vars ,test-and-result ,@body)))
))

; From file DJ: L.SYS2; CLMAC.LISP#20 at 4-May-87 10:58:20
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS2; CLMAC  "

(defmacro (do*-named alternate-macro-definition) (name vars test-and-result &body body)
  `(BLOCK ,name
     (DO* ,vars ,test-and-result ,@body)))
))