diff options
| author | dos-reis <gdr@axiomatics.org> | 2012-01-14 11:56:20 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2012-01-14 11:56:20 +0000 |
| commit | 9906d4079093b27d185f4116485fffe80ff19380 (patch) | |
| tree | da1b4e4f7d0ffc3e05ee63f04826274c62832708 /src/lisp | |
| parent | 7d98b7fa7d816f132fb09bf439333f4145c603f8 (diff) | |
| download | open-axiom-9906d4079093b27d185f4116485fffe80ff19380.tar.gz | |
* lisp/core.lisp.in (mkIntArray): New. Export.
* interp/patches.lisp (/RF): Move to cparse.boot.
(/RQ): Likewise.
(/RQ,LIB): Likewise.
(/RF-1): Likewise.
(/EF): Move to spad.lisp.
(construct): Remove.
(READSPADEXPR): Likewise.
(SHAREDITEMS): Likewise.
(installStandardTestPackages): Likewise.
(spadtestValueHook): Likewise.
(testError): Likewise.
($TestOptions): Likewise.
(rebuild): Likewise.
($ViewportProcessToWatch): Likewise.
(setViewportProcess): Likewise.
(waitForViewport): Likewise.
* interp/i-analy.boot (pushDownOp?): Use mkIntArray in place of
GETZEROVEC.
* interp/i-funsel.boot (argCouldBelongToSubdomain): Likewise.
* interp/i-intern.boot (flagArguments): Likewise.
Diffstat (limited to 'src/lisp')
| -rw-r--r-- | src/lisp/core.lisp.in | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in index 7535ba70..5fc563c9 100644 --- a/src/lisp/core.lisp.in +++ b/src/lisp/core.lisp.in @@ -150,6 +150,7 @@ "makeBitVector" "makeString" "mkVector" + "mkIntArray" "listToString" "%hasFeature" @@ -1419,6 +1420,9 @@ (defmacro |mkVector| (n) `(make-array ,n :initial-element nil)) +(defmacro |mkIntArray| (n) + `(make-array ,n :initial-element 0)) + ;; native data type translation table (defconstant |$NativeTypeTable| '((|void| . @void_type@) |