;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 130.3
;;; Written 14-Nov-88 14:59:12 by keith (Keith Corbett) at site Gigamos Cambridge
;;; while running on Breaking Glass from band 3
;;; with Obsolete ZWEI 126.30, Obsolete ZMail 74.17, Obsolete Local-File 76.0, Obsolete File-Server 25.0, Obsolete Lambda-Diag 18.1, Obsolete Unix-Interface 15.0, Obsolete Tape 26.4, Experimental System 130.2, Microcode 1762, SDU Boot Tape 3.14, SDU ROM 103, 11/04.



; 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 (pkg-shadowing-symbols pkg)
	  (lisp:remove "DUMP-FORMS-TO-FILE" (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)))

))