mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-23 04:52:42 -08:00
Code Issues Projects Releases Packages Wiki Activity

SETF for structures that are specialized vectors

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-02-07 16:44:51 +01:00
parent b9436ff2f2
commit 7308dc932d
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/lsp/setf.lsp
View file

@ -316,8 +316,11 @@ Does not check if the third gang is a single-element list."
(defun setf-structure-access (struct type index newvalue)
(declare (si::c-local))
(case type
((LIST VECTOR) `(sys:elt-set ,struct ,index ,newvalue))
(cond
((or (eq type 'list) (eq type 'vector))
`(sys:elt-set ,struct ,index ,newvalue))
((consp type)
`(si::aset ,newvalue (the ,type ,struct) ,index))
(t `(sys::structure-set ,struct ',type ,index ,newvalue))))
(defun setf-expand (l env)