Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

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

Closed
tumashu opened this issue Oct 2, 2017 · 9 comments

Comments

@tumashu
Copy link
Contributor

tumashu commented Oct 2, 2017

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
Copy link
Owner

girzel commented Oct 2, 2017

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

@tumashu
Copy link
Contributor Author

tumashu commented Oct 5, 2017

I will check after 10-1 holday

@tumashu
Copy link
Contributor Author

tumashu commented Oct 8, 2017

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

@tumashu
Copy link
Contributor Author

tumashu commented Oct 8, 2017

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��\"\210�A\266\202\202�\210\303\302�\"\301\211\203+\211@\303��\"\210�A\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��\"\210�A\266\202\202�\210\303\302�\"\301\211\203+\211@\303��\"\210�A\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
Copy link
Owner

girzel commented Oct 8, 2017

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
Copy link

ephzero commented Oct 8, 2017

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
Copy link
Owner

girzel commented Oct 8, 2017

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
Copy link

ephzero commented Oct 8, 2017

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

@girzel
Copy link
Owner

girzel commented Oct 8, 2017

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.

@girzel girzel closed this as completed in 894643d Oct 8, 2017
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
None yet
Projects
None yet
Development

No branches or pull requests

3 participants