From cb90da3427de1c9113fdf285ba6ba3a9d307fb6f Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Tue, 2 Jul 2013 01:25:39 +0000
Subject: Fix typo.

---
 src/lisp/core.lisp.in | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in
index 28bcb227..921fe077 100644
--- a/src/lisp/core.lisp.in
+++ b/src/lisp/core.lisp.in
@@ -1468,10 +1468,10 @@
 ;; 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))))
+  (1- (length x)))
 
 
 ;; Datatype for buffers mostly used for transmitting data between
-- 
cgit v1.2.3