mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-16 06:12:25 -08:00
Code Issues Projects Releases Packages Wiki Activity

Rewrite vector-push-extend so that MSVC accepts it.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-02-06 21:36:43 +01:00
parent aaf55b6a46
commit f5e4b66797
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/vector_push.d
View file

@ -79,10 +79,12 @@ cl_vector_push(cl_object value, cl_object v)
@(defun vector-push-extend (value v &optional (extent MAKE_FIXNUM(0)))
@
{
cl_index f = fix(cl_fill_pointer(v));
if (f >= v->vector.dim) {
v = extend_vector(v, ecl_to_size(extent));
}
ecl_aset1(v, v->vector.fillp, value);
@(return MAKE_FIXNUM(v->vector.fillp++));
}
@)