[slime-cvs] CVS slime

[heller]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv1536

Modified Files:
	swank-allegro.lisp 
Log Message:
Fix typo.


--- /project/slime/cvsroot/slime/swank-allegro.lisp	2008/08/07 07:53:47	1.107
+++ /project/slime/cvsroot/slime/swank-allegro.lisp	2008/08/07 08:10:01	1.108
@@ -663,7 +663,7 @@
 (defstruct (mailbox (:conc-name mailbox.)) 
   (lock (mp:make-process-lock :name "process mailbox"))
   (queue '() :type list)
-  (gate (mp:make-gate)))
+  (gate (mp:make-gate nil)))
 
 (defun mailbox (thread)
   "Return THREAD's mailbox."