X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-posix%2Fconstants.lisp;h=0e2e2834ce52127e843e2edf50d1d26b89db1e7c;hb=007bcd5aac2f3a1e714563bd39f7a2db2d0bf7c2;hp=7c52c673e7cafe1324844dbce79350756a11a533;hpb=d07e355f50300d64b282cb9c71fa88441c0b9a3d;p=sbcl.git

diff --git a/contrib/sb-posix/constants.lisp b/contrib/sb-posix/constants.lisp
index 7c52c67..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"