From patchwork Sat May 8 20:55:09 2021 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Patchwork-Submitter: Sharlatan Hellseher X-Patchwork-Id: 29174 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 EFCEE27BC82; Sat, 8 May 2021 21:56:11 +0100 (BST) X-Spam-Checker-Version: SpamAssassin 3.4.2 (2018-09-13) on mira.cbaines.net X-Spam-Level: X-Spam-Status: No, score=-2.8 required=5.0 tests=BAYES_00,DKIM_ADSP_CUSTOM_MED, DKIM_SIGNED,FREEMAIL_FROM,MAILING_LIST_MULTI,RCVD_IN_MSPIKE_H4, RCVD_IN_MSPIKE_WL,SPF_HELO_PASS,T_DKIM_INVALID,URIBL_BLOCKED autolearn=unavailable autolearn_force=no version=3.4.2 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) by mira.cbaines.net (Postfix) with ESMTPS id 7E87C27BC81 for ; Sat, 8 May 2021 21:56:11 +0100 (BST) Received: from localhost ([::1]:45138 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1lfTze-0005O2-OB for patchwork@mira.cbaines.net; Sat, 08 May 2021 16:56:10 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:46744) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1lfTzW-0005Nq-NO for guix-patches@gnu.org; Sat, 08 May 2021 16:56:02 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:40713) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1lfTzW-0007ql-GX for guix-patches@gnu.org; Sat, 08 May 2021 16:56:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1lfTzW-0005R5-Fc for guix-patches@gnu.org; Sat, 08 May 2021 16:56:02 -0400 X-Loop: help-debbugs@gnu.org Subject: [bug#48297] [PATCH 4/4] References: In-Reply-To: Resent-From: Sharlatan Hellseher Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Sat, 08 May 2021 20:56:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 48297 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: 48297@debbugs.gnu.org Received: via spool by 48297-submit@debbugs.gnu.org id=B48297.162050732720876 (code B ref 48297); Sat, 08 May 2021 20:56:02 +0000 Received: (at 48297) by debbugs.gnu.org; 8 May 2021 20:55:27 +0000 Received: from localhost ([127.0.0.1]:52255 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1lfTyw-0005Qe-SB for submit@debbugs.gnu.org; Sat, 08 May 2021 16:55:27 -0400 Received: from mail-wr1-f52.google.com ([209.85.221.52]:40678) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1lfTyv-0005QX-PJ for 48297@debbugs.gnu.org; Sat, 08 May 2021 16:55:26 -0400 Received: by mail-wr1-f52.google.com with SMTP id d4so12619732wru.7 for <48297@debbugs.gnu.org>; Sat, 08 May 2021 13:55:25 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=mime-version:from:date:message-id:subject:to; bh=pTtm/UHl7E7Ajqxr+bbVsH/w8xILGkuLSsmjDcRE/OA=; b=oWL+MTJPiNjm2Co//8r+z0sMVaw6vnycZKQ7I/vTZ+3LiTK6zlloWiFf5EC+yeGBjY 8PJ6assAYVRpW5aHQYFywyl+3lE6nIGB/Ytuce2vLmpmJTJIZUswEkh3lkWayW/zob4k LOQZGkcL7x1rI08GABDHHtAp+MAH6pSfztacfgvMe/R1gRo954KOUUA8XFPgqzNAO89g uVkix205/bpuKu+MluE70x6Kfbv1J3RquXuSEfEvi81tEu4E2sKQuUmzZUP9BqZjXskG rHWm8nMxXKuWmnSlbV+Nm/xoRoJZKuS65d1c/Hj5YUDzRg1Y2hcOHdA6Y6DXBTcBU09W wFFA== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:mime-version:from:date:message-id:subject:to; bh=pTtm/UHl7E7Ajqxr+bbVsH/w8xILGkuLSsmjDcRE/OA=; b=uMHlO29PzRNugjBH9g8NwTjnbAk/+jPSf8zHaQppxahADdp0trKL+Fe89cB+NxOqRP sFKcEU9rSYfpu9SlWfxIx9SnLREbRz51j+f7M33X3nnTd/X1dmDL2OtbXa1ImQSYeC38 Ng5iRZq36vBRIT3Cx9NKL98wTJ/L9uFko4F5VBgOcTNFTANbCfPKk2Xf+5htMuifNah/ 7JwDHqZ/zrkbdMpxcbVo1dHEBQZIiUkO8tbjPARBZefVX8cncXeH/5iwPhfd4LUWBGDe YpTlaAFUaVSBN5zeN/n97a0TAnCYU1ICh49TQJbNp8QZ7OW54ZyO8zehiqtC0A3Ex7co 5p3Q== X-Gm-Message-State: AOAM531bPqQXKMW/NQGZScXkq3nkBKQCaKrsDe59oHDnCKGWOizF1YbC JOPS7yTzaqZKG000DAsplo7d3QhN1BJbkYMNax8BBdQz1kM= X-Google-Smtp-Source: ABdhPJxFRwMeVqJvvUXx7hXgRntfrKp+WWx12nHeQPTikcsfKJW5aFANvBoERXp+DUoJV3vIXZu3hmDawuK7h6tVfv0= X-Received: by 2002:adf:f683:: with SMTP id v3mr20833505wrp.133.1620507320182; Sat, 08 May 2021 13:55:20 -0700 (PDT) MIME-Version: 1.0 From: Sharlatan Hellseher Date: Sat, 8 May 2021 20:55:09 +0000 Message-ID: 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: , Errors-To: guix-patches-bounces+patchwork=mira.cbaines.net@gnu.org Sender: "Guix-patches" X-getmail-retrieved-from-mailbox: Patches -- … наш разум - превосходная объяснительная машина которая способна найти смысл почти в чем угодно, истолковать любой феномен, но совершенно не в состоянии принять мысль о непредсказуемости. From 52a5f2d5b9dc3fdf6fdfcd9b25c395db373f7fff Mon Sep 17 00:00:00 2001 From: Sharlatan Hellseher Date: Sat, 8 May 2021 21:39:10 +0100 Subject: [PATCH 4/4] gnu: Add trivial-main-thread * gnu/packages/lisp-xyz.scm (sbcl-trivial-main-thread, ecl-trivial-main-thread, cl-trivial-main-thread): New variables. --- gnu/packages/lisp-xyz.scm | 34 ++++++++++++++++++++++++++++++++++ 1 file changed, 34 insertions(+) diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm index 219fd9ff65..bd39cbcdaf 100644 --- a/gnu/packages/lisp-xyz.scm +++ b/gnu/packages/lisp-xyz.scm @@ -16534,3 +16534,37 @@ allow to wrangle OpenGL Shader Language (GLSL) source files.") (define-public cl-simple-tasks (sbcl-package->cl-source-package sbcl-simple-tasks)) + +(define-public sbcl-trivial-main-thread + (let ((commit "25f114973bb69eb63e01d0bbfead31f8e682846a") + (revision "1")) + (package + (name "sbcl-trivial-main-thread") + (version (git-version "1.0.0" revision commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/Shinmera/trivial-main-thread") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 "0bw1887i7396lqg75qvmgjfzz4xbiq9w5dp8wxdgrcsm0qwlraw7")))) + (build-system asdf-build-system/sbcl) + (inputs + `(("bordeaux-threads" ,sbcl-bordeaux-threads) + ("simple-tasks" ,sbcl-simple-tasks) + ("trivial-features" ,sbcl-trivial-features))) + (home-page "https://shinmera.github.io/trivial-main-thread/") + (synopsis "Compatibility library to run things in the main thread") + (description + "This package provides a Common Lisp system which wraps BORDEUX-THREADS +system to be compatible to run GUI applications in the main thread of the +implementation.") + (license license:zlib)))) + +(define-public ecl-trivial-main-thread + (sbcl-package->ecl-package sbcl-trivial-main-thread)) + +(define-public cl-trivial-main-thread + (sbcl-package->cl-source-package sbcl-trivial-main-thread)) -- 2.31.1