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

[Helmut Eller]

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

Modified Files:
	swank-allegro.lisp 
Log Message:
(send): Fix misplaced parens. (From Bill Clementson)
Date: Wed Mar 31 17:38:56 2004
Author: heller

Index: slime/swank-allegro.lisp
diff -u slime/swank-allegro.lisp:1.25 slime/swank-allegro.lisp:1.26
--- slime/swank-allegro.lisp:1.25	Tue Mar 23 16:34:18 2004
+++ slime/swank-allegro.lisp	Wed Mar 31 17:38:55 2004
@@ -311,7 +311,7 @@
      "yielding before sending" 0.1
      (lambda ()
        (mp:with-process-lock (mutex)
-         (< (length (mailbox.queue mbox) 10)))))
+         (< (length (mailbox.queue mbox)) 10))))
     (mp:with-process-lock (mutex)
       (setf (mailbox.queue mbox)
             (nconc (mailbox.queue mbox) (list message))))))