Changeset 12502

Timestamp:

02/22/10 14:45:59 (13 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:

• trunk/abcl/src/org/armedbear/lisp/directory.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/directory.lisp

@@ -76 +76 @@
         (let ((namestring (directory-namestring pathname)))
           (when (and namestring (> (length namestring) 0))
-            #+windows
-            (let ((device (pathname-device pathname)))
-              (when device
-                (setq namestring (concatenate 'string device ":" namestring))))
+            (when (featurep :windows)
+              (let ((device (pathname-device pathname)))
+                (when device
+                  (setq namestring (concatenate 'string device ":" namestring)))))
             (let ((entries (list-directories-with-wildcards namestring))
                   (matching-entries ()))