From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 21 Dec 2021 01:45:39 +0000 (-0500)
Subject: eieio-tests.el: Silence last warnings
X-Git-Tag: emacs-29.0.90~3543
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bfcff4619982f9bf8c9b4a656aae454968b83db5;p=emacs.git

eieio-tests.el: Silence last warnings

* test/lisp/emacs-lisp/eieio-tests/eieio-tests.el (eieio-tests--dummy):
New class.
(eieio-test-22-init-forms-dont-match-runnable): Tweak to silence warning.
---

diff --git a/test/lisp/emacs-lisp/eieio-tests/eieio-tests.el b/test/lisp/emacs-lisp/eieio-tests/eieio-tests.el
index c13d3ee6efa..3ed00f49d14 100644
--- a/test/lisp/emacs-lisp/eieio-tests/eieio-tests.el
+++ b/test/lisp/emacs-lisp/eieio-tests/eieio-tests.el
@@ -55,6 +55,9 @@
    )
   "Class A.")
 
+;; Silence compiler warning about `water' not being a class-allocated slot.
+(defclass eieio-tests--dummy () ((water :allocation :class)))
+
 (defclass class-b ()
   ((land :initform "Sc"
 	 :type string
@@ -555,7 +558,7 @@ METHOD is the method that was attempting to be called."
     "Test class that will be a calculated value.")
 
   (defclass eitest-superior nil
-    ((sub :initform (eitest-subordinate)
+    ((sub :initform (funcall #'eitest-subordinate)
 	  :type eitest-subordinate))
     "A class with an initform that creates a class.")