From caac02f8448b303d606e409060208b8965f6421c Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Tue, 26 Feb 2013 10:03:54 +0000
Subject: [PATCH] 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.
---
 dot/lisp-init.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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)))
 
-- 
2.11.0