From: Stelian Ionescu <sionescu@cddr.org>
Date: Mon, 8 Jul 2013 12:21:57 +0000 (+0200)
Subject: Add back ISYS:EXECVP
X-Git-Tag: v0.8.1~57
X-Git-Url: https://repo.or.cz/w/iolib.git/commitdiff_plain/0cd430ace416e69446cdf170e45fb1a5489590d9

Add back ISYS:EXECVP
---

diff --git a/src/syscalls/ffi-functions-unix.lisp b/src/syscalls/ffi-functions-unix.lisp
index b2d89b6..a52ecd4 100644
--- a/src/syscalls/ffi-functions-unix.lisp
+++ b/src/syscalls/ffi-functions-unix.lisp
@@ -676,6 +676,10 @@ processes mapping the same region."
   (path sstring)
   (argv :pointer))
 
+(defsyscall (execvp "execvp") :int
+  (file sstring)
+  (argv :pointer))
+
 (defsyscall (%waitpid "waitpid") pid-t
   (pid     pid-t)
   (status  :pointer)
diff --git a/src/syscalls/pkgdcl.lisp b/src/syscalls/pkgdcl.lisp
index e85ea1b..23907f6 100644
--- a/src/syscalls/pkgdcl.lisp
+++ b/src/syscalls/pkgdcl.lisp
@@ -561,6 +561,7 @@
   (:export ;; Process creation and info
    #:fork
    #:execv
+   #:execvp
    #:waitpid
    #:getpid
    #:getppid