master 40149b8: * lisp/emacs-lisp/eieio.el (oset, oset-default): Mark as obsolete

[Stefan Monnier]

branch: master
commit 40149b871889461713dc73634498f9d2150b0249
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>

    * lisp/emacs-lisp/eieio.el (oset, oset-default): Mark as obsolete
---
 etc/NEWS                 | 2 ++
 lisp/emacs-lisp/eieio.el | 6 ++++--
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/etc/NEWS b/etc/NEWS
index 753b7a7..0f4b624 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -101,6 +101,8 @@ horizontal movements now stop at the edge of the board.
 
 * Changes in Specialized Modes and Packages in Emacs 28.1
 
+** EIEIO: 'oset' and 'oset-default' are declared obsolete
+
 ** New minor mode 'cl-font-lock-built-in-mode' for `lisp-mode'
 The mode provides refined highlighting of built-in functions, types,
 and variables.
diff --git a/lisp/emacs-lisp/eieio.el b/lisp/emacs-lisp/eieio.el
index 9f8b639..fe2b80b 100644
--- a/lisp/emacs-lisp/eieio.el
+++ b/lisp/emacs-lisp/eieio.el
@@ -517,7 +517,8 @@ The CLOS function `class-direct-subclasses' is aliased to 
this function."
   "Set the value in OBJ for slot SLOT to VALUE.
 SLOT is the slot name as specified in `defclass' or the tag created
 with in the :initarg slot.  VALUE can be any Lisp object."
-  (declare (debug (form symbolp form)))
+  (declare (obsolete "use (setf (oref ..) ..) instead" "28.1")
+           (debug (form symbolp form)))
   `(eieio-oset ,obj (quote ,slot) ,value))
 
 (defmacro oset-default (class slot value)
@@ -525,7 +526,8 @@ with in the :initarg slot.  VALUE can be any Lisp object."
 The default value is usually set with the :initform tag during class
 creation.  This allows users to change the default behavior of classes
 after they are created."
-  (declare (debug (form symbolp form)))
+  (declare (obsolete "use (setf (oref-default ..) ..) instead" "28.1")
+           (debug (form symbolp form)))
   `(eieio-oset-default ,class (quote ,slot) ,value))
 
 ;;; CLOS queries into classes and slots