[armedbear-cvs] r12502 - trunk/abcl/src/org/armedbear/lisp

[Mark Evenson]

Author: mevenson
Date: Mon Feb 22 09:45:59 2010
New Revision: 12502

Log:
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.



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

Modified: trunk/abcl/src/org/armedbear/lisp/directory.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/directory.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/directory.lisp	Mon Feb 22 09:45:59 2010
@@ -75,10 +75,10 @@
 	    (wild-pathname-p pathname))
         (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 ()))
               (dolist (entry entries)