diff options
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 |