[slime-devel] Patch for swank-allegro.lisp

[Bill_Clementson at peoplesoft.com]

Here is a patch - misplaced parens in the latest cvs version of
swank-allegro.lisp.

Bill Clementson

*** c:/DOCUME~1/BC1886~1/LOCALS~1/Temp/swank-allegro.lisp   Wed Mar 31
15:17:45 2004
--- c:/DOCUME~1/BC1886~1/LOCALS~1/Temp/swank-allegro-orig.lisp    Wed Mar
31 15:17:45 2004
***************
*** 311,317 ****
       "yielding before sending" 0.1
       (lambda ()
         (mp:with-process-lock (mutex)
!          (< (length (mailbox.queue mbox)) 10))))
      (mp:with-process-lock (mutex)
        (setf (mailbox.queue mbox)
              (nconc (mailbox.queue mbox) (list message))))))
--- 311,317 ----
       "yielding before sending" 0.1
       (lambda ()
         (mp:with-process-lock (mutex)
!          (< (length (mailbox.queue mbox) 10)))))
      (mp:with-process-lock (mutex)
        (setf (mailbox.queue mbox)
              (nconc (mailbox.queue mbox) (list message))))))