search

girzel / ebdb

An EIEIO port of BBDB, Emacs' contact-management package
67 stars 11 forks source link

Debugger entered--Lisp error: (invalid-function (notes (slot-value record (quote notes)))) #54

Closed tumashu closed 6 years ago

tumashu commented 6 years ago 
Debugger entered--Lisp error: (invalid-function (notes (slot-value record (quote notes))))
  (notes (slot-value record (quote notes)))()
  #[771 "\301\302 \303\"\"\207" [notes if-let* (notes (slot-value record (quote notes))) ebdb-field-search] 8 "\n\n(fn RECORD TYPE REGEXP)"]([eieio-class-tag--ebdb-record-person [eieio-class-tag--ebdb-field-uuid "5fc249b9-9763-4190-b55f-8aa30a9e9210"] [eieio-class-tag--ebdb-field-creation-date (22711 31411 558458 900000)] [eieio-class-tag--ebdb-field-timestamp (22958 6031 363857 400000)] ([eieio-class-tag--ebdb-field-mail-alias "test3" [eieio-class-tag--ebdb-field-mail nil "test@test.org" normal]] [eieio-class-tag--ebdb-field-mail-alias "test2" [eieio-class-tag--ebdb-field-mail nil "test@test.org" normal]] [eieio-class-tag--ebdb-field-mail-alias "test" [eieio-class-tag--ebdb-field-mail nil "test@test.org" normal]]) nil nil nil [eieio-class-tag--ebdb-cache nil nil nil nil nil nil ([eieio-class-tag--ebdb-db-file "File: ebdb" "~/.emacs.d/ebdb" [eieio-class-tag--ebdb-field-uuid "eed73c5b-55eb-4b0f-a840-24d02174acde"] (22958 5998 836226 900000) (#0 [eieio-class-tag--ebdb-record-person [eieio-class-tag--ebdb-field-uuid "b3b87243-fc7d-4f22-ae38-996a665dd5e0"] [eieio-class-tag--ebdb-field-creation-date (22711 31403 389421 600000)] [eieio-class-tag--ebdb-field-timestamp (22711 31403 389421 600000)] nil nil nil nil [eieio-class-tag--ebdb-cache nil nil nil nil nil nil nil] ([eieio-class-tag--ebdb-field-mail nil "tumashu@163.com" normal]) nil nil [eieio-class-tag--ebdb-field-name-complex "冯书" nil nil nil nil] nil nil nil] [eieio-class-tag--ebdb-record-person [eieio-class-tag--ebdb-field-uuid "6e3d4ca7-5948-43e6-8467-3f08479cf154"] [eieio-class-tag--ebdb-field-creation-date (22703 59166 496210 700000)] [eieio-class-tag--ebdb-field-timestamp (22703 59184 807535 900000)] nil nil nil nil [eieio-class-tag--ebdb-cache nil nil nil nil nil nil nil] ([eieio-class-tag--ebdb-field-mail nil "tumashu@163.com" normal]) ([eieio-class-tag--ebdb-field-phone "cell" nil nil "123456789" nil]) nil [eieio-class-tag--ebdb-field-name-complex "is" ("This") nil nil nil] nil nil nil] [eieio-class-tag--ebdb-record-person [eieio-class-tag--ebdb-field-uuid "c0bc65bd-07be-497b-a359-fa6c31d23b9a"] [eieio-class-tag--ebdb-field-creation-date (22702 37788 391440 500000)] [eieio-class-tag--ebdb-field-timestamp (22712 55173 746899 700000)] nil nil nil nil [eieio-class-tag--ebdb-cache nil nil nil nil nil nil nil] ([eieio-class-tag--ebdb-field-mail nil "tumashu@gmail.com" normal]) nil nil [eieio-class-tag--ebdb-field-name-complex "毛主席" nil nil nil nil] nil nil nil] [eieio-class-tag--ebdb-record-person [eieio-class-tag--ebdb-field-uuid "dfe8798e-0b18-4bfb-bf7f-dcf51e854f8b"] [eieio-class-tag--ebdb-field-creation-date (22694 45593)] [eieio-class-tag--ebdb-field-timestamp (22958 5902 721021 800000)] ([eieio-class-tag--ebdb-field-user-simple "url" "http://example.com"]) nil nil nil [eieio-class-tag--ebdb-cache nil nil nil nil nil nil nil] ([eieio-class-tag--ebdb-field-mail nil "test@example.com" primary]) nil nil [eieio-class-tag--ebdb-field-name-complex "Admiraal" ("Wouter") nil nil nil] nil nil nil]) nil "0.1" "" nil nil t nil ebdb-record-person])] ([eieio-class-tag--ebdb-field-mail nil "test1@163.com" normal] [eieio-class-tag--ebdb-field-mail nil "test@test.org" normal]) nil nil [eieio-class-tag--ebdb-field-name-complex "XXXXXX" nil nil nil nil] nil nil nil] ebdb-field-notes "fs")
  apply(#[771 "\301\302 \303\"\"\207" [notes if-let* (notes (slot-value record (quote notes))) ebdb-field-search] 8 "\n\n(fn RECORD TYPE REGEXP)"] [eieio-class-tag--ebdb-record-person [eieio-class-tag--ebdb-field-uuid "5fc249b9-9763-4190-b55f-8aa30a9e9210"] [eieio-class-tag--ebdb-field-creation-date (22711 31411 558458 900000)] [eieio-class-tag--ebdb-field-timestamp (22958 6031 363857 400000)] ([eieio-class-tag--ebdb-field-mail-alias "test3" [eieio-class-tag--ebdb-field-mail nil "test@test.org" normal]] [eieio-class-tag--ebdb-field-mail-alias "test2" [eieio-class-tag--ebdb-field-mail nil "test@test.org" normal]] [eieio-class-tag--ebdb-field-mail-alias "test" [eieio-class-tag--ebdb-field-mail nil "test@test.org" normal]]) nil nil nil [eieio-class-tag--ebdb-cache nil nil nil nil nil nil ([eieio-class-tag--ebdb-db-file "File: ebdb" "~/.emacs.d/ebdb" [eieio-class-tag--ebdb-field-uuid "eed73c5b-55eb-4b0f-a840-24d02174acde"] (22958 5998 836226 900000) (#0 [eieio-class-tag--ebdb-record-person [eieio-class-tag--ebdb-field-uuid "b3b87243-fc7d-4f22-ae38-996a665dd5e0"] [eieio-class-tag--ebdb-field-creation-date (22711 31403 389421 600000)] [eieio-class-tag--ebdb-field-timestamp (22711 31403 389421 600000)] nil nil nil nil [eieio-class-tag--ebdb-cache nil nil nil nil nil nil nil] ([eieio-class-tag--ebdb-field-mail nil "tumashu@163.com" normal]) nil nil [eieio-class-tag--ebdb-field-name-complex "冯书" nil nil nil nil] nil nil nil] [eieio-class-tag--ebdb-record-person [eieio-class-tag--ebdb-field-uuid "6e3d4ca7-5948-43e6-8467-3f08479cf154"] [eieio-class-tag--ebdb-field-creation-date (22703 59166 496210 700000)] [eieio-class-tag--ebdb-field-timestamp (22703 59184 807535 900000)] nil nil nil nil [eieio-class-tag--ebdb-cache nil nil nil nil nil nil nil] ([eieio-class-tag--ebdb-field-mail nil "tumashu@163.com" normal]) ([eieio-class-tag--ebdb-field-phone "cell" nil nil "123456789" nil]) nil [eieio-class-tag--ebdb-field-name-complex "is" ("This") nil nil nil] nil nil nil] [eieio-class-tag--ebdb-record-person [eieio-class-tag--ebdb-field-uuid "c0bc65bd-07be-497b-a359-fa6c31d23b9a"] [eieio-class-tag--ebdb-field-creation-date (22702 37788 391440 500000)] [eieio-class-tag--ebdb-field-timestamp (22712 55173 746899 700000)] nil nil nil nil [eieio-class-tag--ebdb-cache nil nil nil nil nil nil nil] ([eieio-class-tag--ebdb-field-mail nil "tumashu@gmail.com" normal]) nil nil [eieio-class-tag--ebdb-field-name-complex "毛主席" nil nil nil nil] nil nil nil] [eieio-class-tag--ebdb-record-person [eieio-class-tag--ebdb-field-uuid "dfe8798e-0b18-4bfb-bf7f-dcf51e854f8b"] [eieio-class-tag--ebdb-field-creation-date (22694 45593)] [eieio-class-tag--ebdb-field-timestamp (22958 5902 721021 800000)] ([eieio-class-tag--ebdb-field-user-simple "url" "http://example.com"]) nil nil nil [eieio-class-tag--ebdb-cache nil nil nil nil nil nil nil] ([eieio-class-tag--ebdb-field-mail nil "test@example.com" primary]) nil nil [eieio-class-tag--ebdb-field-name-complex "Admiraal" ("Wouter") nil nil nil] nil nil nil]) nil "0.1" "" nil nil t nil ebdb-record-person])] ([eieio-class-tag--ebdb-field-mail nil "test1@163.com" normal] [eieio-class-tag--ebdb-field-mail nil "test@test.org" normal]) nil nil [eieio-class-tag--ebdb-field-name-complex "XXXXXX" nil nil nil nil] nil nil nil] (ebdb-field-notes "fs"))
  #[385 "\304\305!\205
girzel commented 6 years ago

This should have been fixed a week ago, in 7c1698393, have you updated the package?

tumashu commented 6 years ago

I will check after 10-1 holday

tumashu commented 6 years ago

now, I use ebdb-0.3.3, seem to have the problem

tumashu commented 6 years ago 
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)
girzel commented 6 years ago

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.)

ephzero commented 6 years ago

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.

girzel commented 6 years ago

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.

ephzero commented 6 years ago

If I eval that first, then (ebdb-record-uuid (car ebdb-record-tracker)) produces Symbol’s function definition is void: if-let*

girzel commented 6 years ago

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.