[slime-cvs] CVS slime

[CVS User heller]

Update of /project/slime/cvsroot/slime
In directory tiger.common-lisp.net:/tmp/cvs-serv24152

Modified Files:
	slime.el 
Log Message:
* slime.el (utf-8-source): Bind slime-load-failed-fasl.

--- /project/slime/cvsroot/slime/slime.el	2012/03/26 15:09:46	1.1393
+++ /project/slime/cvsroot/slime/slime.el	2012/03/26 15:10:38	1.1394
@@ -8017,10 +8017,11 @@
               (insert ";; -*- coding: utf-8-unix -*- \n")
               (insert input)
               (save-buffer)
-              (slime-compile-and-load-file)
-              (slime-wait-condition "Compilation finished" 
-                                    (lambda () (car cell))
-                                    0.5)
+              (let ((slime-load-failed-fasl 'always))
+                (slime-compile-and-load-file)
+                (slime-wait-condition "Compilation finished" 
+                                      (lambda () (car cell))
+                                      0.5))
               (slime-test-expect "Compile-file result correct"
                                  output (slime-eval '(cl-user::foo))))
           (remove-hook 'slime-compilation-finished-hook hook)