From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: John Williams Newsgroups: gmane.emacs.bugs Subject: bug#14773: 24.2; pcase Date: Tue, 02 Jul 2013 14:19:02 -0700 Message-ID: NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: ger.gmane.org 1372801820 15255 80.91.229.3 (2 Jul 2013 21:50:20 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Tue, 2 Jul 2013 21:50:20 +0000 (UTC) To: 14773@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Tue Jul 02 23:50:16 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 1Uu8Sl-00020W-Pb for geb-bug-gnu-emacs@m.gmane.org; Tue, 02 Jul 2013 23:50:16 +0200 Original-Received: from localhost ([::1]:57042 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Uu8Sl-00085m-GN for geb-bug-gnu-emacs@m.gmane.org; Tue, 02 Jul 2013 17:50:15 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:33189) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Uu8Se-00082J-PA for bug-gnu-emacs@gnu.org; Tue, 02 Jul 2013 17:50:12 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Uu8SZ-0001Lw-KI for bug-gnu-emacs@gnu.org; Tue, 02 Jul 2013 17:50:08 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:58736) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Uu8SZ-0001Kx-GP for bug-gnu-emacs@gnu.org; Tue, 02 Jul 2013 17:50:03 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1Uu8SY-0007Pg-3p for bug-gnu-emacs@gnu.org; Tue, 02 Jul 2013 17:50:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: John Williams Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Tue, 02 Jul 2013 21:50:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 14773 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.137280177428451 (code B ref -1); Tue, 02 Jul 2013 21:50:01 +0000 Original-Received: (at submit) by debbugs.gnu.org; 2 Jul 2013 21:49:34 +0000 Original-Received: from localhost ([127.0.0.1]:53052 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1Uu8S4-0007Om-Lp for submit@debbugs.gnu.org; Tue, 02 Jul 2013 17:49:33 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:51132) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1Uu7yq-0006aA-Sj for submit@debbugs.gnu.org; Tue, 02 Jul 2013 17:19:21 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Uu7yi-0007bC-Nd for submit@debbugs.gnu.org; Tue, 02 Jul 2013 17:19:15 -0400 Original-Received: from lists.gnu.org ([2001:4830:134:3::11]:49549) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Uu7yi-0007b8-Kc for submit@debbugs.gnu.org; Tue, 02 Jul 2013 17:19:12 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:52828) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Uu7ye-0001yV-5P for bug-gnu-emacs@gnu.org; Tue, 02 Jul 2013 17:19:12 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Uu7ya-0007Yr-OY for bug-gnu-emacs@gnu.org; Tue, 02 Jul 2013 17:19:08 -0400 Original-Received: from mail-yh0-x24a.google.com ([2607:f8b0:4002:c01::24a]:34165) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Uu7ya-0007Yf-Dq for bug-gnu-emacs@gnu.org; Tue, 02 Jul 2013 17:19:04 -0400 Original-Received: by mail-yh0-f74.google.com with SMTP id z20so788622yhz.5 for ; Tue, 02 Jul 2013 14:19:03 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=google.com; s=20120113; h=from:to:subject:date:message-id:mime-version:content-type; bh=+OsLcYhGSdJZMMMAtAPWJhBMLHHYpQr51ZoD3bV/Bog=; b=avhcTkhmPA9EGJe1qGLaX93LiGCGJ6S3j7Mt3b5eXedtV3y1DjFDmyqbrnSXX8ddox M7scgg6EQ4SGnQ/vEF2C0w+JW6NlazPN5oXF3jmvmrGPlSdAe0UJCJhVEZyGyRNT3oVA hPf3+XduWefA7hh1274xYjskKHk5BMaiMGnlsSlV2IVQcJ31tFI6Khl4IvE2rKthxewd mNOaNMshPEaNxdAOEabI8Y12Ku3C8cUKG31ZHZ5RX1xouDUN9jhBgaqB6/tyHXDHViqb TQk5TcwUnws0enEVpMKzTprtRJYlEUs9ZPXpgnQ/5xzHRbvg4KFl5OIDGBxuQMZeQgir 2pGQ== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=google.com; s=20120113; h=from:to:subject:date:message-id:mime-version:content-type :x-gm-message-state; bh=+OsLcYhGSdJZMMMAtAPWJhBMLHHYpQr51ZoD3bV/Bog=; b=EO3Z0xexu9FoVN6boDDIBcLypCOElePjqzirZrsz3kNZr4bxBFdYw1CDSofnbctAyD 8dBR/iQdHPDuRPr738lsqv5qjozDBuAqRf27aW0zrjoucPml0h/9uXqkSKiFmCoI3UQj 8mUnLCEkIvKzKyi3EZVMdpIYMWSI9hbLTLmIGo9YqkismLMymsp6t7v0AxicNR7ZN61N 617gNGdU73D9UR7RjMHvP97uMa8p/1ZMI5riLI1gj6nvy5ETXRcbk5DFhM0WTJ2fIm+J RAw3xpvtcCxUDX6gcQw2JNt1hdKKVd+kKFjLeJ3XcHyYWDnyP/qEwW1udaiJVsUduCyI t0wg== X-Received: by 10.236.112.33 with SMTP id x21mr18498063yhg.57.1372799943310; Tue, 02 Jul 2013 14:19:03 -0700 (PDT) Original-Received: from corp2gmr1-1.hot.corp.google.com (corp2gmr1-1.hot.corp.google.com [172.24.189.92]) by gmr-mx.google.com with ESMTPS id p73si995065yhh.5.2013.07.02.14.19.03 for (version=TLSv1.1 cipher=AES128-SHA bits=128/128); Tue, 02 Jul 2013 14:19:03 -0700 (PDT) Original-Received: from tartarus.kir.corp.google.com (tartarus.kir.corp.google.com [172.23.165.70]) by corp2gmr1-1.hot.corp.google.com (Postfix) with ESMTP id 1A12E31C1B5 for ; Tue, 2 Jul 2013 14:19:03 -0700 (PDT) Original-Received: by tartarus.kir.corp.google.com (Postfix, from userid 168039) id 473581419BC; Tue, 2 Jul 2013 14:19:02 -0700 (PDT) X-Gm-Message-State: ALoCoQkwIZDRuQcGyjb+m9J5EnVyhYs40NQvm0U7QXWx6Z4x704dKeC51QEaUwrmjBQMGq4AsUuYfYjR0WXnDM3EnQAjUoLcPI48JQgISNnlNRm0zxtq/EdM4ZcYSFNskPFW6yI5fSwCMBbJaRgg9Yx5fXbgC9yd3qQ+0IyzzEBjQ5wsyzr6YBdIBRw5Sm5O9+jCQC5OvvEGo6tjBIEVObN6EX2eT/FIUg== 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-Mailman-Approved-At: Tue, 02 Jul 2013 17:49:31 -0400 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:75820 Archived-At: (require 'pcase) (macroexpand '(pcase 1 ((and (let var left) (guard var)) 'left) ((and (let var right) (guard var)) 'right))) When I run this, the result I get is (let ((x 1)) (if (let* ((var left)) var) (let ((var left)) (quote left)) nil)). Note that "right" doesn't appear anywhere in the macro expansion! In GNU Emacs 24.2.1 (x86_64-pc-linux-gnu, GTK+ Version 2.24.10) of 2013-03-05 on touchstone.was.corp.google.com, modified by Debian Windowing system distributor `The X.Org Foundation', version 11.0.11103000 Configured using: `configure '--build' 'x86_64-linux-gnu' '--build' 'x86_64-linux-gnu' '--prefix=/usr' '--sharedstatedir=/var/lib' '--libexecdir=/usr/lib' '--localstatedir=/var/lib' '--infodir=/usr/share/info' '--mandir=/usr/share/man' '--with-pop=yes' '--enable-locallisppath=/etc/emacs24:/etc/emacs:/usr/local/share/emacs/24.2/site-lisp:/usr/local/share/emacs/site-lisp:/usr/share/emacs/24.2/site-lisp:/usr/share/emacs/site-lisp' '--with-crt-dir=/usr/lib/x86_64-linux-gnu' '--with-x=yes' '--with-x-toolkit=gtk' '--with-toolkit-scroll-bars' 'build_alias=x86_64-linux-gnu' 'CFLAGS=-g -O2 -fstack-protector --param=ssp-buffer-size=4 -Wformat -Wformat-security -Werror=format-security -Wall' 'LDFLAGS=-Wl,-Bsymbolic-functions -Wl,-z,relro' 'CPPFLAGS=-D_FORTIFY_SOURCE=2'' Important settings: value of $LC_ALL: nil value of $LC_COLLATE: nil value of $LC_CTYPE: nil value of $LC_MESSAGES: nil value of $LC_MONETARY: nil value of $LC_NUMERIC: nil value of $LC_TIME: nil value of $LANG: nil value of $XMODIFIERS: nil locale-coding-system: nil default enable-multibyte-characters: t Major mode: Fundamental Minor modes in effect: savehist-mode: t desktop-save-mode: t server-mode: t auto-fold-mode: t shell-dirtrack-mode: t show-paren-mode: t global-auto-revert-mode: t tooltip-mode: t mouse-wheel-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 column-number-mode: t line-number-mode: t transient-mark-mode: t abbrev-mode: t Recent input: M-P C-e C-b C-b C-b C-b C-b C-b C-b C-b C-b C-b C-b C-b C-b C-b C-b C-b ) q M-: M-P C-a C-e C-b C-b C-b C-b C-b C-b C-b C-b C-b C-b C-b C-b C-b M-p M-p M-p M-p M-p M-: M-P C-a C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f ( x f ) C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f ( g ) C-e M-: M-P C-a M-f M-f M-f M-f M-f M-f M-f M-f C-b C-b C-b C-b C-b C-b C-b C-b C-b - l e f t - b r a n c h - v a r M-f M-f M-f M-f M-f M-f M-f M-f M-f M-f M-f M-b M-b M-b M-f r i g h t - b r a n c h - v a r C-e M-: M-P C-e C-b C-b C-b C-b C-b C-b C-b C-b C-b C-b C-b C-b C-b C-b C-b C-b C-b C-b C-b v a r C-e Recent messages: (b 2) Mark set let: End of file during parsing Entering debugger... Back to top level. (let ((x 1)) (if (let* ((var nil)) var) (let ((var nil)) (list (quote a) var)) (let* ((x 2)) (if t (let ((var x)) (list (quote b) var)) nil)))) (let ((x 1)) (let* ((x (f))) (if (let* ((var x)) var) (let ((var x)) (list (quote a) var)) (let* ((x (g))) (if t (let ((var x)) (list (quote b) var)) nil))))) (let ((x 1)) (let* ((x (left-branch-var))) (if (let* ((var x)) var) (let ((var x)) (list (quote a) var)) (let* ((x (right-branch-var))) (if t (let ((var x)) (list (quote b) var)) nil))))) (let ((x 1)) (let* ((x (left-branch-var))) (if (let* ((var x)) var) (let ((var x)) (list (quote a) var)) nil))) byte-code: Beginning of buffer [3 times] byte-code: Beginning of buffer Load-path shadows: /usr/share/emacs24/site-lisp/emacs-goodies-el/folding hides /usr/share/emacs/24.2/site-lisp/google/gm/folding /usr/share/emacs24/site-lisp/google/python-mode-words-like-others hides /usr/share/emacs/24.2/site-lisp/google/gnuemacs/python-mode-words-like-others /home/build/eng/elisp/third_party/gnuemacs/string hides /usr/share/emacs/24.2/site-lisp/google/third_party/string /home/build/eng/elisp/third_party/gnuemacs/js2-google hides /usr/share/emacs/24.2/site-lisp/google/third_party/gnuemacs/js2-google /home/build/eng/elisp/third_party/gnuemacs/go-mode hides /usr/share/emacs/24.2/site-lisp/google/third_party/gnuemacs/go-mode /home/build/eng/elisp/third_party/gnuemacs/ssh hides /usr/share/emacs/24.2/site-lisp/google/third_party/gnuemacs/ssh /home/build/eng/elisp/third_party/gnuemacs/button-lock hides /usr/share/emacs/24.2/site-lisp/google/third_party/gnuemacs/button-lock /home/build/eng/elisp/third_party/gnuemacs/string hides /usr/share/emacs/24.2/site-lisp/google/third_party/gnuemacs/string /home/build/eng/elisp/third_party/gnuemacs/js2-see-readme hides /usr/share/emacs/24.2/site-lisp/google/third_party/gnuemacs/js2-see-readme /home/build/eng/elisp/third_party/gnuemacs/string hides /usr/share/emacs/24.2/site-lisp/google/third_party/gnuemacs/elib-1.0/string /usr/share/emacs/24.2/site-lisp/google/third_party/xref/emacs/xrefprotocol hides /usr/share/emacs/24.2/site-lisp/google/third_party/xref-1.6.6/env/emacs/xrefprotocol /usr/share/emacs/24.2/site-lisp/google/third_party/xref/emacs/xref hides /usr/share/emacs/24.2/site-lisp/google/third_party/xref-1.6.6/env/emacs/xref /usr/share/emacs/24.2/site-lisp/google/third_party/xref/emacs/xrefactory hides /usr/share/emacs/24.2/site-lisp/google/third_party/xref-1.6.6/env/emacs/xrefactory /usr/share/emacs/24.2/site-lisp/google/third_party/xref/emacs/xrefdoc hides /usr/share/emacs/24.2/site-lisp/google/third_party/xref-1.6.6/env/emacs/xrefdoc /usr/share/emacs/24.2/site-lisp/debian-startup hides /usr/share/emacs/site-lisp/debian-startup /usr/share/emacs/24.2/site-lisp/google/g-client/json hides /usr/share/emacs/24.2/lisp/json /usr/share/emacs24/site-lisp/dictionaries-common/ispell hides /usr/share/emacs/24.2/lisp/textmodes/ispell /usr/share/emacs24/site-lisp/dictionaries-common/flyspell hides /usr/share/emacs/24.2/lisp/textmodes/flyspell /usr/share/emacs/24.2/site-lisp/google/third_party/xmltok hides /usr/share/emacs/24.2/lisp/nxml/xmltok /usr/share/emacs/24.2/lisp/custom hides /usr/local/google/home/jrw/elisp/custom /home/build/eng/elisp/third_party/gnuemacs/string hides /usr/local/google/home/jrw/elisp/3rdparty/string /usr/share/emacs24/site-lisp/emacs-goodies-el/highlight-beyond-fill-column hides /usr/local/google/home/jrw/elisp/3rdparty/highlight-beyond-fill-column Features: (shadow sort gnus-util mail-extr emacsbug message format-spec rfc822 mml 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 help-mode view debug my-js2 etags my-syntax my-files cl-specs bs edebug unit-test-core tabify misearch multi-isearch savehist info google-git vc-git desktop server my-interactive find-func clojure-mode-autoloads debbugs-autoloads haskell-mode-autoloads num3-mode-autoloads undo-tree-autoloads package tabulated-list auto-fold my-shift-region my-repeat-key csharp-mode byte-opt bytecomp byte-compile cconv macroexp cc-langs flymake helm-config helm-aliases yaml-mode gofmt my-compile my-misc my-mouse-drag-region eless my-python my-imports-python my-local my-dabbrev dabbrev google3-build-mode python-21 python google-buildifier diff my-google-jstd-tests my-google-java my-java my-util my-google google3-ffap ffap google3-build googlemenu rotate-among-files string compilation-colorization google google-log gud google3 google-gud google-comint google-emacs-utilities google-trailing-whitespace google-coding-style python-custom newcomment google-autogen google-paths my-file-names alist jasmel jasmel-core pcase conflicts highlight-beyond-fill-column skeleton cc-mode cc-fonts easymenu cc-guess cc-menus cc-cmds cc-styles cc-align cc-engine cc-vars cc-defs my-shell shell pcomplete my-move-region-to-file my-lisp rx my-imports defstruct-as-plist my-hooks if-match my-edit-variable derived thingatpt auto-eval-buffer warnings string-util unit-test-utils my-load-path unit-test-runner paredit crontab-mode load-path-alias my-diff edmacro kmacro jka-compr midnight uniquify advice help-fns advice-preload winner paren grep compile comint regexp-opt ansi-color ring autorevert cus-start cus-load cl google-autoloads google-platform assoc emacs-goodies-el emacs-goodies-custom emacs-goodies-loaddefs easy-mmode time-date tooltip ediff-hook vc-hooks lisp-float-type mwheel x-win x-dnd tool-bar dnd fontset image fringe 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 files text-properties overlay sha1 md5 base64 format env code-pages mule custom widget hashtable-print-readable backquote make-network-process dbusbind dynamic-setting system-font-setting font-render-setting move-toolbar gtk x-toolkit x multi-tty emacs)