From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Stefan Israelsson Tampe Newsgroups: gmane.lisp.guile.bugs Subject: bug#50609: number overflow Date: Wed, 15 Sep 2021 21:12:13 +0200 Message-ID: Mime-Version: 1.0 Content-Type: multipart/alternative; boundary="00000000000069667e05cc0d7af4" Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="32034"; mail-complaints-to="usenet@ciao.gmane.io" To: 50609@debbugs.gnu.org Original-X-From: bug-guile-bounces+guile-bugs=m.gmane-mx.org@gnu.org Wed Sep 15 21:13:08 2021 Return-path: Envelope-to: guile-bugs@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 1mQaLE-0008AX-5d for guile-bugs@m.gmane-mx.org; Wed, 15 Sep 2021 21:13:08 +0200 Original-Received: from localhost ([::1]:33132 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1mQaLC-0005HF-5B for guile-bugs@m.gmane-mx.org; Wed, 15 Sep 2021 15:13:06 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:45220) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1mQaL8-0005H7-Bt for bug-guile@gnu.org; Wed, 15 Sep 2021 15:13:02 -0400 Original-Received: from debbugs.gnu.org ([209.51.188.43]:41730) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1mQaL8-0007NK-4J for bug-guile@gnu.org; Wed, 15 Sep 2021 15:13:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1mQaL7-0007iJ-UV for bug-guile@gnu.org; Wed, 15 Sep 2021 15:13:01 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Stefan Israelsson Tampe Original-Sender: "Debbugs-submit" Resent-CC: bug-guile@gnu.org Resent-Date: Wed, 15 Sep 2021 19:13:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 50609 X-GNU-PR-Package: guile X-Debbugs-Original-To: bug-guile@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.163173314929606 (code B ref -1); Wed, 15 Sep 2021 19:13:01 +0000 Original-Received: (at submit) by debbugs.gnu.org; 15 Sep 2021 19:12:29 +0000 Original-Received: from localhost ([127.0.0.1]:53276 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1mQaKb-0007hS-5n for submit@debbugs.gnu.org; Wed, 15 Sep 2021 15:12:29 -0400 Original-Received: from lists.gnu.org ([209.51.188.17]:36540) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1mQaKY-0007hK-Na for submit@debbugs.gnu.org; Wed, 15 Sep 2021 15:12:27 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:45112) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1mQaKY-0005FF-HH for bug-guile@gnu.org; Wed, 15 Sep 2021 15:12:26 -0400 Original-Received: from mail-vk1-xa32.google.com ([2607:f8b0:4864:20::a32]:40663) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1mQaKX-0006rI-1b for bug-guile@gnu.org; Wed, 15 Sep 2021 15:12:26 -0400 Original-Received: by mail-vk1-xa32.google.com with SMTP id 3so1417166vkg.7 for ; Wed, 15 Sep 2021 12:12:24 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20210112; h=mime-version:from:date:message-id:subject:to; bh=T4VMsC5sUyvzdbSXMAIL+OsUjHfRR6b82MtZn4Zk0S0=; b=ivF4+zAdm5/Iu0+TW/LvqmQbcsncHP9INzkRHd5klU+zeTxokQk6YhpHV8xk8qElL0 5XC6xXAnaVhC+ojyULoXm9RKZqoqZ1YL4OekgwGnGagSeVToVq8DxVATmYvt2j+9GmiI +yEBU7sMdKQ6K3Dja9pgLB7l5jVa4dgkl/Kjuureqxncui7PVy7DEoS7gT0B9zGc5Xxb bZILtwOGeDgrzOkErZ16KAdCIGQ6gmz0GpuOBHe5fcMt45CTAokswH20E/B30IHfR/6i qHpMExtD8R78jooOo2eGlVh4EX8LZ2XALBctLQ/wKT7m7ZsxxObov4UF9ARpy5gJBs6b g6+w== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; h=x-gm-message-state:mime-version:from:date:message-id:subject:to; bh=T4VMsC5sUyvzdbSXMAIL+OsUjHfRR6b82MtZn4Zk0S0=; b=g7y8UwICphESE+KG4EayxFgnumob9BZZ6LeDUReMjIVn0r6M9N/5/fEtoLM7yCFPCV P9+R1g6FkmSKONbWZlUETAeipkSyneFslxxJ2yR0akFisx+6lDvnaopqyd69gGmZHSw4 qvAMs4KdvooXqfcnKv6MfwpJG8CvX4OfHyFvt9T6k8IfTs0U2oZQOzL7LryUxK5FKy05 enUNrBjQukh9eGcP0BIIl6wBznNDBE//2bE2huoamlV7Zx2l2M7M+sQmIoHLcYqZ8Qu4 cN+xY81DadtIGOYmWL+4+UDRJpTrq8NTpWYGhtNnVph4o/n18PymkJogOKR2FDnSyXwh PzrA== X-Gm-Message-State: AOAM532nPiLby2w6AABZX0g1hDl8n7xXPtrJlqP501ZmBEqTbjoPKYtW gT3qAlMTzXFht+PC/4pY15iwkfTH72BVjCI7FYlqe5Zj9uk= X-Google-Smtp-Source: ABdhPJxzNhngUpsfRhUOe1PVltYrNr84OYpijqPCwBOSWfFNhBa5x2Led/Kil29bXi/HsOv7cc4LcMC/eBpMrVivW64= X-Received: by 2002:a1f:2b14:: with SMTP id r20mr1316834vkr.13.1631733143921; Wed, 15 Sep 2021 12:12:23 -0700 (PDT) Received-SPF: pass client-ip=2607:f8b0:4864:20::a32; envelope-from=stefan.itampe@gmail.com; helo=mail-vk1-xa32.google.com X-Spam_score_int: -1 X-Spam_score: -0.2 X-Spam_bar: / X-Spam_report: (-0.2 / 5.0 requ) BAYES_40=-0.001, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_FROM=0.001, HTML_MESSAGE=0.001, RCVD_IN_DNSWL_NONE=-0.0001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 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: bug-guile@gnu.org List-Id: "Bug reports for GUILE, GNU's Ubiquitous Extension Language" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-guile-bounces+guile-bugs=m.gmane-mx.org@gnu.org Original-Sender: "bug-guile" Xref: news.gmane.io gmane.lisp.guile.bugs:10180 Archived-At: --00000000000069667e05cc0d7af4 Content-Type: text/plain; charset="UTF-8" This does not compile on guile 3.0.7, (define (f . l) (let lp2 ((i 0) (s 0) (l l)) (if (and (pair? l) (< i 64)) (lp2 (+ i 1) (if (car l) (logior (ash 1 i) s) s) (cdr l)) s))) While compiling expression: Throw to key `numerical-overflow' with args `("ash" "Numerical ove rflow" #f #f)'. --00000000000069667e05cc0d7af4 Content-Type: text/html; charset="UTF-8" Content-Transfer-Encoding: quoted-printable
This does not compile on guile 3.0.7,

(define (f . l)
=C2=A0= (let lp2 ((i 0) (s 0) (l l))
=C2=A0 =C2=A0 (if (and (pair? l) (< i 6= 4))
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(lp2 (+ i 1) (if (car l) (logior (= ash 1 i) s) s) (cdr l))
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0s)))
<= br>
While = compiling expression:
Throw to key `numerical-overflow' with args = `("ash" "Numerical ove
rflow" #f #f)'.<= br>
--00000000000069667e05cc0d7af4--