From 79cef43ec25daf0cd031cd170f2dcb770b09e64f Mon Sep 17 00:00:00 2001 From: toy <toy> Date: Wed, 11 Jun 2003 16:40:02 +0000 Subject: [PATCH] * code/filesys.lisp (purge-backup-files): Renamed from purge-files, which is just too vague. (directory): Specify a default-version of :WILD for merge-pathnames to make sure we can match any version when looking for files. --- code/filesys.lisp | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/code/filesys.lisp b/code/filesys.lisp index 915586e7f..28b4cd5d8 100644 --- a/code/filesys.lisp +++ b/code/filesys.lisp @@ -6,7 +6,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/filesys.lisp,v 1.74 2003/06/10 18:14:10 toy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/filesys.lisp,v 1.75 2003/06/11 16:40:02 toy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -25,7 +25,7 @@ (in-package "EXTENSIONS") (export '(print-directory complete-file ambiguous-files default-directory - purge-files file-writable unix-namestring)) + purge-backup-files file-writable unix-namestring)) (in-package "LISP") @@ -848,11 +848,11 @@ (unix:get-unix-error-msg err)))))) t) -;;; Purge-Files -- Public +;;; Purge-Backup-Files -- Public ;;; ;;; Purge old file versions ;;; -(defun purge-files (pathname &optional (keep 0)) +(defun purge-backup-files (pathname &optional (keep 0)) "Delete old versions of files matching the given Pathname, optionally keeping some of the most recent old versions." (declare (type (or pathname string stream) pathname) @@ -955,7 +955,8 @@ optionally keeping some of the most recent old versions." (pathname (merge-pathnames pathname (make-pathname :name :wild :type :wild - :version :wild))) + :version :wild) + :wild)) (enumerate-matches (name pathname nil :follow-links follow-links) (when (or all (let ((slash (position #\/ name :from-end t))) -- GitLab