From 2da25f5f77b5e1b500ced33c51166dff7a43338d Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sun, 8 Mar 2009 17:50:45 +0000 Subject: * 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. --- src/lisp/core.lisp.in | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/lisp') 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" -- cgit v1.2.3