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

[Helmut Eller]

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

Modified Files:
	swank-openmcl.lisp 
Log Message:
(send, receive): Ensure that messages are never nil.
Date: Sat Jun 12 05:01:23 2004
Author: heller

Index: slime/swank-openmcl.lisp
diff -u slime/swank-openmcl.lisp:1.75 slime/swank-openmcl.lisp:1.76
--- slime/swank-openmcl.lisp:1.75	Wed May 12 21:47:51 2004
+++ slime/swank-openmcl.lisp	Sat Jun 12 05:01:23 2004
@@ -556,6 +556,7 @@
                  mailbox))))))
           
 (defimplementation send (thread message)
+  (assert message)
   (let* ((mbox (mailbox thread))
          (mutex (mailbox.mutex mbox)))
     (ccl:with-lock-grabbed (mutex)
@@ -568,6 +569,7 @@
          (mutex (mailbox.mutex mbox)))
     (ccl:wait-on-semaphore (mailbox.semaphore mbox))
     (ccl:with-lock-grabbed (mutex)
+      (assert (mailbox.queue mbox))
       (pop (mailbox.queue mbox)))))
 
 (defimplementation quit-lisp ()