From f0dc480a4aa1532caef8f2793e94bf51154fddd1 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 26 Oct 2011 02:10:59 +0000
Subject: 	Restore Clozure CL-based build.  CCL's FFI interface 
 changed at some point in time. 	* lisp/core.lisp.in (AxiomCore) [CCL]:
 Import and export 	FFI-related symbols.

---
 src/boot/ast.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/boot')

diff --git a/src/boot/ast.boot b/src/boot/ast.boot
index aa1f06b9..327dfe30 100644
--- a/src/boot/ast.boot
+++ b/src/boot/ast.boot
@@ -1799,7 +1799,7 @@ genCLOZUREnativeTranslation(op,s,t,op') ==
   -- If the foreign call returns a C-string, turn it into a Lisp string.
   -- Note that if the C-string was malloc-ed, this will leak storage.
   if t is "string" then
-    call := [bfColonColon("CCL","GET-CSTRING"), call]
+    call := [bfColonColon("CCL","%GET-CSTRING"), call]
 
   -- If we have array arguments from Boot, bind pointers to initial data.
   for arg in aryPairs repeat
-- 
cgit v1.2.3