;;; -*- 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.
;;;  
;;;  Also fix misleading doc string for SELF-EVALUATING-P.
;;; 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")


))

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

(defun self-evaluating-p (form)
  "T if FORM always evaluates to itself.
Like CONSTANTP, but excludes DEFCONSTANTs."
  (cond ((consp form)
	 (eq (car form) 'quote))
	((symbolp form)
	 (or (eq form 'nil) (eq form 't)
	     (keywordp form)))
	(t t)))

))