;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 130.3
;;; Reason:
;;;  Fix package whoops which caused COMPILER:DUMP-FORMS-TO-FILE to shadow GLOBAL symbol.
;;;  This also defines the GLOBAL function.  If this works, the next patch I do will
;;;  redefine all the callers of COMPILER:DUMP-FORMS-TO-FILE.
;;; Written 14-Nov-88 15:08:13 by keith at site Gigamos Cambridge
;;; while running on Tonic from band 4
;;; with Experimental System 130.2, Experimental ZWEI 128.1, Experimental ZMail 75.0, Experimental Local-File 77.0, Experimental File-Server 26.0, Experimental Unix-Interface 16.0, Experimental Tape 27.0, Experimental Lambda-Diag 19.0, Microcode 1762, SDU Boot Tape 3.14, SDU ROM 102, 11/11.





; From file DJ: L.SYS; QCFASD.LISP#273 at 14-Nov-88 14:59:19
#8R COMPILER#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "COMPILER")))
  (PATCH-SOURCE-FILE "SYS: SYS; QCFASD  "

;;;What I want is:
;;;(unshadow 'dump-forms-to-file)

(let ((pkg (find-package :compiler)))
  (or pkg (error "No package named COMPILER???"))
  (let ((default-cons-area background-cons-area))
    (setf (si:pkg-shadowing-symbols pkg)
	  (lisp:remove "DUMP-FORMS-TO-FILE" (si:pkg-shadowing-symbols pkg) :test 'string-equal)))
  (let ((sym (find-symbol "DUMP-FORMS-TO-FILE" pkg)))
    (and sym (unintern sym pkg))))

))

; From modified file DJ: L.SYS; QCFASD.LISP#273 at 14-Nov-88 15:02:30
#8R COMPILER#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "COMPILER")))
  (PATCH-SOURCE-FILE "SYS: SYS; QCFASD  "

(DEFUN ZL:DUMP-FORMS-TO-FILE (FILENAME FORMS-LIST &OPTIONAL ATTRIBUTE-LIST)
  "Write a QFASL file named FILENAME which, when loaded, will execute the forms in FORMS-LIST.
ATTRIBUTE-LIST is a file attribute list which controls, among other things,
what package the file is dumped and loaded in (default is USER)."
  (with-open-fasd-file (stream filename attribute-list)
    (dump-forms-to-fasd-stream stream forms-list)))

))