Changeset 15778


Ignore:
Timestamp:
Mar 15, 2013, 7:09:32 PM (6 years ago)
Author:
svspire
Message:

Make (= (length (directory #P"ccl:*.*")) (length (directory #P"ccl:*")))
be true, as it was in MCL.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/pathnames.lisp

    r15776 r15778  
    584584
    585585(defun %file*= (name-pat type-pat pstr)
     586  (when (and (eq name-pat :wild)
     587             (or (null type-pat)
     588                 (eq type-pat :unspecific)))
     589    (setq type-pat :wild))
    586590  (if (eq name-pat :wild) (setq name-pat "*"))
    587591  (if (eq type-pat :wild) (setq type-pat "*"))
Note: See TracChangeset for help on using the changeset viewer.