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

[Katsumi Yamaoka <yamaoka@jpl.org>]

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