Add support for CLozure CL.

	* lisp/core.lisp.in: Add support for Clozure CL.
	(main): Remove as unused.
	* driver/utils.h (openaxiom_runtime): Add openaxiom_clozure_runtime.
	* boot/translator.boot (loadNativeModule): Handle Clozure CL.
	* boot/ast.boot (nativeType): Handle Clozure's FFI types.
	(nativeReturnType): Likewise.
	(coerceToNativeType): Likewise.
	(genCLOZUREnativeTranslation): New.
	(genImportDeclaration): Use it.
	* interp/vmlisp.lisp (SINTP): Remove duplicate definition.
	(SMINTP): Likewise.
	(ZERO?): Likewise.
	(GCMSG): Reorganize definition.
	(BPINAME): Likewise.

1 files changed, 17 insertions, 0 deletions

diff --git a/configure b/configure
index af36569a..8198b37b 100755
--- a/configure
+++ b/configure
@@ -16078,6 +16078,9 @@ $as_echo "$as_me: error: $axiom_lisp does not support Foreign Function Interface
            *"Armed Bear Common Lisp"*)
                axiom_lisp_flavor=abcl
                ;;
+           *"Clozure Common Lisp"*)
+               axiom_lisp_flavor=clozure
+               ;;
        esac
        { $as_echo "$as_me:$LINENO: result: $axiom_lisp_flavor" >&5
 $as_echo "$axiom_lisp_flavor" >&6; }
@@ -16147,6 +16150,10 @@ case $axiom_lisp_flavor in
        axiom_quiet_flags='--quiet'
        axiom_eval_flags='-norc -x'
        ;;
+    clozure)
+       axiom_quiet_flags='--quiet --no-init'
+       axiom_eval_flags='--eval'
+       ;;
     *) { { $as_echo "$as_me:$LINENO: error: We do not know how to build OpenAxiom this $axiom_lisp" >&5
 $as_echo "$as_me: error: We do not know how to build OpenAxiom this $axiom_lisp" >&2;}
    { (exit 1); exit 1; }; } ;;
@@ -20678,6 +20685,16 @@ case $axiom_lisp_flavor in
       double_type=':double'
       string_type=':cstring'
       ;;
+   clozure)
+      void_type=':void'
+      # FIXME: this is not really what we want, but good enough for now.
+      char_type=':unsigned-byte'
+      int_type=':signed-fullword'
+      float_type=':single-float'
+      double_type=':double-float'
+      # Clozure CL wants you to deal with your own mess
+      string_type=':address'
+      ;;
    *)
       { { $as_echo "$as_me:$LINENO: error: We do not know how to translate native types for this Lisp" >&5
 $as_echo "$as_me: error: We do not know how to translate native types for this Lisp" >&2;}