Changeset 10006


Ignore:
Timestamp:
09/22/05 23:34:42 (16 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

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

    r10005 r10006  
    22;;;
    33;;; Copyright (C) 2003-2005 Peter Graves
    4 ;;; $Id: pathnames.lisp,v 1.24 2005-09-22 23:26:22 piso Exp $
     4;;; $Id: pathnames.lisp,v 1.25 2005-09-22 23:34:42 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    215215  (unless (pathname-match-p source from-wildcard)
    216216    (error "~S and ~S do not match." source from-wildcard))
    217   (let ((source (pathname source))
    218         (from   (pathname from-wildcard))
    219         (to     (pathname to-wildcard))
    220         (case   (and (typep source 'logical-pathname)
    221                      (or (featurep :unix) (featurep :windows))
    222                      :downcase)))
     217  (let* ((source (pathname source))
     218         (from   (pathname from-wildcard))
     219         (to     (pathname to-wildcard))
     220         (device (if (typep 'to 'logical-pathname)
     221                     :unspecific
     222                     (translate-component (pathname-device source)
     223                                          (pathname-device from)
     224                                          (pathname-device to))))
     225         (case   (and (typep source 'logical-pathname)
     226                      (or (featurep :unix) (featurep :windows))
     227                      :downcase)))
    223228    (make-pathname :host      (pathname-host to)
    224                    :device    (if (typep to 'logical-pathname)
    225                                   :unspecific
    226                                   (translate-component (pathname-device source)
    227                                                        (pathname-device from)
    228                                                        (pathname-device to)))
     229                   :device    (cond ((typep to 'logical-pathname)
     230                                     :unspecific)
     231                                    ((eq device :unspecific)
     232                                     nil)
     233                                    (t
     234                                     device))
    229235                   :directory (translate-directory (pathname-directory source)
    230236                                                   (pathname-directory from)
Note: See TracChangeset for help on using the changeset viewer.