From: Mark Wooding <mdw@distorted.org.uk>
Date: Mon, 7 Dec 2009 09:29:42 +0000 (+0000)
Subject: dot/lisp-init.lisp: Don't signal errors on compile failures in SBCL.
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/profile/commitdiff_plain/502738c088941bdfa32519bb17314af26501d5df?hp=--cc

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.
---

502738c088941bdfa32519bb17314af26501d5df
diff --git a/dot/lisp-init.lisp b/dot/lisp-init.lisp
index 8da623d..6624c60 100644
--- 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#)))
 
+#+asdf (setf asdf:*compile-file-failure-behaviour* :warn)
+
 ;; Done.
 (pushnew :mdw *features*)
 ;;#+(and cmu mp) (mp::startup-idle-and-top-level-loops)