From 17e94d461129d1044652a05b8ad662a82b3b1cad Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Wed, 4 Aug 1993 13:33:17 +0000 Subject: [PATCH] Fixed %enumerate-directories to hack :WILD and :WILD-INFERIORS (somewhat.) Semi-gratuitously changed %enumerate-files to use %pathname accessors. --- code/filesys.lisp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/code/filesys.lisp b/code/filesys.lisp index f42fb0e72..c41c58113 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.35 1993/08/04 10:54:53 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/filesys.lisp,v 1.36 1993/08/04 13:33:17 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -529,7 +529,7 @@ (%enumerate-directories (concatenate 'string head piece "/") (cdr tail) pathname verify-existance function)) - (pattern + ((or pattern (member :wild :wild-inferiors)) (let ((dir (unix:open-dir head))) (when dir (unwind-protect @@ -555,9 +555,9 @@ (%enumerate-files head pathname verify-existance function))) (defun %enumerate-files (directory pathname verify-existance function) - (let ((name (pathname-name pathname)) - (type (pathname-type pathname)) - (version (pathname-version pathname))) + (let ((name (%pathname-name pathname)) + (type (%pathname-type pathname)) + (version (%pathname-version pathname))) (cond ((member name '(nil :unspecific)) (when (or (not verify-existance) (unix:unix-file-kind directory)) -- GitLab