/[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.20 by wlott, Mon Dec 16 20:00:44 1991 UTC revision 1.21 by wlott, Wed Dec 18 11:42:09 1991 UTC
# Line 557  Line 557 
557                     (loop                     (loop
558                       (let ((file (mach:read-dir dir)))                       (let ((file (mach:read-dir dir)))
559                         (if file                         (if file
560                             (multiple-value-bind                             (unless (or (string= file ".")
561                                 (file-name file-type file-version)                                         (string= file ".."))
562                                 (let ((*ignore-wildcards* t))                               (multiple-value-bind
563                                   (extract-name-type-and-version                                   (file-name file-type file-version)
564                                    file 0 (length file)))                                   (let ((*ignore-wildcards* t))
565                               (when (and (components-match file-name name)                                     (extract-name-type-and-version
566                                          (components-match file-type type)                                      file 0 (length file)))
567                                          (components-match file-version                                 (when (and (components-match file-name name)
568                                                            version))                                            (components-match file-type type)
569                                 (funcall function                                            (components-match file-version
570                                          (concatenate 'string                                                              version))
571                                                       directory                                   (funcall function
572                                                       file))))                                            (concatenate 'string
573                                                           directory
574                                                           file)))))
575                             (return))))                             (return))))
576                   (mach:close-dir dir)))))                   (mach:close-dir dir)))))
577            (t            (t
# Line 746  Line 748 
748     never includes Unix dot and dot-dot in the result."     never includes Unix dot and dot-dot in the result."
749    (let ((results nil))    (let ((results nil))
750      (enumerate-search-list      (enumerate-search-list
751          (pathname pathname)          (pathname (merge-pathnames pathname
752                                       (make-pathname :name :wild
753                                                      :type :wild
754                                                      :version :wild)))
755        (enumerate-matches (name pathname)        (enumerate-matches (name pathname)
756          (when (or all          (when (or all
757                    (let ((slash (position #\/ name :from-end t)))                    (let ((slash (position #\/ name :from-end t)))

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

  ViewVC Help
Powered by ViewVC 1.1.5