;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for System version 126.76
;;; Reason:
;;;  Mark two Lambda processor-dependent functions, WITH-STACK-LIST and
;;;  WITH-STACK-LIST*, as obsolete.  The compiler warnings will help snarf out any
;;;  occurrences that have to go away, e.g. when we next recompile the entire
;;;  system.
;;; Written 9-Sep-88 23:45:34 by keith (Keith Corbett) at site Gigamos Cambridge
;;; while running on Breaking Glass from band 3
;;; with Experimental System 126.75, Experimental ZWEI 126.9, 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; EVAL.LISP#191 at 9-Sep-88 23:46:02
#10R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS; EVAL  "


(DEFMACRO DEFSPECIALK (NAME ARGLIST &BODY BODY)
  ;; stands for defSPECIALkludge. for use in cold-load files.
  "Bootstraps a special form for the interpreter."
  (LET ((NEW-DEFUN (COMPILER:DEFUN-COMPATIBILITY-OLD-LISPM `(DEFUN ,NAME ,ARGLIST ,@BODY) T)))
    (OR (AND (NOT (ATOM NEW-DEFUN))
	     (EQ (CAR NEW-DEFUN) 'DEFUN)
	     (NOT (ATOM (CADR NEW-DEFUN)))
	     (EQ (CAR (CADR NEW-DEFUN)) :SPECIAL-FORM))
	(FERROR NIL "Not a (DEFUN (:SPECIAL-FORM ...) ...) ~S" NEW-DEFUN))
    `(progn (defun (:property ,(cadr (cadr new-defun)) special-form-bootstrap)
		   ,@(cddr new-defun))
	    (bootstrap-special-form ',(cadr (cadr new-defun))))))

))

; From modified file DJ: L.SYS; EVAL.LISP#191 at 9-Sep-88 23:46:07
#10R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS; EVAL  "


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

))

; From modified file DJ: L.SYS; EVAL.LISP#191 at 9-Sep-88 23:46:13
#10R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS; EVAL  "


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

))