Update of /project/cells-gtk/cvsroot/root/cells-gtk
In directory common-lisp.net:/tmp/cvs-serv1581/cells-gtk
Modified Files:
compat.lisp
Log Message:
in lispworks, when process-wait-with-timeout is supplied with a predicate, event if #'(lambda () t) it has much different characteristics, than when it isn't supplied with one at all. So why isn't this just mp:sleep? I don't know.
Date: Sat Feb 12 20:09:24 2005
Author: pdenno
Index: root/cells-gtk/compat.lisp
diff -u root/cells-gtk/compat.lisp:1.1 root/cells-gtk/compat.lisp:1.2
--- root/cells-gtk/compat.lisp:1.1 Sat Feb 12 15:38:37 2005
+++ root/cells-gtk/compat.lisp Sat Feb 12 20:09:24 2005
@@ -28,13 +28,16 @@
#+CMU (mp:process-wait whostate (lambda () (apply predicate args)))
#+LispWorks (apply #'mp:process-wait whostate predicate args))
-;;; From clocc port
-(defun process-wait-with-timeout (timeout whostate predicate &rest args)
- "Sleep until PREDICATE becomes true, or for TIMEOUT seconds,
-whichever comes first."
+;;; From clocc port, but with additions and deletions
+(defun process-wait-with-timeout (timeout whostate
+ &optional (predicate #'(lambda () t) pred-supplied-p)
+ &rest args)
+ "Sleep until PREDICATE becomes true, or for TIMEOUT seconds, whichever comes first."
#+Allegro
(apply #'mp:process-wait-with-timeout whostate timeout predicate args)
#+CMU (mp:process-wait-with-timeout
whostate timeout (lambda () (apply predicate args)))
#+LispWorks
- (apply #'mp:process-wait-with-timeout whostate timeout predicate args))
+ (if pred-supplied-p
+ (apply #'mp:process-wait-with-timeout whostate timeout predicate args)
+ (mp:process-wait-with-timeout whostate timeout)))
