aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2013-07-01 03:22:27 +0000
committerdos-reis <gdr@axiomatics.org>2013-07-01 03:22:27 +0000
commit6c7342e9fe62ef8588307be33b2ad9543e4a071c (patch)
tree354764c046ab680ae0580fdb3baa967552fc1ad4 /src
parent09de7e4ede72b8eaa1c42e8d08e338bfe9945f2c (diff)
downloadopen-axiom-6c7342e9fe62ef8588307be33b2ad9543e4a071c.tar.gz
Bring closer to GCL-buildability.
Diffstat (limited to 'src')
-rw-r--r--src/ChangeLog5
-rw-r--r--src/Makefile.in1
-rw-r--r--src/algebra/Makefile.in1
-rw-r--r--src/io/Makefile.in1
-rw-r--r--src/lisp/core.lisp.in8
-rw-r--r--src/rt/Makefile.in1
-rw-r--r--src/syntax/Makefile.in1
7 files changed, 17 insertions, 1 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index c37a272a..f1c3cafa 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2013-06-30 Gabriel Dos Reis <gdr@integrable-solutions.net>
+
+ * lisp/core.lisp.in (maxIndex): Provide function definition for
+ the benefit of rotted GCL systems.
+
2013-06-29 Gabriel Dos Reis <gdr@integrable-solutions.net>
* include/sockio.h (accept_connection): Take no argument.
diff --git a/src/Makefile.in b/src/Makefile.in
index c49c1872..05afdc17 100644
--- a/src/Makefile.in
+++ b/src/Makefile.in
@@ -360,6 +360,7 @@ oldincludedir = @oldincludedir@
open_axiom_installdir = @open_axiom_installdir@
openaxiom_host_has_regex = @openaxiom_host_has_regex@
pdfdir = @pdfdir@
+pointer_type = @pointer_type@
prefix = @prefix@
program_transform_name = @program_transform_name@
psdir = @psdir@
diff --git a/src/algebra/Makefile.in b/src/algebra/Makefile.in
index 2d76a83f..2f390536 100644
--- a/src/algebra/Makefile.in
+++ b/src/algebra/Makefile.in
@@ -545,6 +545,7 @@ oldincludedir = @oldincludedir@
open_axiom_installdir = @open_axiom_installdir@
openaxiom_host_has_regex = @openaxiom_host_has_regex@
pdfdir = @pdfdir@
+pointer_type = @pointer_type@
prefix = @prefix@
program_transform_name = @program_transform_name@
psdir = @psdir@
diff --git a/src/io/Makefile.in b/src/io/Makefile.in
index 2320b804..c031a793 100644
--- a/src/io/Makefile.in
+++ b/src/io/Makefile.in
@@ -357,6 +357,7 @@ oldincludedir = @oldincludedir@
open_axiom_installdir = @open_axiom_installdir@
openaxiom_host_has_regex = @openaxiom_host_has_regex@
pdfdir = @pdfdir@
+pointer_type = @pointer_type@
prefix = @prefix@
program_transform_name = @program_transform_name@
psdir = @psdir@
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
diff --git a/src/rt/Makefile.in b/src/rt/Makefile.in
index b72586a1..5b5e535f 100644
--- a/src/rt/Makefile.in
+++ b/src/rt/Makefile.in
@@ -357,6 +357,7 @@ oldincludedir = @oldincludedir@
open_axiom_installdir = @open_axiom_installdir@
openaxiom_host_has_regex = @openaxiom_host_has_regex@
pdfdir = @pdfdir@
+pointer_type = @pointer_type@
prefix = @prefix@
program_transform_name = @program_transform_name@
psdir = @psdir@
diff --git a/src/syntax/Makefile.in b/src/syntax/Makefile.in
index f492a7f7..98e45314 100644
--- a/src/syntax/Makefile.in
+++ b/src/syntax/Makefile.in
@@ -357,6 +357,7 @@ oldincludedir = @oldincludedir@
open_axiom_installdir = @open_axiom_installdir@
openaxiom_host_has_regex = @openaxiom_host_has_regex@
pdfdir = @pdfdir@
+pointer_type = @pointer_type@
prefix = @prefix@
program_transform_name = @program_transform_name@
psdir = @psdir@