From patchwork Wed Jun 15 12:09:52 2022 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: "Paul A. Patience" X-Patchwork-Id: 40027 Return-Path: X-Original-To: patchwork@mira.cbaines.net Delivered-To: patchwork@mira.cbaines.net Received: by mira.cbaines.net (Postfix, from userid 113) id 6DC0F27BBEA; Wed, 15 Jun 2022 13:13:55 +0100 (BST) X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on mira.cbaines.net X-Spam-Level: X-Spam-Status: No, score=-3.7 required=5.0 tests=BAYES_00,DKIM_INVALID, DKIM_SIGNED,MAILING_LIST_MULTI,RCVD_IN_MSPIKE_H2,SPF_HELO_PASS, URIBL_BLOCKED autolearn=unavailable autolearn_force=no version=3.4.6 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) by mira.cbaines.net (Postfix) with ESMTPS id 296E027BBE9 for ; Wed, 15 Jun 2022 13:13:55 +0100 (BST) Received: from localhost ([::1]:47168 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1o1RuD-0003zb-Qk for patchwork@mira.cbaines.net; Wed, 15 Jun 2022 08:13:54 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:49438) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1o1RrT-0001dy-Jh for guix-patches@gnu.org; Wed, 15 Jun 2022 08:11:04 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:42821) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1o1RrS-0008Kp-FA for guix-patches@gnu.org; Wed, 15 Jun 2022 08:11:03 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1o1RrS-0007OM-3N for guix-patches@gnu.org; Wed, 15 Jun 2022 08:11:02 -0400 X-Loop: help-debbugs@gnu.org Subject: [bug#55995] [PATCH] gnu: Add cl-policy-cond. Resent-From: "Paul A. Patience" Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Wed, 15 Jun 2022 12:11:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 55995 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: 55995@debbugs.gnu.org Cc: "Paul A. Patience" X-Debbugs-Original-To: guix-patches@gnu.org Received: via spool by submit@debbugs.gnu.org id=B.165529501328352 (code B ref -1); Wed, 15 Jun 2022 12:11:01 +0000 Received: (at submit) by debbugs.gnu.org; 15 Jun 2022 12:10:13 +0000 Received: from localhost ([127.0.0.1]:36718 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1o1Rqf-0007ND-Bi for submit@debbugs.gnu.org; Wed, 15 Jun 2022 08:10:13 -0400 Received: from lists.gnu.org ([209.51.188.17]:50774) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1o1Rqb-0007Ms-3r for submit@debbugs.gnu.org; Wed, 15 Jun 2022 08:10:10 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:49232) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1o1Rqa-0000wS-Un for guix-patches@gnu.org; Wed, 15 Jun 2022 08:10:08 -0400 Received: from mail-4323.proton.ch ([185.70.43.23]:32256) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1o1RqV-00070z-Gx for guix-patches@gnu.org; Wed, 15 Jun 2022 08:10:06 -0400 Date: Wed, 15 Jun 2022 12:09:52 +0000 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=apatience.com; s=protonmail2; t=1655294997; x=1655554197; bh=6nMMX4LkWTRtoGEUGWfzUQ041aUlj4h6qrqR2oaTsyY=; h=Date:To:From:Cc:Reply-To:Subject:Message-ID:Feedback-ID:From:To: Cc:Date:Subject:Reply-To:Feedback-ID:Message-ID; b=UqzDVs4ziqgT0LMbcoP3+ZujQMbA1SZtoyU4dALvwsi4c7U4Cy2VokEAs8ZemKr8L Wt2nFOImgCVHCrm620YupQwcMq4N50DRiA2BUR7U4YdbXTIQ0fgKW6/CQOAmDzQHqY yZoxSGD46PcSVT2w91IkP8fo01K5bkj7Nr1hlBPXk307ButprSrFcb40c9ewrxiDCy Shc+TlpizTZBxz8c/iz5Am0HpF5AnwcM5fvuiRF7pizjbKfo/QnbiNKO14b2QY1SV1 CXN/DAwl5EQBRm5nXqCUdNmTSH52i4+t4QMT/8a3sV75NfEWRTtmuFUrM/wcc2Grrr XoVYNMGHjJQaw== From: "Paul A. Patience" Message-ID: <20220615120945.349682-1-paul@apatience.com> Feedback-ID: 19227857:user:proton MIME-Version: 1.0 Received-SPF: pass client-ip=185.70.43.23; envelope-from=paul@apatience.com; helo=mail-4323.proton.ch X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 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_MSPIKE_H2=-0.001, 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: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-BeenThere: guix-patches@gnu.org List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Reply-To: "Paul A. Patience" Errors-To: guix-patches-bounces+patchwork=mira.cbaines.net@gnu.org Sender: "Guix-patches" X-getmail-retrieved-from-mailbox: Patches * gnu/packages/lisp-xyz.scm (sbcl-policy-cond, cl-policy-cond, ecl-policy-cond): New variables. --- gnu/packages/lisp-xyz.scm | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) -- 2.36.1 diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm index c3b14135a3..a0b5c0c8c7 100644 --- a/gnu/packages/lisp-xyz.scm +++ b/gnu/packages/lisp-xyz.scm @@ -15463,6 +15463,36 @@ (define-public ecl-computable-reals (define-public cl-computable-reals (sbcl-package->cl-source-package sbcl-computable-reals)) +(define-public sbcl-policy-cond + (let ((commit "eedb625520175bfdf44d385ff3b21039b7f75706") + (revision "0")) + (package + (name "sbcl-policy-cond") + (version (git-version "0.0.0" revision commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/stylewarning/policy-cond") + (commit commit))) + (file-name (git-file-name "cl-policy-cond" version)) + (sha256 + (base32 "0xj2a6lcg7i7g4038sc4f641din6m8vdiha8c5afz9fik80bshxk")))) + (build-system asdf-build-system/sbcl) + (home-page "https://github.com/stylewarning/policy-cond") + (synopsis "Insert code based on compiler policy") + (description "POLICY-COND provides tools to insert and execute code +based on a compiler's OPTIMIZE policy. It also contains a contract-like notion +of expectations, which allow dynamic checking or inclusion of various things +that should happen depending on compiler policy.") + (license license:bsd-3)))) + +(define-public cl-policy-cond + (sbcl-package->cl-source-package sbcl-policy-cond)) + +(define-public ecl-policy-cond + (sbcl-package->ecl-package sbcl-policy-cond)) + (define-public sbcl-html-template (package (name "sbcl-html-template")