bug#14646: 24.3.50; edebug-defun causes an error for eval-when-compile

bug#14646: 24.3.50; edebug-defun causes an error for eval-when-compile

[Katsumi Yamaoka]

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@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'

bug#14646: 24.3.50; edebug-defun causes an error for eval-when-compile

[Katsumi Yamaoka]

Does anyone have a solution for this?

-------------------- Start of forwarded message --------------------
From: Katsumi Yamaoka <yamaoka@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@jpl.org>
To: 14646@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 --------------------

bug#14646: 24.3.50; edebug-defun causes an error for eval-when-compile

[Stefan Monnier]

> 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)

bug#14646: 24.3.50; edebug-defun causes an error for eval-when-compile

[Katsumi Yamaoka]

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

Works nicely.  Thank you!