;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 123.69
;;; Reason:
;;;  Peek File System gave an error if you (fs:reset-file-access).
;;;  Hard to understand -- If I simply recompile the appropriate function,
;;;  the error doesn't occur.
;;; Written 23-Oct-87 16:02:12 by pld at site LMI Cambridge
;;; while running on Jack Flanders from band 2
;;; with Experimental System 123.67, Experimental Local-File 73.0, Experimental FILE-Server 22.0, Experimental Unix-Interface 11.0, Experimental Tape 18.0, Experimental KERMIT 34.0, Experimental ZMail 71.0, Experimental Lambda-Diag 15.0, microcode 1754, SDU Boot Tape 3.12, SDU ROM 8.



; From file DJ: L.WINDOW; PEEK.LISP#200 at 23-Oct-87 16:02:12
#8R TV#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "TV")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: WINDOW; PEEK  "

(DEFUN PEEK-FILE-SYSTEM (IGNORE)
  "Display status of file system"
  (SCROLL-MAINTAIN-LIST 
    #'(LAMBDA () FS:*PATHNAME-HOST-LIST*)
    #'(LAMBDA (HOST)
	(when host
	  (APPEND '(())
		  (SEND HOST :PEEK-FILE-SYSTEM-HEADER)
		  (SEND HOST :PEEK-FILE-SYSTEM))))
    ()
    #'NEXT-INTERESTING-FILE-HOST-STEPPER))

))