What version of jde are you using? jde-ant-get-ant-home no longer
looks like what your stack trace indicates. I'm guessing that there
was a bug there that got fixed some time ago, XEmacs may have added
some extra error checking code in let recently that is more
strict about this bug.
This is how jde-ant-get-ant-home is defined in the latest jde:
(defun jde-ant-get-ant-home ()
"Calculate an appropriate ant home."
(let ((ant-home
(if (string= jde-ant-home "")
(getenv "ANT_HOME")
jde-ant-home)))
(if ant-home
(jde-normalize-path ant-home))))
If this fixes your problem then I would suggest that you upgrade to
the latest version.
Suraj
On Thu, 14 Oct 2004 12:41:11 -0700 (PDT), Mike <[EMAIL PROTECTED]> wrote:
> I upgraded xemacs using apt-get on my Debian system a
> while back, and it broke the ant builds inside JDE. I
> use the Ant Server to build, but now I always get an
> error message when I try to build. After I enter the
> target I want to build, xemacs says:
>
> Signaling: (error "`let' bindings can have only one
> value-form" (if (string= "" jde-ant-home) (if
> ANT_HOME_ENV (jde-normalize-path ANT_HOME_ENV))
> (jde-normalize-path jde-ant-home)))
> (let ((ANT_HOME_ENV ...) (if ... ... ...)))
> jde-ant-get-ant-home()
> (let* ((ant-home ...) (delimiter ...) (ant-command
> ...)) (if (not ...) (setq ant-command ...)) (if (not
> ...) (setq ant-command ...)) (if (and ... ...) (setq
> ant-command ...)) (if (not ...) (setq ant-command
> ...)) ant-command)
> jde-build-ant-command(nil nil
> "/local/src/java/build.xml")
> (let ((compile-command ...)) (when compile-command
> (if ... ... ...) (setq compilation-finish-function
> ...) (if ... ... ...)))
> (lambda (buildfile target &optional
> interactive-args) "Build the current project using
> Ant. If interactive, we try to prompt the\n user for
> certain variables.." (interactive (let ... ... ... ...
> ... ... ... ... ...)) (let (...) (when compile-command
> ... ... ...)))("/local/src/java/build.xml" nil nil)
> call-interactively(jde-ant-build)
> (lambda nil "Rebuild the entire project.\nThis
> command invokes the function defined by
> `jde-build-function'." (interactive)
> (call-interactively (car jde-build-function)))()
> call-interactively(jde-build)
>
> Here is my ~/.xemacs/custom.el:
> (custom-set-variables
> '(cperl-continued-statement-offset 4)
> '(load-home-init-file t t)
> '(gnuserv-program (concat exec-directory "/gnuserv"))
> '(cperl-tab-always-indent t)
> '(cperl-indent-level 4)
> '(indent-tabs-mode nil)
> '(jde-ant-home "/usr/share/ant")
> '(jde-build-function (quote (jde-ant-build)))
> '(jde-jdk-registry (quote (("1.4.2" .
> "/usr/local/java"))))
> '(gnuserv-program (concat exec-directory "/gnuserv"))
> '(jde-ant-read-target t)
> '(toolbar-visible-p nil)
> '(jde-ant-enable-find t)
> '(jde-ant-invocation-method (quote ("Ant Server")))
> '(font-lock-mode t nil (font-lock)))
> (custom-set-faces
> '(default ((t (:size "14pt" :family
> "Lucidatypewriter"))) t)
> '(cperl-hash-face ((((class color) (background
> light)) (:foreground "Red" :bold t)))))
>
> Any idea what is going on here?
>
> Thanks,
> Mike
>
>
> __________________________________
> Do you Yahoo!?
> Yahoo! Mail Address AutoComplete - You start. We finish.
> http://promotions.yahoo.com/new_mail
>
