bug#14387: 24.3; The return value of setf is not the last VAL in the list

[白井 彰]

(describe-function 'setf) says "The return value is the last VAL in  
the list.", but it does not:

% /Users/shiraiakira/emacs-24.3/nextstep/Emacs.app/Contents/MacOS/ 
Emacs -Q

(require 'gv)
gv
(require 'cl)
cl
(let ((pl '(aaa bbb))) (setf (cl-getf pl 'aaa) 'ccc))
(aaa ccc)    ; This should be ccc


In GNU Emacs 24.3.1 (i386-apple-darwin9.8.0, NS apple-appkit-949.54)
 of 2013-04-30 on mini2.local
Windowing system distributor `Apple', version 10.3.949
Configured using:
 `configure '--with-ns' '--without-x''

Important settings:
  value of $LANG: ja_JP.ujis
  locale-coding-system: japanese-iso-8bit-unix
  default enable-multibyte-characters: t

Major mode: Lisp Interaction

Minor modes in effect:
  tooltip-mode: t
  mouse-wheel-mode: t
  tool-bar-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  line-number-mode: t
  transient-mark-mode: t

Recent input:
( r e q u i r e SPC ' g v ) C-j ( r e q u i r e SPC
' c l ) C-j ( l e t SPC ( ( p l SPC ' ( a a a SPC b
b b ) ) ) SPC ( s e t f SPC ( c l - g e t f SPC p l
SPC ' a a a ) SPC ' c c c ) ) C-j <escape> x r e p
o r t - e m a c s - b u g <return>

Recent messages:
For information about GNU Emacs and the GNU system, type C-h C-a.

Load-path shadows:
None found.

Features:
(shadow sort gnus-util mail-extr emacsbug message cl-macs format-spec
rfc822 mml easymenu mml-sec mm-decode mm-bodies mm-encode mail-parse
rfc2231 mailabbrev gmm-utils mailheader sendmail rfc2047 rfc2045
ietf-drums mm-util mail-prsvr mail-utils cl cl-lib gv time-date
japan-util tooltip ediff-hook vc-hooks lisp-float-type mwheel ns-win
tool-bar dnd fontset image regexp-opt fringe tabulated-list newcomment
lisp-mode register page menu-bar rfn-eshadow timer select scroll-bar
mouse jit-lock font-lock syntax facemenu font-core frame cham georgian
utf-8-lang misc-lang vietnamese tibetan thai tai-viet lao korean
japanese hebrew greek romanian slovak czech european ethiopic indian
cyrillic chinese case-table epa-hook jka-cmpr-hook help simple abbrev
minibuffer loaddefs button faces cus-face macroexp files text-properties
overlay sha1 md5 base64 format env code-pages mule custom widget
hashtable-print-readable backquote make-network-process ns multi-tty
emacs)