Closed tumashu closed 6 years ago
This should have been fixed a week ago, in 7c1698393, have you updated the package?
I will check after 10-1 holday
now, I use ebdb-0.3.3, seem to have the problem
Debugger entered--Lisp error: (invalid-function (uuid-field (slot-value record (quote uuid))))
(uuid-field (slot-value record (quote uuid)))()
#[257 "\301\302 \303\304\"\"\207" [uuid-field if-let* (uuid-field (slot-value record (quote uuid))) slot-value uuid] 6 "\n\n(fn RECORD)"]([eieio-class-tag--ebdb-record-person [eieio-class-tag--ebdb-field-uuid "8922aefd-543c-4edf-bfc6-9d3250828a1a"] [eieio-class-tag--ebdb-field-creation-date (23001 44147 544027 948000)] [eieio-class-tag--ebdb-field-timestamp (23001 44147 544067 372000)] nil nil nil t [eieio-class-tag--ebdb-cache nil nil nil nil nil nil nil] ([eieio-class-tag--ebdb-field-mail nil "test@test.org" normal]) nil nil [eieio-class-tag--ebdb-field-name-complex "test" nil nil nil nil] nil nil nil])
apply(#[257 "\301\302 \303\304\"\"\207" [uuid-field if-let* (uuid-field (slot-value record (quote uuid))) slot-value uuid] 6 "\n\n(fn RECORD)"] [eieio-class-tag--ebdb-record-person [eieio-class-tag--ebdb-field-uuid "8922aefd-543c-4edf-bfc6-9d3250828a1a"] [eieio-class-tag--ebdb-field-creation-date (23001 44147 544027 948000)] [eieio-class-tag--ebdb-field-timestamp (23001 44147 544067 372000)] nil nil nil t [eieio-class-tag--ebdb-cache nil nil nil nil nil nil nil] ([eieio-class-tag--ebdb-field-mail nil "test@test.org" normal]) nil nil [eieio-class-tag--ebdb-field-name-complex "test" nil nil nil nil] nil nil nil] nil)
ebdb-record-uuid([eieio-class-tag--ebdb-record-person [eieio-class-tag--ebdb-field-uuid "8922aefd-543c-4edf-bfc6-9d3250828a1a"] [eieio-class-tag--ebdb-field-creation-date (23001 44147 544027 948000)] [eieio-class-tag--ebdb-field-timestamp (23001 44147 544067 372000)] nil nil nil t [eieio-class-tag--ebdb-cache nil nil nil nil nil nil nil] ([eieio-class-tag--ebdb-field-mail nil "test@test.org" normal]) nil nil [eieio-class-tag--ebdb-field-name-complex "test" nil nil nil nil] nil nil nil])
#[514 "\300\301\"\204\211\302\301\303\304\305\306\300\n\307\"!##\266\310\311!\"\210\312\313#\210\312\314!\315#\210\302\316\317#\266\207" [slot-value uuid eieio-oset make-instance ebdb-field-uuid :uuid ebdb-make-uuid uuid-prefix ebdb-puthash ebdb-record-uuid object-add-to-list records ebdb-record-cache database dirty t] 13 "\n\n(fn DB RECORD)"]([eieio-class-tag--ebdb-db-file "File: ebdb" "~/.emacs.d/ebdb" [eieio-class-tag--ebdb-field-uuid "11d38cd4-1016-4501-b3a6-20242f62568f"] (23001 44088 226197 681000) nil nil "0.1" "" nil t t nil ebdb-record-person] [eieio-class-tag--ebdb-record-person [eieio-class-tag--ebdb-field-uuid "8922aefd-543c-4edf-bfc6-9d3250828a1a"] [eieio-class-tag--ebdb-field-creation-date (23001 44147 544027 948000)] [eieio-class-tag--ebdb-field-timestamp (23001 44147 544067 372000)] nil nil nil t [eieio-class-tag--ebdb-cache nil nil nil nil nil nil nil] ([eieio-class-tag--ebdb-field-mail nil "test@test.org" normal]) nil nil [eieio-class-tag--ebdb-field-name-complex "test" nil nil nil nil] nil nil nil])
apply(#[514 "\300\301\"\204 \211\302\301\303\304\305\306\300\n\307\"!##\266\310\311!\"\210\312\313#\210\312\314!\315#\210\302\316\317#\266\207" [slot-value uuid eieio-oset make-instance ebdb-field-uuid :uuid ebdb-make-uuid uuid-prefix ebdb-puthash ebdb-record-uuid object-add-to-list records ebdb-record-cache database dirty t] 13 "\n\n(fn DB RECORD)"] ([eieio-class-tag--ebdb-db-file "File: ebdb" "~/.emacs.d/ebdb" [eieio-class-tag--ebdb-field-uuid "11d38cd4-1016-4501-b3a6-20242f62568f"] (23001 44088 226197 681000) nil nil "0.1" "" nil t t nil ebdb-record-person] [eieio-class-tag--ebdb-record-person [eieio-class-tag--ebdb-field-uuid "8922aefd-543c-4edf-bfc6-9d3250828a1a"] [eieio-class-tag--ebdb-field-creation-date (23001 44147 544027 948000)] [eieio-class-tag--ebdb-field-timestamp (23001 44147 544067 372000)] nil nil nil t [eieio-class-tag--ebdb-cache nil nil nil nil nil nil nil] ([eieio-class-tag--ebdb-field-mail nil "test@test.org" normal]) nil nil [eieio-class-tag--ebdb-field-name-complex "test" nil nil nil nil] nil nil nil]))
#[128 "\302\300\206\301\"\207" [#[514 "\300\301\"\204 \211\302\301\303\304\305\306\300\n\307\"!##\266\310\311!\"\210\312\313#\210\312\314!\315#\210\302\316\317#\266\207" [slot-value uuid eieio-oset make-instance ebdb-field-uuid :uuid ebdb-make-uuid uuid-prefix ebdb-puthash ebdb-record-uuid object-add-to-list records ebdb-record-cache database dirty t] 13 "\n\n(fn DB RECORD)"] ([eieio-class-tag--ebdb-db-file "File: ebdb" "~/.emacs.d/ebdb" [eieio-class-tag--ebdb-field-uuid "11d38cd4-1016-4501-b3a6-20242f62568f"] (23001 44088 226197 681000) nil nil "0.1" "" nil t t nil ebdb-record-person] [eieio-class-tag--ebdb-record-person [eieio-class-tag--ebdb-field-uuid "8922aefd-543c-4edf-bfc6-9d3250828a1a"] [eieio-class-tag--ebdb-field-creation-date (23001 44147 544027 948000)] [eieio-class-tag--ebdb-field-timestamp (23001 44147 544067 372000)] nil nil nil t [eieio-class-tag--ebdb-cache nil nil nil nil nil nil nil] ([eieio-class-tag--ebdb-field-mail nil "test@test.org" normal]) nil nil [eieio-class-tag--ebdb-field-name-complex "test" nil nil nil nil] nil nil nil]) apply] 4 "\n\n(fn &rest CNM-ARGS)"]()
#[771 "\211\300\301\302#\266\300\301\302#\266 \207" [eieio-oset dirty t] 8 "Mark DB and RECORD as \"dirty\" until saved.\n\n(fn CL--CNM DB RECORD)"](#[128 "\302\300\206\301\"\207" [#[514 "\300\301\"\204 \211\302\301\303\304\305\306\300\n\307\"!##\266\310\311!\"\210\312\313#\210\312\314!\315#\210\302\316\317#\266\207" [slot-value uuid eieio-oset make-instance ebdb-field-uuid :uuid ebdb-make-uuid uuid-prefix ebdb-puthash ebdb-record-uuid object-add-to-list records ebdb-record-cache database dirty t] 13 "\n\n(fn DB RECORD)"] ([eieio-class-tag--ebdb-db-file "File: ebdb" "~/.emacs.d/ebdb" [eieio-class-tag--ebdb-field-uuid "11d38cd4-1016-4501-b3a6-20242f62568f"] (23001 44088 226197 681000) nil nil "0.1" "" nil t t nil ebdb-record-person] [eieio-class-tag--ebdb-record-person [eieio-class-tag--ebdb-field-uuid "8922aefd-543c-4edf-bfc6-9d3250828a1a"] [eieio-class-tag--ebdb-field-creation-date (23001 44147 544027 948000)] [eieio-class-tag--ebdb-field-timestamp (23001 44147 544067 372000)] nil nil nil t [eieio-class-tag--ebdb-cache nil nil nil nil nil nil nil] ([eieio-class-tag--ebdb-field-mail nil "test@test.org" normal]) nil nil [eieio-class-tag--ebdb-field-name-complex "test" nil nil nil nil] nil nil nil]) apply] 4 "\n\n(fn &rest CNM-ARGS)"] [eieio-class-tag--ebdb-db-file "File: ebdb" "~/.emacs.d/ebdb" [eieio-class-tag--ebdb-field-uuid "11d38cd4-1016-4501-b3a6-20242f62568f"] (23001 44088 226197 681000) nil nil "0.1" "" nil t t nil ebdb-record-person] [eieio-class-tag--ebdb-record-person [eieio-class-tag--ebdb-field-uuid "8922aefd-543c-4edf-bfc6-9d3250828a1a"] [eieio-class-tag--ebdb-field-creation-date (23001 44147 544027 948000)] [eieio-class-tag--ebdb-field-timestamp (23001 44147 544067 372000)] nil nil nil t [eieio-class-tag--ebdb-cache nil nil nil nil nil nil nil] ([eieio-class-tag--ebdb-field-mail nil "test@test.org" normal]) nil nil [eieio-class-tag--ebdb-field-name-complex "test" nil nil nil nil] nil nil nil])
apply(#[771 "\211\300\301\302#\266\300\301\302#\266 \207" [eieio-oset dirty t] 8 "Mark DB and RECORD as \"dirty\" until saved.\n\n(fn CL--CNM DB RECORD)"] #[128 "\302\300\206\301\"\207" [#[514 "\300\301\"\204 \211\302\301\303\304\305\306\300\n\307\"!##\266\310\311!\"\210\312\313#\210\312\314!\315#\210\302\316\317#\266\207" [slot-value uuid eieio-oset make-instance ebdb-field-uuid :uuid ebdb-make-uuid uuid-prefix ebdb-puthash ebdb-record-uuid object-add-to-list records ebdb-record-cache database dirty t] 13 "\n\n(fn DB RECORD)"] ([eieio-class-tag--ebdb-db-file "File: ebdb" "~/.emacs.d/ebdb" [eieio-class-tag--ebdb-field-uuid "11d38cd4-1016-4501-b3a6-20242f62568f"] (23001 44088 226197 681000) nil nil "0.1" "" nil t t nil ebdb-record-person] [eieio-class-tag--ebdb-record-person [eieio-class-tag--ebdb-field-uuid "8922aefd-543c-4edf-bfc6-9d3250828a1a"] [eieio-class-tag--ebdb-field-creation-date (23001 44147 544027 948000)] [eieio-class-tag--ebdb-field-timestamp (23001 44147 544067 372000)] nil nil nil t [eieio-class-tag--ebdb-cache nil nil nil nil nil nil nil] ([eieio-class-tag--ebdb-field-mail nil "test@test.org" normal]) nil nil [eieio-class-tag--ebdb-field-name-complex "test" nil nil nil nil] nil nil nil]) apply] 4 "\n\n(fn &rest CNM-ARGS)"] ([eieio-class-tag--ebdb-db-file "File: ebdb" "~/.emacs.d/ebdb" [eieio-class-tag--ebdb-field-uuid "11d38cd4-1016-4501-b3a6-20242f62568f"] (23001 44088 226197 681000) nil nil "0.1" "" nil t t nil ebdb-record-person] [eieio-class-tag--ebdb-record-person [eieio-class-tag--ebdb-field-uuid "8922aefd-543c-4edf-bfc6-9d3250828a1a"] [eieio-class-tag--ebdb-field-creation-date (23001 44147 544027 948000)] [eieio-class-tag--ebdb-field-timestamp (23001 44147 544067 372000)] nil nil nil t [eieio-class-tag--ebdb-cache nil nil nil nil nil nil nil] ([eieio-class-tag--ebdb-field-mail nil "test@test.org" normal]) nil nil [eieio-class-tag--ebdb-field-name-complex "test" nil nil nil nil] nil nil nil]))
#[128 "\302\300\303\304\305\306\307\301\"\310\"\311\312%#\207" [#[771 "\211\300\301\302#\266\300\301\302#\266 \207" [eieio-oset dirty t] 8 "Mark DB and RECORD as \"dirty\" until saved.\n\n(fn CL--CNM DB RECORD)"] #[514 "\300\301\"\204 \211\302\301\303\304\305\306\300\n\307\"!##\266\310\311!\"\210\312\313#\210\312\314!\315#\210\302\316\317#\266\207" [slot-value uuid eieio-oset make-instance ebdb-field-uuid :uuid ebdb-make-uuid uuid-prefix ebdb-puthash ebdb-record-uuid object-add-to-list records ebdb-record-cache database dirty t] 13 "\n\n(fn DB RECORD)"] apply make-byte-code 128 "\302\300\206\301\"\207" vconcat vector [apply] 4 "\n\n(fn &rest CNM-ARGS)"] 10 "\n\n(fn &rest ARGS)"]([eieio-class-tag--ebdb-db-file "File: ebdb" "~/.emacs.d/ebdb" [eieio-class-tag--ebdb-field-uuid "11d38cd4-1016-4501-b3a6-20242f62568f"] (23001 44088 226197 681000) nil nil "0.1" "" nil t t nil ebdb-record-person] [eieio-class-tag--ebdb-record-person [eieio-class-tag--ebdb-field-uuid "8922aefd-543c-4edf-bfc6-9d3250828a1a"] [eieio-class-tag--ebdb-field-creation-date (23001 44147 544027 948000)] [eieio-class-tag--ebdb-field-timestamp (23001 44147 544067 372000)] nil nil nil t [eieio-class-tag--ebdb-cache nil nil nil nil nil nil nil] ([eieio-class-tag--ebdb-field-mail nil "test@test.org" normal]) nil nil [eieio-class-tag--ebdb-field-name-complex "test" nil nil nil nil] nil nil nil])
apply(#[128 "\302\300\303\304\305\306\307\301\"\310\"\311\312%#\207" [#[771 "\211\300\301\302#\266\300\301\302#\266 \207" [eieio-oset dirty t] 8 "Mark DB and RECORD as \"dirty\" until saved.\n\n(fn CL--CNM DB RECORD)"] #[514 "\300\301\"\204 \211\302\301\303\304\305\306\300\n\307\"!##\266\310\311!\"\210\312\313#\210\312\314!\315#\210\302\316\317#\266\207" [slot-value uuid eieio-oset make-instance ebdb-field-uuid :uuid ebdb-make-uuid uuid-prefix ebdb-puthash ebdb-record-uuid object-add-to-list records ebdb-record-cache database dirty t] 13 "\n\n(fn DB RECORD)"] apply make-byte-code 128 "\302\300\206\301\"\207" vconcat vector [apply] 4 "\n\n(fn &rest CNM-ARGS)"] 10 "\n\n(fn &rest ARGS)"] ([eieio-class-tag--ebdb-db-file "File: ebdb" "~/.emacs.d/ebdb" [eieio-class-tag--ebdb-field-uuid "11d38cd4-1016-4501-b3a6-20242f62568f"] (23001 44088 226197 681000) nil nil "0.1" "" nil t t nil ebdb-record-person] [eieio-class-tag--ebdb-record-person [eieio-class-tag--ebdb-field-uuid "8922aefd-543c-4edf-bfc6-9d3250828a1a"] [eieio-class-tag--ebdb-field-creation-date (23001 44147 544027 948000)] [eieio-class-tag--ebdb-field-timestamp (23001 44147 544067 372000)] nil nil nil t [eieio-class-tag--ebdb-cache nil nil nil nil nil nil nil] ([eieio-class-tag--ebdb-field-mail nil "test@test.org" normal]) nil nil [eieio-class-tag--ebdb-field-name-complex "test" nil nil nil nil] nil nil nil]))
#[128 "\300\211\203\211@\303\"\210A\266\202\202\210\303\302\"\301\211\203+\211@\303\"\210A\266\202\202\210\207" [(#[514 "\300!\207" [ebdb-db-editable] 4 "\n\n(fn DB RECORD)"]) nil #[128 "\302\300\303\304\305\306\307\301\"\310\"\311\312%#\207" [#[771 "\211\300\301\302#\266\300\301\302#\266 \207" [eieio-oset dirty t] 8 "Mark DB and RECORD as \"dirty\" until saved.\n\n(fn CL--CNM DB RECORD)"] #[514 "\300\301\"\204 \211\302\301\303\304\305\306\300\n\307\"!##\266\310\311!\"\210\312\313#\210\312\314!\315#\210\302\316\317#\266\207" [slot-value uuid eieio-oset make-instance ebdb-field-uuid :uuid ebdb-make-uuid uuid-prefix ebdb-puthash ebdb-record-uuid object-add-to-list records ebdb-record-cache database dirty t] 13 "\n\n(fn DB RECORD)"] apply make-byte-code 128 "\302\300\206\301\"\207" vconcat vector [apply] 4 "\n\n(fn &rest CNM-ARGS)"] 10 "\n\n(fn &rest ARGS)"] apply] 7 "\n\n(fn &rest ARGS)"]([eieio-class-tag--ebdb-db-file "File: ebdb" "~/.emacs.d/ebdb" [eieio-class-tag--ebdb-field-uuid "11d38cd4-1016-4501-b3a6-20242f62568f"] (23001 44088 226197 681000) nil nil "0.1" "" nil t t nil ebdb-record-person] [eieio-class-tag--ebdb-record-person [eieio-class-tag--ebdb-field-uuid "8922aefd-543c-4edf-bfc6-9d3250828a1a"] [eieio-class-tag--ebdb-field-creation-date (23001 44147 544027 948000)] [eieio-class-tag--ebdb-field-timestamp (23001 44147 544067 372000)] nil nil nil t [eieio-class-tag--ebdb-cache nil nil nil nil nil nil nil] ([eieio-class-tag--ebdb-field-mail nil "test@test.org" normal]) nil nil [eieio-class-tag--ebdb-field-name-complex "test" nil nil nil nil] nil nil nil])
apply(#[128 "\300\211\203\211@\303\"\210A\266\202\202\210\303\302\"\301\211\203+\211@\303\"\210A\266\202\202\210\207" [(#[514 "\300!\207" [ebdb-db-editable] 4 "\n\n(fn DB RECORD)"]) nil #[128 "\302\300\303\304\305\306\307\301\"\310\"\311\312%#\207" [#[771 "\211\300\301\302#\266\300\301\302#\266 \207" [eieio-oset dirty t] 8 "Mark DB and RECORD as \"dirty\" until saved.\n\n(fn CL--CNM DB RECORD)"] #[514 "\300\301\"\204 \211\302\301\303\304\305\306\300\n\307\"!##\266\310\311!\"\210\312\313#\210\312\314!\315#\210\302\316\317#\266\207" [slot-value uuid eieio-oset make-instance ebdb-field-uuid :uuid ebdb-make-uuid uuid-prefix ebdb-puthash ebdb-record-uuid object-add-to-list records ebdb-record-cache database dirty t] 13 "\n\n(fn DB RECORD)"] apply make-byte-code 128 "\302\300\206\301\"\207" vconcat vector [apply] 4 "\n\n(fn &rest CNM-ARGS)"] 10 "\n\n(fn &rest ARGS)"] apply] 7 "\n\n(fn &rest ARGS)"] [eieio-class-tag--ebdb-db-file "File: ebdb" "~/.emacs.d/ebdb" [eieio-class-tag--ebdb-field-uuid "11d38cd4-1016-4501-b3a6-20242f62568f"] (23001 44088 226197 681000) nil nil "0.1" "" nil t t nil ebdb-record-person] [eieio-class-tag--ebdb-record-person [eieio-class-tag--ebdb-field-uuid "8922aefd-543c-4edf-bfc6-9d3250828a1a"] [eieio-class-tag--ebdb-field-creation-date (23001 44147 544027 948000)] [eieio-class-tag--ebdb-field-timestamp (23001 44147 544067 372000)] nil nil nil t [eieio-class-tag--ebdb-cache nil nil nil nil nil nil nil] ([eieio-class-tag--ebdb-field-mail nil "test@test.org" normal]) nil nil [eieio-class-tag--ebdb-field-name-complex "test" nil nil nil nil] nil nil nil])
ebdb-db-add-record([eieio-class-tag--ebdb-db-file "File: ebdb" "~/.emacs.d/ebdb" [eieio-class-tag--ebdb-field-uuid "11d38cd4-1016-4501-b3a6-20242f62568f"] (23001 44088 226197 681000) nil nil "0.1" "" nil t t nil ebdb-record-person] [eieio-class-tag--ebdb-record-person [eieio-class-tag--ebdb-field-uuid "8922aefd-543c-4edf-bfc6-9d3250828a1a"] [eieio-class-tag--ebdb-field-creation-date (23001 44147 544027 948000)] [eieio-class-tag--ebdb-field-timestamp (23001 44147 544067 372000)] nil nil nil t [eieio-class-tag--ebdb-cache nil nil nil nil nil nil nil] ([eieio-class-tag--ebdb-field-mail nil "test@test.org" normal]) nil nil [eieio-class-tag--ebdb-field-name-complex "test" nil nil nil nil] nil nil nil])
ebdb-create-record([eieio-class-tag--ebdb-db-file "File: ebdb" "~/.emacs.d/ebdb" [eieio-class-tag--ebdb-field-uuid "11d38cd4-1016-4501-b3a6-20242f62568f"] (23001 44088 226197 681000) nil nil "0.1" "" nil t t nil ebdb-record-person])
funcall-interactively(ebdb-create-record [eieio-class-tag--ebdb-db-file "File: ebdb" "~/.emacs.d/ebdb" [eieio-class-tag--ebdb-field-uuid "11d38cd4-1016-4501-b3a6-20242f62568f"] (23001 44088 226197 681000) nil nil "0.1" "" nil t t nil ebdb-record-person])
call-interactively(ebdb-create-record nil nil)
command-execute(ebdb-create-record)
Can you tell me what version of Emacs you're using? That function works just fine here. What happens if you eval the following:
(ebdb-record-uuid (car ebdb-record-tracker))
(Whoops, wrote the wrong method name.)
I'm having similar problems. When I evaluate that, I get
Symbol’s function definition is void: ebdb-record-uuid
ebdb version 0.3.3
GNU Emacs 25.3.1 (x86_64-pc-linux-gnu, GTK+ Version 3.22.19) of 2017-09-16
I've seen it on other platforms too, though.
The thing that I first noticed was
(invalid-function (uuid-field (slot-value record (quote uuid))))
Not sure if it's the same issue. Everything worked fine for me prior to 0.3.3 update.
Thanks for the confirmation. I wonder if if-let*
behaves differently in older versions of Emacs. Can you try eval
-ing this form directly, then re-run the form above?
(cl-defmethod ebdb-record-uuid ((record ebdb-record))
(if-let* ((uuid-field (slot-value record 'uuid)))
(slot-value uuid-field 'uuid)))
If it is something to do with if-let*
, it should be relatively easy to revert to something simpler.
If I eval that first, then
(ebdb-record-uuid (car ebdb-record-tracker))
produces
Symbol’s function definition is void: if-let*
Well that settles that, then! I probably jumped the gun when I saw some deprecation notices from the compiler. I'll switch back to if-let
and when-let
-- those are defined in Emacs 25.