From 1b3396b1949f19e057c047fc602aa3b0b5f44d98 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 18 Sep 2008 15:39:03 +0000
Subject: Update algebra databases

---
 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 15cd2ab8..9bdd3e08 100644
--- a/src/boot/ast.boot
+++ b/src/boot/ast.boot
@@ -1227,7 +1227,7 @@ nativeType t ==
   null t => t
   -- for the time being, approximate `data buffer' by `pointer to data'
   t = "buffer" or t = "pointer" =>
-    %hasFeature KEYWORD::GCL => "fixnum"
+    %hasFeature KEYWORD::GCL => "FIXNUM"
     %hasFeature KEYWORD::ECL => KEYWORD::POINTER_-VOID
     %hasFeature KEYWORD::SBCL => ["*",true]
     %hasFeature KEYWORD::CLISP => bfColonColon("FFI","C-POINTER")
-- 
cgit v1.2.3