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

core: add a new utility 'si_adjust_vector' to arrays.d

Browse source 
This function is added to avoid using in the core the f unction CL:ADJUST-ARRAY,
that is not defined during bootstrapping.
This commit is contained in:
Daniel Kochmański 2022-04-27 13:35:40 +02:00
parent 8d90e31ecc
commit fe27ab8600
6 changed files with 41 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/cmp/proclamations.lsp
View file

@ -874,6 +874,7 @@
;; ECL extensions
(proclamation si:make-pure-array (t t t t t t) array)
(proclamation si:make-vector (t t t t t t) vector)
(proclamation si:adjust-vector (vector ext:array-index) vector)
(proclamation si:aset (array t &rest t) t)
(proclamation si:row-major-aset (array ext:array-index t) t)
(proclamation si:svset (simple-vector ext:array-index t) t)