[slime-cvs] CVS slime

[gcarncross]

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

Modified Files:
	swank-ecl.lisp 
Log Message:
fixup flushing and location create

--- /project/slime/cvsroot/slime/swank-ecl.lisp	2008/04/24 01:25:05	1.17
+++ /project/slime/cvsroot/slime/swank-ecl.lisp	2008/04/24 01:38:29	1.18
@@ -308,14 +308,14 @@
      (function
       (multiple-value-bind (file pos) (ignore-errors (si:bc-file obj))
         (if (and file pos) 
-            `(:location
-              (:file ,file)
-              (:position ,pos)
-              (:snippet
-               ,(with-open-file (s file)
-                                (skip-toplevel-forms pos s)
-                                (skip-comments-and-whitespace s)
-                                (read-snippet s))))))))
+            (make-location
+              `(:file ,file)
+              `(:position ,pos)
+              `(:snippet
+                ,(with-open-file (s file)
+                                 (skip-toplevel-forms pos s)
+                                 (skip-comments-and-whitespace s)
+                                 (read-snippet s))))))))
    `(:error (format nil "Source definition of ~S not found" obj))))
 
 ;;;; Threads
@@ -469,7 +469,9 @@
                            (not (and (open-stream-p x)
                                      (output-stream-p x))))
                          *auto-flush-streams*))
-        (mapc #'stream-finish-output *auto-flush-streams*)))
+        (dolist (i *auto-flush-streams*)
+          (ignore-errors (stream-finish-output i))
+          (ignore-errors (finish-output i)))))
      (sleep *auto-flush-interval*)))
 
   )