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