From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: Michael Heerdegen Newsgroups: gmane.emacs.bugs Subject: bug#24270: Seeming bug in `setf' Date: Sat, 20 Aug 2016 16:03:34 +0200 Message-ID: <87r39j4jwp.fsf@web.de> References: NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: blaine.gmane.org 1471701863 7289 195.159.176.226 (20 Aug 2016 14:04:23 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Sat, 20 Aug 2016 14:04:23 +0000 (UTC) User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/25.1 (gnu/linux) Cc: 24270-done@debbugs.gnu.org To: Rafael D Sorkin Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Sat Aug 20 16:04:19 2016 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1bb6sl-0001ba-7o for geb-bug-gnu-emacs@m.gmane.org; Sat, 20 Aug 2016 16:04:19 +0200 Original-Received: from localhost ([::1]:33310 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bb6sh-0002xr-Fz for geb-bug-gnu-emacs@m.gmane.org; Sat, 20 Aug 2016 10:04:15 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:59556) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bb6sb-0002wA-40 for bug-gnu-emacs@gnu.org; Sat, 20 Aug 2016 10:04:09 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1bb6sV-0000dh-0G for bug-gnu-emacs@gnu.org; Sat, 20 Aug 2016 10:04:08 -0400 Original-Received: from debbugs.gnu.org ([208.118.235.43]:37558) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bb6sU-0000dW-Sl for bug-gnu-emacs@gnu.org; Sat, 20 Aug 2016 10:04:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1bb6sU-000580-MC for bug-gnu-emacs@gnu.org; Sat, 20 Aug 2016 10:04:02 -0400 Resent-From: Michael Heerdegen Original-Sender: "Debbugs-submit" Resent-To: bug-gnu-emacs@gnu.org Resent-Date: Sat, 20 Aug 2016 14:04:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: cc-closed 24270 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: Mail-Followup-To: 24270@debbugs.gnu.org, michael_heerdegen@web.de, rsorkin@perimeterinstitute.ca Original-Received: via spool by 24270-done@debbugs.gnu.org id=D24270.147170182519662 (code D ref 24270); Sat, 20 Aug 2016 14:04:02 +0000 Original-Received: (at 24270-done) by debbugs.gnu.org; 20 Aug 2016 14:03:45 +0000 Original-Received: from localhost ([127.0.0.1]:35263 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1bb6sD-000574-9i for submit@debbugs.gnu.org; Sat, 20 Aug 2016 10:03:45 -0400 Original-Received: from mout.web.de ([212.227.15.4]:53806) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1bb6sB-00056h-E4 for 24270-done@debbugs.gnu.org; Sat, 20 Aug 2016 10:03:44 -0400 Original-Received: from drachen.dragon ([94.218.211.223]) by smtp.web.de (mrweb001) with ESMTPSA (Nemesis) id 0MMFFF-1bVujd2Cvl-0085mr; Sat, 20 Aug 2016 16:03:36 +0200 In-Reply-To: (Rafael D. Sorkin's message of "Sat, 20 Aug 2016 01:57:29 -0400") X-Provags-ID: V03:K0:VrKNEKaWDyc6Wv1eyv7wKCFhhgaTKk00VXyhB/SF2D2FSXd1w5i DJKsXyqMLe+RFRI2KfyKMZ+IgQ67s4SN9bd98P+ovEfBZ9at1CuFs1WyL+0atqntJlPA/vm PrL27ncT2w7Ig2cu5Uhz88CXWdyb4zk2xuzMdM+8FVBusfkOmeXtocNQ94HfOBQNl8iKlD2 csNiJ4bcmbd21aPjKntTg== X-UI-Out-Filterresults: notjunk:1;V01:K0:IwZWJMDWZ2w=:zlzn3/o7t3BKKUBi6sHvgD zJmsJNq7SAaydZ4mng9DAHN4R0jaTMrNKnSGH+Wds/IcO2+FOj+X2yQo16BxIA1/2iIC32Mm5 d7IiYRnFQf54nPdll3/Ph55gR1/tGIwqOmXKgGvGKG1gLEyF0OC9Oh2GTWHvGBCurkGguF7zh TjCOzuCWPJ36Me3H2e4kCaELvLgTv1TnIcG52ZD75oLfrOUoxepWyElUK6W4xUiTZvbxht5En 9zlgayZ9bgllnIQGSkL1cnGQt82vN+vdnvIzePH2+tfoguWE8nQ/1cEGxz9KIF+q9qWUGFijC 2vYKb+hDuxZF0oRJu4/nobVSVRihCOUa6bfiBJWoy/7Z0q9zPhjleOPAYBZPLjWPfaLsRDobF WB72waLfEJQ1lTyQ3i0Gi8sUh5utYEiU3bnRs5j+1UWVVMG4mTKaY17CKKK3fc/lyN2HRrJU1 Zxbo+b+yT44erMY2k6DvZN4nlwJ7v7EveWVtn33ajto8eu9OJnCb3hHjnzgm6kopxrniEuFKP Dr/U4fZls5hidh0K1JX1s+fGu4FGlxhv8zJDww7B9mRYzqbxQ3trUXT6c5BY+hBcj/bItG+xl NVAVzm3iZ5B4JgzB9ubXC9TJBpHiWx036XUMQDqwxrRyabWGAvIP+So32Ako5FXllC/5nfp1O Dtot2UDm7j9m3tTf6xGfYtjB8bpbzwKbAfXpngy6wHvduL2IhgKPJDIeGpf9G2xc+AlY8xgNq UYcYI7jtFJp0TViWbfjbae1HOtGORUKXSHv2PzWktGaxjeEQHIxv9bLcWhePC3tdBqzIOpNU X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 208.118.235.43 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.org@gnu.org Original-Sender: "bug-gnu-emacs" Xref: news.gmane.org gmane.emacs.bugs:122427 Archived-At: Hello Rafael, > (emacs-version) ; GNU Emacs 24.3.1 (x86_64-pc-linux-gnu, GTK+ Version > 3.10.7) of 2014-03-07 on lamiak, modified by Debian > > (setq z ()) > (getf z 'indic) ; nil > (setf (getf z 'indic) 6) ; (indic 6) SHOULD BE JUST 6 > (getf z 'indic) ; 6 okay Thanks for reporting. Yes, there was such a bug, but your Emacs version is very old...and the bug has been fixed in the meantime (three years ago) in c46c57b, Stefan Monnier * lisp/emacs-lisp/cl-extra.el (cl-getf): Return the proper value in the setter. Fixes: debbugs:14387 modified lisp/emacs-lisp/cl-extra.el @@ -597,8 +597,11 @@ cl-getf (macroexp-let2 nil d def (funcall do `(cl-getf ,getter ,k ,d) (lambda (v) - (funcall setter - `(cl--set-getf ,getter ,k ,v)))))))))) + (macroexp-let2 nil val v + `(progn + ,(funcall setter + `(cl--set-getf ,getter ,k ,val)) + ,val)))))))))) (setplist '--cl-getf-symbol-- plist) (or (get '--cl-getf-symbol-- tag) ;; Originally we called cl-get here, modified lisp/emacs-lisp/cl-loaddefs.el Regards, Michael.