X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-simple-streams%2Fconstants.lisp;fp=contrib%2Fsb-simple-streams%2Fconstants.lisp;h=0000000000000000000000000000000000000000;hb=ce58e434470b1ebefae6132d9c075c7d8a2c0c13;hp=663726b9e26628d57aed02ca9163ce13f08c61dd;hpb=5164d4bba99fa9d486ceb3aa65c6c7b136702a11;p=sbcl.git diff --git a/contrib/sb-simple-streams/constants.lisp b/contrib/sb-simple-streams/constants.lisp deleted file mode 100644 index 663726b..0000000 --- a/contrib/sb-simple-streams/constants.lisp +++ /dev/null @@ -1,27 +0,0 @@ -;;; -*- Lisp -*- - -;;; This code is in the public domain. - -;;; The cmucl implementation of simple-streams was done by Paul Foley, -;;; who placed the code in the public domain. Sbcl port by Rudi -;;; Schlatte. - -;;; Some constants that are not (yet?) in sbcl itself. Basically, -;;; constants needed for calling mmap from sbcl. - -;;; TODO (Rudi 2003-05-12): The contents of this file, along with -;;; unix.lisp, should presumably end up somewhere else, either in sbcl -;;; itself or in sb-posix. - -("stdio.h" "sys/types.h" "sys/stat.h" "fcntl.h" "errno.h" "sys/mman.h") - -((:integer eacces "EACCES" "Error code for access error") - (: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")) - -