;;; 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-frontend
- (:use #:common-lisp #:sod-utilities #:optparse #:sod #:sod-parser)
- (:shadowing-import-from #:optparse #:int))
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (handler-bind ((warning #'muffle-warning))
+ (cl:defpackage #:sod-frontend
+ (:use #:common-lisp #:sod-utilities #:optparse #:sod #:sod-parser)
+ (:shadowing-import-from #:optparse #:int))))
(cl:in-package #:sod-frontend)
;;; 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)
;;; 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)
;;; 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-parser
- (:use #:common-lisp
- #:sod-utilities
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (handler-bind ((warning #'muffle-warning))
+ (cl:defpackage #:sod-parser
+ (:use #:common-lisp
+ #:sod-utilities
- ;; Try to find Gray streams support from somewhere. ECL tucks them
- ;; somewhere unhelpful.
- #.(or (car '(#+sbcl #:sb-gray
- #+cmu #:extensions
- #+ecl #.(if (find-package '#:gray) '#:gray '#:si)
- #+clisp #:gray))
- (error "Unsupported Lisp (can't find Gray streams)")))
+ ;; Try to find Gray streams support from somewhere. ECL tucks
+ ;; them somewhere unhelpful.
+ #.(or (car '(#+sbcl #:sb-gray
+ #+cmu #:extensions
+ #+ecl #.(if (find-package '#:gray) '#:gray '#:si)
+ #+clisp #:gray))
+ (error "Unsupported Lisp (can't find Gray streams)")))
- ;; CMUCL's `extensions' package has lots of cruft. Use our cruft instead.
- #+cmu (:shadowing-import-from #:sod-utilities #:symbolicate #:once-only))
+ ;; CMUCL's `extensions' package has lots of cruft. Use our cruft
+ ;; instead.
+ #+cmu (:shadowing-import-from
+ #:sod-utilities #:symbolicate #:once-only))))
;;;----- That's all, folks --------------------------------------------------
;;; 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)