Changeset 2756

Show
Ignore:
Timestamp:
03/18/08 11:28:29 (10 months ago)
Author:
ksprotte
Message:

delete-orphaned-blob-files: added :name :wild to directory pathname

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/bknr/datastore/src/data/blob.lisp

    r2424 r2756  
    170170 
    171171(defun delete-orphaned-blob-files (&optional (cold-run t)) 
    172   (dolist (blob-pathname (directory (merge-pathnames (make-pathname :directory '(:relative :wild-inferiors)) 
     172  (dolist (blob-pathname (directory (merge-pathnames (make-pathname :name :wild :directory '(:relative :wild-inferiors)) 
    173173                                                     (store-blob-root-pathname)))) 
    174174    (handler-case