Skip to content
Snippets Groups Projects
Commit 17e94d46 authored by ram's avatar ram
Browse files

Fixed %enumerate-directories to hack :WILD and :WILD-INFERIORS (somewhat.)

Semi-gratuitously changed %enumerate-files to use %pathname accessors.
parent 81bf81c3
No related branches found
No related tags found
No related merge requests found
......@@ -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))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment