diff options
Diffstat (limited to 'src/interp/sys-macros.lisp')
| -rw-r--r-- | src/interp/sys-macros.lisp | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/interp/sys-macros.lisp b/src/interp/sys-macros.lisp index 1564206b..db4b08ec 100644 --- a/src/interp/sys-macros.lisp +++ b/src/interp/sys-macros.lisp @@ -334,6 +334,9 @@ (defmacro |makeFilledSimpleArray| (|t| |n| |v|) `(make-array ,|n| :element-type ,|t| :initial-element ,|v|)) +(defmacro |makeSimpleArrayFromList| (|t| |l|) + `(make-array (list-length ,|l|) :element-type ,|t| :initial-contents ,|l|)) + (defmacro |getSimpleArrayEntry| (|a| |i|) `(aref (the simple-array ,|a|) (the fixnum ,|i|))) |