[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-load-failed-fasl): New variable. Accepts `ask',
`always', and `never' symbols. Loads or not loads fasls produced by
compile-file which returned non-nil failure-p.


--- /project/slime/cvsroot/slime/ChangeLog	2011/04/14 01:21:10	1.2186
+++ /project/slime/cvsroot/slime/ChangeLog	2011/04/16 05:17:59	1.2187
@@ -1,3 +1,9 @@
+2011-04-16  Stas Boukarev  <stassats at gmail.com>
+
+	* slime.el (slime-load-failed-fasl): New variable. Accepts `ask',
+	`always', and `never' symbols. Loads or not loads fasls produced by
+	compile-file which returned non-nil failure-p.
+
 2011-04-14  Stas Boukarev  <stassats at gmail.com>
 
 	* swank.lisp (list-threads): Call `use-threads-p' only when
--- /project/slime/cvsroot/slime/slime.el	2011/03/09 20:09:57	1.1362
+++ /project/slime/cvsroot/slime/slime.el	2011/04/16 05:17:59	1.1363
@@ -2664,6 +2664,21 @@
         ',slime-compilation-policy)
       #'slime-compilation-finished)))
 
+(defcustom slime-load-failed-fasl 'ask
+  "Which action to take when COMPILE-FILE set FAILURE-P to T.
+NEVER doesn't load the fasl
+ALWAYS loads the fasl
+ASK asks the user."
+  :type '(choice (const never)
+                 (const always)
+                 (const ask)))
+
+(defun slime-load-failed-fasl-p ()
+  (ecase slime-load-failed-fasl
+    (never nil)
+    (always t)
+    (ask (y-or-n-p "Compilation failed.  Load fasl file anyway? "))))
+
 (defun slime-compilation-finished (result)
   (with-struct (slime-compilation-result. notes duration successp
                                           loadp faslfile) result
@@ -2675,7 +2690,7 @@
     (run-hook-with-args 'slime-compilation-finished-hook notes)
     (when (and loadp faslfile 
                (or successp
-                   (y-or-n-p "Compilation failed.  Load fasl file anyway? ")))
+                   (slime-load-failed-fasl-p)))
       (slime-eval-async `(swank:load-file ,faslfile)))))
 
 (defun slime-show-note-counts (notes secs successp)