dot/lisp-init.lisp: Don't signal errors on compile failures in SBCL.

For some reason, ASDF sets *compile-file-failure-behaviour* to :error
specially on SBCL.  Turn it back to :warn.

diff --git a/dot/lisp-init.lisp b/dot/lisp-init.lisp
index 8da623d5e28f474e6a5906257a3f23835eca6366..6624c60c9407768a0b19e554e18304aba0a516b3 100644 (file)
--- a/dot/lisp-init.lisp
+++ b/dot/lisp-init.lisp
@@ -20,6 +20,8 @@ (defun mdw-hacks:crank-swank (&rest #1=#:args)
     (set (find-symbol "*GLOBAL-DEBUGGER*" #2#) nil)
     (apply (find-symbol "CREATE-SERVER" #2#) #1#)))
 
     (set (find-symbol "*GLOBAL-DEBUGGER*" #2#) nil)
     (apply (find-symbol "CREATE-SERVER" #2#) #1#)))
 

+#+asdf (setf asdf:*compile-file-failure-behaviour* :warn)
+

 ;; Done.
 (pushnew :mdw *features*)
 ;;#+(and cmu mp) (mp::startup-idle-and-top-level-loops)
 ;; Done.
 (pushnew :mdw *features*)
 ;;#+(and cmu mp) (mp::startup-idle-and-top-level-loops)