[slime-devel] [PATCH] bugfix for SBCL

[Bjørn Nordbø]

This patch fixes a bug in swank-sbcl.lisp.

-- 
Lisp can accomodate a wide range of psychological problems.
-------------- next part --------------
? fasl
Index: .cvsignore
===================================================================
RCS file: /project/slime/cvsroot/slime/.cvsignore,v
retrieving revision 1.2
diff -u -r1.2 .cvsignore
--- .cvsignore	18 Oct 2003 05:07:49 -0000	1.2
+++ .cvsignore	26 Mar 2004 22:09:00 -0000
@@ -1,3 +1,5 @@
 *.x86f
 *.fasl
-*.dfsl
\ No newline at end of file
+*.wfasl
+*.dfsl
+
Index: ChangeLog
===================================================================
RCS file: /project/slime/cvsroot/slime/ChangeLog,v
retrieving revision 1.312
diff -u -r1.312 ChangeLog
--- ChangeLog	26 Mar 2004 16:07:08 -0000	1.312
+++ ChangeLog	26 Mar 2004 22:09:11 -0000
@@ -1,3 +1,13 @@
+2004-03-26  Bj?rn Nordb? <bn at telenor.net>
+	
+	* swank-sbcl.el (getpid, enable-sigio-on-fd): Bugfix; lambda in
+	enable-sigio-on-fd calls getpid in current package, added correct
+	package prefix.  Moved getpid up a bit to muffle some style
+	warnings from SBCL.
+
+	* .cvsignore ignores *.wfasl (Lispworks) too.  Added for the sake
+	of completion; the files are in a separate directory anyway..
+
 2004-03-26  Luke Gorrie  <luke at bluetail.com>
 
 	* slime.el (slime-group-similar): Bugfix: return NIL if the input
Index: swank-sbcl.lisp
===================================================================
RCS file: /project/slime/cvsroot/slime/swank-sbcl.lisp,v
retrieving revision 1.80
diff -u -r1.80 swank-sbcl.lisp
--- swank-sbcl.lisp	25 Mar 2004 19:47:56 -0000	1.80
+++ swank-sbcl.lisp	26 Mar 2004 22:09:13 -0000
@@ -110,14 +110,18 @@
   (warn "No binding for fctnl(2) in sb-posix.
 Please upgrade to SBCL 0.8.7.36 or later."))
 
+(defmethod getpid ()
+  (sb-posix:getpid))
+
 (defun enable-sigio-on-fd (fd)
   (cond ((fboundp (find-symbol (string :fcntl) :sb-posix))
          (funcall 
           (eval
            (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 (getpid)))"))
+               (sb-posix:fcntl fd sb-posix::f-setfl sb-posix::o-async)
+               (sb-posix:fcntl fd sb-posix::f-setown
+                               (swank-backend:getpid)))"))
           fd))
         (t
          (unless (or (sb-int:featurep :linux)
@@ -187,9 +191,6 @@
 (defmethod call-without-interrupts (fn)
   (declare (type function fn))
   (sb-sys:without-interrupts (funcall fn)))
-
-(defmethod getpid ()
-  (sb-posix:getpid))
 
 (defimplementation lisp-implementation-type-name ()
   "sbcl")