[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

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

Modified Files:
	ChangeLog slime-asdf.el 
Log Message:
contrib/slime-asdf.el(slime-save-system): New function for saving
system's files.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2010/01/05 10:03:02	1.332
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2010/01/05 19:53:17	1.333
@@ -1,3 +1,8 @@
+2010-01-05  Stas Boukarev  <stassats at gmail.com>
+
+	* slime-asdf.el (slime-save-system): New function for saving
+	system's files.
+
 2010-01-05  Helmut Eller  <heller at common-lisp.net>
 
 	Fix "other window" selector in inferior-slime-mode.
--- /project/slime/cvsroot/slime/contrib/slime-asdf.el	2009/12/19 10:11:27	1.25
+++ /project/slime/cvsroot/slime/contrib/slime-asdf.el	2010/01/05 19:53:17	1.26
@@ -215,6 +215,20 @@
   (interactive (list (slime-read-system-name)))
   (slime-xref :depends-on system-name))
 
+(defun slime-save-system (system)
+  "Save files belonging to an ASDF system."
+  (interactive (list (slime-read-system-name)))
+  (slime-eval-async
+      `(swank:asdf-system-files ,system)
+    (lambda (files)
+      (dolist (file files)
+        (let ((buffer (find file (buffer-list)
+                            :test 'equal :key 'buffer-file-name)))
+          (when buffer
+            (with-current-buffer buffer
+              (save-buffer buffer)))))
+      (message "Done."))))
+
 
 ;;; REPL shortcuts