Changeset 9967


Ignore:
Timestamp:
09/13/05 14:52:22 (16 years ago)
Author:
piso
Message:

TRANSLATE-DIRECTORY

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/pathnames.lisp

    r9966 r9967  
    22;;;
    33;;; Copyright (C) 2003-2005 Peter Graves
    4 ;;; $Id: pathnames.lisp,v 1.15 2005-09-13 04:27:14 piso Exp $
     4;;; $Id: pathnames.lisp,v 1.16 2005-09-13 14:52:22 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    135135  ;; FIXME We can canonicalize logical pathnames to upper case, so we only need
    136136  ;; IGNORE-CASE for Windows.
    137 
    138   ;; FIXME We already know they match, so we don't need this here.
    139   (unless (directory-match-p source from nil)
    140     (error "~S and ~S do not match." source from))
    141   (translate-component source from to))
     137  (cond ((and (null source)
     138              (null from))
     139         to)
     140        (t
     141         (mapcar 'translate-component source from to))))
    142142
    143143;; "The resulting pathname is TO-WILDCARD with each wildcard or missing field
Note: See TracChangeset for help on using the changeset viewer.