[slime-cvs] CVS slime/contrib

[mbaringer]

Update of /project/slime/cvsroot/slime/contrib
In directory clnet:/tmp/cvs-serv9722/contrib

Modified Files:
	swank-arglists.lisp ChangeLog 
Log Message:
(arglist-dispatch): Specialize operator-type
so openmcl doesn't warn about unused arguments.
(arglist-dispatch): add declare ignore form.


--- /project/slime/cvsroot/slime/contrib/swank-arglists.lisp	2008/02/04 16:35:39	1.19
+++ /project/slime/cvsroot/slime/contrib/swank-arglists.lisp	2008/02/04 17:58:31	1.20
@@ -1087,7 +1087,7 @@
 
 (defgeneric arglist-dispatch (operator-type operator arguments &key remove-args))
   
-(defmethod arglist-dispatch (operator-type operator arguments &key (remove-args t))
+(defmethod arglist-dispatch ((operator-type t) operator arguments &key (remove-args t))
   (when (and (symbolp operator)
              (valid-operator-symbol-p operator))
     (multiple-value-bind (decoded-arglist determining-args any-enrichment)
@@ -1140,7 +1140,7 @@
 (defmethod arglist-dispatch ((operator-type (eql :function)) (operator (eql 'declare))
                              arguments &key (remove-args t))
   ;; Catching 'DECLARE before SWANK-BACKEND:ARGLIST can barf.
-  (declare (ignore remove-args))
+  (declare (ignore remove-args arguments))
   (make-arglist :rest '#:decl-specifiers))
 
 (defmethod arglist-dispatch ((operator-type (eql :declaration))
--- /project/slime/cvsroot/slime/contrib/ChangeLog	2008/02/04 16:36:29	1.85
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2008/02/04 17:58:32	1.86
@@ -1,3 +1,9 @@
+2008-02-04  Marco Baringer  <mb at bese.it>
+
+	* swank-arglists.lisp (arglist-dispatch): Specialize operator-type
+	so openmcl doesn't warn about unused arguments.
+	(arglist-dispatch): add declare ignore form.
+
 2008-02-04  Helmut Eller  <heller at common-lisp.net>
 
 	Move some functions to swank-arglist.lisp.