Ignore:
Timestamp:
Oct 13, 2008, 5:21:00 PM (11 years ago)
Author:
gz
Message:

More diff reduction, mostly mods in support of windows and/or x8632

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-boot-1.lisp

    r10398 r11074  
    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.