Newbie failure

Can anyone help, please ?


When I add '(require xae) to my init.el, my emacs initialization fails.
In my init.el I have:
-----------------------

;; xml editing with XAE package
(add-to-list 'load-path "~/.xemacs/xae-1.0beta8/lisp")
(require 'xae)


----------------------
I  get the following:
----------------------
An error has occurred while loading `c:/.xemacs/init.el':

error: "Too many arguments to `defclass'"

To ensure normal operation, you should investigate the cause
of the error in your initialization file and remove it.  Start
Emacs with the `--debug-init' option to view a complete error
backtrace
Loading semantic-el (source)...
cond: Too many arguments to `defclass'


--------------------------------
when running with --debugg-init:
--------------------------------
Debugger entered--Lisp error: (error "Too many arguments to `defclass'")
   signal(error ("Too many arguments to `defclass'"))
   error("Too many arguments to `defclass'")
   (cond ((< 2 ...) (error "Too many arguments to `defclass'")) ((= 2 
...) (if ... ... ...)))
   (let* ((pname ...) (newc ...) (oldc ...) (groups nil) (options nil) 
(clearparent nil)) (aset newc 0 (quote defclass)) (aset newc 
class-symbol cname) (when oldc (aset newc class-children ...)) (cond 
(... ...) (... ...)) (setq options (if ... ... ...)) (if pname (progn 
... ...) (if ... ... ... ... ...)) (set cname cname) (let (...) (fset 
csym ...)) (let (...) (fset csym ...) (eval ...)) 
(eieio-copy-parents-into-subclass newc superclasses) (put cname (quote 
eieio-class-definition) newc) (while fields (let* ... ... ... ... ... 
... ... ... ... ... ... ... ... ...) (setq fields ...)) (aset newc 
class-public-a (nreverse ...)) (aset newc class-public-d (nreverse ...)) 
(aset newc class-public-doc (nreverse ...)) (aset newc class-public-type 
(apply ... ...)) (aset newc class-public-custom (nreverse ...)) (aset 
newc class-public-custom-label (nreverse ...)) (aset newc 
class-public-custom-group (nreverse ...)) (aset newc class-protection 
(nreverse ...)) (aset newc class-initarg-tuples (nreverse ...)) (aset 
newc class-class-allocation-type (apply ... ...)) (aset newc 
class-class-allocation-values (apply ... ...)) (let* (... ... ... ... 
... ... ...) (while pubsyms ... ... ... ... ...) (aset newc 
class-symbol-obarray oa)) (fset cname (\` ...)) (put cname (quote 
variable-documentation) (class-option-assoc options :documentation)) 
(let (...) (mapcar ... groups) (if ... ... ...)) (aset newc 
class-options options) (if clearparent (aset newc class-parent nil)) (if 
(and ... ...) (message "Bootstrapping objects...done")) (let (...) (aset 
cache 0 ...) (aset cache object-class cname) (aset cache object-name 
...) (let ... ...) (aset newc class-default-object-cache cache)) newc)
   eieio-defclass(eieio-instance-inheritor nil ((parent-instance 
:initarg :parent-instance :type eieio-instance-inheritor-child 
:documentation "The parent of this instance.\nIf a slot of this class is 
reference, and is unbound, then  the parent\nis checked for a value.")) 
("This special class can enable instance inheritance.\nUse `clone' to 
make a new object that does instance inheritance from\na parent 
instance.  When a slot in the child is referenced, and has\nnot been 
set, use values from the parent." :abstract t))
   byte-code("ÀÁ!,HBÃ(B!,D




--------------------------------------------

Any help would be greatly appreciated.

Thanks,

David
____________________________
David Brusowankin
Voice: 201.287.1527
Email: [email protected]

_______________________________________________
XAE mailing list
[email protected]
http://sunsite.dk/mailman/listinfo/xae