Debugger entered--Lisp error: (void-function make-ert-test)
  make-ert-test(:name registry-instantiation-test :body #[nil "\304\305C\306\307\310\216\311	\"\211)\204 \312!\210)\n+\207" [args-65 fn-64 value-66 form-description-68 registry-db "Testing" ert-form-evaluation-aborted-67 nil ((byte-code "\305C\306	BD\244\n\307=?\205 \310\nD\244\311\312N\211\205! \313\314	\"D)\244\315\f!\207" [fn-64 args-65 value-66 -explainer- form-description-68 (should (registry-db "Testing")) :form ert-form-evaluation-aborted-67 :value registry-db ert-explainer :explanation apply ert--signal-should-execution] 6)) apply ert-fail] 3])
  byte-code("\301\302\303\304#\210\301\305\306\307#\210\301\310\311\312#\210\301\313\314\315#\210\301\316\317\320#\210\321\322\323\324\322\325\326$\"\210\327B\321\330\323\324\330\325\331$\"\210\332B\301\207" [current-load-list eieio-defmethod registry-search (((db registry-db) &rest spec)) #[(db &rest spec) "\205  \306	\307\"\306	\310\"\306	\311\"\312\313\314\315\316\"\"\210\237,\207" [db spec regex member all --cl-var-- plist-get :all :member :regex nil maphash #[(k v) "\204 	\203 \306\307\n	#\204 \205! \306\310\n#\205! \fB\211\207" [all member v regex k --cl-var-- registry--match :member :regex] 4] eieio-oref :data] 5 "Search for SPEC across the registry-db THIS.\nFor example calling with :member '(a 1 2) will match entry '((a 3 1)).\nCalling with :all t (any non-nil value) will match all.\nCalling with :regex '(a \"h.llo\") will match entry '((a \"hullo\" \"bye\").\nThe test order is to check :all first, then :member, then :regex."] registry-delete (((db registry-db) keys assert &rest spec)) #[(db keys assert &rest spec) "\306\307\"\n\206 \310\311#\306\312\"\n\313\211\203\246 @\314	\"\2036 \2046 \315\316\"\210\f\313\211\203\226 @\317\"\203\215 \236\243\313\211\203\214 @\320#\235\203\202 \320\321\"\206\200 \322$\210)A\211\204\\ *A\211\204@ *\323	\"\210)A\211\204 *\n+\207" [db data keys spec tracked key eieio-oref :data apply registry-search :tracked nil gethash error "Key %s does not exists in database" registry-lookup-secondary registry-lookup-secondary-value delete t remhash --cl-dolist-temp-- entry assert tr --cl-dolist-temp-- val --cl-dolist-temp-- value-keys] 8 "Delete KEYS from the registry-db THIS.\nIf KEYS is nil, use SPEC to do a search.\nUpdates the secondary ('tracked') indices as well.\nWith assert non-nil, errors out if the key does not exist already."] registry-insert (((db registry-db) key entry)) #[(db key entry) "\306\307	\310\"\"\203 \311\312!\210\313	!\307	\314\"W\204 \311\315!\210\316\n\307	\310\"#\210\307	\317\"\320\211\203w \f@\211\n\236\243\320\211\203o @\321	#\235\203W \202[ B\321	$\210)A\211\204@ *\fA\211\2041 *\n\207" [key db entry tr --cl-dolist-temp-- val gethash eieio-oref :data error "Key already exists in database" registry-size :max-hard "max-hard size limit reached" puthash :tracked nil registry-lookup-secondary-value --cl-dolist-temp-- value-keys] 7 "Insert ENTRY under KEY into the registry-db THIS.\nUpdates the secondary ('tracked') indices as well.\nErrors out if the key exists already."] registry-size (((db registry-db))) #[(db) "\301\302\303\"!\207" [db hash-table-count eieio-oref :data] 4 "Returns the size of the registry-db object THIS.\nThis is the key count of the :data slot."] registry-prune (((db registry-db))) #[(db) "\306\307\"\310\306\311\"\306\312\"\313!\314\315\316\"\210\237)\211G\fV\fZV\203G \203G SA\202, \317\314#.\207" [db precious precious-p data limit size eieio-oref :precious #[(entry-key) "@	>A\207" [entry-key precious] 2] :data :max-soft registry-size nil maphash #[(k v) "	\306\307\310\f\n$+?\205 	B\211	\207" [precious-p v cl-rest cl-seq cl-pred k nil apply some --cl-var--] 5] registry-delete --cl-var-- candidates candidates-count prune-needed] 5 "Prunes the registry-db object THIS.\nRemoves only entries without the :precious keys."] ert-set-test registry-instantiation-test make-ert-test :name :body #[nil "\304\305C\306\307\310\216\311	\"\211)\204 \312!\210)\n+\207" [args-65 fn-64 value-66 form-description-68 registry-db "Testing" ert-form-evaluation-aborted-67 nil ((byte-code "\305C\306	BD\244\n\307=?\205 \310\nD\244\311\312N\211\205! \313\314	\"D)\244\315\f!\207" [fn-64 args-65 value-66 -explainer- form-description-68 (should (registry-db "Testing")) :form ert-form-evaluation-aborted-67 :value registry-db ert-explainer :explanation apply ert--signal-should-execution] 6)) apply ert-fail] 3] (ert-deftest . registry-instantiation-test) registry-match-test #[nil "\306\307\310!\210\311\312\313E\314\315\316\216\317\n	\"\211)\204! \320\f!\210)\210+\311\312\321E,\322-\315.\323\216\317,\"\211-)\204F \320.!\210)-\210+\311\312\324E/0\3251\3152\326\216\3170/\"\2111)\203n \3202!\210)1\210+\311\312\327E34\3305\3156\331\216\31743\"\2115)\203\226 \3206!\210)5\210+\307\332!\210\311\333\334E78\3359\315:\336\216\31787\"\2119)\204\302 \320:!\210)9\210+\311\333\337E;<\340=\315>\341\216\317<;\"\211=)\204\352 \320>!\210)=\210+\311\333\342E?@\343A\315B\344\216\317@?\"\211A)\203\320B!\210)A\210+\311\333\345ECD\346E\315F\347\216\317DC\"\211E)\203:\320F!\210)E\210+\311\333\350EGH\351I\315J\352\216\317HG\"\211I)\203b\320J!\210)I\210,\307\353!\207" [entry args-70 fn-69 value-71 form-description-73 args-75 ((hello "goodbye" "bye") (blank)) message "Testing :regex matching" registry--match :regex ((hello "nye" "bye")) ert-form-evaluation-aborted-72 nil ((byte-code "\305C\306	BD\244\n\307=?\205 \310\nD\244\311\312N\211\205! \313\314	\"D)\244\315\f!\207" [fn-69 args-70 value-71 -explainer- form-description-73 (should (registry--match :regex entry ...)) :form ert-form-evaluation-aborted-72 :value registry--match ert-explainer :explanation apply ert--signal-should-execution] 6)) apply ert-fail ((hello "good")) ert-form-evaluation-aborted-77 ((byte-code "\305C\306	BD\244\n\307=?\205 \310\nD\244\311\312N\211\205! \313\314	\"D)\244\315\f!\207" [fn-74 args-75 value-76 -explainer- form-description-78 (should (registry--match :regex entry ...)) :form ert-form-evaluation-aborted-77 :value registry--match ert-explainer :explanation apply ert--signal-should-execution] 6)) ((hello "nye")) ert-form-evaluation-aborted-82 ((byte-code "\305C\306	BD\244\n\307=?\205 \310\nD\244\311\312N\211\205! \313\314	\"D)\244\315\f!\207" [fn-79 args-80 value-81 -explainer- form-description-83 (should-not (registry--match :regex entry ...)) :form ert-form-evaluation-aborted-82 :value registry--match ert-explainer :explanation apply ert--signal-should-execution] 6)) ((hello)) ert-form-evaluation-aborted-87 ((byte-code "\305C\306	BD\244\n\307=?\205 \310\nD\244\311\312N\211\205! \313\314	\"D)\244\315\f!\207" [fn-84 args-85 value-86 -explainer- form-description-88 (should-not (registry--match :regex entry ...)) :form ert-form-evaluation-aborted-87 :value registry--match ert-explainer :explanation apply ert--signal-should-execution] 6)) "Testing :member matching" :member ((hello "bye")) ert-form-evaluation-aborted-92 ((byte-code "\305C\306	BD\244\n\307=?\205 \310\nD\244\311\312N\211\205! \313\314	\"D)\244\315\f!\207" [fn-89 args-90 value-91 -explainer- form-description-93 (should (registry--match :member entry ...)) :form ert-form-evaluation-aborted-92 :value registry--match ert-explainer :explanation apply ert--signal-should-execution] 6)) ((hello "goodbye")) ert-form-evaluation-aborted-97 ((byte-code "\305C\306	BD\244\n\307=?\205 \310\nD\244\311\312N\211\205! \313\314	\"D)\244\315\f!\207" [fn-94 args-95 value-96 -explainer- form-description-98 (should (registry--match :member entry ...)) :form ert-form-evaluation-aborted-97 :value registry--match ert-explainer :explanation apply ert--signal-should-execution] 6)) ((hello "good")) ert-form-evaluation-aborted-102 ((byte-code "\305C\306	BD\244\n\307=?\205 \310\nD\244\311\312N\211\205! \313\314	\"D)\244\315\f!\207" [fn-99 args-100 value-101 -explainer- form-description-103 (should-not (registry--match :member entry ...)) :form ert-form-evaluation-aborted-102 :value registry--match ert-explainer :explanation apply ert--signal-should-execution] 6)) ((hello "nye")) ert-form-evaluation-aborted-107 ((byte-code "\305C\306	BD\244\n\307=?\205 \310\nD\244\311\312N\211\205! \313\314	\"D)\244\315\f!\207" [fn-104 args-105 value-106 -explainer- form-description-108 (should-not (registry--match :member entry ...)) :form ert-form-evaluation-aborted-107 :value registry--match ert-explainer :explanation apply ert--signal-should-execution] 6)) ((hello)) ert-form-evaluation-aborted-112 ((byte-code "\305C\306	BD\244\n\307=?\205 \310\nD\244\311\312N\211\205! \313\314	\"D)\244\315\f!\207" [fn-109 args-110 value-111 -explainer- form-description-113 (should-not (registry--match :member entry ...)) :form ert-form-evaluation-aborted-112 :value registry--match ert-explainer :explanation apply ert--signal-should-execution] 6)) "Done with matching testing." fn-74 value-76 form-description-78 args-80 fn-79 value-81 ...] 4] (ert-deftest . registry-match-test)] 7)
  require(registry)
  byte-code("\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\300\310!\207" [require gnus gnus-int gnus-sum gnus-art gnus-util nnmail easymenu registry] 2)
  (gnus-registry-initialize)
  eval-buffer(#<buffer  *load*> nil "/home/tzz/.gnus.el" nil t)  ; Reading at buffer position 1072
  load-with-code-conversion("/home/tzz/.gnus.el" "/home/tzz/.gnus.el" nil t)
  load("~/.gnus" nil t)
  gnus-read-init-file()
  gnus-1(nil nil nil)
  gnus(nil)
  call-interactively(gnus t nil)
  execute-extended-command(nil)
  call-interactively(execute-extended-command nil nil)