use mmap:madvise natively

Author: stylewarning

hypergeometrica.asd

@@ -27,7 +27,6 @@
   :components ((:file "package")
                (:file "config")
                (:file "logging")
-               (:file "mmap-patches" :if-feature :linux)
                (:file "mmap")
                (:file "timing-utilities")
                (:file "math-utilities")

src/mmap-patches.lisp

@@ -47,21 +47,21 @@
   #+linux
   (mmap:madvise (mmap-data-pointer data)
                 (mmap-data-size data)
-                ':madv-normal)
+                ':normal)
   nil)
 
 (defun madvise-random (data)
   (check-type data mmap-data)
   #+linux
   (mmap:madvise (mmap-data-pointer data)
                 (mmap-data-size data)
-                ':madv-random)
+                ':random)
   nil)
 
 (defun madvise-sequential (data)
   (check-type data mmap-data)
   #+linux
   (mmap:madvise (mmap-data-pointer data)
                 (mmap-data-size data)
-                ':madv-sequential)
+                ':sequential)
   nil)