X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-posix%2Fconstants.lisp;h=a6284a8c48d76e774df15c97cbe7a86c49cea9c1;hb=137176981a5a70e67e0984490bd3d730c899a254;hp=587261f3828fbba6b6de7c3468ad9ab7984f0b2e;hpb=84500b84beb8a03298beaf731d36faee5323b4d5;p=sbcl.git

diff --git a/contrib/sb-posix/constants.lisp b/contrib/sb-posix/constants.lisp
index 587261f..a6284a8 100644
--- a/contrib/sb-posix/constants.lisp
+++ b/contrib/sb-posix/constants.lisp
@@ -10,7 +10,7 @@
  
  "sys/socket.h" "sys/un.h" "netinet/in.h" "netinet/in_systm.h"
  "netinet/ip.h" "net/if.h" "netdb.h" "errno.h" "netinet/tcp.h"
- "fcntl.h" )
+ "fcntl.h" "sys/mman.h")
 
 ;;; then the stuff we're looking for
 ((:integer af-inet "AF_INET" "IP Protocol family")
@@ -43,4 +43,13 @@
  (:integer w-ok "W_OK")
  (:integer x-ok "X_OK")
  (:integer f-ok "F_OK")
+
+ ;; mmap()
+ (:integer prot-none "PROT_NONE" "mmap: no protection")
+ (:integer prot-read "PROT_READ" "mmap: read protection")
+ (:integer prot-write "PROT_WRITE" "mmap: write protection")
+ (:integer prot-exec "PROT_EXEC" "mmap: execute protection")
+ (:integer map-shared "MAP_SHARED" "mmap: shared memory")
+ (:integer map-private "MAP_PRIVATE" "mmap: private mapping")
+ (:integer map-fixed "MAP_FIXED" "mmap: map at given location")
  )
\ No newline at end of file