X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-posix%2Fconstants.lisp;h=0e2e2834ce52127e843e2edf50d1d26b89db1e7c;hb=ae09f8fd7765f6cab6ad317a13e27ff22ab0c11e;hp=271baf65236fd3258ac47972c5e289bb272babd8;hpb=9fb8bf2eb2c91cbda313edaa3362ff8b221ab81d;p=sbcl.git

diff --git a/contrib/sb-posix/constants.lisp b/contrib/sb-posix/constants.lisp
index 271baf6..0e2e283 100644
--- a/contrib/sb-posix/constants.lisp
+++ b/contrib/sb-posix/constants.lisp
@@ -262,6 +262,10 @@
  (:integer ms-invalidate "MS_INVALIDATE"
            #+sb-doc "msync: invalidate all cached data" t)
 
+ ;; mlockall()
+ (:integer mcl-current "MCL_CURRENT" #+sb-doc "mlockall: lock all pages which are currently mapped into the address space of the process." t)
+ (:integer mcl-future "MCL_FUTURE" #+sb-doc "mlockall: lock all pages which will become mapped into the address space of the process in the future." t)
+
  ;; opendir()
  (:structure dirent
              (#+(and linux largefile) "struct dirent64"
@@ -362,6 +366,7 @@
  (:integer f-wrlck "F_WRLCK" nil t)
  (:integer f-unlck "F_UNLCK" nil t)
 
+ #-win32
  (:structure alien-flock
              ("struct flock"
               (short type "short" "l_type")