[slime-cvs] CVS slime

[trittweiler]

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

Modified Files:
	swank-ecl.lisp 
Log Message:
* swank-ecl.lisp (compile-from-stream): Fixed typo that prevented
  `slime-compile-defun' from actually compiling a function.


--- /project/slime/cvsroot/slime/swank-ecl.lisp	2006/11/19 21:33:03	1.7
+++ /project/slime/cvsroot/slime/swank-ecl.lisp	2007/05/17 11:49:40	1.8
@@ -142,7 +142,7 @@
   (let ((file (si::mkstemp "TMP:ECLXXXXXX")))
     (with-open-file (s file :direction :output :if-exists :overwrite)
       (do ((line (read-line stream nil) (read-line stream nil)))
-	  (line)
+	  ((not line))
 	(write-line line s)))
     (unwind-protect
          (apply #'compile-file file args)