From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: "T.V Raman" Newsgroups: gmane.emacs.devel Subject: Help Debugging Change In Behavior (Last 30 Days) Date: Tue, 27 Jun 2023 07:46:43 -0700 Message-ID: <25754.63059.612264.144965@google.com> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="36532"; mail-complaints-to="usenet@ciao.gmane.io" To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane-mx.org@gnu.org Tue Jun 27 16:47:49 2023 Return-path: Envelope-to: ged-emacs-devel@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 1qE9yv-0009Hu-4H for ged-emacs-devel@m.gmane-mx.org; Tue, 27 Jun 2023 16:47:49 +0200 Original-Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1qE9y1-0001Lw-D4; Tue, 27 Jun 2023 10:46:53 -0400 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 1qE9xz-0001LY-I3 for emacs-devel@gnu.org; Tue, 27 Jun 2023 10:46:51 -0400 Original-Received: from mail-pl1-x62c.google.com ([2607:f8b0:4864:20::62c]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1qE9xx-00073Z-Ja for emacs-devel@gnu.org; Tue, 27 Jun 2023 10:46:51 -0400 Original-Received: by mail-pl1-x62c.google.com with SMTP id d9443c01a7336-1b7fb1a82c4so15424145ad.1 for ; Tue, 27 Jun 2023 07:46:48 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=google.com; s=20221208; t=1687877206; x=1690469206; h=subject:to:content-transfer-encoding:mime-version:date:message-id :from:from:to:cc:subject:date:message-id:reply-to; bh=bnN+NFgtmpFmNFJtJU4JsmlsnMyMhmLCPDVBsj8XxeM=; b=xaJ8PcqJjJojjblJ4pcGsJWD0e6Sy947q0T44A0sAKTGmoJJffw0xys/oNbmp/dOu1 N0dSgMU91smz3XYdmaCODOH9ogNf0e3IpYDBcca2YcNphITq/mjzKanuhu9z+oLB1Fx1 Rwtii/H9HjKVpvk0gSxCR8/3pmJ97X3WTJLlJbjzzdFqHnDfRw0gXv+fbFg+lGX1COoy lcVCdDTIqRGb/cS+TiMJxL2QeqQov417WSMEKQzaLd9PVcdPUtrLTolPSaxNiBgEV5uL nAYzuSIZRXb20lDMnZJ97xLfh62p7IQvr6Psrx10gcsIR4++U+3yDWLSG5PaCHq8r4+B veng== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20221208; t=1687877206; x=1690469206; h=subject:to:content-transfer-encoding:mime-version:date:message-id :from:x-gm-message-state:from:to:cc:subject:date:message-id:reply-to; bh=bnN+NFgtmpFmNFJtJU4JsmlsnMyMhmLCPDVBsj8XxeM=; b=Mz3QxXZKIVAPHB9vIPFwtaiA1cOFjAeEZzKsrcxggLUpdVDK9hhNhlXha0fYRcHMJg lsUJJ+pCO19q4HGCjG6YQGeFmPqa/Ppb6Zdnc83bAr7uDTPC7qV0NhQXYDZMQl1dKemk +aaTRG86du0gkpmI4Fk2bNC9xAAf603+F5fcPq/0tHJ1RUKqk9+ZrTnetK2mu1S8G7gW sHkVmirZC+G2H+/ZZH6LEQHp4THFx1GqF/827ra7FJslPD9zBcvQq/x6WXrP2EAyl4Xr 87DTVPD94faCAXu2rOB02rZEjPKipFN0UX4aEQZIZuOuvtWPEAesxYZTGlexjSGuMeQG W19Q== X-Gm-Message-State: AC+VfDyuscZEIhTopyyDzqZXDjPN5kwN9+i5lu5HdjXaVjmzrEMOuW7g IlyjOXnYN1WSA08tePOl61yHDIOKeN73keFdEQ9lIg== X-Google-Smtp-Source: ACHHUZ5ysl8KNc6OHvOFvBcik5yVirYpBWRxivFSUk+nBa+BaYLwEnKqu27KSGgr/0P/4M0VfvMXkA== X-Received: by 2002:a17:902:ce90:b0:1b2:48c:4db with SMTP id f16-20020a170902ce9000b001b2048c04dbmr9158236plg.38.1687877205569; Tue, 27 Jun 2023 07:46:45 -0700 (PDT) Original-Received: from raman9 ([73.252.235.12]) by smtp.gmail.com with ESMTPSA id k13-20020a170902ba8d00b001b69303db54sm6111218pls.91.2023.06.27.07.46.44 for (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Tue, 27 Jun 2023 07:46:44 -0700 (PDT) X-Mailer: VM 8.1.1 under 30.0.50 (x86_64-pc-linux-gnu) Received-SPF: pass client-ip=2607:f8b0:4864:20::62c; envelope-from=raman@google.com; helo=mail-pl1-x62c.google.com X-Spam_score_int: -175 X-Spam_score: -17.6 X-Spam_bar: ----------------- X-Spam_report: (-17.6 / 5.0 requ) BAYES_00=-1.9, DKIMWL_WL_MED=-0.001, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, ENV_AND_HDR_SPF_MATCH=-0.5, RCVD_IN_DNSWL_NONE=-0.0001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001, T_SCC_BODY_TEXT_LINE=-0.01, USER_IN_DEF_DKIM_WL=-7.5, USER_IN_DEF_SPF_WL=-7.5 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane-mx.org@gnu.org Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane-mx.org@gnu.org Xref: news.gmane.io gmane.emacs.devel:307258 Archived-At: I have a fairly complex piece of code at https://github.com/tvraman/emacspeak/blob/master/lisp/emacspeak-google.= el#L475 that generates a bunch of functions. The code works correctly in Emacs 30 built on May 25,2023 but bombs with a hard to explain error in Emacs 30 built on June 25. The backtrace is hard to understand, and staring at the code after macroexpand-all didn't help. Here is what the backtrace looks like --- did something change in Emacs in the last 30 days that might explain this=3F Debugger entered--Lisp error: (void-function \(setf\ funcall\)) (\(setf\ funcall\) (completing-read "Set tool to: " range) v v) (let* ((v #'(lambda (cl-x) (progn (or (funcall ... cl-x) (signal ... = ...)) (aref cl-x 5)))) (v tool)) (\(setf\ funcall\) (completing-read "S= et tool to: " range) v v)) (setf (emacspeak-google-tool-value tool) (completing-read "Set tool t= o: " range)) (cond ((and (listp range) (=3D 2 (length range))) (setf (emacspeak-go= ogle-tool-value tool) (if (equal value (cl-first range)) (cl-second ran= ge) (cl-first range)))) ((listp range) (setf (emacspeak-google-tool-val= ue tool) (completing-read "Set tool to: " range))) ((stringp range) (se= tf (emacspeak-google-tool-value tool) (read-from-minibuffer range))) (t= (error "Unexpected type!"))) (let* ((belt (emacspeak-google-toolbelt)) (tool (cl-find-if #'(lambda= (tool) (string=3D (emacspeak-google-tool-name tool) "date-filter")) be= lt)) (param (emacspeak-google-tool-param tool)) (value (emacspeak-googl= e-tool-value tool)) (range (emacspeak-google-tool-range tool))) (cond (= (and (listp range) (=3D 2 (length range))) (setf (emacspeak-google-tool= -value tool) (if (equal value (cl-first range)) (cl-second range) (cl-f= irst range)))) ((listp range) (setf (emacspeak-google-tool-value tool) = (completing-read "Set tool to: " range))) ((stringp range) (setf (emacs= peak-google-tool-value tool) (read-from-minibuffer range))) (t (error "= Unexpected type!"))) (let ((emacspeak-websearch-google-options (concat = (emacspeak-google-toolbelt-to-tbs belt) (emacspeak-google-toolbelt-to-t= bm belt)))) (emacspeak-google-cache-toolbelt belt) (emacspeak-websearch= -google (or emacspeak-google-query (gweb-google-autocomplete))))) (emacspeak-google-toolbelt-change-date-filter) (# emacspeak-google-toolbelt-change-date-= filter) (apply # emacspeak-google-toolbelt-change= -date-filter nil) (ad-Advice-funcall-interactively # emacsp= eak-google-toolbelt-change-date-filter) (apply ad-Advice-funcall-interactively # = emacspeak-google-toolbelt-change-date-filter) (funcall-interactively emacspeak-google-toolbelt-change-date-filter) (# emacspeak-google-toolbelt-change-date-fil= ter) (apply # emacspeak-google-toolbelt-change-da= te-filter nil) (call-interactively@ido-cr+-record-current-command # emacspeak-google-toolbelt-change-date-filter) (apply call-interactively@ido-cr+-record-current-command # emacspeak-google-toolbelt-change-date-filter) (call-interactively emacspeak-google-toolbelt-change-date-filter) (emacspeak-google-toolbelt-change) (emacspeak-websearch-accessible-google "emacspeak" use-toolbelt) (emacspeak-websearch-google-with-toolbelt "emacspeak") (# emacspeak-websearch-google-with-toolbe= lt "emacspeak") (apply # emacspeak-websearch-google-with-= toolbelt "emacspeak") (ad-Advice-funcall-interactively # emacsp= eak-websearch-google-with-toolbelt "emacspeak") (apply ad-Advice-funcall-interactively # = (emacspeak-websearch-google-with-toolbelt "emacspeak")) (funcall-interactively emacspeak-websearch-google-with-toolbelt "emac= speak") (# emacspeak-websearch-google-with-toolbelt)= (apply # emacspeak-websearch-google-with-too= lbelt nil) (call-interactively@ido-cr+-record-current-command # emacspeak-websearch-google-with-toolbelt) (apply call-interactively@ido-cr+-record-current-command # emacspeak-websearch-google-with-toolbelt) (call-interactively emacspeak-websearch-google-with-toolbelt) (emacspeak-websearch-dispatch) (# emacspeak-websearch-dispatch) (apply # emacspeak-websearch-dispatch nil= ) (ad-Advice-funcall-interactively # emacsp= eak-websearch-dispatch) (apply ad-Advice-funcall-interactively # = emacspeak-websearch-dispatch) (funcall-interactively emacspeak-websearch-dispatch) (# emacspeak-websearch-dispatch nil nil) (apply # emacspeak-websearch-dispatch (nil n= il)) (call-interactively@ido-cr+-record-current-command # emacspeak-websearch-dispatch nil nil) (apply call-interactively@ido-cr+-record-current-command # (emacspeak-websearch-dispatch nil nil)) (call-interactively emacspeak-websearch-dispatch nil nil) (command-execute emacspeak-websearch-dispatch) --=20 Thanks, --Raman(I Search, I Find, I Misplace, I Research) =E2=99=89 Id: kg:/m/0285kf1 =F0=9F=A6=AE -- Thanks, --Raman(I Search, I Find, I Misplace, I Research) ♉ Id: kg:/m/0285kf1 🦮 -- Thanks, --Raman(I Search, I Find, I Misplace, I Research) ♉ Id: kg:/m/0285kf1 🦮