From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: Paul Pogonyshev Newsgroups: gmane.emacs.bugs Subject: bug#26073: workaround Date: Mon, 20 Mar 2017 10:22:57 +0100 Message-ID: References: NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=UTF-8 X-Trace: blaine.gmane.org 1490001865 22994 195.159.176.226 (20 Mar 2017 09:24:25 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Mon, 20 Mar 2017 09:24:25 +0000 (UTC) Cc: 26073@debbugs.gnu.org To: Stefan Monnier Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Mon Mar 20 10:24:19 2017 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 1cptXw-0004pT-7i for geb-bug-gnu-emacs@m.gmane.org; Mon, 20 Mar 2017 10:24:12 +0100 Original-Received: from localhost ([::1]:59980 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1cptY1-0001sS-UQ for geb-bug-gnu-emacs@m.gmane.org; Mon, 20 Mar 2017 05:24:17 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:45068) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1cptXq-0001sI-0T for bug-gnu-emacs@gnu.org; Mon, 20 Mar 2017 05:24:11 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1cptXm-00011H-Rc for bug-gnu-emacs@gnu.org; Mon, 20 Mar 2017 05:24:06 -0400 Original-Received: from debbugs.gnu.org ([208.118.235.43]:37682) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1cptXm-00011D-NI for bug-gnu-emacs@gnu.org; Mon, 20 Mar 2017 05:24:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1cptXm-0008UD-EY for bug-gnu-emacs@gnu.org; Mon, 20 Mar 2017 05:24:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Paul Pogonyshev Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Mon, 20 Mar 2017 09:24:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 26073 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: Original-Received: via spool by 26073-submit@debbugs.gnu.org id=B26073.149000178632558 (code B ref 26073); Mon, 20 Mar 2017 09:24:02 +0000 Original-Received: (at 26073) by debbugs.gnu.org; 20 Mar 2017 09:23:06 +0000 Original-Received: from localhost ([127.0.0.1]:35881 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1cptWr-0008T4-Rg for submit@debbugs.gnu.org; Mon, 20 Mar 2017 05:23:05 -0400 Original-Received: from mail-pg0-f48.google.com ([74.125.83.48]:36072) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1cptWp-0008SL-Oz for 26073@debbugs.gnu.org; Mon, 20 Mar 2017 05:23:04 -0400 Original-Received: by mail-pg0-f48.google.com with SMTP id g2so74058573pge.3 for <26073@debbugs.gnu.org>; Mon, 20 Mar 2017 02:23:03 -0700 (PDT) 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=tJedIy9bZwDBwkuUjnfSymvRE8qPhRWCLzzrpJ94BQo=; b=hhaY3IrqS6SbB3/uH6/TIXAM2ZCxK67LbhuuNLwxu1CUMEP4okCC1XsIp85z31gB6Z ARpByQgAgHzXlydNhBGPs08Jpc8tjAqJ4a3nnd+TfzgzaaPbZJAvYyYxaC+zE9zUL7Op IyWnM3v8eBsYPvluVAaBZg/Pc2I8WTaU3dykGTxUMVHgEjgZQHjSG/X0p98OtXcZ04aE 6waHci6MwoFfez9zAduC8Tceo6vm1boOKjwHJrDdsQwltHJ3NUhWPwESwWcjZbBlJOin piKDwqn9t195ZTozbs2iyXqxDLGPjN/aJj2aMyAOMQlLXInnX8N0N1QZ3Ev/xM8zy+Gz 6thA== 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=tJedIy9bZwDBwkuUjnfSymvRE8qPhRWCLzzrpJ94BQo=; b=DwUChhkyDjlomi/LZZbd83cM7fSVLe1Q3PbxtiDi2dq8gJm8wra0P9amjgD7HzUz0B SAYabcMRWDcFwgSpPOA5Q/BFOOspVwHml143uCrWv6FPsRCLF2EN8Qa3Mid19BS/T8Wu kAo0VKj0MxFAxdYrJSAvk4ctUSXRFh2BP09tzNB8TKL9Jdefm8lR+iuW9kvDDMdrp7rZ ojA5V1dShbfr0YZmU3nODu68vZxO+3r3AlS1kWGcnCF46DTW1+9QkgKfLIi9E8xjERG0 +Mraj84gUAM3TAoUfezNa/hm9UQwblM5BbFY3win0hYqam4r6xXKNzQGJNJinpP2gW/+ kuUQ== X-Gm-Message-State: AFeK/H3O4yIelSD8o/aG8FPWY1tuAFKMUI+Koqr/mwL/YTW8hhY5Qizdxk0mqZ0A4tLYheJPI0lshjlilv35+g== X-Received: by 10.99.237.17 with SMTP id d17mr29381282pgi.82.1490001778032; Mon, 20 Mar 2017 02:22:58 -0700 (PDT) Original-Received: by 10.100.138.13 with HTTP; Mon, 20 Mar 2017 02:22:57 -0700 (PDT) In-Reply-To: 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:130747 Archived-At: To see the wrong expansion: (progn (pp (macroexpand-all '(cl-symbol-macrolet ((it xxx)) (let ((it 1)) (iter-yield (funcall (lambda (it) (- it)) (1+ it))))))) nil) Too see it in the generator function: (progn (pp (macroexpand-all '(cl-symbol-macrolet ((it xxx)) (iter-lambda () (let ((it 1)) (iter-yield (funcall (lambda (it) (- it)) (1+ it)))))))) nil) Particularly these lines are wrong in the latter: > #'(lambda > (it) > (- cps-binding-xxx-))