/[cmucl]/src/code/filesys.lisp
ViewVC logotype

Diff of /src/code/filesys.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.38 by ram, Wed Aug 11 16:33:17 1993 UTC revision 1.39 by wlott, Fri Feb 4 15:05:08 1994 UTC
# Line 629  Line 629 
629    
630  ;;;; UNIX-NAMESTRING -- public  ;;;; UNIX-NAMESTRING -- public
631  ;;;  ;;;
632  (defun unix-namestring (pathname &optional (for-input t))  (defun unix-namestring (pathname &optional (for-input t) executable-only)
633    "Convert PATHNAME into a string that can be used with UNIX system calls.    "Convert PATHNAME into a string that can be used with UNIX system calls.
634     Search-lists and wild-cards are expanded."     Search-lists and wild-cards are expanded."
635    (enumerate-search-list    (enumerate-search-list
636        (pathname pathname)        (pathname pathname)
637      (collect ((names))      (collect ((names))
638        (enumerate-matches (name pathname nil :verify-existance for-input)        (enumerate-matches (name pathname nil :verify-existance for-input)
639          (names name))          (when (or (not executable-only)
640                      (and (eq (unix:unix-file-kind name) :file)
641                           (unix:unix-access name unix:x_ok)))
642              (names name)))
643        (let ((names (names)))        (let ((names (names)))
644          (when names          (when names
645            (when (cdr names)            (when (cdr names)

Legend:
Removed from v.1.38  
changed lines
  Added in v.1.39

  ViewVC Help
Powered by ViewVC 1.1.5