Commit bb7782b04e9bf247d04cd1e5cbb977916f54225f

Thomas de Grivel 2017-05-21T17:00:16

Depend on unistd:close instead of cffi-posix:close.

diff --git a/cffi-sockets.asd b/cffi-sockets.asd
index f7235c9..770b7d5 100644
--- a/cffi-sockets.asd
+++ b/cffi-sockets.asd
@@ -8,7 +8,7 @@
 
 (defsystem "cffi-sockets"
   :defsystem-depends-on ("cffi-grovel")
-  :depends-on ("cffi" "cffi-errno" "cffi-posix")
+  :depends-on ("cffi" "cffi-errno" "cffi-unistd")
   :components
   ((:file "package")
    (:cffi-grovel-file "grovel-sockets" :depends-on ("package"))
diff --git a/cffi-sockets.lisp b/cffi-sockets.lisp
index fac4d74..3616a66 100644
--- a/cffi-sockets.lisp
+++ b/cffi-sockets.lisp
@@ -20,7 +20,7 @@
 (defmacro with-socket ((var domain type protocol) &body body)
   `(let ((,var (socket ,domain ,type ,protocol)))
      (unwind-protect (progn ,@body)
-       (cffi-posix:close ,var))))
+       (unistd:close ,var))))
 
 (defcstruct sockaddr
   (sa-family sa-family-t)
@@ -111,7 +111,7 @@
 (defmacro with-accept ((var listening-fd) &body body)
   `(let ((,var (accept ,listening-fd)))
      (unwind-protect (progn ,@body)
-       (cffi-posix:close ,var))))
+       (unistd:close ,var))))
 
 (defcfun ("recv" c-recv) ssize-t
   (sockfd :int)