diff options
| author | dos-reis <gdr@axiomatics.org> | 2009-03-08 17:50:45 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2009-03-08 17:50:45 +0000 |
| commit | 2da25f5f77b5e1b500ced33c51166dff7a43338d (patch) | |
| tree | f9c1dcd49c3edead9ea03c7cc2c0b332d35738c6 /src/lisp | |
| parent | 4eff9ac27bbd21e51053b5366558c18e561ae0fd (diff) | |
| download | open-axiom-2da25f5f77b5e1b500ced33c51166dff7a43338d.tar.gz | |
* interp/fnewmeta.lisp (PARSE-Import): Parse extern entity
signature import.
* interp/functor.boot (encodeLocalFunctionName): New.
* interp/define.boot (compDefine1): Avoid getAbbreviation.
(doIt): Handle %SignatureImport nodes.
* interp/compiler.boot (emitLocalCallInsn): New.
(applyMapping): Use it.
(compApplication): Likewise.
(bootDenotation): New.
(getBasicFFIType): Likewise.
(getFFIDatatype): Likewise.
(getBootType): Likewise.
(checkExternalEntityType): Likewise.
(checkExternalEntity): Likewise.
(removeModifiers): Likewise.
(compSignatureImport): Likewise.
* interp/vmlisp.lisp (|compileLispDefinition|): New.
* interp/boot-pkg.lisp: Import genImportDeclaration.
* boot/initial-env.lisp: Export genImportDeclaration.
* boot/ast.boot: Tidy. Accept `readwrite' modifier.
Diffstat (limited to 'src/lisp')
| -rw-r--r-- | src/lisp/core.lisp.in | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in index f4f9fa15..de5eea6d 100644 --- a/src/lisp/core.lisp.in +++ b/src/lisp/core.lisp.in @@ -540,7 +540,8 @@ (reduce #'(lambda (x y) (concatenate 'string x y)) msg :initial-value "")) - (t msg)))) + (t msg))) + nil) (defun |warn| (msg) (|diagnosticMessage| "warning" |