From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Jens Schmidt Newsgroups: gmane.emacs.devel Subject: Any reasons against having `fboundp-and-funcall' (equivalent to `bound-and-true-p')? Date: Wed, 21 Jun 2023 16:29:05 +0200 Message-ID: <4571712e-e45a-9f99-6653-daada11fb376@vodafonemail.de> Mime-Version: 1.0 Content-Type: text/plain; charset=UTF-8; format=flowed Content-Transfer-Encoding: 7bit Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="24004"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:102.0) Gecko/20100101 Thunderbird/102.12.0 To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane-mx.org@gnu.org Wed Jun 21 16:30:07 2023 Return-path: Envelope-to: ged-emacs-devel@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1qByqV-00063f-Kj for ged-emacs-devel@m.gmane-mx.org; Wed, 21 Jun 2023 16:30:07 +0200 Original-Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1qBypl-0000o3-8v; Wed, 21 Jun 2023 10:29:21 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1qBypj-0000lW-CK for emacs-devel@gnu.org; Wed, 21 Jun 2023 10:29:19 -0400 Original-Received: from mr5.vodafonemail.de ([145.253.228.165]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1qBypg-0002Vf-JR for emacs-devel@gnu.org; Wed, 21 Jun 2023 10:29:18 -0400 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=vodafonemail.de; s=vfde-mb-mr2-21dec; t=1687357753; bh=02LvhpyvGYa86aFKfcGWBH+1j+a9UgYWRm+ok2cM7xs=; h=Message-ID:Date:User-Agent:Content-Language:From:To:Subject: Content-Type:From; b=V9FmvdEQu/wIbv1tdwcLCNrkwx83YGC3ie4I/bgWNd/6af2CRyvhLHrkvqYleWmzl An8QSqnDprgnqVUTRAyoA7STqjMF8/ErKosJ9r3B/He0NiyztXMU6wyxMdryw7UEzF t/m5kH9L5XyDp0Cc/CAuSX7Sndi0yNiN6TUIMpZo= Original-Received: from smtp.vodafone.de (unknown [10.0.0.2]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits) key-exchange X25519 server-signature RSA-PSS (2048 bits)) (No client certificate requested) by mr5.vodafonemail.de (Postfix) with ESMTPS id 4QmQqY5hLSz1yZj for ; Wed, 21 Jun 2023 14:29:13 +0000 (UTC) Original-Received: from [192.168.178.41] (port-92-194-167-27.dynamic.as20676.net [92.194.167.27]) (using TLSv1.3 with cipher TLS_AES_128_GCM_SHA256 (128/128 bits) key-exchange X25519 server-signature RSA-PSS (2048 bits) server-digest SHA256) (No client certificate requested) by smtp.vodafone.de (Postfix) with ESMTPSA id 4QmQqT3rryzHnHp for ; Wed, 21 Jun 2023 14:29:06 +0000 (UTC) Content-Language: de-DE-frami, en-US X-purgate-type: clean X-purgate: clean X-purgate-size: 478 X-purgate-ID: 155817::1687357749-68FFB0CB-ED21B7B4/0/0 Received-SPF: pass client-ip=145.253.228.165; envelope-from=jschmidt4gnu@vodafonemail.de; helo=mr5.vodafonemail.de X-Spam_score_int: -27 X-Spam_score: -2.8 X-Spam_bar: -- X-Spam_report: (-2.8 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, RCVD_IN_DNSWL_LOW=-0.7, SPF_HELO_NONE=0.001, SPF_PASS=-0.001, T_SCC_BODY_TEXT_LINE=-0.01 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.29 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-mx.org@gnu.org Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane-mx.org@gnu.org Xref: news.gmane.io gmane.emacs.devel:307114 Archived-At: I was delighted when I recently came across `bound-and-true-p' in standard Emacs. But what about `fboundp-and-funcall'? Like this: (defmacro fboundp-and-funcall (function &rest arguments) `(let ((function ,function)) (and (fboundp function) (funcall function ,@arguments)))) ;; arguments not eval'ed in case of failure (fboundp-and-funcall #'foo (setq baz 'bar)) nil (boundp 'baz) nil (fboundp-and-funcall #'identity 'foo) foo WDYT?