diff --git a/hemlock/diredcoms.lisp b/hemlock/diredcoms.lisp index 9ea2bfefc4b5b2ac37ece0ae5b449b0f189af4f3..61b622eaaa9670f4de0e5df4a0fdf9bb234c9b49 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))