search

girzel / ebdb

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

Error when update to newest ebdb #75

Closed tumashu closed 5 years ago

tumashu commented 5 years ago 
Error (use-package): ebdb-vcard/:catch: Invalid slot name: "#<ebdb-formatter-vcard-40 ebdb-formatter-vcard-40>", :combine
tumashu commented 5 years ago 
Debugger entered--Lisp error: (invalid-slot-name "#<ebdb-formatter-vcard-40 ebdb-formatter-vcard-40>" :combine)
  signal(invalid-slot-name ("#<ebdb-formatter-vcard-40 ebdb-formatter-vcard-40>" :combine))
  slot-missing(#<ebdb-formatter-vcard-40 ebdb-formatter-vcard-40> :combine oset nil)
  #f(compiled-function (obj slots) "Set slots of OBJ with SLOTS which is a list of name/value pairs.\nCalled from the constructor routine." #<bytecode 0x3ceff1>)(#<ebdb-formatter-vcard-40 ebdb-formatter-vcard-40> (:label "VCard 4.0 (default)" :combine nil :collapse nil :include (ebdb-field-uuid ebdb-field-timestamp ebdb-field-mail ebdb-field-name ebdb-field-address ebdb-field-url ebdb-field-role ebdb-field-anniversary ebdb-field-relation ebdb-field-phone ebdb-field-notes ebdb-field-tags) :header nil))
  apply(#f(compiled-function (obj slots) "Set slots of OBJ with SLOTS which is a list of name/value pairs.\nCalled from the constructor routine." #<bytecode 0x3ceff1>) #<ebdb-formatter-vcard-40 ebdb-formatter-vcard-40> (:label "VCard 4.0 (default)" :combine nil :collapse nil :include (ebdb-field-uuid ebdb-field-timestamp ebdb-field-mail ebdb-field-name ebdb-field-address ebdb-field-url ebdb-field-role ebdb-field-anniversary ebdb-field-relation ebdb-field-phone ebdb-field-notes ebdb-field-tags) :header nil))
  shared-initialize(#<ebdb-formatter-vcard-40 ebdb-formatter-vcard-40> (:label "VCard 4.0 (default)" :combine nil :collapse nil :include (ebdb-field-uuid ebdb-field-timestamp ebdb-field-mail ebdb-field-name ebdb-field-address ebdb-field-url ebdb-field-role ebdb-field-anniversary ebdb-field-relation ebdb-field-phone ebdb-field-notes ebdb-field-tags) :header nil))
  #f(compiled-function (this &optional slots) "Construct the new object THIS based on SLOTS.\nSLOTS is a tagged list where odd numbered elements are tags, and\neven numbered elements are the values to store in the tagged slot.\nIf you overload the `initialize-instance', there you will need to\ncall `shared-initialize' yourself, or you can call `call-next-method'\nto have this constructor called automatically.  If these steps are\nnot taken, then new objects of your class will not have their values\ndynamically set from SLOTS." #<bytecode 0x4a0b41>)(#<ebdb-formatter-vcard-40 ebdb-formatter-vcard-40> (:label "VCard 4.0 (default)" :combine nil :collapse nil :include (ebdb-field-uuid ebdb-field-timestamp ebdb-field-mail ebdb-field-name ebdb-field-address ebdb-field-url ebdb-field-role ebdb-field-anniversary ebdb-field-relation ebdb-field-phone ebdb-field-notes ebdb-field-tags) :header nil))
  apply(#f(compiled-function (this &optional slots) "Construct the new object THIS based on SLOTS.\nSLOTS is a tagged list where odd numbered elements are tags, and\neven numbered elements are the values to store in the tagged slot.\nIf you overload the `initialize-instance', there you will need to\ncall `shared-initialize' yourself, or you can call `call-next-method'\nto have this constructor called automatically.  If these steps are\nnot taken, then new objects of your class will not have their values\ndynamically set from SLOTS." #<bytecode 0x4a0b41>) (#<ebdb-formatter-vcard-40 ebdb-formatter-vcard-40> (:label "VCard 4.0 (default)" :combine nil :collapse nil :include (ebdb-field-uuid ebdb-field-timestamp ebdb-field-mail ebdb-field-name ebdb-field-address ebdb-field-url ebdb-field-role ebdb-field-anniversary ebdb-field-relation ebdb-field-phone ebdb-field-notes ebdb-field-tags) :header nil)))
  #f(compiled-function (&rest args) #<bytecode 0x13cbb71>)(#<ebdb-formatter-vcard-40 ebdb-formatter-vcard-40> (:label "VCard 4.0 (default)" :combine nil :collapse nil :include (ebdb-field-uuid ebdb-field-timestamp ebdb-field-mail ebdb-field-name ebdb-field-address ebdb-field-url ebdb-field-role ebdb-field-anniversary ebdb-field-relation ebdb-field-phone ebdb-field-notes ebdb-field-tags) :header nil))
  apply(#f(compiled-function (&rest args) #<bytecode 0x13cbb71>) #<ebdb-formatter-vcard-40 ebdb-formatter-vcard-40> (:label "VCard 4.0 (default)" :combine nil :collapse nil :include (ebdb-field-uuid ebdb-field-timestamp ebdb-field-mail ebdb-field-name ebdb-field-address ebdb-field-url ebdb-field-role ebdb-field-anniversary ebdb-field-relation ebdb-field-phone ebdb-field-notes ebdb-field-tags) :header nil))
  initialize-instance(#<ebdb-formatter-vcard-40 ebdb-formatter-vcard-40> (:label "VCard 4.0 (default)" :combine nil :collapse nil :include (ebdb-field-uuid ebdb-field-timestamp ebdb-field-mail ebdb-field-name ebdb-field-address ebdb-field-url ebdb-field-role ebdb-field-anniversary ebdb-field-relation ebdb-field-phone ebdb-field-notes ebdb-field-tags) :header nil))
  #f(compiled-function (class &rest slots) "Default constructor for CLASS `eieio-default-superclass'.\nSLOTS are the initialization slots used by `initialize-instance'.\nThis static method is called when an object is constructed.\nIt allocates the vector used to represent an EIEIO object, and then\ncalls `initialize-instance' on that object." #<bytecode 0x3cefd9>)(ebdb-formatter-vcard-40 :label "VCard 4.0 (default)" :combine nil :collapse nil :include (ebdb-field-uuid ebdb-field-timestamp ebdb-field-mail ebdb-field-name ebdb-field-address ebdb-field-url ebdb-field-role ebdb-field-anniversary ebdb-field-relation ebdb-field-phone ebdb-field-notes ebdb-field-tags) :header nil)
  apply(#f(compiled-function (class &rest slots) "Default constructor for CLASS `eieio-default-superclass'.\nSLOTS are the initialization slots used by `initialize-instance'.\nThis static method is called when an object is constructed.\nIt allocates the vector used to represent an EIEIO object, and then\ncalls `initialize-instance' on that object." #<bytecode 0x3cefd9>) ebdb-formatter-vcard-40 (:label "VCard 4.0 (default)" :combine nil :collapse nil :include (ebdb-field-uuid ebdb-field-timestamp ebdb-field-mail ebdb-field-name ebdb-field-address ebdb-field-url ebdb-field-role ebdb-field-anniversary ebdb-field-relation ebdb-field-phone ebdb-field-notes ebdb-field-tags) :header nil))
  make-instance(ebdb-formatter-vcard-40 :label "VCard 4.0 (default)" :combine nil :collapse nil :include (ebdb-field-uuid ebdb-field-timestamp ebdb-field-mail ebdb-field-name ebdb-field-address ebdb-field-url ebdb-field-role ebdb-field-anniversary ebdb-field-relation ebdb-field-phone ebdb-field-notes ebdb-field-tags) :header nil)
  #f(compiled-function () #<bytecode 0x4756c2d>)()
  funcall(#f(compiled-function () #<bytecode 0x4756c2d>))
  eval((funcall (function #f(compiled-function () #<bytecode 0x4756c2d>))))
  custom-initialize-reset(ebdb-vcard-default-40-formatter (funcall (function #f(compiled-function () #<bytecode 0x4756c2d>))))
  custom-declare-variable(ebdb-vcard-default-40-formatter (funcall (function #f(compiled-function () #<bytecode 0x4756c2d>))) "The default formatter for VCard 4.0 exportation." :group ebdb-vcard :type ebdb-formatter-vcard)
  byte-code("\300\301\302\303\304\305%\210\306\307\310\311\312DD\313\304\301\314\315&\007\210\306\316\310\311\317DD\320\304\301\314\315&\007\210\306\321\310\311\322DD\323\304\301\314\324&\007\207" [custom-declare-group ebdb-vcard nil "Customization options for EBDB vCard support." :group ebdb custom-declare-variable ebdb-vcard-default-40-formatter funcall function #f(compiled-function () #<bytecode 0x4756c2d>) "The default formatter for VCard 4.0 exportation." :type ebdb-formatter-vcard ebdb-vcard-default-30-formatter #f(compiled-function () #<bytecode 0x4842439>) "The default formatter for VCard 3.0 exportation." ebdb-vcard-label-alist #f(compiled-function () #<bytecode 0x4842445>) "Correspondences between VCard properties and EBDB field classes.\n\nThis alist is neither exhaustive nor authoritative.  It's purpose\nis to simplify property labeling during the export process, and\nto classify properties during import.  The import process does\nnot always respect these headings." (repeat (cons string symbol))] 8)
  require(ebdb-vcard nil t)
  (not (require 'ebdb-vcard nil t))
  (if (not (require 'ebdb-vcard nil t)) (display-warning 'use-package (format "Cannot load %s" 'ebdb-vcard) :error))
  (prog1 (if (not (require 'ebdb-vcard nil t)) (display-warning 'use-package (format "Cannot load %s" 'ebdb-vcard) :error)) (let ((elapsed (float-time (time-subtract (current-time) now)))) (if (> elapsed 0.1) (message "%s...done (%.3fs)" "Loading package ebdb-vcard" elapsed) (message "%s...done" "Loading package ebdb-vcard"))))
  (let ((now (current-time))) (message "%s..." "Loading package ebdb-vcard") (prog1 (if (not (require 'ebdb-vcard nil t)) (display-warning 'use-package (format "Cannot load %s" 'ebdb-vcard) :error)) (let ((elapsed (float-time (time-subtract (current-time) now)))) (if (> elapsed 0.1) (message "%s...done (%.3fs)" "Loading package ebdb-vcard" elapsed) (message "%s...done" "Loading package ebdb-vcard")))))
  (lambda nil (let ((now (current-time))) (message "%s..." "Loading package ebdb-vcard") (prog1 (if (not (require 'ebdb-vcard nil t)) (display-warning 'use-package (format "Cannot load %s" 'ebdb-vcard) :error)) (let ((elapsed (float-time (time-subtract (current-time) now)))) (if (> elapsed 0.1) (message "%s...done (%.3fs)" "Loading package ebdb-vcard" elapsed) (message "%s...done" "Loading package ebdb-vcard"))))))()
  eval-after-load(ebdb (lambda nil (let ((now (current-time))) (message "%s..." "Loading package ebdb-vcard") (prog1 (if (not (require 'ebdb-vcard nil t)) (display-warning 'use-package (format "Cannot load %s" 'ebdb-vcard) :error)) (let ((elapsed (float-time (time-subtract (current-time) now)))) (if (> elapsed 0.1) (message "%s...done (%.3fs)" "Loading package ebdb-vcard" elapsed) (message "%s...done" "Loading package ebdb-vcard")))))))
  (condition-case err (eval-after-load 'ebdb (function (lambda nil (let ((now (current-time))) (message "%s..." "Loading package ebdb-vcard") (prog1 (if (not (require 'ebdb-vcard nil t)) (display-warning 'use-package (format "Cannot load %s" 'ebdb-vcard) :error)) (let ((elapsed (float-time (time-subtract (current-time) now)))) (if (> elapsed 0.1) (message "%s...done (%.3fs)" "Loading package ebdb-vcard" elapsed) (message "%s...done" "Loading package ebdb-vcard")))))))) ((debug error) (funcall use-package--warning95 :catch err)))
  (progn (use-package-ensure-elpa 'ebdb-vcard '(ebdb) 'nil) (defvar use-package--warning95 (function (lambda (keyword err) (let ((msg (format "%s/%s: %s" 'ebdb-vcard keyword (error-message-string err)))) (display-warning 'use-package msg :error))))) (condition-case err (eval-after-load 'ebdb (function (lambda nil (let ((now (current-time))) (message "%s..." "Loading package ebdb-vcard") (prog1 (if (not (require 'ebdb-vcard nil t)) (display-warning 'use-package (format "Cannot load %s" 'ebdb-vcard) :error)) (let ((elapsed (float-time (time-subtract (current-time) now)))) (if (> elapsed 0.1) (message "%s...done (%.3fs)" "Loading package ebdb-vcard" elapsed) (message "%s...done" "Loading package ebdb-vcard")))))))) ((debug error) (funcall use-package--warning95 :catch err))))
  eval((progn (use-package-ensure-elpa 'ebdb-vcard '(ebdb) 'nil) (defvar use-package--warning95 (function (lambda (keyword err) (let ((msg (format "%s/%s: %s" 'ebdb-vcard keyword (error-message-string err)))) (display-warning 'use-package msg :error))))) (condition-case err (eval-after-load 'ebdb (function (lambda nil (let ((now (current-time))) (message "%s..." "Loading package ebdb-vcard") (prog1 (if (not (require 'ebdb-vcard nil t)) (display-warning 'use-package (format "Cannot load %s" 'ebdb-vcard) :error)) (let ((elapsed (float-time (time-subtract (current-time) now)))) (if (> elapsed 0.1) (message "%s...done (%.3fs)" "Loading package ebdb-vcard" elapsed) (message "%s...done" "Loading package ebdb-vcard")))))))) ((debug error) (funcall use-package--warning95 :catch err)))) nil)
  elisp--eval-last-sexp(nil)
  #f(compiled-function (eval-last-sexp-arg-internal) "Evaluate sexp before point; print value in the echo area.\nInteractively, with a non `-' prefix argument, print output into\ncurrent buffer.\n\nNormally, this function truncates long output according to the\nvalue of the variables `eval-expression-print-length' and\n`eval-expression-print-level'.  With a prefix argument of zero,\nhowever, there is no such truncation.  Such a prefix argument\nalso causes integers to be printed in several additional formats\n(octal, hexadecimal, and character when the prefix argument is\n-1 or the integer is `eval-expression-print-maximum-character' or\nless).\n\nIf `eval-expression-debug-on-error' is non-nil, which is the default,\nthis command arranges for all errors to enter the debugger." (interactive "P") #<bytecode 0x1f0faf>)(nil)
  apply(#f(compiled-function (eval-last-sexp-arg-internal) "Evaluate sexp before point; print value in the echo area.\nInteractively, with a non `-' prefix argument, print output into\ncurrent buffer.\n\nNormally, this function truncates long output according to the\nvalue of the variables `eval-expression-print-length' and\n`eval-expression-print-level'.  With a prefix argument of zero,\nhowever, there is no such truncation.  Such a prefix argument\nalso causes integers to be printed in several additional formats\n(octal, hexadecimal, and character when the prefix argument is\n-1 or the integer is `eval-expression-print-maximum-character' or\nless).\n\nIf `eval-expression-debug-on-error' is non-nil, which is the default,\nthis command arranges for all errors to enter the debugger." (interactive "P") #<bytecode 0x1f0faf>) nil)
  eval-last-sexp(nil)
  funcall-interactively(eval-last-sexp nil)
  call-interactively(eval-last-sexp nil nil)
  command-execute(eval-last-sexp)
girzel commented 5 years ago

Whoops, didn't update ebdb-vcard.el to use the new formatters. I need to finish working on this file in general.