Changeset 12666


Ignore:
Timestamp:
05/11/10 14:13:17 (14 years ago)
Author:
Mark Evenson
Message:

Fix ASDF:MERGE-PATHNAMES* in the case that default directory is nil.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/asdf.lisp

    r12664 r12666  
    517517             (values (pathname-host defaults)
    518518                     (pathname-device defaults)
    519                      (append (pathname-directory defaults) (cdr directory))
     519                     (if (null (pathname-directory defaults))
     520                         directory
     521                         (append (pathname-directory defaults) (cdr directory)))
    520522                     (unspecific-handler defaults)))
    521523            #+gcl
Note: See TracChangeset for help on using the changeset viewer.