Gnus development mailing list
 help / color / mirror / Atom feed
* Bug in gnus with cedet component eioio
@ 2012-12-01  0:41 Easior
  2012-12-01 14:15 ` [CEDET-devel] " Eric M. Ludlam
  0 siblings, 1 reply; 4+ messages in thread
From: Easior @ 2012-12-01  0:41 UTC (permalink / raw)
  To: ding; +Cc: cedet-devel

[-- Attachment #1: Type: text/plain, Size: 754 bytes --]

Hi,all!

I use gnus registry.el as follows

,------------------------------------------------------------
| ;;; Use the gnus registry
| (require 'gnus-registry)
| (gnus-registry-initialize)
| (setq gnus-registry-install t
|       gnus-registry-track-extra '(sender subject recipient)
|       gnus-registry-max-pruned-entries 50000
|       gnus-registry-max-entries 500000
|       gnus-registry-split-strategy 'majority)
`------------------------------------------------------------

before installing cedet 1.1. It always works fine. Since I have
installed the cedet 1.1 by Gentoo portage, there is something wrong
with gnus registry. When I start up the gnus by `m+x gnus`, emacs
will complain and the report of bugtraces is attached in this
message. 


[-- Attachment #2: gnus-eioio-bug --]
[-- Type: text/plain, Size: 4187 bytes --]

Debugger entered--Lisp error: (void-function eieio--defgeneric-init-form)
  eieio--defgeneric-init-form(initialize-instance "Set value of data slot of THIS after initialization.")
  byte-code("\300\301\302\217\210\300\303\304\217\204\0\300\305\306\217\204\0\307\310!\210\311\312\313\314\300$\210\315\316\317\316\320\"\"\210\321\316\322\312\323$\210\315\324\317\324\325\"\"\210\321\324\300\312\326$\210\315\327\317\327\325\"\"\210\321\327\300\312\330$\210\315\331\317\331\332\"\"\210\321\331\300\312\333$\210\315\334\317\334\335\"\"\210\321\334\300\312\336$\207" [nil (byte-code "\300\301!\207" [require ert] 2) ((error)) (byte-code "\300\301!\210\300\302!\207" [require eieio eieio-base] 2) ((error)) (byte-code "\301\302\303\304\305!!\"\bB\306\307!\210\306\310!)\207" [load-path expand-file-name "gnus-fallback-lib/eieio" file-name-directory locate-library "gnus" require eieio eieio-base] 5) ((error)) error "eieio not found in `load-path' or gnus-fallback-lib/ directory." eieio-defclass registry-db (eieio-persistent) ((version :initarg :version :initform 0.1 :type float :custom float :documentation "The registry version.") (max-hard :initarg :max-hard :initform 5000000 :type integer :custom integer :documentation "Never accept more than this many elements.") (max-soft :initarg :max-soft :initform 50000 :type integer :custom integer :documentation "Prune as much as possible to get to this size.") (prune-factor :initarg :prune-factor :initform 0.1 :type float :custom float :documentation "At the max-hard limit, prune size * this entries.") (tracked :initarg :tracked :initform nil :type t :documentation "The tracked (indexed) fields, a list of symbols.") (precious :initarg :precious :initform nil :type t :documentation "The precious fields, a list of symbols.") (tracker :initarg :tracker :type hash-table :documentation "The field tracking hashtable.") (data :initarg :data :type hash-table :documentation "The data hashtable.")) eieio--defalias initialize-instance eieio--defgeneric-init-form "Set value of data slot of THIS after initialization." eieio--defmethod :AFTER #[(this slots) "\302\b\235\204\0\303	\304\305\306\307\310\311\312\313&#\210\314\b\235?\205%\303	\315\305\306\316\310\317$#\207" [slots this :data eieio-oset data make-hash-table :size 10000 :rehash-size 2.0 :test equal :tracker tracker 100 2.0] 10 "Set value of data slot of THIS after initialization."] registry-lookup "Search for KEYS in the registry-db THIS.\nReturns an alist of the key followed by the entry in a list, not a cons cell." #[(db keys) "\303\b\304\"\305\306\307\310\n\"\")\207" [db data keys eieio-oref :data delq nil mapcar #[(k) "\302\b	\"\205
\b\302\b	\"D\207" [k data gethash] 4]] 5 "Search for KEYS in the registry-db THIS.\nReturns an alist of the key followed by the entry in a list, not a cons cell."] registry-lookup-breaks-before-lexbind #[(db keys) "\306\b\307\"\310\311\n\311\211\x1d\v:\203,\v@\312\f	\"\203%\f\312\f	\"D
B\vA\211\202\0
\237+\")\207" [db data keys --cl-var-- key --cl-var-- eieio-oref :data delq nil gethash] 7 "Search for KEYS in the registry-db THIS.\nReturns an alist of the key followed by the entry in a list, not a cons cell."] registry-lookup-secondary "Search for TRACKSYM in the registry-db THIS.\nWhen CREATE is not nil, create the secondary index hashtable if needed." #[(db tracksym &optional create) "\304\b\305	\306\"\"\211\203\0\n\202,\v\205,\307\b\310\311\312\313\314\315\316&\305	\306\"#\210\304\b\305	\306\"\")\207" [tracksym db h create gethash eieio-oref :tracker puthash make-hash-table :size 800 :rehash-size 2.0 :test equal] 10 "Search for TRACKSYM in the registry-db THIS.\nWhen CREATE is not nil, create the secondary index hashtable if needed."] registry-lookup-secondary-value "Search for TRACKSYM with value VAL in the registry-db THIS.\nWhen SET is not nil, set it for VAL (use t for an empty list)." #[(db tracksym val &optional set) "\b\204\v\304	\n\"\205'\b\203 \305\v\b\306=?\205\0\b\304	\n\306##\210\307\v\304	\n\"\"\207" [set db tracksym val registry-lookup-secondary puthash t gethash] 7 "Search for TRACKSYM with value VAL in the registry-db THIS.\nWhen SET is not nil, set it for VAL (use t for an empty list)."]] 5)
  require(registry)

[-- Attachment #3: Type: text/plain, Size: 1256 bytes --]


I also check the gnus registry package in emacs 24.2, I find that
there have a piece of code 

,-------------------------------------------------------------------------------
| (eval-and-compile
|   (or (ignore-errors (progn
|                        (require 'eieio)
|                        (require 'eieio-base)))
|       ;; gnus-fallback-lib/ from gnus/lisp/gnus-fallback-lib
|       (ignore-errors
|         (let ((load-path (cons (expand-file-name
|                                 "gnus-fallback-lib/eieio"
|                                 (file-name-directory (locate-library "gnus")))
|                                load-path)))
|           (require 'eieio)
|           (require 'eieio-base)))
|       (error
|        "eieio not found in `load-path' or gnus-fallback-lib/ directory.")))
`-------------------------------------------------------------------------------

However, there is nothing related to 'gnus-fallback-lib' by
searching the directory in '/usr/share/emacs/24.2/lisp/gnus/`.

Is it a bug? 

Best regards,

Easior
-----
Ich bin von heute und ehedam, aber etwas ist in mir, das ist vor
morgen und übermorgen und einstmal.

                                     Friedrich Wilhelm Nietzsche


[-- Attachment #4: Type: text/plain, Size: 297 bytes --]

------------------------------------------------------------------------------
Keep yourself connected to Go Parallel: 
INSIGHTS What's next for parallel hardware, programming and related areas?
Interviews and blogs by thought leaders keep you ahead of the curve.
http://goparallel.sourceforge.net

[-- Attachment #5: Type: text/plain, Size: 164 bytes --]

_______________________________________________
Cedet-devel mailing list
Cedet-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/cedet-devel

^ permalink raw reply	[flat|nested] 4+ messages in thread
end of thread, other threads:[~2012-12-06  3:02 UTC | newest]

Thread overview: 4+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2012-12-01  0:41 Bug in gnus with cedet component eioio Easior
2012-12-01 14:15 ` [CEDET-devel] " Eric M. Ludlam
2012-12-01 14:48   ` David Engster
2012-12-06  3:02   ` Easior Lars

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).