Changeset 11562


Ignore:
Timestamp:
Dec 30, 2008, 1:30:53 PM (11 years ago)
Author:
gz
Message:

DIRECTORY fix from Steve Hain

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lib/pathnames.lisp

    r11164 r11562  
    396396          (when (and (or all (neq (%schar sub 0) #\.))
    397397                     (or include-emacs-lockfiles
    398                          (and (>= (length sub) 2)
    399                               (not (string= sub ".#" :end1 2))))
     398                         (< (length sub) 2)
     399                         (not (string= sub ".#" :end1 2)))
    400400                     (not (string= sub "."))
    401401                     (not (string= sub ".."))
Note: See TracChangeset for help on using the changeset viewer.