;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for System version 125.1
;;; Reason:
;;;  The following special forms didn't have a :source-file-name property:
;;;    DEF, DEFF, DEFUN, DEFSUBST, MACRO, SIGNP
;;; Written 9-Jul-88 16:13:18 by pld (Peter L. DeWolf) at site Gigamos Cambridge
;;; while running on Azathoth from band 3
;;; with System 125.0, ZWEI 125.0, ZMail 73.0, Local-File 75.0, File-Server 24.0, Unix-Interface 13.0, Tape 24.0, Lambda-Diag 17.0, microcode 1761, SDU Boot Tape 3.14, SDU ROM 8.



; From modified file DJ: L.COLD; FIRST.LISP#9 at 9-Jul-88 16:13:26
#10R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: COLD; FIRST  "

(SETQ *BOOTSTRAP-SPECIAL-FORMS*
      '(
	 AND					;EVAL
	 BLOCK					;EVAL
	 CATCH					;EVAL
	 COMMENT				;EVAL
	 COMPILER-LET				;EVAL
	 COMPILER::CASEN			;EVAL
	 COND					;EVAL
	 DECLARE				;EVAL
	 DEFCONST-1				;LTOP
	 DEF					;QFCTNS
	 DEFF					;QFCTNS
	 DEFF-MACRO				;QFCTNS
	 DEFSUBST				;QFCTNS
	 DEFUN					;QFCTNS
	 DEFPROP				;QRAND
	 DEFVAR-1				;LTOP
	 DO					;EVAL
	 DO-NAMED				;EVAL
	 DO*					;EVAL
	 DO*-NAMED				;EVAL
	 DONT-OPTIMIZE				;EVAL
	 EVAL-WHEN				;EVAL
	 FLET					;EVAL
	 FUNCTION				;EVAL
	 GO					;EVAL
	 IF					;EVAL
	 LABELS					;EVAL
	 LAMBDA					;EVAL
	 LET					;EVAL
	 LET*					;EVAL
	 LET-IF					;EVAL
	 LETF					;EVAL
	 LETF*					;EVAL
	 LETF-IF				;EVAL
	 LOCALLY				;EVAL
	 MACRO					;QFCTNS
	 MACROLET				;EVAL
	 MULTIPLE-VALUE-BIND			;EVAL
	 MULTIPLE-VALUE-CALL			;EVAL
	 MULTIPLE-VALUE-LIST			;EVAL
	 MULTIPLE-VALUE-PROG1			;EVAL
	 MULTIPLE-VALUE-SETQ			;EVAL
	 NTH-VALUE				;EVAL
	 OR					;EVAL
	 PROG					;EVAL
	 PROG*					;EVAL
	 PROGN					;EVAL
	 PROGV					;EVAL
	 PROGW					;EVAL
	 QUOTE					;EVAL
	 RETURN					;EVAL
	 RETURN-FROM				;EVAL
	 SETQ					;EVAL
	 SIGNP					;QFCTNS
	 SPECIAL				;FIRST
	 TAGBODY				;EVAL
	 THE					;EVAL
	 THROW					;EVAL
	 UNSPECIAL				;FIRST
	 UNWIND-PROTECT				;EVAL
	 VARIABLE-BOUNDP			;EVAL
	 VARIABLE-LOCATION			;EVAL
	 VARIABLE-MAKUNBOUND			;EVAL
	 WITH-STACK-LIST			;EVAL
	 WITH-STACK-LIST*			;EVAL
	 ))

(DOLIST (X *BOOTSTRAP-SPECIAL-FORMS*)
  (function-spec-putprop `(:special-form ,x)
			 (function-spec-get `(:property ,x special-form-bootstrap) :source-file-name)
			 :source-file-name))


))