From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: =?UTF-8?Q?=E7=99=BD=E4=BA=95_?= =?UTF-8?Q?=E5=BD=B0?= Newsgroups: gmane.emacs.bugs Subject: bug#15538: 24.3; Incorrect Expansion of Nested Backquote Date: Sun, 6 Oct 2013 20:23:08 +0900 Message-ID: NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 (Apple Message framework v936) Content-Type: text/plain; charset=US-ASCII; format=flowed; delsp=yes Content-Transfer-Encoding: 7bit X-Trace: ger.gmane.org 1381058668 7852 80.91.229.3 (6 Oct 2013 11:24:28 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sun, 6 Oct 2013 11:24:28 +0000 (UTC) Cc: okshirai@gmail.com To: 15538@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Sun Oct 06 13:24:30 2013 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1VSmRp-0000CT-Kn for geb-bug-gnu-emacs@m.gmane.org; Sun, 06 Oct 2013 13:24:30 +0200 Original-Received: from localhost ([::1]:54554 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VSmRk-0003EN-4b for geb-bug-gnu-emacs@m.gmane.org; Sun, 06 Oct 2013 07:24:24 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:34339) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VSmRY-0003E9-Lf for bug-gnu-emacs@gnu.org; Sun, 06 Oct 2013 07:24:21 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1VSmRQ-00084b-80 for bug-gnu-emacs@gnu.org; Sun, 06 Oct 2013 07:24:12 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:49081) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VSmRQ-00084X-4A for bug-gnu-emacs@gnu.org; Sun, 06 Oct 2013 07:24:04 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1VSmRP-00013m-Bd for bug-gnu-emacs@gnu.org; Sun, 06 Oct 2013 07:24:03 -0400 X-Loop: help-debbugs@gnu.org Resent-From: =?UTF-8?Q?=E7=99=BD=E4=BA=95_?= =?UTF-8?Q?=E5=BD=B0?= Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Sun, 06 Oct 2013 11:24:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 15538 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.13810586254043 (code B ref -1); Sun, 06 Oct 2013 11:24:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 6 Oct 2013 11:23:45 +0000 Original-Received: from localhost ([127.0.0.1]:57373 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1VSmR6-000138-AF for submit@debbugs.gnu.org; Sun, 06 Oct 2013 07:23:44 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:60796) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1VSmR3-00012x-8N for submit@debbugs.gnu.org; Sun, 06 Oct 2013 07:23:42 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1VSmQu-00080d-NX for submit@debbugs.gnu.org; Sun, 06 Oct 2013 07:23:41 -0400 Original-Received: from lists.gnu.org ([2001:4830:134:3::11]:34994) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VSmQu-00080Z-KH for submit@debbugs.gnu.org; Sun, 06 Oct 2013 07:23:32 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:34249) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VSmQm-00039Z-5X for bug-gnu-emacs@gnu.org; Sun, 06 Oct 2013 07:23:32 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1VSmQc-0007xg-0w for bug-gnu-emacs@gnu.org; Sun, 06 Oct 2013 07:23:24 -0400 Original-Received: from mail-pa0-x236.google.com ([2607:f8b0:400e:c03::236]:33852) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VSmQb-0007xO-Of for bug-gnu-emacs@gnu.org; Sun, 06 Oct 2013 07:23:13 -0400 Original-Received: by mail-pa0-f54.google.com with SMTP id kx10so6144721pab.27 for ; Sun, 06 Oct 2013 04:23:12 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=message-id:from:to:content-type:content-transfer-encoding :mime-version:subject:date:cc; bh=y76ic+wbb5HdxcgUDyd1+S3z4oSYoiP8ocBtCVXDJ9g=; b=FttvZ28f/4XaZJHsyYgMqAxUYjhJM7lOD8Zuw71EN0kpjGr0cZxXtyIae5Ydeu1Sbv 6O+WfXKKr/35WbvGBXkiENEyTtl1lq3cd4v9i8tRpTFXF4nELCqhLyNHVJDaBziATxDO zAu+eFIpz/s1aveZxMNCfypsLfNWx6u2UeKUSqCuM4Wmzsne7Lfch/y5WRsyDsiShEqp ZwCQPCctB4T1gg/yMgYK47snlhV5dAFynhBzpHFElCwclDs0Z65qSu7yI/IVX6/xOlrp U+Tt73KZoCTedd82/UDZ9Y6t50Mu6SxDbYXr85GqGRe7jC4mKyQd7TCPnv+ZZS1bREQC SE5A== X-Received: by 10.68.244.37 with SMTP id xd5mr24483652pbc.47.1381058592375; Sun, 06 Oct 2013 04:23:12 -0700 (PDT) Original-Received: from [172.20.10.3] (pw126205130116.3.panda-world.ne.jp. [126.205.130.116]) by mx.google.com with ESMTPSA id wp8sm26450730pbc.26.1969.12.31.16.00.00 (version=TLSv1 cipher=RC4-SHA bits=128/128); Sun, 06 Oct 2013 04:23:11 -0700 (PDT) X-Mailer: Apple Mail (2.936) X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address (bad octet value). X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address (bad octet value). X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x X-Received-From: 140.186.70.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-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:78953 Archived-At: The expansion of nested backquote like ``(,,@q) or ``(,@,@q) is incorrect. Please see the following results. ; The followings are from CLtL2 Appendix C. Backquote (require 'cl-lib) cl-lib (setq q '(r s)) (r s) (defun r (x) (cl-reduce #'* x)) r (setq r '(3 5)) (3 5) (setq s '(4 6)) (4 6) ``(,,q) (\` ((\, (r s)))) (24) ; Correct ``(,@,q) (\` ((\,@ (r s)))) 24 ; Correct ``(,,@q) (\` ((\, r s))) ((3 5)) ; Incorrect: This should be ((3 5) (4 6)) ``(,@,@q) (\` ((\,@ r s))) (3 5) ; Incorrect: This should be (3 5 4 6) (setq x '(b c)) (b c) (setq y '(a b)) (a b) (setq p '(cl-union x y)) (cl-union x y) (setq q '((cl-union x y) (list 'sqrt 9))) ((cl-union x y) (list (quote sqrt) 9)) (setq r '(cl-union x y)) (cl-union x y) (setq s '((cl-union x y))) ((cl-union x y)) ``(foo ,,p) (\` (foo (\, (cl-union x y)))) (foo (a b c)) ; Correct ``(foo ,,@q) (\` (foo (\, (cl-union x y) (list (quote sqrt) 9)))) (foo (a b c)) ; Incorrect: This should be (foo (a b c) (sqrt 9)) ``(foo ,',r) (\` (foo (\, (quote (cl-union x y))))) (foo (cl-union x y)) ; Correct ``(foo ,',@s) (\` (foo (\, (quote (cl-union x y))))) (foo (cl-union x y)) ; Correct ``(foo ,@,p) (\` (foo (\,@ (cl-union x y)))) (foo a b c) ; Correct ``(foo ,@,@q) (\` (foo (\,@ (cl-union x y) (list (quote sqrt) 9)))) (foo a b c) ; Incorrect: This should be (foo a b c sqrt 9) ``(foo ,@',r) (\` (foo (\,@ (quote (cl-union x y))))) (foo cl-union x y) ; Correct ``(foo ,@',@s) (\` (foo (\,@ (quote (cl-union x y))))) (foo cl-union x y) ; Correct In GNU Emacs 24.3.1 (i386-apple-darwin9.8.0, NS apple-appkit-949.54) of 2013-04-30 on mini2.local Windowing system distributor `Apple', version 10.3.949 Configured using: `configure '--with-ns' '--without-x'' Important settings: value of $LANG: ja_JP.ujis locale-coding-system: japanese-iso-8bit-unix default enable-multibyte-characters: t Major mode: Lisp Interaction Minor modes in effect: tooltip-mode: t mouse-wheel-mode: t tool-bar-mode: t menu-bar-mode: t file-name-shadow-mode: t global-font-lock-mode: t font-lock-mode: t blink-cursor-mode: t auto-composition-mode: t auto-encryption-mode: t auto-compression-mode: t line-number-mode: t transient-mark-mode: t Recent input: x r e p o r t - e m a c s - b u g Recent messages: For information about GNU Emacs and the GNU system, type C-h C-a. Load-path shadows: None found. Features: (shadow sort gnus-util mail-extr emacsbug message format-spec rfc822 mml easymenu mml-sec mm-decode mm-bodies mm-encode mail-parse rfc2231 mailabbrev gmm-utils mailheader sendmail rfc2047 rfc2045 ietf-drums mm-util mail-prsvr mail-utils time-date japan-util tooltip ediff-hook vc-hooks lisp-float-type mwheel ns-win tool-bar dnd fontset image regexp-opt fringe tabulated-list newcomment lisp-mode register page menu-bar rfn-eshadow timer select scroll-bar mouse jit-lock font-lock syntax facemenu font-core frame cham georgian utf-8-lang misc-lang vietnamese tibetan thai tai-viet lao korean japanese hebrew greek romanian slovak czech european ethiopic indian cyrillic chinese case-table epa-hook jka-cmpr-hook help simple abbrev minibuffer loaddefs button faces cus-face macroexp files text-properties overlay sha1 md5 base64 format env code-pages mule custom widget hashtable-print-readable backquote make-network-process ns multi-tty emacs)