From: Mark Wooding <mdw@distorted.org.uk>
Date: Tue, 26 Feb 2013 10:03:54 +0000 (+0000)
Subject: dot/lisp-init.lisp: Muffle warnings both times we load ASDF in CLisp.
X-Git-Url: https://git.distorted.org.uk/~mdw/profile/commitdiff_plain/caac02f8448b303d606e409060208b8965f6421c?hp=ef864444687b788758ae35108ac508aac3442f3d

dot/lisp-init.lisp: Muffle warnings both times we load ASDF in CLisp.

Otherwise we get a load of spew the first time in some versions.
---

diff --git a/dot/lisp-init.lisp b/dot/lisp-init.lisp
index 8a543e0..c77e494 100644
--- a/dot/lisp-init.lisp
+++ b/dot/lisp-init.lisp
@@ -7,11 +7,11 @@
 #+sbcl (require :asdf)
 #+clisp (let ((*compile-verbose* nil)
 	      (*load-verbose* nil))
-	  (load "/usr/share/common-lisp/source/cl-asdf/asdf.lisp"
-		:verbose nil)
 	  (handler-bind ((warning (lambda (cond)
 				    (declare (ignore cond))
 				    (muffle-warning))))
+	    (load "/usr/share/common-lisp/source/cl-asdf/asdf.lisp"
+		  :verbose nil)
 	    (funcall (find-symbol "LOAD-SYSTEM" :asdf) :asdf
 		     :verbose nil)))