X-Git-Url: https://git.distorted.org.uk/~mdw/clg/blobdiff_plain/9f2283726e94d33fab0b5b613a4520bf0bf84bec..80a09c29e3e604a25dd0a32282bc6b2c73fbaa4d:/glib/pcl.lisp?ds=inline

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 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 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))