Debugger entered--Lisp error: (wrong-number-of-arguments #[(form val type) "!2	!\"
	\">	! 
0!	DC	
#E))" [type val res temp form cl-const-expr-p cl-make-type-test cl-const-expr-val cl-expr-contains (nil 1) cl-simple-expr-p make-symbol "--cl-var--" let subst] 6] 2)
  #[(form val type) "!2	!\"\n	\">	! \n0!	DC	\n#E))\f" [type val res temp form cl-const-expr-p cl-make-type-test cl-const-expr-val cl-expr-contains (nil 1) cl-simple-expr-p make-symbol "--cl-var--" let subst] 6]((typep item) item)
  apply(#[(form val type) "!2	!\"\n	\">	! \n0!	DC	\n#E))\f" [type val res temp form cl-const-expr-p cl-make-type-test cl-const-expr-val cl-expr-contains (nil 1) cl-simple-expr-p make-symbol "--cl-var--" let subst] 6] (typep item) item)
  compiler-macroexpand((typep item))
  byte-optimize-form-code-walker((typep item) nil)
  byte-optimize-form((typep item))
  mapcar(byte-optimize-form ("Tried to add an item of type %s to a list of items of type %s" (typep item) (oref this elem-type)))
  byte-optimize-form-code-walker((error "Tried to add an item of type %s to a list of items of type %s" (typep item) (oref this elem-type)) nil)
  byte-optimize-form((error "Tried to add an item of type %s to a list of items of type %s" (typep item) (oref this elem-type)) nil)
  byte-optimize-body(((error "Tried to add an item of type %s to a list of items of type %s" (typep item) (oref this elem-type))) nil)
  byte-optimize-form-code-walker((if (efc-coll-type-compatible-p this item) (oset this items (append ... ...)) (error "Tried to add an item of type %s to a list of items of type %s" (typep item) (oref this elem-type))) nil)
  byte-optimize-form((if (efc-coll-type-compatible-p this item) (oset this items (append ... ...)) (error "Tried to add an item of type %s to a list of items of type %s" (typep item) (oref this elem-type))) nil)
  byte-optimize-form-code-walker((progn (if (efc-coll-type-compatible-p this item) (oset this items ...) (error "Tried to add an item of type %s to a list of items of type %s" ... ...))) nil)
  byte-optimize-form((progn (if (efc-coll-type-compatible-p this item) (oset this items ...) (error "Tried to add an item of type %s to a list of items of type %s" ... ...))) nil)
  byte-compile-top-level((progn (if (efc-coll-type-compatible-p this item) (oset this items ...) (error "Tried to add an item of type %s to a list of items of type %s" ... ...))) nil lambda)
  byte-compile-lambda((lambda (this item) "Adds an item to the list." (if (efc-coll-type-compatible-p this item) (oset this items ...) (error "Tried to add an item of type %s to a list of items of type %s" ... ...))))
  byte-compile-function-form((function (lambda (this item) "Adds an item to the list." (if ... ... ...))))
  byte-compile-form((function (lambda (this item) "Adds an item to the list." (if ... ... ...))))
  mapc(byte-compile-form ((function (lambda ... "Adds an item to the list." ...)) local-args))
  byte-compile-normal-call((apply (function (lambda ... "Adds an item to the list." ...)) local-args))
  byte-compile-funarg((apply (quote (lambda ... "Adds an item to the list." ...)) local-args))
  byte-compile-form((apply (quote (lambda ... "Adds an item to the list." ...)) local-args) nil)
  byte-compile-body(((apply (quote ...) local-args)) nil)
  byte-compile-let((let ((scoped-class ...) (eieio-generic-call-next-method-list nil) (eieio-generic-call-key method-primary) (eieio-generic-call-methodname ...) (eieio-generic-call-arglst local-args)) (apply (quote ...) local-args)))
  byte-compile-form((let ((scoped-class ...) (eieio-generic-call-next-method-list nil) (eieio-generic-call-key method-primary) (eieio-generic-call-methodname ...) (eieio-generic-call-arglst local-args)) (apply (quote ...) local-args)) nil)
  byte-compile-body(((let (... ... ... ... ...) (apply ... local-args))) nil)
  byte-compile-if((if (not (child-of-class-p ... ...)) (apply (quote no-applicable-method) (car local-args) (quote efc-coll-add) local-args) (let (... ... ... ... ...) (apply ... local-args))))
  byte-compile-form((if (not (child-of-class-p ... ...)) (apply (quote no-applicable-method) (car local-args) (quote efc-coll-add) local-args) (let (... ... ... ... ...) (apply ... local-args))) nil)
  byte-compile-body(((if (not ...) (apply ... ... ... local-args) (let ... ...))) nil)
  byte-compile-if((if (not (condition-case nil ... ...)) (signal (quote no-method-definition) (list ... local-args)) (if (not ...) (apply ... ... ... local-args) (let ... ...))))
  byte-compile-form((if (not (condition-case nil ... ...)) (signal (quote no-method-definition) (list ... local-args)) (if (not ...) (apply ... ... ... local-args) (let ... ...))) nil)
  byte-compile-top-level((progn (if (not ...) (signal ... ...) (if ... ... ...))) nil lambda)
  byte-compile-lambda((lambda (&rest local-args) "Adds an item to the list." (if (not ...) (signal ... ...) (if ... ... ...))))
  (let ((byte-compile-free-references nil) (byte-compile-warnings nil)) (byte-compile-lambda (\` ...)))
  eieio-defgeneric-form-primary-only-one(efc-coll-add "Adds an item to the list." efc-list (lambda (this item) "Adds an item to the list." (if (efc-coll-type-compatible-p this item) (oset this items ...) (error "Tried to add an item of type %s to a list of items of type %s" ... ...))))
  (fset method (eieio-defgeneric-form-primary-only-one method doc-string (car entry) (cdr entry)))
  (let* ((doc-string ...) (M ...) (entry ...)) (fset method (eieio-defgeneric-form-primary-only-one method doc-string ... ...)))
  eieio-defgeneric-reset-generic-form-primary-only-one(efc-coll-add)
  (if (generic-primary-only-one-p method) (eieio-defgeneric-reset-generic-form-primary-only-one method) (eieio-defgeneric-reset-generic-form-primary-only method))
  (if (generic-primary-only-p method) (if (generic-primary-only-one-p method) (eieio-defgeneric-reset-generic-form-primary-only-one method) (eieio-defgeneric-reset-generic-form-primary-only method)) (eieio-defgeneric-reset-generic-form method))
  (progn (if (generic-primary-only-p method) (if ... ... ...) (eieio-defgeneric-reset-generic-form method)))
  (if eieio-optimize-primary-methods-flag (progn (if ... ... ...)))
  (when eieio-optimize-primary-methods-flag (if (generic-primary-only-p method) (if ... ... ...) (eieio-defgeneric-reset-generic-form method)))
  eieio-defmethod(efc-coll-add (((this efc-list) item) "Adds an item to the list." (if (efc-coll-type-compatible-p this item) (oset this items ...) (error "Tried to add an item of type %s to a list of items of type %s" ... ...))))
  (defmethod efc-coll-add ((this efc-list) item) "Adds an item to the list." (if (efc-coll-type-compatible-p this item) (oset this items ...) (error "Tried to add an item of type %s to a list of items of type %s" ... ...)))
  eval-buffer(#<buffer  *load*<4>> nil "d:/FreeSoftware/emacs/emacs-23.1/site-lisp/jde/lisp/efc.el" nil t)  ; Reading at buffer position 23806
  load-with-code-conversion("d:/FreeSoftware/emacs/emacs-23.1/site-lisp/jde/lisp/efc.el" "d:/FreeSoftware/emacs/emacs-23.1/site-lisp/jde/lisp/efc.el" nil t)
  require(efc)
  eval-buffer(#<buffer  *load*<3>> nil "d:/FreeSoftware/emacs/emacs-23.1/site-lisp/jde/lisp/jde-util.el" nil t)  ; Reading at buffer position 1542
  load-with-code-conversion("d:/FreeSoftware/emacs/emacs-23.1/site-lisp/jde/lisp/jde-util.el" "d:/FreeSoftware/emacs/emacs-23.1/site-lisp/jde/lisp/jde-util.el" nil t)
  require(jde-util)
  eval-buffer(#<buffer  *load*<2>> nil "d:/FreeSoftware/emacs/emacs-23.1/site-lisp/jde/lisp/jde.el" nil t)  ; Reading at buffer position 1961
  load-with-code-conversion("d:/FreeSoftware/emacs/emacs-23.1/site-lisp/jde/lisp/jde.el" "d:/FreeSoftware/emacs/emacs-23.1/site-lisp/jde/lisp/jde.el" nil t)
  require(jde)
  (if defer-loading-jde (progn (autoload ... "jde" "JDE mode." t) (setq auto-mode-alist ...)) (require (quote jde)))
  eval-buffer(#<buffer  *load*> nil "d:/FreeSoftware/emacs/.emacs.d/init.el" nil t)  ; Reading at buffer position 13084
  load-with-code-conversion("d:/FreeSoftware/emacs/.emacs.d/init.el" "d:/FreeSoftware/emacs/.emacs.d/init.el" t t)
  load("d:/FreeSoftware/emacs/.emacs.d/init" t t)
  #[nil "	=Q7	=3##7#/77Q\n#=_Q!\"\f#=^\n)!!P\"\"!\"
!

\"
#!
*#?$#))" [init-file-user system-type user-init-file-1 user-init-file otherfile source ms-dos "~" "/_emacs" windows-nt directory-files nil "^\\.emacs\\(\\.elc?\\)?$" "~/.emacs" "^_emacs\\(\\.elc?\\)?$" "~/_emacs" "/.emacs" t load expand-file-name "init" file-name-as-directory "/.emacs.d" file-name-extension "elc" file-name-sans-extension ".el" file-exists-p file-newer-than-file-p message "Warning: %s is newer than %s" sit-for 1 "default" alt inhibit-default-init inhibit-startup-screen] 7]()
  command-line()
  normal-top-level()