GNU bug report logs - #78782
31.0.50 ; remove eieio's *-list-p

Previous Next

Full log

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Pip Cet <pipcet <at> protonmail.com>
To: bug-gnu-emacs <at> gnu.org, Stefan Monnier <monnier <at> iro.umontreal.ca>
Subject: 31.0.50 ; remove eieio's *-list-p
Date: Fri, 13 Jun 2025 13:27:04 +0000

This code in eieio-core.el:

          (lambda (obj)
            (:documentation
             (format
              "Test OBJ to see if it a list of objects which are a child of type %s"
              cname))
            (when (listp obj)
              (let ((ans t)) ;; nil is valid
                ;; Loop over all the elements of the input list, test
                ;; each to make sure it is a child of the desired object class.
                (while (and obj ans)
                  (setq ans (and (eieio-object-p (car obj))
                                 (object-of-class-p (car obj) 'cname)))
                  (setq obj (cdr obj)))
                ans))))

creates *-list-p, which then tests whether a list of objects are all
descendants of class 'cname, a literal symbol.  This works only if the
class we're defining is called "cname", and no one noticed, so it's time
to remove this obsolete function (obsoleted in 25.1).

The code has been in place since:

commit 2c47eaa18a4a3f7eb53ed826d8c5d018ac843586
AuthorDate: Tue May 18 17:13:37 2021 -0400

This would probably also make (defclass proper nil 'x) work, instead of
redefining proper-list-p to be a different function.

OK to do this on master?

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.