From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Glenn Morris Newsgroups: gmane.emacs.bugs Subject: bug#12812: defsetf with third argument = t Date: Tue, 06 Nov 2012 02:41:55 -0500 Message-ID: NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: ger.gmane.org 1352187788 30022 80.91.229.3 (6 Nov 2012 07:43:08 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Tue, 6 Nov 2012 07:43:08 +0000 (UTC) To: 12812@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Tue Nov 06 08:43:18 2012 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1TVdoX-0003xb-Fs for geb-bug-gnu-emacs@m.gmane.org; Tue, 06 Nov 2012 08:43:13 +0100 Original-Received: from localhost ([::1]:35464 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TVdoO-0004ug-FO for geb-bug-gnu-emacs@m.gmane.org; Tue, 06 Nov 2012 02:43:04 -0500 Original-Received: from eggs.gnu.org ([208.118.235.92]:39156) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TVdoH-0004uY-8e for bug-gnu-emacs@gnu.org; Tue, 06 Nov 2012 02:43:02 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1TVdoD-0008Qt-CZ for bug-gnu-emacs@gnu.org; Tue, 06 Nov 2012 02:42:57 -0500 Original-Received: from debbugs.gnu.org ([140.186.70.43]:41277) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TVdoD-0008Qp-9G for bug-gnu-emacs@gnu.org; Tue, 06 Nov 2012 02:42:53 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.72) (envelope-from ) id 1TVdrG-0003Dt-7H for bug-gnu-emacs@gnu.org; Tue, 06 Nov 2012 02:46:02 -0500 X-Loop: help-debbugs@gnu.org Resent-From: Glenn Morris Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Tue, 06 Nov 2012 07:46:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 12812 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: X-Debbugs-Original-To: submit@debbugs.gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.135218791112315 (code B ref -1); Tue, 06 Nov 2012 07:46:01 +0000 Original-Received: (at submit) by debbugs.gnu.org; 6 Nov 2012 07:45:11 +0000 Original-Received: from localhost ([127.0.0.1]:51528 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1TVdqP-0003CY-39 for submit@debbugs.gnu.org; Tue, 06 Nov 2012 02:45:10 -0500 Original-Received: from fencepost.gnu.org ([208.118.235.10]:43582) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1TVdqN-0003CQ-5O for submit@debbugs.gnu.org; Tue, 06 Nov 2012 02:45:08 -0500 Original-Received: from rgm by fencepost.gnu.org with local (Exim 4.71) (envelope-from ) id 1TVdnH-0004kw-Qy; Tue, 06 Nov 2012 02:41:55 -0500 X-Spook: SDI Janet Reno Vince Foster STARLAN quarter subversive X-Ran: An+5+"J/$D$0./FKpj8/:iqqN=jd'bC5I0"%O!g8)g"lAV]wkgG)Z9zY&wm06rQyr+O2=M X-Hue: green X-Attribution: GM User-Agent: Gnus (www.gnus.org), GNU Emacs (www.gnu.org/software/emacs/) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.13 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-Received-From: 140.186.70.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-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:66521 Archived-At: Package: emacs Version: 24.2.50 In Emacs 24.2 and earlier, defsetf was documented [1] to accept a third argument = t, with the same meaning as gv-define-simple-setter's optional FIX-RETURN argument. This behaviour no longer works. Here is an artificial example in `emacs -Q -l cl': (defun foo (x) (car x)) (defun foo-set (x y) (setcar x y) nil) (defsetf foo foo-set t) (setq bar '(0 2 3)) (setf (foo bar) 1) ; -> nil bar ; -> (1 2 3) The setf call correctly returns 1 in 24.2. [1] (info "(cl)Customizing Setf") [...] As a special (non-Common-Lisp) extension, a third argument of `t' to `defsetf' says...