From: Lars Brinkhoff <lars@nocrew.org>
To: emacs-devel@gnu.org
Subject: Re: User-defined record types, v2
Date: Thu, 23 Mar 2017 08:02:18 +0100 [thread overview]
Message-ID: <86d1d8mq6d.fsf@molnjunk.nocrew.org> (raw)
In-Reply-To: 86r31omqkp.fsf@molnjunk.nocrew.org
Lars Brinkhoff wrote:
>> Hmm... I can't reproduce this right now. Have you fixed it in the
>> mean time?
>
> I'm rebuilding and checking again now.
Still same error.
This is exactly how I reproduce it:
git clean -xfd
./autogen.sh
make bootstrap
make check
# 2 files contained unexpected results:
# lisp/emacs-lisp/eieio-tests/eieio-tests.log
# lisp/emacs-lisp/eieio-tests/eieio-test-methodinvoke.log
src/emacs -Q
Evaluate this in *scratch*
(progn
(require 'eieio)
(defclass foo ()
((x :initarg :emu
:initform emu
:allocation :class
:accessor get-foo)))
(get-foo (foo))
(get-foo 'foo))
I get this backtrace:
Debugger entered--Lisp error: (error "eieio-oref called on a class: foo")
signal(error ("eieio-oref called on a class: foo"))
error("eieio-oref called on a class: %s" foo)
eieio-oref(foo x)
(if (slot-boundp this (quote x)) (eieio-oref this (quote x)))
(progn (if (slot-boundp this (quote x)) (eieio-oref this (quote x))))
(lambda (this) "Retrieve the slot `x' from an object of class `foo'."
(progn (if (slot-boundp this (quote x)) (eieio-oref this (quote x)))))
(foo)
apply((lambda (this) "Retrieve the slot `x' from an object of class
`foo'." (progn (if (slot-boundp this (quote x)) (eieio-oref this
(quote x))))) foo nil)
get-foo(foo)
eval-region(146 305 t #[257 "\300\242b\210\301\207" [(305) (progn
(require (quote eieio)) (progn (defalias (quote foo-p)
(eieio-make-class-predicate (quote foo))) (defalias (quote
foo--eieio-childp) (eieio-make-child-predicate (quote foo))) (defalias
(quote foo-child-p) (quote foo--eieio-childp)) (make-obsolete (quote
foo-child-p) "use (cl-typep ... 'foo) instead" "25.1") (put (quote
foo) (quote cl-deftype-satisfies) (function foo--eieio-childp))
(eieio-defclass-internal (quote foo) (quote nil) (quote (...)) (quote
nil)) (progn nil nil (cl-generic-define-method (quote get-foo) (quote
nil) (quote ...) nil (function ...))) (progn nil nil
(cl-generic-define-method (quote get-foo) (quote nil) (quote ...) nil
(function ...))) (progn nil nil (cl-generic-define-method (quote
\(setf\ get-foo\)) (quote nil) (quote ...) nil (function ...))) (prog1
(defalias (quote foo) (function ...)) (progn (quote foo--anon-cmacro)
:autoload-end (quote foo--anon-cmacro)))) (get-foo (foo)) (get-foo
(quote foo)))] 2 "\n\n(fn IGNORE)"]) ; Reading at buffer position 172
elisp--eval-defun()
eval-defun(nil)
funcall-interactively(eval-defun nil)
call-interactively(eval-defun nil nil)
command-execute(eval-defun)
next prev parent reply other threads:[~2017-03-23 7:02 UTC|newest]
Thread overview: 31+ messages / expand[flat|nested] mbox.gz Atom feed top
2017-03-18 17:04 User-defined record types, v2 Lars Brinkhoff
2017-03-18 17:05 ` Lars Brinkhoff
2017-03-18 17:13 ` Lars Brinkhoff
2017-03-18 17:17 ` Lars Brinkhoff
2017-03-18 17:21 ` Lars Brinkhoff
2017-03-18 17:35 ` Eli Zaretskii
2017-03-18 19:33 ` Lars Brinkhoff
2017-03-18 22:24 ` Stefan Monnier
2017-03-19 9:17 ` Lars Brinkhoff
2017-03-19 12:50 ` Stefan Monnier
2017-03-19 14:51 ` Eli Zaretskii
2017-03-18 17:29 ` Eli Zaretskii
2017-03-19 10:28 ` Lars Brinkhoff
2017-03-19 12:51 ` Stefan Monnier
2017-03-21 9:55 ` Lars Brinkhoff
2017-03-21 11:53 ` Stefan Monnier
2017-03-22 21:15 ` Stefan Monnier
2017-03-23 6:53 ` Lars Brinkhoff
2017-03-23 7:02 ` Lars Brinkhoff [this message]
2017-03-23 7:34 ` Lars Brinkhoff
2017-03-23 19:47 ` Stefan Monnier
2017-03-24 10:15 ` Lars Brinkhoff
2017-03-24 18:17 ` Stefan Monnier
2017-03-24 20:38 ` Lars Brinkhoff
2017-03-29 12:46 ` Lars Brinkhoff
2017-03-30 12:59 ` Stefan Monnier
2017-03-30 14:57 ` Lars Brinkhoff
2017-03-30 15:07 ` Stefan Monnier
2017-03-30 18:10 ` Eli Zaretskii
2017-03-22 7:58 ` Lars Brinkhoff
2017-03-22 8:46 ` Andreas Schwab
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=86d1d8mq6d.fsf@molnjunk.nocrew.org \
--to=lars@nocrew.org \
--cc=emacs-devel@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.