Changeset 12502


Ignore:
Timestamp:
02/22/10 14:45:59 (12 years ago)
Author:
Mark Evenson
Message:

ABCL system code should be platform agnostic at runtime.

Use (featurep :windows) rather than #+windows so that the compiled
code will work the same no matter where it is compiled.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/directory.lisp

    r12492 r12502  
    7676        (let ((namestring (directory-namestring pathname)))
    7777          (when (and namestring (> (length namestring) 0))
    78             #+windows
    79             (let ((device (pathname-device pathname)))
    80               (when device
    81                 (setq namestring (concatenate 'string device ":" namestring))))
     78            (when (featurep :windows)
     79              (let ((device (pathname-device pathname)))
     80                (when device
     81                  (setq namestring (concatenate 'string device ":" namestring)))))
    8282            (let ((entries (list-directories-with-wildcards namestring))
    8383                  (matching-entries ()))
Note: See TracChangeset for help on using the changeset viewer.