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/lisp | |
| parent | 09de7e4ede72b8eaa1c42e8d08e338bfe9945f2c (diff) | |
| download | open-axiom-6c7342e9fe62ef8588307be33b2ad9543e4a071c.tar.gz | |
Bring closer to GCL-buildability.
Diffstat (limited to 'src/lisp')
| -rw-r--r-- | src/lisp/core.lisp.in | 8 |
1 files changed, 7 insertions, 1 deletions
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 |