src/package.lisp, etc.: Muffle warnings about exported symbols etc.

[sod] / src / optparse.lisp

diff --git a/src/optparse.lisp b/src/optparse.lisp
index a34a7ea434b12f77533fd65b94670be4867e9c86..d03b9cc4d4e29ff82168ccf358a29185bc2d30b6 100644 (file)
--- a/src/optparse.lisp
+++ b/src/optparse.lisp
@@ -23,8 +23,10 @@
 ;;; along with SOD; if not, write to the Free Software Foundation,
 ;;; Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 
-(cl:defpackage #:optparse
-  (:use #:common-lisp #:sod-utilities))
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (handler-bind ((warning #'muffle-warning))
+    (cl:defpackage #:optparse
+      (:use #:common-lisp #:sod-utilities))))
 
 (cl:in-package #:optparse)