[slime-cvs] CVS update: slime/swank-sbcl.lisp

[Luke Gorrie]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv5762

Modified Files:
	swank-sbcl.lisp 
Log Message:
(getpid): Use sb-posix:getpid.

Date: Thu Mar 25 14:47:56 2004
Author: lgorrie

Index: slime/swank-sbcl.lisp
diff -u slime/swank-sbcl.lisp:1.79 slime/swank-sbcl.lisp:1.80
--- slime/swank-sbcl.lisp:1.79	Mon Mar 22 08:57:00 2004
+++ slime/swank-sbcl.lisp	Thu Mar 25 14:47:56 2004
@@ -117,7 +117,7 @@
            (read-from-string 
             "(lambda (fd)
              (sb-posix:fcntl fd sb-posix::f-setfl sb-posix::o-async)
-             (sb-posix:fcntl fd sb-posix::f-setown (sb-unix:unix-getpid)))"))
+             (sb-posix:fcntl fd sb-posix::f-setown (getpid)))"))
           fd))
         (t
          (unless (or (sb-int:featurep :linux)
@@ -131,7 +131,7 @@
            ;; XXX error checking
            (sb-alien:alien-funcall fcntl fd +f_setfl+ +o_async+)
            (sb-alien:alien-funcall fcntl fd +f_setown+
-                                   (sb-unix:unix-getpid))))))
+                                   (getpid))))))
 
 (defimplementation add-sigio-handler (socket fn)
   (set-sigio-handler)
@@ -146,7 +146,7 @@
   (let ((fd (socket-fd socket)))
     (format *debug-io* "Adding sigio handler: ~S ~%" fd)
     (sb-posix:fcntl fd sb-posix::f-setfl sb-posix::o-async)
-    (sb-posix:fcntl fd sb-posix::f-setown (sb-unix:unix-getpid))
+    (sb-posix:fcntl fd sb-posix::f-setown (getpid))
     (push (cons fd fn) *sigio-handlers*)))
 
 (defimplementation remove-sigio-handlers (socket)
@@ -189,7 +189,7 @@
   (sb-sys:without-interrupts (funcall fn)))
 
 (defmethod getpid ()
-  (sb-unix:unix-getpid))
+  (sb-posix:getpid))
 
 (defimplementation lisp-implementation-type-name ()
   "sbcl")