;;; -*- Mode:LISP; Package:SYSTEM-INTERNALS; Patch-File:T; Base:10; Readtable:CL -*-
;;; Patch file for System version 126.77
;;; Reason:
;;;  I moved all the special forms from EVAL.LISP to SPECIAL-FORMS.LISP; this
;;;  patch fixes the source file attributes for each function therein.  (This
;;;  is part of evaluating the scope of porting the new interpreter.)
;;; Written 12-Sep-88 16:18:55 by keith (Keith Corbett) at site Gigamos Cambridge
;;; while running on Breaking Glass from band 3
;;; with Experimental System 126.76, 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.


#10R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: RELEASE; SPECIAL-FORMS  "


;;;(csfn "eval" "special-forms")

(setf (get 'EVAL-BODY :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'CATCH :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'COMMENT :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'DECLARE :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'EVAL-WHEN :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'COMPILER-LET :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'THE :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'QUOTE :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'SETQ :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'VARIABLE-BOUNDP :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'VARIABLE-LOCATION :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'VARIABLE-MAKUNBOUND :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'MULTIPLE-VALUE-SETQ :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'NTH-VALUE :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'MULTIPLE-VALUE-CALL :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'MULTIPLE-VALUE-LIST :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'MULTIPLE-VALUE-PROG1 :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'VALUES :source-file-name) 
    '((DEFINE-SYSTEM-TYPE #FS::LOGICAL-PATHNAME "SYS: SYS; TYPES  ") (DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'VALUES-LIST :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'MULTIPLE-VALUE-BIND :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'DONT-OPTIMIZE :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'LOCALLY :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'PROGN :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'PROG2 :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'PROG1 :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'WITH-STACK-LIST :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'WITH-STACK-LIST :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'WITH-STACK-LIST* :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'WITH-STACK-LIST* :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'AND :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'OR :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'COND :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'IF :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  " #FS::LOGICAL-PATHNAME "SYS: SYS2; LMMAC  ")))

(setf (get 'CASEN :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'LET :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'LET* :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'FLET :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'MACROLET :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'LABELS :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'PROGV :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'PROGW :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'LET-IF :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'LETF :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'LETF-IF :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'LETF* :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'UNWIND-PROTECT :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'THROW :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'BLOCK :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'RETURN-FROM :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'RETURN :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'RETURN-LIST :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'TAGBODY :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'TAGBODY-INTERNAL :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'GO :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'PROG :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'PROG* :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'DO :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'DO-NAMED :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'DO-INTERNAL :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'DO* :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'DO*-NAMED :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'DO*-INTERNAL :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'DO-BODY :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'FUNCTION :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

(setf (get 'LAMBDA :source-file-name) 
    '((DEFUN #FS::LOGICAL-PATHNAME "SYS: SYS; SPECIAL-FORMS  ")))

))