GNU bug report logs - #14646
24.3.50; edebug-defun causes an error for eval-when-compile

Previous Next

To add a comment to this bug, you must first unarchive it, by sending
a message to control AT debbugs.gnu.org, with unarchive 14646 in the body.
You can then email your comments to 14646 AT debbugs.gnu.org in the normal way.

Toggle the display of automated, internal messages from the tracker.

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Katsumi Yamaoka <yamaoka <at> jpl.org>
To: bug-gnu-emacs <at> gnu.org
Subject: 24.3.50; edebug-defun causes an error for eval-when-compile
Date: Tue, 18 Jun 2013 09:07:19 +0900

Hi,

I'm unable to debug a function that uses eval-when-compile.
Could you try edebug-defun on this form?

(defun foo ()
  (eval-when-compile
    (concat "foo" "+" "bar")))

Debugger entered--Lisp error: (wrong-type-argument consp nil)
  edebug-before(1)
  (edebug-after (edebug-before 1) 2 (concat "foo" "+" "bar"))
  (progn (edebug-after (edebug-before 1) 2 (concat "foo" "+" "bar")))
  eval((progn (edebug-after (edebug-before 1) 2 (concat "foo" "+" "bar"))) nil)
[...]
  edebug-defun()
  call-interactively(edebug-defun nil nil)
  command-execute(edebug-defun)

Thanks.

In GNU Emacs 24.3.50.1 (i686-pc-cygwin, X toolkit, Xaw3d scroll bars)
 of 2013-06-18 on localhost
Bzr revision: 113028 yamaoka <at> jpl.org-20130617220627-fag61aiyko1lmuoq
Windowing system distributor `The Cygwin/X Project', version 11.0.11401000
Configured using:
 `configure --verbose --with-x-toolkit=lucid --without-imagemagick
 --without-dbus --without-gconf --without-gsettings'

Message #8 received at 14646 <at> debbugs.gnu.org (full text, mbox):

From: Katsumi Yamaoka <yamaoka <at> jpl.org>
To: 14646 <at> debbugs.gnu.org
Subject: Re: bug#14646: 24.3.50;
 edebug-defun causes an error for eval-when-compile
Date: Wed, 20 Nov 2013 16:15:22 +0900

Does anyone have a solution for this?

-------------------- Start of forwarded message --------------------
From: Katsumi Yamaoka <yamaoka <at> jpl.org>
Subject: bug#14646: 24.3.50; edebug-defun causes an error for eval-when-compile
Date: Tue, 18 Jun 2013 09:07:19 +0900
Message-ID: <b4m1u80l1s8.fsf <at> jpl.org>
To: 14646 <at> debbugs.gnu.org

Hi,

I'm unable to debug a function that uses eval-when-compile.
Could you try edebug-defun on this form?

(defun foo ()
  (eval-when-compile
    (concat "foo" "+" "bar")))

Debugger entered--Lisp error: (wrong-type-argument consp nil)
  edebug-before(1)
  (edebug-after (edebug-before 1) 2 (concat "foo" "+" "bar"))
  (progn (edebug-after (edebug-before 1) 2 (concat "foo" "+" "bar")))
  eval((progn (edebug-after (edebug-before 1) 2 (concat "foo" "+" "bar"))) nil)
[...]
  edebug-defun()
  call-interactively(edebug-defun nil nil)
  command-execute(edebug-defun)

Thanks.
-------------------- End of forwarded message --------------------

Message #11 received at 14646 <at> debbugs.gnu.org (full text, mbox):

From: Stefan Monnier <monnier <at> iro.umontreal.ca>
To: Katsumi Yamaoka <yamaoka <at> jpl.org>
Cc: 14646 <at> debbugs.gnu.org
Subject: Re: bug#14646: 24.3.50;
 edebug-defun causes an error for eval-when-compile
Date: Wed, 20 Nov 2013 21:46:36 -0500

> Does anyone have a solution for this?

I installed the patch below which seems to fix it,


        Stefan


--- lisp/emacs-lisp/byte-run.el	2013-11-04 20:06:02 +0000
+++ lisp/emacs-lisp/byte-run.el	2013-11-21 02:43:15 +0000
@@ -392,7 +391,7 @@
   "Like `progn', but evaluates the body at compile time if you're compiling.
 Thus, the result of the body appears to the compiler as a quoted constant.
 In interpreted code, this is entirely equivalent to `progn'."
-  (declare (debug t) (indent 0))
+  (declare (debug (def-body)) (indent 0))
   (list 'quote (eval (cons 'progn body) lexical-binding)))
 
 (defmacro eval-and-compile (&rest body)

Message #16 received at 14646-done <at> debbugs.gnu.org (full text, mbox):

From: Katsumi Yamaoka <yamaoka <at> jpl.org>
To: Stefan Monnier <monnier <at> iro.umontreal.ca>
Cc: 14646-done <at> debbugs.gnu.org
Subject: Re: bug#14646: 24.3.50;
 edebug-defun causes an error for eval-when-compile
Date: Fri, 22 Nov 2013 08:21:12 +0900

Stefan Monnier wrote:
>> Does anyone have a solution for this?
> I installed the patch below which seems to fix it,

Works nicely.  Thank you!

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.