Changeset 10627


Ignore:
Timestamp:
Sep 8, 2008, 5:45:37 AM (11 years ago)
Author:
gb
Message:

Recognize PLATFORM-OS-WINDOWS.

Handle PATHNAME-DEVICE in REPLACE-BASE-TRANSLATIONS.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-boot-1.lisp

    r10426 r10627  
    4040    (,platform-os-solaris . :solaris)
    4141    (,platform-os-darwin . :darwin)
    42     (,platform-os-freebsd . :freebsd)))
     42    (,platform-os-freebsd . :freebsd)
     43    (,platform-os-windows . :windows)))
    4344
    4445(defparameter *platform-cpu-names*
     
    7374(defun replace-base-translation (host-dir new-base-dir)
    7475  (let* ((host (pathname-host host-dir))
     76         (device (pathname-device new-base-dir))
    7577         (host-dir (full-pathname host-dir))
    7678         (trans (logical-pathname-translations host))
     
    8890                    (merge-pathnames
    8991                     (make-pathname
    90                       :defaults nil
     92                      :defaults nil
     93                      :device device
    9194                      :directory (append new-base-dir
    9295                                         (nthcdr (length host-dir)
Note: See TracChangeset for help on using the changeset viewer.