[slime-cvs] CVS slime

[heller]

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

Modified Files:
	slime.el 
Log Message:
(slime-accept-process-output): The timeout arg can be nil. Handle that case.

--- /project/slime/cvsroot/slime/slime.el	2006/10/16 20:20:42	1.663
+++ /project/slime/cvsroot/slime/slime.el	2006/10/17 09:14:18	1.664
@@ -10516,9 +10516,9 @@
          (accept-process-output process timeout))
         (t
          (accept-process-output process 
-                                (truncate timeout)
+                                (if timeout (truncate timeout))
                                 ;; Emacs 21 uses microsecs; Emacs 22 millisecs
-                                (truncate (* timeout 1000000))))))
+                                (if timeout (truncate (* timeout 1000000)))))))
 
 (put 'slime-defun-if-undefined 'lisp-indent-function 2)