Changeset 9813


Ignore:
Timestamp:
Jun 21, 2008, 9:41:55 PM (11 years ago)
Author:
gb
Message:

Handle DEVICE in REPLACE-BASE-TRANSLATIONS.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/win64/level-1/l1-boot-1.lisp

    r8944 r9813  
    7474(defun replace-base-translation (host-dir new-base-dir)
    7575  (let* ((host (pathname-host host-dir))
     76         (device (pathname-device new-base-dir))
    7677         (host-dir (full-pathname host-dir))
    7778         (trans (logical-pathname-translations host))
     
    8990                    (merge-pathnames
    9091                     (make-pathname
    91                       :defaults nil
     92                      :defaults nil
     93                      :device device
    9294                      :directory (append new-base-dir
    9395                                         (nthcdr (length host-dir)
Note: See TracChangeset for help on using the changeset viewer.