0.pre8.33

[sbcl.git] / src / code / unix.lisp

diff --git a/src/code/unix.lisp b/src/code/unix.lisp
index a255979..e886257 100644 (file)
--- a/src/code/unix.lisp
+++ b/src/code/unix.lisp
@@ -391,6 +391,10 @@
   (declare (type unix-fd fd))
   (void-syscall ("fsync" int) fd))
 \f
+
+(defun unix-setsid ()
+  (int-syscall ("setsid")))
+
 ;;;; sys/ioctl.h
 
 ;;; UNIX-IOCTL performs a variety of operations on open i/o