From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: Anders Lindgren Newsgroups: gmane.emacs.bugs Subject: bug#16184: 24.3.50; edebug and eval-when-compiler don't work together Date: Fri, 30 Dec 2016 21:02:31 +0100 Message-ID: References: <20161118224713.GA3796@acm.fritz.box> <20161229092904.GA12550@acm.fritz.box> NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: multipart/alternative; boundary=001a114e52f0a733e90544e5ae91 X-Trace: blaine.gmane.org 1483128198 3454 195.159.176.226 (30 Dec 2016 20:03:18 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Fri, 30 Dec 2016 20:03:18 +0000 (UTC) Cc: Gemini Lasswell , Katsumi Yamaoka , 16184-done@debbugs.gnu.org, Benaiah Mischenko , David Bremner To: Alan Mackenzie Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Fri Dec 30 21:03:13 2016 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1cN3OR-0008MY-7q for geb-bug-gnu-emacs@m.gmane.org; Fri, 30 Dec 2016 21:03:11 +0100 Original-Received: from localhost ([::1]:41335 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1cN3OW-0006J2-8d for geb-bug-gnu-emacs@m.gmane.org; Fri, 30 Dec 2016 15:03:16 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:34469) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1cN3OM-0006Ii-9W for bug-gnu-emacs@gnu.org; Fri, 30 Dec 2016 15:03:08 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1cN3OI-00081X-9r for bug-gnu-emacs@gnu.org; Fri, 30 Dec 2016 15:03:06 -0500 Original-Received: from debbugs.gnu.org ([208.118.235.43]:45225) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1cN3OI-00081P-5Q for bug-gnu-emacs@gnu.org; Fri, 30 Dec 2016 15:03:02 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1cN3OH-0000lD-P9 for bug-gnu-emacs@gnu.org; Fri, 30 Dec 2016 15:03:01 -0500 X-Loop: help-debbugs@gnu.org Resent-From: Anders Lindgren Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Fri, 30 Dec 2016 20:03:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 16184 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: Original-Received: via spool by 16184-done@debbugs.gnu.org id=D16184.14831281612897 (code D ref 16184); Fri, 30 Dec 2016 20:03:01 +0000 Original-Received: (at 16184-done) by debbugs.gnu.org; 30 Dec 2016 20:02:41 +0000 Original-Received: from localhost ([127.0.0.1]:60624 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1cN3Nw-0000ke-5a for submit@debbugs.gnu.org; Fri, 30 Dec 2016 15:02:40 -0500 Original-Received: from mail-vk0-f42.google.com ([209.85.213.42]:36480) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1cN3Nt-0000kQ-R1 for 16184-done@debbugs.gnu.org; Fri, 30 Dec 2016 15:02:39 -0500 Original-Received: by mail-vk0-f42.google.com with SMTP id p9so245478067vkd.3 for <16184-done@debbugs.gnu.org>; Fri, 30 Dec 2016 12:02:37 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=mime-version:in-reply-to:references:from:date:message-id:subject:to :cc; bh=boWo+gBs/vBwXYDQTuzjlJCn6Z+M2aceNgXSX2BGubA=; b=aFUIlTAXPhk4HmzS0CHHCCm/x9ROAUbwJMm+FrtnlA8o1+qE2xFsWBbbd0dy7raPim EKv6PJg1SQM4jsKAEgwfkh5qP57zhI3ZSttr/HxrRlMQj86yDMNpJp6PTRjme1ktaPQk lSWay7DEYJdPJndVnPmkP8OjxxjgF1tiQyXsFcCmD+0e23/pUVpSQZpGZu+kXY8D4u+y 53DQX6mOdXCneNKN+Msd46VXmFeJXn0mmmHcCzudevj3IVEEGYx0FKXqjakAyKwmtVD7 DifrKcpKkzQb2e87pftn3LreEl8N2+RDM1Exbmj9Bb/20ibz4XRJCIxA7mda0idqsEe1 hnjg== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:mime-version:in-reply-to:references:from:date :message-id:subject:to:cc; bh=boWo+gBs/vBwXYDQTuzjlJCn6Z+M2aceNgXSX2BGubA=; b=b82T6M/UvCPMakY5j6xGaQ01nFZ1RPrMqtgrBpf3TCVjUdaF9OV/XYLI1GGS/9XBG/ aggONwA/MejDYaZrS50IaVOzOY5kP/zW2pN+J8hf4Jk9IddxES8ZshjKXfu1/XQFPHT0 gZCMOAp+fjhbe0AD6Sq2a59c3cHnbAnpiYRPusTdud8qVmULTIN6yzv0IsOyyiWLsfjz lIb7HPP6pPw8IJdgkQVQjcsg5ZamgSRduRbEu4yfQLuhn2qPTfYy76dmBxjNAM7FdR+f QLcrao+/BvGEH/iHkLnE9u93uXlLzd4B9JsyAJX9WIDRl+9DZ/Dd45lNMzyosaM7fsyd 82Sg== X-Gm-Message-State: AIkVDXJsbIMx0O4rkhIa5KlAuTr+IsGpnrPpJCz0N4cC3vFIGUZvzxIvluDMESUGmkm9ABOO8XfCtRl8fUn99Q== X-Received: by 10.31.96.202 with SMTP id u193mr17130479vkb.53.1483128151944; Fri, 30 Dec 2016 12:02:31 -0800 (PST) Original-Received: by 10.31.58.69 with HTTP; Fri, 30 Dec 2016 12:02:31 -0800 (PST) In-Reply-To: <20161229092904.GA12550@acm.fritz.box> X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 208.118.235.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: "bug-gnu-emacs" Xref: news.gmane.org gmane.emacs.bugs:127593 Archived-At: --001a114e52f0a733e90544e5ae91 Content-Type: text/plain; charset=UTF-8 Hi! I just got around to test this. Now, `eval-when-comple' seems to be working. Unfortunately, `eval-and-comple' is still broken. If I do C-u M-C-x eval the following with `debug-on-error' set to t, I get the backtrace below: (defun test (limit) (eval-and-compile (boundp 'parse-sexp-lookup-properties))) Debugger entered--Lisp error: (void-variable edebug-freq-count) edebug-before(1) (edebug-after (edebug-before 1) 2 (boundp (quote parse-sexp-lookup-properties))) (progn (edebug-after (edebug-before 1) 2 (boundp (quote parse-sexp-lookup-properties)))) eval((progn (edebug-after (edebug-before 1) 2 (boundp (quote parse-sexp-lookup-properties)))) nil) #[128 "\301\302\303 B \"D\207" [lexical-binding quote eval progn] 5 1802730]((edebug-after (edebug-before 1) 2 (boundp (quote parse-sexp-lookup-properties)))) macroexpand((eval-and-compile (edebug-after (edebug-before 1) 2 (boundp (quote parse-sexp-lookup-properties)))) nil) macroexp-macroexpand((eval-and-compile (edebug-after (edebug-before 1) 2 (boundp (quote parse-sexp-lookup-properties)))) nil) macroexp--expand-all((eval-and-compile (edebug-after (edebug-before 1) 2 (boundp (quote parse-sexp-lookup-properties))))) macroexp--all-forms((edebug-after (edebug-before 0) 3 (eval-and-compile (edebug-after (edebug-before 1) 2 (boundp (quote parse-sexp-lookup-properties))))) 1) #[514 "\300 \301\"\211\204 \302 \242\303\"\202g\304 !\204+\3051$\306\307 ! \"0\202*\310\311 \"\262 \210\312 \242\" \242 =\203b \242\302 \242\303\"\211\262 \232\203J \242\202e \312 \"\240\210\211 \242=\203\\\211\202e\313 !\202e\313 !\262 \207" [function-get compiler-macro macroexp--all-forms 1 functionp (debug error) autoload-do-load indirect-function message "macroexp--expand-all: %S" macroexp--compiler-macro macroexp--expand-all] 8 "\n\n(fn FORM FUNC)"](((edebug-after (edebug-before 0) 3 (eval-and-compile (edebug-after (edebug-before 1) 2 (boundp (quote parse-sexp-lookup-properties)))))) edebug-after) macroexp--expand-all((edebug-after (edebug-before 0) 3 (eval-and-compile (edebug-after (edebug-before 1) 2 (boundp (quote parse-sexp-lookup-properties)))))) macroexp--all-forms((lambda nil (edebug-after (edebug-before 0) 3 (eval-and-compile (edebug-after (edebug-before 1) 2 (boundp (quote parse-sexp-lookup-properties)))))) 2) macroexp--expand-all((function (lambda nil (edebug-after (edebug-before 0) 3 (eval-and-compile (edebug-after (edebug-before 1) 2 (boundp (quote parse-sexp-lookup-properties)))))))) macroexp--all-forms((edebug-enter (quote test) (list limit) (function (lambda nil (edebug-after (edebug-before 0) 3 (eval-and-compile (edebug-after (edebug-before 1) 2 (boundp ...))))))) 1) #[514 "\300 \301\"\211\204 \302 \242\303\"\202g\304 !\204+\3051$\306\307 ! \"0\202*\310\311 \"\262 \210\312 \242\" \242 =\203b \242\302 \242\303\"\211\262 \232\203J \242\202e \312 \"\240\210\211 \242=\203\\\211\202e\313 !\202e\313 !\262 \207" [function-get compiler-macro macroexp--all-forms 1 functionp (debug error) autoload-do-load indirect-function message "macroexp--expand-all: %S" macroexp--compiler-macro macroexp--expand-all] 8 "\n\n(fn FORM FUNC)"](((edebug-enter (quote test) (list limit) (function (lambda nil (edebug-after (edebug-before 0) 3 (eval-and-compile (edebug-after ... 2 ...))))))) edebug-enter) macroexp--expand-all((edebug-enter (quote test) (list limit) (function (lambda nil (edebug-after (edebug-before 0) 3 (eval-and-compile (edebug-after (edebug-before 1) 2 (boundp ...)))))))) macroexp--all-forms((lambda (limit) (edebug-enter (quote test) (list limit) (function (lambda nil (edebug-after (edebug-before 0) 3 (eval-and-compile (edebug-after ... 2 ...))))))) 2) macroexp--expand-all((function (lambda (limit) (edebug-enter (quote test) (list limit) (function (lambda nil (edebug-after (edebug-before 0) 3 (eval-and-compile ...)))))))) macroexp--all-forms((defalias (quote test) (function (lambda (limit) (edebug-enter (quote test) (list limit) (function (lambda nil (edebug-after ... 3 ...))))))) 1) #[514 "\300 \301\"\211\204 \302 \242\303\"\202g\304 !\204+\3051$\306\307 ! \"0\202*\310\311 \"\262 \210\312 \242\" \242 =\203b \242\302 \242\303\"\211\262 \232\203J \242\202e \312 \"\240\210\211 \242=\203\\\211\202e\313 !\202e\313 !\262 \207" [function-get compiler-macro macroexp--all-forms 1 functionp (debug error) autoload-do-load indirect-function message "macroexp--expand-all: %S" macroexp--compiler-macro macroexp--expand-all] 8 "\n\n(fn FORM FUNC)"](((defalias (quote test) (function (lambda (limit) (edebug-enter (quote test) (list limit) (function (lambda nil ...))))))) defalias) macroexp--expand-all((defun test (limit) (edebug-enter (quote test) (list limit) (function (lambda nil (edebug-after (edebug-before 0) 3 (eval-and-compile (edebug-after ... 2 ...)))))))) macroexpand-all((defun test (limit) (edebug-enter (quote test) (list limit) (function (lambda nil (edebug-after (edebug-before 0) 3 (eval-and-compile (edebug-after ... 2 ...)))))))) eval-sexp-add-defvars((defun test (limit) (edebug-enter (quote test) (list limit) (function (lambda nil (edebug-after (edebug-before 0) 3 (eval-and-compile (edebug-after ... 2 ...)))))))) edebug-eval-defun((4)) apply(edebug-eval-defun (4)) eval-defun((4)) funcall-interactively(eval-defun (4)) call-interactively(eval-defun nil nil) command-execute(eval-defun) -- Anders On Thu, Dec 29, 2016 at 10:29 AM, Alan Mackenzie wrote: > Bug fixed. > > -- > Alan Mackenzie (Nuremberg, Germany). > --001a114e52f0a733e90544e5ae91 Content-Type: text/html; charset=UTF-8 Content-Transfer-Encoding: quoted-printable
Hi!

I just got around to test this. Now= , `eval-when-comple' seems to be working. Unfortunately, `eval-and-comp= le' is still broken.

If I do C-u M-C-x eval th= e following with `debug-on-error' set to t, I get the backtrace below:<= /div>

(defun test (limit)
=C2=A0 (eval-an= d-compile
=C2=A0 =C2=A0 (boundp 'parse-sexp-lookup-properties= )))


Debugger entered--Li= sp error: (void-variable edebug-freq-count)
=C2=A0 edebug-before(= 1)
=C2=A0 (edebug-after (edebug-before 1) 2 (boundp (quote parse-= sexp-lookup-properties)))
=C2=A0 (progn (edebug-after (edebug-bef= ore 1) 2 (boundp (quote parse-sexp-lookup-properties))))
=C2=A0 e= val((progn (edebug-after (edebug-before 1) 2 (boundp (quote parse-sexp-look= up-properties)))) nil)
=C2=A0 #[128 "\301\302\303 B \"D= \207" [lexical-binding quote eval progn] 5 1802730]((edebug-after (ede= bug-before 1) 2 (boundp (quote parse-sexp-lookup-properties))))
= =C2=A0 macroexpand((eval-and-compile (edebug-after (edebug-before 1) 2 (bou= ndp (quote parse-sexp-lookup-properties)))) nil)
=C2=A0 macroexp-= macroexpand((eval-and-compile (edebug-after (edebug-before 1) 2 (boundp (qu= ote parse-sexp-lookup-properties)))) nil)
=C2=A0 macroexp--expand= -all((eval-and-compile (edebug-after (edebug-before 1) 2 (boundp (quote par= se-sexp-lookup-properties)))))
=C2=A0 macroexp--all-forms((edebug= -after (edebug-before 0) 3 (eval-and-compile (edebug-after (edebug-before 1= ) 2 (boundp (quote parse-sexp-lookup-properties))))) 1)
=C2=A0 #[= 514 "\300 \301\"\211\204 \302 \242\303\"\202g\304 !\204+\305= 1$\306\307 ! \"0\202*\310\311 \"\262 \210\312 \242\" \242 = =3D\203b \242\302 \242\303\"\211\262 \232\203J \242\202e \312 \"= \240\210\211 \242=3D\203\\\211\202e\313 !\202e\313 !\262 \207" [functi= on-get compiler-macro macroexp--all-forms 1 functionp (debug error) autoloa= d-do-load indirect-function message "macroexp--expand-all: %S" ma= croexp--compiler-macro macroexp--expand-all] 8 "\n\n(fn FORM FUNC)&quo= t;](((edebug-after (edebug-before 0) 3 (eval-and-compile (edebug-after (ede= bug-before 1) 2 (boundp (quote parse-sexp-lookup-properties)))))) edebug-af= ter)
=C2=A0 macroexp--expand-all((edebug-after (edebug-before 0) = 3 (eval-and-compile (edebug-after (edebug-before 1) 2 (boundp (quote parse-= sexp-lookup-properties))))))
=C2=A0 macroexp--all-forms((lambda n= il (edebug-after (edebug-before 0) 3 (eval-and-compile (edebug-after (edebu= g-before 1) 2 (boundp (quote parse-sexp-lookup-properties)))))) 2)
=C2=A0 macroexp--expand-all((function (lambda nil (edebug-after (edebug-b= efore 0) 3 (eval-and-compile (edebug-after (edebug-before 1) 2 (boundp (quo= te parse-sexp-lookup-properties))))))))
=C2=A0 macroexp--all-form= s((edebug-enter (quote test) (list limit) (function (lambda nil (edebug-aft= er (edebug-before 0) 3 (eval-and-compile (edebug-after (edebug-before 1) 2 = (boundp ...))))))) 1)
=C2=A0 #[514 "\300 \301\"\211\204= \302 \242\303\"\202g\304 !\204+\3051$\306\307 ! \"0\202*\310\311= \"\262 \210\312 \242\" \242 =3D\203b \242\302 \242\303\"\2= 11\262 \232\203J \242\202e \312 \"\240\210\211 \242=3D\203\\\211\202e= \313 !\202e\313 !\262 \207" [function-get compiler-macro macroexp--all= -forms 1 functionp (debug error) autoload-do-load indirect-function message= "macroexp--expand-all: %S" macroexp--compiler-macro macroexp--ex= pand-all] 8 "\n\n(fn FORM FUNC)"](((edebug-enter (quote test) (li= st limit) (function (lambda nil (edebug-after (edebug-before 0) 3 (eval-and= -compile (edebug-after ... 2 ...))))))) edebug-enter)
=C2=A0 macr= oexp--expand-all((edebug-enter (quote test) (list limit) (function (lambda = nil (edebug-after (edebug-before 0) 3 (eval-and-compile (edebug-after (edeb= ug-before 1) 2 (boundp ...))))))))
=C2=A0 macroexp--all-forms((la= mbda (limit) (edebug-enter (quote test) (list limit) (function (lambda nil = (edebug-after (edebug-before 0) 3 (eval-and-compile (edebug-after ... 2 ...= ))))))) 2)
=C2=A0 macroexp--expand-all((function (lambda (limit) = (edebug-enter (quote test) (list limit) (function (lambda nil (edebug-after= (edebug-before 0) 3 (eval-and-compile ...))))))))
=C2=A0 macroex= p--all-forms((defalias (quote test) (function (lambda (limit) (edebug-enter= (quote test) (list limit) (function (lambda nil (edebug-after ... 3 ...)))= )))) 1)
=C2=A0 #[514 "\300 \301\"\211\204 \302 \242\303= \"\202g\304 !\204+\3051$\306\307 ! \"0\202*\310\311 \"\262 \= 210\312 \242\" \242 =3D\203b \242\302 \242\303\"\211\262 \232\20= 3J \242\202e \312 \"\240\210\211 \242=3D\203\\\211\202e\313 !\202e\31= 3 !\262 \207" [function-get compiler-macro macroexp--all-forms 1 funct= ionp (debug error) autoload-do-load indirect-function message "macroex= p--expand-all: %S" macroexp--compiler-macro macroexp--expand-all] 8 &q= uot;\n\n(fn FORM FUNC)"](((defalias (quote test) (function (lambda (li= mit) (edebug-enter (quote test) (list limit) (function (lambda nil ...)))))= )) defalias)
=C2=A0 macroexp--expand-all((defun test (limit) (ede= bug-enter (quote test) (list limit) (function (lambda nil (edebug-after (ed= ebug-before 0) 3 (eval-and-compile (edebug-after ... 2 ...))))))))
=C2=A0 macroexpand-all((defun test (limit) (edebug-enter (quote test) (li= st limit) (function (lambda nil (edebug-after (edebug-before 0) 3 (eval-and= -compile (edebug-after ... 2 ...))))))))
=C2=A0 eval-sexp-add-def= vars((defun test (limit) (edebug-enter (quote test) (list limit) (function = (lambda nil (edebug-after (edebug-before 0) 3 (eval-and-compile (edebug-aft= er ... 2 ...))))))))
=C2=A0 edebug-eval-defun((4))
=C2= =A0 apply(edebug-eval-defun (4))
=C2=A0 eval-defun((4))
=C2=A0 funcall-interactively(eval-defun (4))
=C2=A0 call-interac= tively(eval-defun nil nil)
=C2=A0 command-execute(eval-defun)

=C2=A0 =C2=A0 -- Anders


On Thu, Dec 29= , 2016 at 10:29 AM, Alan Mackenzie <acm@muc.de> wrote:
Bug fixed.

--
Alan Mackenzie (Nuremberg, Germany).

--001a114e52f0a733e90544e5ae91--