From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp2 ([2001:41d0:8:6d80::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms0.migadu.com with LMTPS id 0B8vNhyKmmHE3wAAgWs5BA (envelope-from ) for ; Sun, 21 Nov 2021 19:04:12 +0100 Received: from aspmx1.migadu.com ([2001:41d0:8:6d80::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp2 with LMTPS id IBjXMRyKmmF0IgAAB5/wlQ (envelope-from ) for ; Sun, 21 Nov 2021 18:04:12 +0000 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by aspmx1.migadu.com (Postfix) with ESMTPS id 4C42DBA1C for ; Sun, 21 Nov 2021 19:04:12 +0100 (CET) Received: from localhost ([::1]:56482 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1morCF-0001Im-Fd for larch@yhetil.org; Sun, 21 Nov 2021 13:04:11 -0500 Received: from eggs.gnu.org ([209.51.188.92]:37672) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1morC6-0001IG-Ix for guix-patches@gnu.org; Sun, 21 Nov 2021 13:04:02 -0500 Received: from debbugs.gnu.org ([209.51.188.43]:34429) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1morC6-0006yJ-Al for guix-patches@gnu.org; Sun, 21 Nov 2021 13:04:02 -0500 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1morC6-0002Ry-0j for guix-patches@gnu.org; Sun, 21 Nov 2021 13:04:02 -0500 X-Loop: help-debbugs@gnu.org Subject: [bug#51903] cmn license etc Resent-From: Guillaume Le Vaillant Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Sun, 21 Nov 2021 18:04:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 51903 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: bil@ccrma.Stanford.EDU Cc: Pierre Neidhardt , jgart , 51903@debbugs.gnu.org Received: via spool by 51903-submit@debbugs.gnu.org id=B51903.16375178059357 (code B ref 51903); Sun, 21 Nov 2021 18:04:01 +0000 Received: (at 51903) by debbugs.gnu.org; 21 Nov 2021 18:03:25 +0000 Received: from localhost ([127.0.0.1]:45971 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1morBV-0002Qr-97 for submit@debbugs.gnu.org; Sun, 21 Nov 2021 13:03:25 -0500 Received: from mout02.posteo.de ([185.67.36.66]:47057) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1morBQ-0002QZ-MJ for 51903@debbugs.gnu.org; Sun, 21 Nov 2021 13:03:24 -0500 Received: from submission (posteo.de [89.146.220.130]) by mout02.posteo.de (Postfix) with ESMTPS id 8448B240106 for <51903@debbugs.gnu.org>; Sun, 21 Nov 2021 19:03:13 +0100 (CET) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=posteo.net; s=2017; t=1637517794; bh=pOPgsS2QMHv1GqaMHyrkaEBneDE2CgAuCWASMthGHdU=; h=From:To:Cc:Subject:Date:From; b=S8zXJrCF5CdHdBLPcDpw9yELEko66/LWrVNdwV/GbxaJrbw6886c1DkEz5ziyvqTD WqUXmJP0FveEkoQQ8mE474a5nuJklVSJRAkhpyotExB+im4pkoM0TCGg8nS7PnHRG/ gG6MbqFHiuBIqLOMKmPPHmBBIwa5HkqCGN5tXQgKx8VbYuJZS42czUMDuub4wYnpq7 2648SrYMjU25qCCWODZe9uIEiaPFbERufpk6RSogELqjGI3pMY38oOw+6/iTb264Gx HbglE1Wi7JaVTr0w/QJBeKQbnz9DixXrJK1bIZmd7rYLupL+m8eTASe/XTynqSjEWV tsbJR126uO4rg== Received: from customer (localhost [127.0.0.1]) by submission (posteo.de) with ESMTPSA id 4Hxytm2W3Bz6tlh; Sun, 21 Nov 2021 19:03:12 +0100 (CET) References: <20211117015205.19233-1-jgart@dismail.de> <8789fcc8f912767edad3ca7ce2c0aff0@ccrma.stanford.edu> <875yslbr6f.fsf@kitej> <871r39bg9j.fsf@kitej> <1894d511fa3d23b2d7df2637074452d8@ccrma.stanford.edu> From: Guillaume Le Vaillant Date: Sun, 21 Nov 2021 17:54:30 +0000 In-reply-to: <1894d511fa3d23b2d7df2637074452d8@ccrma.stanford.edu> Message-ID: <87wnl19yjk.fsf@kitej> MIME-Version: 1.0 Content-Type: multipart/signed; boundary="=-=-="; micalg=pgp-sha512; protocol="application/pgp-signature" 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+larch=yhetil.org@gnu.org Sender: "Guix-patches" X-Migadu-Flow: FLOW_IN ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=yhetil.org; s=key1; t=1637517852; h=from:from:sender:sender:reply-to:subject:subject:date:date: message-id:message-id:to:to:cc:cc:mime-version:mime-version: content-type:content-type:resent-cc:resent-from:resent-sender: resent-message-id:in-reply-to:in-reply-to:references:references: list-id:list-help:list-unsubscribe:list-subscribe:list-post: dkim-signature; bh=tZpgEw0vf85DF7uApq1ChcRRuorEiCJkfXVms43siMo=; b=S1lkCaTBV6/foWCoFU71q3j02DiMpLvBMQXcDuezqpQWmVoVfM69n6c5ALUWVj+Kuo5hTs 3TbKMv4joQYhVW5idICUkzwvYVQaF4ME+ri31t5ul7g3fwcM9ocS4CnWAITpWwJbHohdlS 5BMwm19TvwjWZ12QsL/pnxfqMq3xg0lYN/fsWoPjsvFYvXmASjdrsr672tZAf4fQf6fJsC +Zu1F/hRz6EZNbQXWF6TfYoediD7xTBPRVh9fQ7pt6iEA/BXDP4SnKSC5+WigXtLdtXIdh Ynn8SxNgWXM6mTr6G3jTF8dQuiEahcU/DRPGN1F/YKMEDCIVnIk3fJNWAlKCkw== ARC-Seal: i=1; s=key1; d=yhetil.org; t=1637517852; a=rsa-sha256; cv=none; b=NHcXaZTTEDkqufCjzYHHOT6LhDyVryLsiuk3Q6n9mpg81IAW5NfP5fq49L4NCcGm2zvvWZ B5vjCmbTG3LBKuiDpdQaVoJZk91HCpezhfq+K3ZO86LyNvb18Kkr983kszuEUK6H+rYnMY te3Na3hfT7RKMoQA1p/cOsQoJ+RTmUI6G90vRYyb9ML7ldiZOqi/vmc2xPtGD6xaEolXBK tIPFu3zuavUQKL3b335UUTg09EZkUCKrpdvHfXsDTWBjj9FBNKZ8edo3tyi52T2FuRHHBq lW8Uv+nptyqB4dHhXR4N2KIUnh/stS7jVVC8Qn0wkanapv3hw0aDxHR1Xd8t9g== ARC-Authentication-Results: i=1; aspmx1.migadu.com; dkim=fail ("headers rsa verify failed") header.d=posteo.net header.s=2017 header.b=S8zXJrCF; spf=pass (aspmx1.migadu.com: domain of guix-patches-bounces@gnu.org designates 209.51.188.17 as permitted sender) smtp.mailfrom=guix-patches-bounces@gnu.org X-Migadu-Spam-Score: -3.58 Authentication-Results: aspmx1.migadu.com; dkim=fail ("headers rsa verify failed") header.d=posteo.net header.s=2017 header.b=S8zXJrCF; dmarc=fail reason="SPF not aligned (strict)" header.from=posteo.net (policy=none); spf=pass (aspmx1.migadu.com: domain of guix-patches-bounces@gnu.org designates 209.51.188.17 as permitted sender) smtp.mailfrom=guix-patches-bounces@gnu.org X-Migadu-Queue-Id: 4C42DBA1C X-Spam-Score: -3.58 X-Migadu-Scanner: scn1.migadu.com X-TUID: dL7CHADJanbm --=-=-= Content-Type: text/plain bil@ccrma.Stanford.EDU skribis: > Please do not repair code you don't understand. First, > sbcl issues a warning, not an error. The warning is > asinine -- find (in the original form) returns a list; > I check whether it is nil before setting a portion of it. > If you change the find statement to add :key #'car, you've > changed it from memq to assq (in Scheme nomenclature) -- > these are not the same thing. Your test of running > (cmn treble c4 q) did not hit the code in question, so > it tested nothing. All you've done is add a bug to > my code. If you take a look at the Common Lisp spec [1], you'll see that 'find' returns an element, not a list. The function returning a list is 'member' [2]. [1] http://www.lispworks.com/documentation/HyperSpec/Body/f_find_.htm [2] http://www.lispworks.com/documentation/HyperSpec/Body/f_mem_m.htm --=-=-= Content-Type: application/pgp-signature; name="signature.asc" -----BEGIN PGP SIGNATURE----- iIUEAREKAC0WIQTLxZxm7Ce5cXlAaz5r6CCK3yH+PwUCYZqJ3w8cZ2x2QHBvc3Rl by5uZXQACgkQa+ggit8h/j9ocgD9HCdKN0H60tE4GW0Dz5lDje/Gj66y1Vp0HKGS 9HvO0DcA/iJQ0LzBmHuZz2OaK5NyF8tYfu/dgZFSx3tRSpPbp+jN =dAi7 -----END PGP SIGNATURE----- --=-=-=--