On Sunday, February 10, 2008 at 19:41:09, Toby Allsopp wrote:
> On Sun, Feb 10 2008, Robert Widhopf-Fenk wrote:
>
> > Hi,
> >
> > when I build dvc for xemacs 21.4 from the current sources I
> > get the error below ... trying to figure out where it comes
> > from for some time resulted in nothing.
> >
> > Do you have any advice on how to debug this, i.e. get a
> > reasonable backtrace or other message hinting to the source
> > of this ... or am I the only one seeing it?
>
> I just installed xemacs 21.4 on my Debian system and it seems to compile
> okay. There are a lot of errors like:
Which Debian are you running?
I am running stable with xemacs21-nomule/21.4.19-2 and
still get this error.
> Does your xemacs come with the cl library? Does (require 'cl) work?
Sure it does.
But some sources using defstruct do not require it, but
adding it will not help ... nor does the following
=== modified file 'lisp/dvc-build.el'
--- lisp/dvc-build.el 2008-02-06 09:01:20 +0000
+++ lisp/dvc-build.el 2008-02-10 23:48:27 +0000
@@ -111,7 +111,8 @@
(autoload 'customize-group "cus-edit" nil t)
(autoload 'dired "dired" nil t)
(autoload 'dired-other-window "dired" nil t)
- (autoload 'dolist "cl-macs" nil nil 'macro)
+ (autoload 'dolist "cl-macs" nil nil 'macro)
+ (autoload 'defstruct "cl-macs" nil nil 'macro)
(autoload 'easy-mmode-define-keymap "easy-mmode")
(autoload 'minibuffer-prompt-end "completer")
(autoload 'mouse-avoidance-point-position "avoid")
Which causes the error below ...
Also adding a (require 'cl) to vm-build.el will not fix it
for me.
I verified that it is not something in my config files, by
moving them aside ... they should not be used anyway due to
-no-site-file -no-autoloads ...
Puzzled,
Robert
~/<2>dvc/lisp > make
/bin/rm -f dvc-version.el
echo ';; do not edit -- automatically generated file' > dvc-version.el
echo ';; do not delete -- needed for bug reports' >> dvc-version.el
printf "%s" '(defconst dvc-version "' >> dvc-version.el
if [ "x" != "x" ]; then \
printf "%s (%s)" \
`cd .. && bzr version-info | sed -ne 's/^revision-id: //p'` >>
dvc-version.el; \
else \
printf "%s" `cd .. && bzr version-info | sed -ne
's/^revision-id: //p'` >> dvc-version.el; \
fi
echo '")' >> dvc-version.el
echo "(provide 'dvc-version)" >> dvc-version.el
chmod -w dvc-version.el
(cd .. ; ./config.status lisp/dvc-site.el)
config.status: creating lisp/dvc-site.el
lispdir=/usr/local/lib/xemacs/site-packages/lisp/dvc srcdir=. otherdirs=""
builddir="." /usr/bin/xemacs -batch -no-site-file -no-autoloads -l
./dvc-build.el -f package-maint-clean-some-elc
error loading /home/fenk/prog/bazaar/dvc/lisp/bzr-dvc.el
backtrace()
(condition-case nil (load (expand-file-name file srcdir) t t t) (error
(message ...) (backtrace)))
(while --dolist-temp--2512 (setq file (car --dolist-temp--2512))
(condition-case nil (load ... t t t) (error ... ...)) (setq --dolist-temp--2512
(cdr --dolist-temp--2512)))
(let ((--dolist-temp--2512 files) file) (while --dolist-temp--2512 (setq file
...) (condition-case nil ... ...) (setq --dolist-temp--2512 ...)) nil)
(catch (quote --cl-block-nil--) (let (... file) (while --dolist-temp--2512
... ... ...) nil))
(cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
(block nil (let (... file) (while --dolist-temp--2512 ... ... ...) nil))
(dolist (file files) (condition-case nil (load ... t t t) (error ... ...)))
package-maint-load-files(("/home/fenk/prog/bazaar/dvc/lisp/dvc-site.el"
"/home/fenk/prog/bazaar/dvc/lisp/dvc-version.el" "baz-dvc.el" "baz.el"
"bzr-core.el" "bzr-dvc.el" "bzr-gnus.el" "bzr-revision.el" "bzr-revlog.el"
"bzr-submit.el" "bzr.el" "dvc-about.el" "dvc-annotate.el" "dvc-be.el"
"dvc-bookmarks.el" "dvc-buffers.el" "dvc-bug.el" "dvc-cmenu.el" "dvc-config.el"
"dvc-core.el" "dvc-defs.el" "dvc-diff.el" "dvc-fileinfo.el" "dvc-gnus.el"
"dvc-lisp.el" "dvc-log.el" "dvc-register.el" "dvc-revlist.el" "dvc-revlog.el"
"dvc-site.el" "dvc-state.el" "dvc-tips.el" "dvc-ui.el" "dvc-unified.el"
"dvc-utils.el" "dvc-version.el" "dvc-xemacs.el" "tla-autoconf.el"
"tla-bconfig.el" "tla-browse.el" "tla-core.el" "tla-defs.el" "tla-dvc.el"
"tla-gnus.el" "tla-tests.el" "tla.el" "xdarcs-core.el" "xdarcs-dvc.el"
"xdarcs.el" "xgit-annotate.el" "xgit-core.el" "xgit-dvc.el" "xgit-gnus.el"
"xgit-log.el" "xgit-revision.el" "xgit.el" "xhg-be.el" "xhg-core.el"
"xhg-dvc.el" "xhg-gnus.el" "xhg-log.el" "xhg-mq.el" "xhg-revision.el" "xhg.el"
"xmtn-automate.el" "xmtn-base.el" "xmtn-basic-io.el" "xmtn-compat.el"
"xmtn-dvc.el" "xmtn-ids.el" "xmtn-match.el" "xmtn-minimal.el" "xmtn-revlist.el"
"xmtn-run.el"))
(progn (package-maint-load-files package-maint-files)
(package-maint-build-dep changed) (package-maint-clean-elc changed))
(if (not (null changed)) (progn (package-maint-load-files
package-maint-files) (package-maint-build-dep changed) (package-maint-clean-elc
changed)))
(when (not (null changed)) (package-maint-load-files package-maint-files)
(package-maint-build-dep changed) (package-maint-clean-elc changed))
(let ((changed ...)) (when (not ...) (package-maint-load-files
package-maint-files) (package-maint-build-dep changed) (package-maint-clean-elc
changed)))
package-maint-clean-some-elc()
command-line-do-funcall("-f")
command-line-1()
command-line()
normal-top-level()
_______________________________________________
Dvc-dev mailing list
[email protected]
https://mail.gna.org/listinfo/dvc-dev
