;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for System version 121.44
;;; Reason:
;;;  Fix bug in previous patch, system-constants are special.
;;; Written 6-Mar-87 13:16:12 by jrm (Joe Marshall) at site LMI Cambridge
;;; while running on Lambda Four A from band 2
;;; with Experimental System 121.43, 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.SYS; EVAL.LISP#176 at 6-Mar-87 13:16:19
#10R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS; EVAL  "

(defparameter variable-special-properties '(special system-constant))

(defun proclaimed-special-p (symbol)
  (cadr (getl symbol variable-special-properties)))
))

; From modified file DJ: L.SYS; EVAL.LISP#176 at 6-Mar-87 13:16:31
#10R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS; EVAL  "

(defsubst variable-globally-special-p (variable)
  (proclaimed-special-p variable))

))