;;; 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
- (:use #:common-lisp
- #:sod-utilities
- #:sod-parser))
-
-(cl:defpackage #:sod-user
- (:use #:common-lisp
- #:sod-utilities
- #:optparse
- #:sod-parser
- #:sod))
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (handler-bind ((warning #'muffle-warning))
+ (cl:defpackage #:sod
+ (:use #:common-lisp
+ #:sod-utilities
+ #:sod-parser))
+ (cl:defpackage #:sod-user
+ (:use #:common-lisp
+ #:sod-utilities
+ #:optparse
+ #:sod-parser
+ #:sod))))
(cl:in-package #:sod)