Re: Newbie failure

I don't ever getting an announcement for beta8?  Did beta7 work OK for you?
Jeff

----- Original Message -----
From: David Brusowankin
To: [email protected]
Sent: Tuesday, November 12, 2002 3:30 PM
Subject: [Xae] 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