/[cmucl]/src/hemlock/filecoms.lisp
ViewVC logotype

Diff of /src/hemlock/filecoms.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.1.8 by ram, Sun Dec 22 17:24:20 1991 UTC revision 1.1.1.9 by ram, Fri Feb 11 21:42:51 1994 UTC
# Line 461  Line 461 
461     file exists, set the buffer's pathname to the probed pathname; else, set it     file exists, set the buffer's pathname to the probed pathname; else, set it
462     to pathname merged with DEFAULT-DIRECTORY.  Set \"Pathname Defaults\" to the     to pathname merged with DEFAULT-DIRECTORY.  Set \"Pathname Defaults\" to the
463     same thing.  Process the file options, and then invoke \"Read File Hook\"."     same thing.  Process the file options, and then invoke \"Read File Hook\"."
464      (setf (buffer-writable buffer) t)
465    (delete-region (buffer-region buffer))    (delete-region (buffer-region buffer))
466    (let* ((pathname (pathname pathname))    (let* ((pathname (pathname pathname))
467           (probed-pathname (probe-file pathname)))           (probed-pathname (probe-file pathname)))

Legend:
Removed from v.1.1.1.8  
changed lines
  Added in v.1.1.1.9

  ViewVC Help
Powered by ViewVC 1.1.5