From 6c7342e9fe62ef8588307be33b2ad9543e4a071c Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 1 Jul 2013 03:22:27 +0000
Subject: Bring closer to GCL-buildability.

---
 src/lisp/core.lisp.in | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'src/lisp')

diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in
index 8468c558..28bcb227 100644
--- a/src/lisp/core.lisp.in
+++ b/src/lisp/core.lisp.in
@@ -1464,8 +1464,14 @@
 ;; -*- Native Datatype correspondance -*-
 ;; 
 
+;; This should be an implementation-independent macro definition,
+;; but GCL has problems with it, for some obscure reasons.
+#-:gcl
 (defmacro |maxIndex| (x)
-  `(1- (length ,x)))
+  `(1- (length ,x))))
+#+:gcl
+(defun |maxIndex| (x)
+  (1- (length x))))
 
 
 ;; Datatype for buffers mostly used for transmitting data between
-- 
cgit v1.2.3