From 6c7342e9fe62ef8588307be33b2ad9543e4a071c Mon Sep 17 00:00:00 2001 From: dos-reis Date: Mon, 1 Jul 2013 03:22:27 +0000 Subject: Bring closer to GCL-buildability. --- src/ChangeLog | 5 +++++ src/Makefile.in | 1 + src/algebra/Makefile.in | 1 + src/io/Makefile.in | 1 + src/lisp/core.lisp.in | 8 +++++++- src/rt/Makefile.in | 1 + src/syntax/Makefile.in | 1 + 7 files changed, 17 insertions(+), 1 deletion(-) (limited to 'src') 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 + + * lisp/core.lisp.in (maxIndex): Provide function definition for + the benefit of rotted GCL systems. + 2013-06-29 Gabriel Dos Reis * 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@ -- cgit v1.2.3