[CEDET-devel] cedet 1.0beta1 Install problem with XEmacs 21.4.13

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 454-5900

I'm having trouble installing cedet 1.0beta1.

I'm using this version of XEmacs at home on Windows XP:

XEmacs 21.4 (patch 13) "Rational FORTRAN" [Lucid] (i586-pc-win32) of Sun May 25 2003 on TSUNAMI

XEmacs gets errors on startup. This is what is shown in the *Message-Log* buffer:

Loading c:\home\site-lisp\cedet\common\cedet.el...

"c:\\home\\site-lisp\\cedet\\common\\" added to `load-path'

Loading cl-macs...

Loading cl-macs...done

"c:\\home\\site-lisp\\cedet\\cogre" added to `load-path'

"c:\\home\\site-lisp\\cedet\\ede" added to `load-path'

"c:\\home\\site-lisp\\cedet\\eieio" added to `load-path'

"c:\\home\\site-lisp\\cedet\\semantic" added to `load-path'

Loading senator...

You need to upgrade package speedbar to 0.15beta1

"c:\\home\\site-lisp\\cedet\\speedbar" added to `load-path'

Loading c:\home\site-lisp\cedet\common\cedet.el...done

ECB 2.11 uses semantic 2.0beta1, eieio 0.18beta1 and speedbar 0.14beta4.

Loading edmacro...

Loading edmacro...done

Loading senator...

You need to upgrade package speedbar to 0.15beta1

I tried executing the (load-file command for cedet.el manually with stack tracing turned on. I got this stack trace:

  # bind (standard-output stack-trace-on-signal debug-on-signal stack-trace-on-error debug-on-error)

  signal(error ("You need to upgrade package speedbar to 0.15beta1"))

  # bind (args datum)

  cerror("You need to upgrade package speedbar to 0.15beta1")

  apply(cerror "You need to upgrade package speedbar to 0.15beta1" nil)

  # bind (args datum)

  error("You need to upgrade package speedbar to 0.15beta1")

  (if directory (inversion-download-package-ask err package directory version) (error err))

  (if err (if directory (inversion-download-package-ask err package directory version) (error err)))

  (when err (if directory (inversion-download-package-ask err package directory version) (error err)))

  # bind (err)

  (let ((err ...)) (when err (if directory ... ...)))

  # bind (reserved directory file version package)

  inversion-require(speedbar "0.15beta1")

  (progn (inversion-require (quote speedbar) "0.15beta1"))

  (eval-and-compile (inversion-require (quote speedbar) "0.15beta1"))

  # bind (current-load-list)

  # (unwind-protect ...)

  # bind (load-file-name)

  # (unwind-protect ...)

  # (unwind-protect ...)

  # (unwind-protect ...)

  # (unwind-protect ...)

  # (unwind-protect ...)

  load-internal("semantic-sb" nil t nil undecided)

  # bind (path handler filename nosuffix nomessage noerror file)

  load("semantic-sb" nil t nil)

  # (unwind-protect ...)

  require(semantic-sb)

  (if (featurep (quote speedbar)) (require (quote semantic-sb)) (add-hook (quote speedbar-load-hook) (lambda nil ...)))

  # bind (current-load-list)

  # (unwind-protect ...)

  # bind (load-file-name)

  # (unwind-protect ...)

  # (unwind-protect ...)

  # (unwind-protect ...)

  # (unwind-protect ...)

  # (unwind-protect ...)

  load-internal("semantic-imenu" nil t nil undecided)

  # bind (path handler filename nosuffix nomessage noerror file)

  load("semantic-imenu" nil t nil)

  # (unwind-protect ...)

  require(semantic-imenu)

  # bind (current-load-list)

  # (unwind-protect ...)

  # bind (load-file-name)

  # (unwind-protect ...)

  # (unwind-protect ...)

  # (unwind-protect ...)

  # (unwind-protect ...)

  # (unwind-protect ...)

  load-internal("senator" nil nil nil undecided)

  # bind (path handler filename nosuffix nomessage noerror file)

  load("senator" nil nil nil)

  # (unwind-protect ...)

  (global-senator-minor-mode 1)

  (progn (if (and semantic-load-turn-everything-on ...) (add-hook ... ...)) (when (and ... ...) (add-hook ... ...)) (when semantic-load-turn-everything-on (global-semantic-highlight-edits-mode 1)) (global-senator-minor-mode 1) (global-semantic-show-unmatched-syntax-mode 1) (global-semantic-summary-mode 1) (global-semantic-auto-parse-mode 1) (global-semantic-show-parser-state-mode 1) (global-semanticdb-minor-mode 1) (when (boundp ...) (global-semantic-stickyfunc-mode 1)) (when (and ... ...) (global-semantic-show-tag-boundaries-mode 1)) (global-semantic-highlight-by-attribute-mode 1) (if (and ... ... ...) (semanticdb-load-system-caches)))

  (if (or semantic-load-turn-everything-on semantic-load-turn-useful-things-on) (progn (if ... ...) (when ... ...) (when semantic-load-turn-everything-on ...) (global-senator-minor-mode 1) (global-semantic-show-unmatched-syntax-mode 1) (global-semantic-summary-mode 1) (global-semantic-auto-parse-mode 1) (global-semantic-show-parser-state-mode 1) (global-semanticdb-minor-mode 1) (when ... ...) (when ... ...) (global-semantic-highlight-by-attribute-mode 1) (if ... ...)))

  (when (or semantic-load-turn-everything-on semantic-load-turn-useful-things-on) (if (and semantic-load-turn-everything-on ...) (add-hook ... ...)) (when (and ... ...) (add-hook ... ...)) (when semantic-load-turn-everything-on (global-semantic-highlight-edits-mode 1)) (global-senator-minor-mode 1) (global-semantic-show-unmatched-syntax-mode 1) (global-semantic-summary-mode 1) (global-semantic-auto-parse-mode 1) (global-semantic-show-parser-state-mode 1) (global-semanticdb-minor-mode 1) (when (boundp ...) (global-semantic-stickyfunc-mode 1)) (when (and ... ...) (global-semantic-show-tag-boundaries-mode 1)) (global-semantic-highlight-by-attribute-mode 1) (if (and ... ... ...) (semanticdb-load-system-caches)))

  # bind (current-load-list)

  # (unwind-protect ...)

  # bind (load-file-name)

  # (unwind-protect ...)

  # (unwind-protect ...)

  # (unwind-protect ...)

  # (unwind-protect ...)

  # (unwind-protect ...)

  load-internal("semantic-load" nil t nil undecided)

  # bind (path handler filename nosuffix nomessage noerror file)

  load("semantic-load" nil t nil)

  # (unwind-protect ...)

  require(semantic-load)

  # (condition-case ... . ((error (message "%s" ...))))

  (condition-case err (require (intern ...)) (error (message "%s" ...)))

  (while --dolist-temp--80907 (setq package-spec (car --dolist-temp--80907)) (setq package (nth 0 package-spec) min-version (nth 1 package-spec) installdir (nth 2 package-spec)) (when installdir (setq installdir ...)) (inversion-add-to-load-path package min-version installdir) (condition-case err (require ...) (error ...)) (setq --dolist-temp--80907 (cdr --dolist-temp--80907)))

  # bind (package-spec --dolist-temp--80907)

  (let ((--dolist-temp--80907 cedet-packages) package-spec) (while --dolist-temp--80907 (setq package-spec ...) (setq package ... min-version ... installdir ...) (when installdir ...) (inversion-add-to-load-path package min-version installdir) (condition-case err ... ...) (setq --dolist-temp--80907 ...)) nil)

  # (catch --cl-block-nil-- ...)

  (catch (quote --cl-block-nil--) (let (... package-spec) (while --dolist-temp--80907 ... ... ... ... ... ...) nil))

  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))

  (block nil (let (... package-spec) (while --dolist-temp--80907 ... ... ... ... ... ...) nil))

  (dolist (package-spec cedet-packages) (setq package (nth 0 package-spec) min-version (nth 1 package-spec) installdir (nth 2 package-spec)) (when installdir (setq installdir ...)) (inversion-add-to-load-path package min-version installdir) (condition-case err (require ...) (error ...)))

  # bind (installdir min-version package default-directory)

  (let ((default-directory ...) package min-version installdir) (dolist (package-spec cedet-packages) (setq package ... min-version ... installdir ...) (when installdir ...) (inversion-add-to-load-path package min-version installdir) (condition-case err ... ...)))

  # bind (default-directory)

  (let ((default-directory ...)) (add-to-list (quote load-path) default-directory) (message "%S added to `load-path'" default-directory) (require (quote inversion)) (let (... package min-version installdir) (dolist ... ... ... ... ...)))

  # bind (current-load-list)

  # (unwind-protect ...)

  # bind (load-file-name)

  # (unwind-protect ...)

  # (unwind-protect ...)

  # (unwind-protect ...)

  # (unwind-protect ...)

  # (unwind-protect ...)

  load-internal("c:\\home\\site-lisp\\cedet\\common\\cedet.el" nil nil t undecided)
  # bind (path handler filename nosuffix nomessage noerror file)

  load("c:\\home\\site-lisp\\cedet\\common\\cedet.el" nil nil t)

  # bind (file)

  load-file("~/site-lisp/cedet/common/cedet.el")

  eval((load-file "~/site-lisp/cedet/common/cedet.el"))

  # bind (expr)

  eval-interactive((load-file "~/site-lisp/cedet/common/cedet.el"))

  # bind (standard-output opoint ignore-quotes eval-last-sexp-arg-internal)

  eval-last-sexp(nil)

  # bind (command-debug-status)

  call-interactively(eval-last-sexp)

  # (condition-case ... . error)

  # (catch top-level ...)

My version of speedbar has this at the top:

;;; speedbar --- quick access to files and tags in a frame

;;; Copyright (C) 1996, 97, 98, 99, 00, 01, 02, 03 Free Software Foundation

;; Author: Eric M. Ludlam <za...@gn...>

;; Keywords: file, tags, tools

;; X-RCS: $Id: speedbar.el,v 1.234 2003/10/02 01:45:41 zappo Exp $

(defvar speedbar-version "0.15beta1"

  "The current version of speedbar.")

So, it looks like I have the correct version. 

Any idea what is going wrong? I can't seem to find any rogue speedbars laying around that are getting loaded by mistake. 

David