Remove duplicate implementations of (setf aref/sbit/bit).
authorStas Boukarev <stassats@gmail.com>
Fri, 18 Oct 2013 11:18:36 +0000 (15:18 +0400)
committerStas Boukarev <stassats@gmail.com>
Fri, 18 Oct 2013 11:18:36 +0000 (15:18 +0400)
commitcee8ef591040db9a79cdd19297867672a9529051
tree942bba92074684935deaccfe91c8b8922fca8794
parentc58678f9ae90cb3aba995baa5d5d640c95590b44
Remove duplicate implementations of (setf aref/sbit/bit).

Since (setf aref/sbit/bit) have to work with
(setf (apply #'aref array subscripts)), they had both a setf expander
and a setf-function, but it can be implemented with just a
setf-function. All other accessors are still done using
(defsetf accessor %setaccessor), I haven't found a technical reason to
prefer one to another, other than (setf accessor) being a nicer name.

Fixes lp#1241095.
package-data-list.lisp-expr
src/code/array.lisp
src/code/defsetfs.lisp
src/compiler/array-tran.lisp
src/compiler/fndb.lisp
src/compiler/macros.lisp
src/compiler/seqtran.lisp
tests/compiler.pure.lisp