lib/keyword.c (kw_parseempty): Use correct variable scanning `kwval' list.

[sod] / src / parser / package.lisp

diff --git a/src/parser/package.lisp b/src/parser/package.lisp
index 623c297..1ce0cfa 100644 (file)
--- a/src/parser/package.lisp
+++ b/src/parser/package.lisp
@@ -23,19 +23,23 @@
 ;;; 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 --------------------------------------------------