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: Re: Help Debugging Change In Behavior (Last 30 Days) Date: Tue, 27 Jun 2023 08:37:04 -0700 Message-ID: References: <25754.63059.612264.144965@google.com> Mime-Version: 1.0 Content-Type: text/plain; charset=gb18030 Content-Transfer-Encoding: quoted-printable Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="20092"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Gnus/5.13 (Gnus v5.13) To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane-mx.org@gnu.org Tue Jun 27 17:37:59 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 1qEAlT-00055R-Im for ged-emacs-devel@m.gmane-mx.org; Tue, 27 Jun 2023 17:37:59 +0200 Original-Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1qEAkn-0002PP-LK; Tue, 27 Jun 2023 11:37:17 -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 1qEAkj-0002Oq-Fx for emacs-devel@gnu.org; Tue, 27 Jun 2023 11:37:14 -0400 Original-Received: from mail-pf1-x42f.google.com ([2607:f8b0:4864:20::42f]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1qEAkh-00041N-6h for emacs-devel@gnu.org; Tue, 27 Jun 2023 11:37:13 -0400 Original-Received: by mail-pf1-x42f.google.com with SMTP id d2e1a72fcca58-66869feb7d1so2611998b3a.3 for ; Tue, 27 Jun 2023 08:37:10 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=google.com; s=20221208; t=1687880229; x=1690472229; h=content-transfer-encoding:mime-version:user-agent:message-id:date :references:in-reply-to:subject:to:from:from:to:cc:subject:date :message-id:reply-to; bh=PjfRbw0sWaunLqGLzKL0S7+Hd0f24MWEm8Y0MWCdaT8=; b=i51ADsiiWdbcdcaA62q7EhvSnglbzGUFozewyLv/UkBwrSFV4j8x+BsTMR3IukDkVh yDTjcI9czKl7gagAF66SF3w6zET8Qi3Ducr/to0JAoyXwRCRd8uee9OJ6lxa49IWxF+M KRfiQxkrqQaiZM63vjpt/NJPFDVe8AP8J4yCBRt6ylIiArXoaZ73F+qhcDIMpD5SJhSa P/YtfMedlRQmQMA9ZmRKXJBn5uHzZ5IbGw9+BF0rnzjjJoWghSN0QaR4ElhqjArepTte hudPH0pVmyukdffejxvfohj/uXZ8Nwl8H6PTFs2hJU2B9dzbniaF/L8N5QAzpmydnhzf 1Pyg== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20221208; t=1687880229; x=1690472229; h=content-transfer-encoding:mime-version:user-agent:message-id:date :references:in-reply-to:subject:to:from:x-gm-message-state:from:to :cc:subject:date:message-id:reply-to; bh=PjfRbw0sWaunLqGLzKL0S7+Hd0f24MWEm8Y0MWCdaT8=; b=Wf5qoanzmQbdyZ+Srnk0wZEnqUuogZNJz3NyMJtO1iomN5k941JRVnbr1o2Fin8jUd 5c+81EiP5Ua6HE5eytuMqjAEYnS+NRVF6Rv2oS5HvzPCkyeFYw2/STYhTT8DhmGA+tCm kN+UWpUlDH8jLu9eNi2EKGvWNwSnMVT+gdu25hfUy0ZVmHjZ+fw8XVCpK4OfiOOdB03B VgxIPwfQiLvwESaKaqhO94OTYs1GtZorgGNKQ1GDUaDpQrC6VnvB9CnO0MCVla4Ndx1I OGLlnbImXhzuEBk0hY7pVu1861WVo87THAWVtqmks4qgs+LKP/xEjPq2bT8izXbsPmQa 83Lw== X-Gm-Message-State: AC+VfDz8zBIFxMnjwOk0dEMle6ltKmf0mjoBknaITF+NMtkb7tPhkdAB vxsCr9Z3kxiLUE3wFAT9wvS9xAMK0Jr3BS68FaEqmA== X-Google-Smtp-Source: ACHHUZ63nKZyR2yuKhYu9tLNXTI++QT0z8IAuM+tNNnDnbsYsPb7jICS4QffC0Puz1JM5PwEBxHVhw== X-Received: by 2002:a05:6a00:1507:b0:66a:2771:6c4d with SMTP id q7-20020a056a00150700b0066a27716c4dmr19719482pfu.4.1687880228676; Tue, 27 Jun 2023 08:37:08 -0700 (PDT) Original-Received: from raman9 ([73.252.235.12]) by smtp.gmail.com with ESMTPSA id v26-20020aa7809a000000b0062cf75a9e6bsm5623804pff.131.2023.06.27.08.37.07 for (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Tue, 27 Jun 2023 08:37:08 -0700 (PDT) In-Reply-To: <25754.63059.612264.144965@google.com> (T. V. Raman's message of "Tue, 27 Jun 2023 07:46:43 -0700") Received-SPF: pass client-ip=2607:f8b0:4864:20::42f; envelope-from=raman@google.com; helo=mail-pf1-x42f.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:307259 Archived-At: "T.V Raman" writes: Answering my own question: There may be a subtle bug that has crept in in setf -- In my code, I changed the (setf (struct-slot-access-form val) by introducing a local var slot, and then using it (setq slot val) (setf (struct-slot-access-form) slot) and that fixed the issue> 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? > > 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 "Set tool to: " range) v v)) > (setf (emacspeak-google-tool-value tool) (completing-read "Set tool to:= " range)) > (cond ((and (listp range) (=3D 2 (length range))) (setf > (emacspeak-google-tool-value tool) (if (equal value (cl-first range)) > (cl-second range) (cl-first range)))) ((listp range) (setf > (emacspeak-google-tool-value tool) (completing-read "Set tool to: " > range))) ((stringp range) (setf (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")) belt)) (param (emacspeak-google-tool-param tool)) > (value (emacspeak-google-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-first range)))) ((listp > range) (setf (emacspeak-google-tool-value tool) (completing-read "Set > tool to: " range))) ((stringp range) (setf > (emacspeak-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-tbm 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-fi= lter) > (apply # emacspeak-google-toolbelt-change-d= ate-filter nil) > (ad-Advice-funcall-interactively # emacspea= k-google-toolbelt-change-date-filter) > (apply ad-Advice-funcall-interactively # em= acspeak-google-toolbelt-change-date-filter) > (funcall-interactively emacspeak-google-toolbelt-change-date-filter) > (# emacspeak-google-toolbelt-change-date-filte= r) > (apply # emacspeak-google-toolbelt-change-date= -filter nil) > (call-interactively@ido-cr+-record-current-command # emacspeak-google-toolbelt-change-date-filter) > (apply call-interactively@ido-cr+-record-current-command # call-interactively> 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-toolbelt= "emacspeak") > (apply # emacspeak-websearch-google-with-to= olbelt "emacspeak") > (ad-Advice-funcall-interactively # emacspea= k-websearch-google-with-toolbelt "emacspeak") > (apply ad-Advice-funcall-interactively # (e= macspeak-websearch-google-with-toolbelt "emacspeak")) > (funcall-interactively emacspeak-websearch-google-with-toolbelt "emacsp= eak") > (# emacspeak-websearch-google-with-toolbelt) > (apply # emacspeak-websearch-google-with-toolb= elt 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 # emacspea= k-websearch-dispatch) > (apply ad-Advice-funcall-interactively # em= acspeak-websearch-dispatch) > (funcall-interactively emacspeak-websearch-dispatch) > (# emacspeak-websearch-dispatch nil nil) > (apply # emacspeak-websearch-dispatch (nil nil= )) > (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) > =817=A94 Id: kg:/m/0285kf1 =950=DC8 > > --=20 > > Thanks, > > --Raman(I Search, I Find, I Misplace, I Research) > =817=A94 Id: kg:/m/0285kf1 =950=DC8 --=20 Thanks, --Raman(I Search, I Find, I Misplace, I Research) =817=A94 Id: kg:/m/0285kf1 =950=DC8