[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog swank-sbcl.lisp 
Log Message:
* swank-sbcl.lisp (condition-timed-wait): Undo previous change.
The :timeout arg doesn't seem ready for production use.

--- /project/slime/cvsroot/slime/ChangeLog	2012/05/06 16:16:24	1.2334
+++ /project/slime/cvsroot/slime/ChangeLog	2012/05/06 21:19:48	1.2335
@@ -1,8 +1,14 @@
 2012-05-06  Helmut Eller  <heller at common-lisp.net>
 
+	* swank-sbcl.lisp (condition-timed-wait): Undo previous change.
+	The :timeout arg doesn't seem ready for production use.
+
+2012-05-06  Helmut Eller  <heller at common-lisp.net>
+
 	* swank-sbcl.lisp (condition-timed-wait): Use the :timeout
 	argument of sb-thread:condition-wait if supported.
 
+
 2012-05-06  Helmut Eller  <heller at common-lisp.net>
 
 	* swank-sbcl.lisp (with-definition-source): Forgot to commit this
--- /project/slime/cvsroot/slime/swank-sbcl.lisp	2012/05/06 16:16:24	1.317
+++ /project/slime/cvsroot/slime/swank-sbcl.lisp	2012/05/06 21:19:48	1.318
@@ -1624,11 +1624,14 @@
               (nconc (mailbox.queue mbox) (list message)))
         (sb-thread:condition-broadcast (mailbox.waitqueue mbox)))))
 
+
   (defun condition-timed-wait (waitqueue mutex timeout)
     (macrolet ((foo ()
-                 (cond ((> (length (sb-introspect:function-arglist
-                                    #'sb-thread:condition-wait))
-                           2)
+                 (cond ((and (> (length (sb-introspect:function-lambda-list
+                                         #'sb-thread:condition-wait))
+                                2)
+                             nil  ; FIXME: :timeout doesn't work. Why?
+                             )
                         '(sb-thread:condition-wait waitqueue mutex
                           :timeout timeout))
                        ((member :sb-lutex *features*) ; Darwin