Re: [CEDET-devel] Issue compiling cedet with recent emacs from bzr/git + question about hideifdef

[David E. <de...@ra...>]

Damien DEVILLE writes:
> I build on FreeBSD 7.3
>
> my cedet bzr is at commit
> revno: 8014
>
> my emacs git is at revision
> commit 6d7bc7b267a2bec275941006a11c9cbc1d2e6331
> Author: Karl Fogel <kf...@re...>
> Date:   Sun Dec 12 11:53:24 2010 -0500

I could reproduce it now, strangely only on FreeBSD and GNU/Linux
(i386), not under OS X.

For now, you can use Emacs23 to compile CEDET under BSD, which is still
working fine, and Emacs24 should have no problems using the older
byte-code.

Eric, I've attached a complete backtrace when calling
semantic-grammar-create-package interactively on "c.by" under FreeBSD;
maybe you have an idea what's happening and whether this is a bug in
CEDET or Emacs24.

-David


Debugger entered--Lisp error: (wrong-type-argument listp $1)
  car($1)
  (eq (car form) (quote quote))
  (if (eq (car form) (quote quote)) (progn (setq form (cdr form)) (cond ((and (= (length form) 1) (listp (car form))) (insert "\n(append") (bovine-grammar-expand-form (car form) quotemode nil) (insert ")") (setq form nil inplace nil)) ((a$
  (when (eq (car form) (quote quote)) (setq form (cdr form)) (cond ((and (= (length form) 1) (listp (car form))) (insert "\n(append") (bovine-grammar-expand-form (car form) quotemode nil) (insert ")") (setq form nil inplace nil)) ((and (=$
  bovine-grammar-expand-form($1 nil t)
  (progn (bovine-grammar-expand-form (car form) quotemode t) (setq form (cdr form)))
  (if (string= n "") (progn (bovine-grammar-expand-form (car form) quotemode t) (setq form (cdr form))) (if (and (eq (aref n 0) 36) (not q)) (progn (cond ((and (not x) (not inlist) (not inplace)) (insert "\n(list")) ((and x inlist (not in$
  (cond ((eq first nil) (when (and (not inlist) (not inplace)) (insert "\n(list") (setq inlist t)) (insert " nil")) ((listp first) (when (and (not inlist) (not inplace)) (insert "\n(list") (setq inlist t)) (bovine-grammar-expand-form firs$
  (while form (setq first (car form) form (cdr form)) (cond ((eq first nil) (when (and (not inlist) (not inplace)) (insert "\n(list") (setq inlist t)) (insert " nil")) ((listp first) (when (and (not inlist) (not inplace)) (insert "\n(list$
  (if macro (bovine-grammar-expand-form (apply (cdr macro) (cdr form)) quotemode t) (if inplace (insert "\n(")) (while form (setq first (car form) form (cdr form)) (cond ((eq first nil) (when (and (not inlist) (not inplace)) (insert "\n(l$
  (let ((macro (assq (car form) bovine--grammar-macros)) inlist first n q x) (if macro (bovine-grammar-expand-form (apply (cdr macro) (cdr form)) quotemode t) (if inplace (insert "\n(")) (while form (setq first (car form) form (cdr form))$
  bovine-grammar-expand-form((\, $1) nil t)
  (cond ((eq first nil) (when (and (not inlist) (not inplace)) (insert "\n(list") (setq inlist t)) (insert " nil")) ((listp first) (when (and (not inlist) (not inplace)) (insert "\n(list") (setq inlist t)) (bovine-grammar-expand-form firs$
  (while form (setq first (car form) form (cdr form)) (cond ((eq first nil) (when (and (not inlist) (not inplace)) (insert "\n(list") (setq inlist t)) (insert " nil")) ((listp first) (when (and (not inlist) (not inplace)) (insert "\n(list$
  (if macro (bovine-grammar-expand-form (apply (cdr macro) (cdr form)) quotemode t) (if inplace (insert "\n(")) (while form (setq first (car form) form (cdr form)) (cond ((eq first nil) (when (and (not inlist) (not inplace)) (insert "\n(l$
  (let ((macro (assq (car form) bovine--grammar-macros)) inlist first n q x) (if macro (bovine-grammar-expand-form (apply (cdr macro) (cdr form)) quotemode t) (if inplace (insert "\n(")) (while form (setq first (car form) form (cdr form))$
  bovine-grammar-expand-form((cons (\, $1) $3) nil t)
  (progn (bovine-grammar-expand-form (car form) quotemode t) (setq form (cdr form)))
  (if (string= n "") (progn (bovine-grammar-expand-form (car form) quotemode t) (setq form (cdr form))) (if (and (eq (aref n 0) 36) (not q)) (progn (cond ((and (not x) (not inlist) (not inplace)) (insert "\n(list")) ((and x inlist (not in$
  (cond ((eq first nil) (when (and (not inlist) (not inplace)) (insert "\n(list") (setq inlist t)) (insert " nil")) ((listp first) (when (and (not inlist) (not inplace)) (insert "\n(list") (setq inlist t)) (bovine-grammar-expand-form firs$
  (while form (setq first (car form) form (cdr form)) (cond ((eq first nil) (when (and (not inlist) (not inplace)) (insert "\n(list") (setq inlist t)) (insert " nil")) ((listp first) (when (and (not inlist) (not inplace)) (insert "\n(list$
  (if macro (bovine-grammar-expand-form (apply (cdr macro) (cdr form)) quotemode t) (if inplace (insert "\n(")) (while form (setq first (car form) form (cdr form)) (cond ((eq first nil) (when (and (not inlist) (not inplace)) (insert "\n(l$
  (let ((macro (assq (car form) bovine--grammar-macros)) inlist first n q x) (if macro (bovine-grammar-expand-form (apply (cdr macro) (cdr form)) quotemode t) (if inplace (insert "\n(")) (while form (setq first (car form) form (cdr form))$
  bovine-grammar-expand-form((\, (cons (\, $1) $3)) nil t)
  (cond ((eq first nil) (when (and (not inlist) (not inplace)) (insert "\n(list") (setq inlist t)) (insert " nil")) ((listp first) (when (and (not inlist) (not inplace)) (insert "\n(list") (setq inlist t)) (bovine-grammar-expand-form firs$
  (while form (setq first (car form) form (cdr form)) (cond ((eq first nil) (when (and (not inlist) (not inplace)) (insert "\n(list") (setq inlist t)) (insert " nil")) ((listp first) (when (and (not inlist) (not inplace)) (insert "\n(list$
  (if macro (bovine-grammar-expand-form (apply (cdr macro) (cdr form)) quotemode t) (if inplace (insert "\n(")) (while form (setq first (car form) form (cdr form)) (cond ((eq first nil) (when (and (not inlist) (not inplace)) (insert "\n(l$
  (let ((macro (assq (car form) bovine--grammar-macros)) inlist first n q x) (if macro (bovine-grammar-expand-form (apply (cdr macro) (cdr form)) quotemode t) (if inplace (insert "\n(")) (while form (setq first (car form) form (cdr form))$
  bovine-grammar-expand-form(((\, (cons (\, $1) $3))) nil)
  (cond ((eq (car sexp) (quote EXPAND)) (insert ",(lambda (vals start end)") (bovine-grammar-expand-form (apply (cdr (assq (quote EXPAND) bovine--grammar-macros)) (cdr sexp)) quotemode t)) ((and (listp (car sexp)) (eq (caar sexp) (quote E$
  (let ((sexp (read textform))) (insert "\n") (cond ((eq (car sexp) (quote EXPAND)) (insert ",(lambda (vals start end)") (bovine-grammar-expand-form (apply (cdr (assq (quote EXPAND) bovine--grammar-macros)) (cdr sexp)) quotemode t)) ((and$
  (if (string= "" textform) nil (let ((sexp (read textform))) (insert "\n") (cond ((eq (car sexp) (quote EXPAND)) (insert ",(lambda (vals start end)") (bovine-grammar-expand-form (apply (cdr (assq ... bovine--grammar-macros)) (cdr sexp)) $
  bovine-grammar-expand-action("( ,(cons ,$1 $3 ) )" nil)
  (if actn (bovine-grammar-expand-action actn quotemode))
  (while rules (setq items (semantic-tag-get-attribute (car rules) :value) prec (semantic-tag-get-attribute (car rules) :prec) actn (semantic-tag-get-attribute (car rules) :expr) rules (cdr rules)) (insert "\n(") (if (null items) (insert $
  (while nterms (setq nterm (car nterms) rules (semantic-tag-components-semantic-grammar-mode nterm) nterm (semantic-tag-name nterm) nterms (cdr nterms)) (when (member nterm (quote ("bovine-toplevel" "bovine-inner-scope"))) (error "`%s' i$
  (progn (erase-buffer) (insert "`(") (insert "\n(bovine-toplevel \n(" start ")\n) ;; end bovine-toplevel\n") (when scopestart (insert "\n(bovine-inner-scope \n(" scopestart ")\n) ;; end bovine-inner-scope\n")) (while nterms (setq nterm ($
  (unwind-protect (progn (erase-buffer) (insert "`(") (insert "\n(bovine-toplevel \n(" start ")\n) ;; end bovine-toplevel\n") (when scopestart (insert "\n(bovine-inner-scope \n(" scopestart ")\n) ;; end bovine-inner-scope\n")) (while nter$
  (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (erase-buffer) (insert "`(") (insert "\n(bovine-toplevel \n(" start ")\n) ;; end bovine-toplevel\n") (when scopestart (insert "\n(bovine-inner-scope \n(" scopestart ")$
  (with-current-buffer temp-buffer (unwind-protect (progn (erase-buffer) (insert "`(") (insert "\n(bovine-toplevel \n(" start ")\n) ;; end bovine-toplevel\n") (when scopestart (insert "\n(bovine-inner-scope \n(" scopestart ")\n) ;; end bo$
  (let ((temp-buffer (generate-new-buffer " *temp*"))) (with-current-buffer temp-buffer (unwind-protect (progn (erase-buffer) (insert "`(") (insert "\n(bovine-toplevel \n(" start ")\n) ;; end bovine-toplevel\n") (when scopestart (insert "$
  (with-temp-buffer (erase-buffer) (insert "`(") (insert "\n(bovine-toplevel \n(" start ")\n) ;; end bovine-toplevel\n") (when scopestart (insert "\n(bovine-inner-scope \n(" scopestart ")\n) ;; end bovine-inner-scope\n")) (while nterms (s$
  (let* ((start (semantic-grammar-start)) (scopestart (semantic-grammar-scopestart)) (quotemode (semantic-grammar-quotemode)) (tags (semantic-find-tags-by-class (quote token) (current-buffer))) (nterms (semantic-find-tags-by-class (quote $
  bovine-grammar-parsetable-builder()
  semantic-grammar-parsetable-builder()
  semantic-grammar-parser-data()
  semantic-grammar-create-package(nil)
  call-interactively(semantic-grammar-create-package nil nil)