From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Stefan Monnier Newsgroups: gmane.emacs.devel Subject: Re: Sweeter Emacs Lisp Date: Mon, 15 Jul 2013 03:04:09 -0400 Message-ID: References: <8738rh6ftk.fsf@gnu.org> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: ger.gmane.org 1373871866 16188 80.91.229.3 (15 Jul 2013 07:04:26 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Mon, 15 Jul 2013 07:04:26 +0000 (UTC) Cc: fgallina@gnu.org, emacs-devel To: Josh Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Mon Jul 15 09:04:27 2013 Return-path: Envelope-to: ged-emacs-devel@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 1Uycpe-0000Ml-MT for ged-emacs-devel@m.gmane.org; Mon, 15 Jul 2013 09:04:26 +0200 Original-Received: from localhost ([::1]:55119 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Uycpe-0006oB-8y for ged-emacs-devel@m.gmane.org; Mon, 15 Jul 2013 03:04:26 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:33493) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Uycpa-0006o3-5Y for emacs-devel@gnu.org; Mon, 15 Jul 2013 03:04:23 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1UycpY-0007VI-HF for emacs-devel@gnu.org; Mon, 15 Jul 2013 03:04:22 -0400 Original-Received: from chene.dit.umontreal.ca ([132.204.246.20]:33943) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UycpT-0007UO-Hs; Mon, 15 Jul 2013 03:04:15 -0400 Original-Received: from fmsmemgm.homelinux.net (lechon.iro.umontreal.ca [132.204.27.242]) by chene.dit.umontreal.ca (8.14.1/8.14.1) with ESMTP id r6F74AVB005641; Mon, 15 Jul 2013 03:04:11 -0400 Original-Received: by fmsmemgm.homelinux.net (Postfix, from userid 20848) id 75E9BAE0F1; Mon, 15 Jul 2013 03:04:09 -0400 (EDT) In-Reply-To: (josh@foxtail.org's message of "Sun, 14 Jul 2013 09:18:37 -0700") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3.50 (gnu/linux) X-NAI-Spam-Flag: NO X-NAI-Spam-Threshold: 5 X-NAI-Spam-Score: 0 X-NAI-Spam-Rules: 1 Rules triggered RV4639=0 X-NAI-Spam-Version: 2.3.0.9362 : core <4639> : streams <1000590> : uri <1477049> X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-Received-From: 132.204.246.20 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:161898 Archived-At: >> ;; clojure.core/if-let >> ;; ([bindings then] [bindings then else & oldform]) >> ;; Macro >> ;; bindings => binding-form test >> ;; If test is true, evaluates then with binding-form bound to the value of >> ;; test, if not, yields else We get pretty close with (pcase TEST (`nil ELSE) (BINDING-FORM THEN)) -- Stefan