;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for System version 126.81
;;; Reason:
;;;  Fix earlier patch to MAKE-OBSOLETE and call it again to fix messages
;;;  issued by compiling WITH-STACK-LIST or WITH-STACK-LIST*.  (FORMAT
;;;  whoops.)
;;; Written 14-Sep-88 16:17:16 by keith (Keith Corbett) at site Gigamos Cambridge
;;; while running on Breaking Glass from band 3
;;; with Experimental System 126.79, Experimental ZWEI 126.10, Experimental ZMail 74.1, Experimental Local-File 76.0, Experimental File-Server 25.0, Experimental Unix-Interface 14.0, Experimental Tape 25.1, Experimental Lambda-Diag 18.0, microcode 1762, SDU Boot Tape 3.14, SDU ROM 103, Lambda/Falcon Development System.

; From modified file DJ: L.SYS; QRAND.LISP#512 at 14-Sep-88 16:19:01
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS; QRAND  "

(DEFMACRO MAKE-OBSOLETE (FUNCTION REASON)
  "Mark FUNCTION as obsolete, with string REASON as the reason.
REASON should be a clause starting with a non-capitalized word.
Uses of FUNCTION will draw warnings from the compiler."
  (declare (zwei:indentation 1 2))
  `(PROGN (PUTPROP ',FUNCTION 'COMPILER:OBSOLETE 'COMPILER:STYLE-CHECKER)
	  (PUTPROP ',FUNCTION (string-append
				"is an obsolete "
				(cond ((special-form-p ',function) "special form")
				      ((macro-function ',function) "macro")
				      ((fboundp ',function) "function")
				      (t "form"))
				"; "
				,reason)
		   'COMPILER:OBSOLETE)))

))

; From file DJ: L.SYS; SPECIAL-FORMS.LISP#1 at 14-Sep-88 16:19:06
#10R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS; SPECIAL-FORMS  "

(compiler:make-obsolete with-stack-list
   "most processor-dependent functions will go away in a future release")

))

; From file DJ: L.SYS; SPECIAL-FORMS.LISP#1 at 14-Sep-88 16:19:13
#10R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS; SPECIAL-FORMS  "

(compiler:make-obsolete with-stack-list*
   "most processor-dependent functions will go away in a future release")

))