X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/30eb3c686a1bb2cea791798324c2eea08ffc341d..bb99b6957941ea4ea57835fad294baf7312b668c:/src/utilities.lisp

diff --git a/src/utilities.lisp b/src/utilities.lisp
index e7e1ae2..a496283 100644
--- a/src/utilities.lisp
+++ b/src/utilities.lisp
@@ -23,13 +23,15 @@
 ;;; along with SOD; if not, write to the Free Software Foundation,
 ;;; Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 
-(cl:defpackage #:sod-utilities
-  (:use #:common-lisp
-
-	;; MOP from somewhere.
-	#+sbcl #:sb-mop
-	#+(or cmu clisp) #:mop
-	#+ecl #:clos))
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (handler-bind ((warning #'muffle-warning))
+    (cl:defpackage #:sod-utilities
+      (:use #:common-lisp
+
+	    ;; MOP from somewhere.
+	    #+sbcl #:sb-mop
+	    #+(or cmu clisp) #:mop
+	    #+ecl #:clos))))
 
 (cl:in-package #:sod-utilities)