Changeset 9276


Ignore:
Timestamp:
Apr 25, 2008, 9:07:31 AM (12 years ago)
Author:
gb
Message:

Canonicalize pathname for Windows in HEAP-IMAGE-NAME.

File:
1 edited

Legend:

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

    r8947 r9276  
    2727  (let* ((p (%null-ptr)))
    2828    (declare (dynamic-extent p))
    29     (%get-cstring (%get-kernel-global-ptr 'image-name p))))
     29    #-windows-target
     30    (%get-cstring (%get-kernel-global-ptr 'image-name p))
     31    #+windows-target
     32    (strip-drive-for-now
     33     (nbackslash-to-forward-slash
     34      (%get-cstring (%get-kernel-global-ptr 'image-name p))))))
    3035
    3136(defloadvar *heap-image-name* (heap-image-name))
Note: See TracChangeset for help on using the changeset viewer.