From 3f8f61e055c818711c6a6136b89b6e9fedda8c3c Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 8 Feb 2010 01:08:42 +0000
Subject: 	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.

---
 configure | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

(limited to 'configure')

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;}
-- 
cgit v1.2.3