[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

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

Modified Files:
	ChangeLog slime-asdf.el 
Log Message:
* slime-asdf.el (slime-asdf-collect-notes): New variable.
Collect and display notes produced by the compiler. Defaulted to T.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2010/05/08 04:57:23	1.377
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2010/05/13 12:36:00	1.378
@@ -1,3 +1,8 @@
+2010-05-13  Stas Boukarev  <stassats at gmail.com>
+
+	* slime-asdf.el (slime-asdf-collect-notes): New variable.
+	Collect and display notes produced by the compiler. Defaulted to T.
+
 2010-05-08  Stas Boukarev  <stassats at gmail.com>
 
 	* slime-presentations.el (slime-presentation-write-result): Do
--- /project/slime/cvsroot/slime/contrib/slime-asdf.el	2010/03/13 03:08:04	1.29
+++ /project/slime/cvsroot/slime/contrib/slime-asdf.el	2010/05/13 12:36:00	1.30
@@ -72,6 +72,20 @@
 (defun slime-who-depends-on-rpc (system)
   (slime-eval `(swank:who-depends-on ,system)))
 
+(defcustom slime-asdf-collect-notes t
+  "Collect and display notes produced by the compiler.
+
+See also `slime-highlight-compiler-notes' and `slime-compilation-finished-hook'.")
+
+(defun slime-asdf-operation-finished-function (system)
+  (if slime-asdf-collect-notes
+      #'slime-compilation-finished
+      (lexical-let ((system system))
+        (lambda (result)
+          (let (slime-highlight-compiler-notes
+                slime-compilation-finished-hook)
+            (slime-compilation-finished result))))))
+
 (defun slime-oos (system operation &rest keyword-args)
   "Operate On System."
   (slime-save-some-lisp-buffers)
@@ -81,7 +95,7 @@
            system)
   (slime-repl-shortcut-eval-async
    `(swank:operate-on-system-for-emacs ,system ',operation , at keyword-args)
-   #'slime-compilation-finished))
+   (slime-asdf-operation-finished-function system)))
 
 
 ;;; Interactive functions
@@ -214,7 +228,7 @@
   (message "Performing ASDF LOAD-OP on system %S" system)
   (slime-repl-shortcut-eval-async
    `(swank:reload-system ,system)
-   #'slime-compilation-finished))
+   (slime-asdf-operation-finished-function system)))
 
 (defun slime-who-depends-on (system-name)
   (interactive (list (slime-read-system-name)))