X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/blobdiff_plain/9f2283726e94d33fab0b5b613a4520bf0bf84bec..53a94300685e9c34f59fa8889b22b0cbdd612428:/glib/pcl.lisp

diff --git a/glib/pcl.lisp b/glib/pcl.lisp
index 4a2b96f..39b973a 100644
--- a/glib/pcl.lisp
+++ b/glib/pcl.lisp
@@ -86,6 +86,7 @@ (defmethod change-class ((instance funcallable-standard-object)
 (defmethod change-class ((instance standard-object)
 			 (new-class funcallable-standard-class)
 			 &rest initargs)
+  (declare (ignore initargs))
   (error "Can't change the class of ~S to ~S~@
           because it isn't already an instance with metaclass ~S."
 	 instance new-class 'standard-class))
@@ -93,6 +94,7 @@ (defmethod change-class ((instance standard-object)
 (defmethod change-class ((instance funcallable-standard-object)
 			 (new-class standard-class)
 			 &rest initargs)
+  (declare (ignore initargs))
   (error "Can't change the class of ~S to ~S~@
           because it isn't already an instance with metaclass ~S."
 	 instance new-class 'funcallable-standard-class))