[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master bfcff46: eieio-tests.el: Silence last warnings

From: Stefan Monnier
Subject: master bfcff46: eieio-tests.el: Silence last warnings
Date: Mon, 20 Dec 2021 20:45:46 -0500 (EST)

branch: master
commit bfcff4619982f9bf8c9b4a656aae454968b83db5
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    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.
 test/lisp/emacs-lisp/eieio-tests/eieio-tests.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/test/lisp/emacs-lisp/eieio-tests/eieio-tests.el 
index c13d3ee..3ed00f4 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.")

reply via email to

[Prev in Thread] Current Thread [Next in Thread]