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.ac.pamphlet | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

(limited to 'configure.ac.pamphlet')

diff --git a/configure.ac.pamphlet b/configure.ac.pamphlet
index fd90e421..1192b7a2 100644
--- a/configure.ac.pamphlet
+++ b/configure.ac.pamphlet
@@ -948,6 +948,9 @@ case $axiom_include_gcl,$axiom_lisp in
 	   *"Armed Bear Common Lisp"*) 
 	       axiom_lisp_flavor=abcl 
 	       ;;
+           *"Clozure Common Lisp"*)
+               axiom_lisp_flavor=clozure
+               ;;
        esac
        AC_MSG_RESULT([$axiom_lisp_flavor])
 esac
@@ -1020,6 +1023,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'
+       ;;
     *) AC_MSG_ERROR([We do not know how to build OpenAxiom this $axiom_lisp]) ;;
 esac
 AC_SUBST(axiom_quiet_flags)
@@ -1098,6 +1105,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'
+      ;;
    *)
       AC_MSG_ERROR([We do not know how to translate native types for this Lisp])
       ;;
-- 
cgit v1.2.3