diff options
author | dos-reis <gdr@axiomatics.org> | 2013-07-01 03:22:27 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2013-07-01 03:22:27 +0000 |
commit | 6c7342e9fe62ef8588307be33b2ad9543e4a071c (patch) | |
tree | 354764c046ab680ae0580fdb3baa967552fc1ad4 /src | |
parent | 09de7e4ede72b8eaa1c42e8d08e338bfe9945f2c (diff) | |
download | open-axiom-6c7342e9fe62ef8588307be33b2ad9543e4a071c.tar.gz |
Bring closer to GCL-buildability.
Diffstat (limited to 'src')
-rw-r--r-- | src/ChangeLog | 5 | ||||
-rw-r--r-- | src/Makefile.in | 1 | ||||
-rw-r--r-- | src/algebra/Makefile.in | 1 | ||||
-rw-r--r-- | src/io/Makefile.in | 1 | ||||
-rw-r--r-- | src/lisp/core.lisp.in | 8 | ||||
-rw-r--r-- | src/rt/Makefile.in | 1 | ||||
-rw-r--r-- | src/syntax/Makefile.in | 1 |
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@ |