Bug in gnus with cedet component eioio

Bug in gnus with cedet component eioio

[Easior]

[-- 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

Re: [CEDET-devel] Bug in gnus with cedet component eioio

[Eric M. Ludlam]

Hi Easior,

I suspect you need a (require 'eieio) somewhere.   Several autoload 
cookies were removed as CEDET was integrated into Emacs which could be 
causing the problem.  The GNUS package probably should have that, but in 
the short term, you could put it in your registry.

Eric

On 11/30/2012 07:41 PM, Easior wrote:
> 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.
>
>
>
>
>
> 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
>
>
>
>
> ------------------------------------------------------------------------------
> 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
>
>
>
> _______________________________________________
> Cedet-devel mailing list
> Cedet-devel@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/cedet-devel

Re: [CEDET-devel] Bug in gnus with cedet component eioio

[David Engster]

Eric M. Ludlam writes:
> I suspect you need a (require 'eieio) somewhere.   Several autoload
> cookies were removed as CEDET was integrated into Emacs which could be
> causing the problem.  The GNUS package probably should have that, but
> in the short term, you could put it in your registry.

No, I don't think that is the problem. More likely, the OP will have to
recompile Gnus with the new EIEIO he's using, because some macros have
changed.

-David

Re: [CEDET-devel] Bug in gnus with cedet component eioio

[Easior Lars]

>>>>> "EML" == Eric M Ludlam <eric@siege-engine.com> writes:

    EML> Hi Easior,
    EML> I suspect you need a (require 'eieio) somewhere. Several autoload cookies were
    EML> removed as CEDET was integrated into Emacs which could be causing the problem.
    EML> The GNUS package probably should have that, but in the short term, you could put
    EML> it in your registry.

Thank you. However, your method couldn't works.

    EML> Eric

    EML> On 11/30/2012 07:41 PM, Easior wrote:
    >>  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.
    >> 
    >> 
    >> 
    >> 
    >> 
    >>  I also check the gnus registry package in emacs 24.2, I find that
    >>  there have a piece of code
    >> 
    >> 
    EML> ,-------------------------------------------------------------------------------
    >>  | (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.")))
    >> 
    EML> -------------------------------------------------------------------------------
    >> 
    >>  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
    >> 
    >> 
    >> 
    >> 
    >>  ------------------------------------------------------------------------------
    >>  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>
    >> 
    >> 
    >>  _______________________________________________
    >>  Cedet-devel mailing list
    >>  Cedet-devel@lists.sourceforge.net
    >>  https://lists.sourceforge.net/lists/listinfo/cedet-devel




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