[Sbcl-devel] adding chroot to sb-posix

[Istvan M. <mi...@im...>]

I am trying to setup Araneida to run in a chroot environment. Instead
of setting it up using jail or something similar I would rather do the
chroot call from within sbcl (after everything is loaded). There is no
chroot in sb-posix (although it's listed in TODO), so I added the
following:

--- contrib/sb-posix/interface.lisp.orig        2004-06-07 23:45:26.862763032 -0700
+++ contrib/sb-posix/interface.lisp     2004-06-07 19:20:28.904240957 -0700
@@ -43,6 +43,7 @@
 (define-call "chmod" int minusp (pathname filename) (mode sb-posix::mode-t))
 (define-call "chown" int minusp (pathname filename)
             (owner sb-posix::uid-t)  (group sb-posix::gid-t))
+(define-call "chroot" int minusp (pathname filename))
 (define-call "close" int minusp (fd file-descriptor))
 (define-call "creat" int minusp (pathname filename) (mode sb-posix::mode-t))
 (define-call "dup" int minusp (oldfd file-descriptor))

-- 
	Istvan