X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Funix.lisp;h=f4d0ef3316c0a7e59c59d731d3fe973e7d2dcb97;hb=48ec282d877900caf5ea4ab42e9d87e566ce6b43;hp=2423d6c7b4a7c3bc560319bb7ef6775c7bcbb620;hpb=8c685e1fee08b4d1d9ef43b8d2784ac283c94096;p=sbcl.git

diff --git a/src/code/unix.lisp b/src/code/unix.lisp
index 2423d6c..f4d0ef3 100644
--- a/src/code/unix.lisp
+++ b/src/code/unix.lisp
@@ -239,7 +239,16 @@ SYSCALL-FORM. Repeat evaluation of SYSCALL-FORM if it is interrupted."
 ;;;   w_ok     Write permission.
 ;;;   x_ok     Execute permission.
 ;;;   f_ok     Presence of file.
-#!-win32
+
+;;; In Windows, the MODE argument to access is defined in terms of
+;;; literal magic numbers---there are no constants to grovel.  X_OK
+;;; is not defined.
+#!+win32
+(progn
+  (defconstant f_ok 0)
+  (defconstant w_ok 2)
+  (defconstant r_ok 4))
+
 (defun unix-access (path mode)
   (declare (type unix-pathname path)
            (type (mod 8) mode))