X-Git-Url: https://git.distorted.org.uk/~mdw/clg/blobdiff_plain/79527bbeb455a28d3a39a3d1706222b23903bc11..30279859947ee3c2554b179a26be48fdb5b902f5:/glib/pcl.lisp?ds=sidebyside

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