;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:Common-Lisp; Patch-File:T -*-
;;; Patch directory for Local-File version 73
;;; Written 11-May-88 20:55:43 by pld (Peter L. DeWolf) at site Gigamos Cambridge
;;; while running on Azathoth from band 3
;;; with Experimental System 123.276, Experimental Local-File 73.5, Experimental FILE-Server 22.5, Experimental Unix-Interface 11.0, Experimental KERMIT 34.3, Experimental ZMail 71.2, Experimental Lambda-Diag 15.0, Experimental Tape 22.4, microcode 1756, SDU Boot Tape 3.14, SDU ROM 8, the old ones.

(:EXPERIMENTAL
 ((0 "Local-File Loaded" "robert" NIL)
  (1 "Somehow, directories are being created with the name \"*\".  This is bad.
The parent directory becomes un-listable.  (fs:lookup-subdirectories)
now ignores such directories." "pld" NIL)
  (2 "Do not allow a directory to be created with the name \"*\" -- too many other places
are unable to deal properly with that name, treating it as a wildcard directory." "pld" NIL)
  (3 "There seems to be a bug in the compiler such that if you GO to a tag that is outside an
unwind-protect that the cleanup forms don't get executed.  Someone should track that
down, but for now, fix (FS:LOOKUP-SUBDIRECTORY-STEP) such that it doesn't require
that to work, so that directory locks don't get left set." "pld" NIL)
  (4 "(fs:initialize-file-system) needs to write the :header-block of the root directory
if the file system version is > 4." "pld" NIL)
  (5 "(fs:lookup-subdirectory) with OK-IF-NOT-THERE == T now returns
NIL if any directory step does not exist, rather than throwing
you into error handler if any intermediate step doesn't exist." "keith" NIL)
  (6 "Offer to dismount the file system before a :system-release garbage collection." "pld" NIL)
  ))