[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

Update of /project/slime/cvsroot/slime/contrib
In directory cl-net:/tmp/cvs-serv21980/contrib

Modified Files:
	slime-asdf.el 
Log Message:
slime-asdf.el(slime-save-system): Use get-file-buffer.


--- /project/slime/cvsroot/slime/contrib/slime-asdf.el	2010/01/05 19:53:17	1.26
+++ /project/slime/cvsroot/slime/contrib/slime-asdf.el	2010/01/05 19:58:57	1.27
@@ -222,8 +222,7 @@
       `(swank:asdf-system-files ,system)
     (lambda (files)
       (dolist (file files)
-        (let ((buffer (find file (buffer-list)
-                            :test 'equal :key 'buffer-file-name)))
+        (let ((buffer (get-file-buffer file)))
           (when buffer
             (with-current-buffer buffer
               (save-buffer buffer)))))