From f9f0e3dc4ea64f32628c1f78c0e8b567125f25ab Mon Sep 17 00:00:00 2001
From: pw <pw>
Date: Tue, 25 Feb 1997 22:36:03 +0000
Subject: [PATCH] DIRED was bombing when attempting to delete a marked file
 that was already gone. This just adds a sanity check.

---
 hemlock/diredcoms.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/hemlock/diredcoms.lisp b/hemlock/diredcoms.lisp
index 9ea2bfefc..61b622eaa 100644
--- a/hemlock/diredcoms.lisp
+++ b/hemlock/diredcoms.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/diredcoms.lisp,v 1.5 1997/01/18 14:31:50 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/diredcoms.lisp,v 1.6 1997/02/25 22:36:03 pw Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -751,7 +751,8 @@
 	((= i length) (values (nreverse marked-files) (nreverse marked-dirs)))
       (let* ((thing (svref files i))
 	     (pathname (dired-file-pathname thing)))
-	(when (dired-file-deleted-p thing)
+	(when (and (dired-file-deleted-p thing) ; file marked for delete
+		   (probe-file pathname)) 	; file still exists 
 	  (if (directoryp pathname)
 	      (push (cons pathname (file-write-date pathname)) marked-dirs)
 	      (push (cons pathname (file-write-date pathname))
-- 
GitLab