From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Gerd =?UTF-8?Q?M=C3=B6llmann?= Newsgroups: gmane.emacs.bugs Subject: bug#69076: 30.0.50; cl-assertion-failed in elint-directory Date: Mon, 12 Feb 2024 16:24:38 +0100 Message-ID: Mime-Version: 1.0 Content-Type: text/plain Content-Transfer-Encoding: quoted-printable Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="13872"; mail-complaints-to="usenet@ciao.gmane.io" To: 69076@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Mon Feb 12 16:56:13 2024 Return-path: Envelope-to: geb-bug-gnu-emacs@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 1rZYfF-0003UP-9t for geb-bug-gnu-emacs@m.gmane-mx.org; Mon, 12 Feb 2024 16:56:13 +0100 Original-Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1rZYeq-0007Vt-1s; Mon, 12 Feb 2024 10:55:48 -0500 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 1rZYen-0007VH-Pd for bug-gnu-emacs@gnu.org; Mon, 12 Feb 2024 10:55:45 -0500 Original-Received: from debbugs.gnu.org ([2001:470:142:5::43]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1rZYen-0006WE-HF for bug-gnu-emacs@gnu.org; Mon, 12 Feb 2024 10:55:45 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1rZYf4-0005Eo-BN for bug-gnu-emacs@gnu.org; Mon, 12 Feb 2024 10:56:02 -0500 X-Loop: help-debbugs@gnu.org Resent-From: Gerd =?UTF-8?Q?M=C3=B6llmann?= Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Mon, 12 Feb 2024 15:56:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 69076 X-GNU-PR-Package: emacs X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.170775332019966 (code B ref -1); Mon, 12 Feb 2024 15:56:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 12 Feb 2024 15:55:20 +0000 Original-Received: from localhost ([127.0.0.1]:38274 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1rZYeN-0005Bv-PF for submit@debbugs.gnu.org; Mon, 12 Feb 2024 10:55:20 -0500 Original-Received: from lists.gnu.org ([2001:470:142::17]:41434) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1rZYRk-0004Cu-4R for submit@debbugs.gnu.org; Mon, 12 Feb 2024 10:42:16 -0500 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 1rZYAl-0008Tb-H8 for bug-gnu-emacs@gnu.org; Mon, 12 Feb 2024 10:24:46 -0500 Original-Received: from mail-ej1-x635.google.com ([2a00:1450:4864:20::635]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1rZYAj-0000Kp-Lr for bug-gnu-emacs@gnu.org; Mon, 12 Feb 2024 10:24:43 -0500 Original-Received: by mail-ej1-x635.google.com with SMTP id a640c23a62f3a-a26f73732c5so455369866b.3 for ; Mon, 12 Feb 2024 07:24:41 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20230601; t=1707751479; x=1708356279; darn=gnu.org; h=content-transfer-encoding:mime-version:message-id:date:subject:to :from:from:to:cc:subject:date:message-id:reply-to; bh=90F20iM+GlDrxb7QdZWjAN9r1MnbeymG2MzfcaiEeOE=; b=dnjXNIU/skbcDU1A0ScwCVr31+zlbujdrWneY6J1mXbv88+GvSAzs4HtIKPLDZvQfR 40TM+E8BEv4rtJvB6XT2kEFTgQvfjcGciuq0TZzPS+vBGUaAqq2OdPl2jDE+MP9Fw5Yx iSvo2NL9zUyAqwhF7CYEoXiNupzVZ0HDvemS+VBSUGw55oNczbK0Zk1EAZpSSR7HuDiI eqxqVeehCwHClJ2AcoCjnMD22zRdNp6jMc3xAeyzDDzUQ+hl2xMGlvj8Wc39JHQagJIq f37h6b2hdOsqFNRn5rAnJehKeujhKCXAYuUavwMrMW+0h98NyvIuFRoKSNJ4bjM1xvLJ +ITw== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20230601; t=1707751479; x=1708356279; h=content-transfer-encoding:mime-version:message-id:date:subject:to :from:x-gm-message-state:from:to:cc:subject:date:message-id:reply-to; bh=90F20iM+GlDrxb7QdZWjAN9r1MnbeymG2MzfcaiEeOE=; b=TuQQpdBUkQ3wCVQ/N+lBzRJCk89onR5lK7d57eRSIxsm63CIXnMhkPdbS+gneXVyQg 2cKPPS9/EJsDvq+iPQGm/J6rketoX1xSIDJKB5w9tZojgaLDDHzVJH0zQIqwmW8EUicr nU/WRmp7jQ4nj+PaAExTHrdWZuIysgJQrWxEOHNcIQExT28Mwxw8dHcqq4V4reg4uTix iAWc0dbCb+jCCyilCh4iw9LdTqE2Vxf41L11+Z5QnegFbBm90a0A6+OnyziMWz3wEVZb ekhPtS7AJGRBsakuztP7xYOAGZmz/fCRSJ+nn3pEu0GKYQyYDHPi46nBbtKqgTNmYjIT lJyw== X-Gm-Message-State: AOJu0YwDtb06C6P4UJt6O093sWLXcsKlfR0LHMznBWfXJufpBh0EEPg2 oFLK/otZq0qz4QHTfvL+LTFal7agYBlkDg8DBXDsVGoUbFXcwktUifvrHDVo X-Google-Smtp-Source: AGHT+IGquB/0svI8EdcuB2M0ISADiYWZoI4fkRzws7ZPIVTQ2gJ3hW6lqk4tdqdSb7fTzLn0bvqrQA== X-Received: by 2002:a17:906:e088:b0:a38:20dc:9fb6 with SMTP id gh8-20020a170906e08800b00a3820dc9fb6mr5317096ejb.25.1707751479245; Mon, 12 Feb 2024 07:24:39 -0800 (PST) Original-Received: from Pro.fritz.box (p4fe3a18e.dip0.t-ipconnect.de. [79.227.161.142]) by smtp.gmail.com with ESMTPSA id y21-20020a170906559500b00a34d0a865ecsm298321ejp.163.2024.02.12.07.24.38 for (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Mon, 12 Feb 2024 07:24:38 -0800 (PST) Received-SPF: pass client-ip=2a00:1450:4864:20::635; envelope-from=gerd.moellmann@gmail.com; helo=mail-ej1-x635.google.com 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, FREEMAIL_FROM=0.001, RCVD_IN_DNSWL_NONE=-0.0001, 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: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Xref: news.gmane.io gmane.emacs.bugs:279900 Archived-At: In GNU Emacs 30.0.50 (build 1, x86_64-apple-darwin23.3.0, NS appkit-2487.40 Version 14.3.1 (Build 23D60)) of 2024-02-12 built on Pro.fritz.box Repository revision: 2f7d662dd4636a84e157a2af8f843c0589bc5dda Repository branch: master Windowing system distributor 'Apple', version 10.3.2487 System Description: macOS 14.3.1 (elint-directory ".../master/lisp"), where ".../master/lisp" is the lisp subdirectory of the Git repo containing master, leads to an assertion failure while processing fileloop.el. Backtrace: Debugger entered--Lisp error: (cl-assertion-failed (lexical-binding nil)) cl--assertion-failed(lexical-binding) (or lexical-binding (cl--assertion-failed 'lexical-binding)) (progn (or lexical-binding (cl--assertion-failed 'lexical-binding)) nil) (cl-assert lexical-binding) (lambda (name arglist &rest body) "Create a generator NAME that accepts A= RGLIST as its arguments.\nWhen called as a function, NAME returns an iterat= or value that\nencapsulates the state of a computation that produces a sequ= ence\nof values. Callers can retrieve each value using `iter-next'." (decl= are (indent defun) (debug (&define name lambda-list lambda-doc &rest sexp))= (doc-string 3)) (cl-assert lexical-binding) (let* ((parsed-body (macroexp-= parse-body body)) (declarations (car parsed-body)) (exps (cdr parsed-body))= ) `(defun ,name ,arglist ,@declarations ,(cps-generate-evaluator exps))))(f= ileloop--list-to-iterator (list) (while list (iter-yield (pop list)))) macroexpand((iter-defun fileloop--list-to-iterator (list) (while list ...= )) ((cps--initialize-for lambda ... ...) (cps--advance-for lambda ... ...) = (iter-make lambda ... "Return a new iterator." ... ...) (iter-lambda lambda= ... "Return a lambda generator.\n`iter-lambda' is to `iter-defun' as `lamb= da' is to `defun'." ... ... ...) (iter-defun lambda ... "Create a generator= NAME that accepts ARGLIST as its arguments.\nWhen called as a function, NA= ME returns an iterator value that\nencapsulates the state of a computation = that produces a sequence\nof values. Callers can retrieve each value using= `iter-next'." ... ... ...) (iter-yield-from lambda ... "When used inside a= generator function, delegate to a sub-iterator.\nThe values that the sub-i= terator yields are passed directly to\nthe caller, and values supplied to `= iter-next' are sent to the\nsub-iterator. `iter-yield-from' evaluates to t= he value that the\nsub-iterator function returns via `iter-end-of-sequence'= ." ...) (cps--with-dynamic-binding lambda ... "Run BODY's atomic evaluation= s run with DYNAMIC-VAR bound to STATIC-VAR." ... ...) (cps--with-value-wrap= per lambda ... "Evaluate BODY with WRAPPER added to the stack of atomic-for= m wrappers.\nWRAPPER is a function that takes an atomic form and returns a = wrapped form.\n\nWhenever we generate an atomic form (i.e., a form that can= 't\n`iter-yield'), we first (before actually inserting that form in our\nge= nerated code) pass that form through all the transformer\nfunctions. We us= e this facility to wrap forms that can transfer\ncontrol flow non-locally i= n goo that diverts this control flow to\nthe CPS state machinery." ... ...)= (cps--define-unsupported lambda ... ...) (cps--gensym lambda ... ...) (cl-= declaim lambda ... "Like `cl-proclaim', but takes any number of unevaluated= , unquoted arguments.\nPuts `(cl-eval-when (compile load eval) ...)' around= the declarations\nso that they are registered at compile-time as well as r= un-time." ...) (cl-pushnew lambda ... "Add X to the list stored in PLACE un= less X is already in the list.\nPLACE is a generalized variable that stores= a list.\n\nLike (push X PLACE), except that PLACE is unmodified if X is `e= ql'\nto an element already in the list stored in PLACE.\n\n\nKeywords suppo= rted: :test :test-not :key\n\n(fn X PLACE [KEYWORD VALUE]...)" ... ...) (c= l-decf lambda ... "Decrement PLACE by X (1 by default).\nPLACE may be a sym= bol, or any generalized variable allowed by `setf'.\nThe return value is th= e decremented value of PLACE.\n\nIf X is specified, it should be an express= ion that should\nevaluate to a number." ... ...) (cl-incf lambda ... "Incre= ment PLACE by X (1 by default).\nPLACE may be a symbol, or any generalized = variable allowed by `setf'.\nThe return value is the incremented value of P= LACE.\n\nIf X is specified, it should be an expression that should\nevaluat= e to a number." ... ...) (macroexp-let2* lambda ... "Multiple binding versi= on of `macroexp-let2'.\n\nBINDINGS is a list of elements of the form (SYM E= XP) or just SYM,\nwhich then stands for (SYM SYM).\nEach EXP can refer to s= ymbols specified earlier in the binding list.\n\nTEST has to be a symbol, a= nd if it is nil it can be omitted." ... ... ...) (macroexp-let2 lambda ... = "Evaluate BODY with SYM bound to an expression for EXP's value.\nThe intend= ed usage is that BODY generates an expression that\nwill refer to EXP's val= ue multiple times, but will evaluate\nEXP only once. As BODY generates tha= t expression, it should\nuse SYM to stand for the value of EXP.\n\nIf EXP i= s a simple, safe expression, then SYM's value is EXP itself.\nOtherwise, SY= M's value is a symbol which holds the value produced by\nevaluating EXP. T= he return value incorporates the value of BODY, plus\nadditional code to ev= aluate EXP once and save the result so SYM can\nrefer to it.\n\nIf BODY con= sists of multiple forms, they are all evaluated\nbut only the last one's va= lue matters.\n\nTEST is a predicate to determine whether EXP qualifies as s= imple and\nsafe; if TEST is nil, only constant expressions qualify.\n\nExam= ple:\n (macroexp-let2 nil foo EXP\n \\=3D`(* ,foo ,foo))\ngenerates an ex= pression that evaluates EXP once,\nthen returns the square of that value.\n= You could do this with\n (let ((foovar EXP))\n (* foovar foovar))\nbut = using `macroexp-let2' produces more efficient code in\ncases where EXP is a= constant." ... ...) (macroexp--accumulate lambda ... "Return a list of the= results of evaluating BODY for each element of LIST.\nEvaluate BODY with V= AR bound to each `car' from LIST, in turn.\nReturn a list of the values of = the final form in BODY.\nThe list structure of the result will share as muc= h with LIST as\npossible (for instance, when BODY just returns VAR unchange= d, the\nresult will be eq to LIST).\n\n(fn (VAR LIST) BODY...)" ... ...) (m= acroexp--with-extended-form-stack lambda ... "Evaluate BODY with EXPR pushe= d onto `byte-compile-form-stack'." ... ...))) elint-form((iter-defun fileloop--list-to-iterator (list) (while list ...)= ) ((... ... ... ... ... nil ... ... ... ... ... ... ... ... ... ... ... ...= nil ... ...) (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... = ... ... ... ... ... ...) (... ... ... ... ... ... ... ... ... ... ... ... .= .. ... ... ... ... ...))) elint-top-form(((iter-defun fileloop--list-to-iterator (list) (while list= (iter-yield (pop list)))) . 2037)) elint-file("/Users/gerd/emacs/savannah/master/lisp/fileloop.el") elint-directory("~/emacs/savannah/master/lisp") (benchmark 1 (elint-directory "~/emacs/savannah/master/lisp")) (progn (benchmark 1 (elint-directory "~/emacs/savannah/master/lisp"))) eval((progn (benchmark 1 (elint-directory "~/emacs/savannah/master/lisp")= )) t) elisp--eval-last-sexp(t) eval-last-sexp(t) eval-print-last-sexp(nil) funcall-interactively(eval-print-last-sexp nil) command-execute(eval-print-last-sexp)