aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorGabriel Dos Reis <GabrielDosReis@users.noreply.github.com>2022-08-21 17:20:41 -0700
committerGitHub <noreply@github.com>2022-08-21 17:20:41 -0700
commitbefbdac85c917646d1b9aa411c5c69ac3134a94d (patch)
tree3590f2cce63f07bfc0378be2fdf70b8ea75abd6b /src
parent0f612f581a6d58a4d3ceed0ade26e04681b32e13 (diff)
downloadopen-axiom-befbdac85c917646d1b9aa411c5c69ac3134a94d.tar.gz
Fix build with SBCL-2.1.0 (#18)
SBCL-2.1.0 and up have more refined type inference from array operations. As a consequence, they caught a coding slopping in the function `SUFFIX` - even if "benign" with respect to effective inputs.
Diffstat (limited to 'src')
-rw-r--r--src/interp/vmlisp.lisp6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/vmlisp.lisp b/src/interp/vmlisp.lisp
index e909bfd4..6a087932 100644
--- a/src/interp/vmlisp.lisp
+++ b/src/interp/vmlisp.lisp
@@ -1,6 +1,6 @@
;; Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd.
;; All rights reserved.
-;; Copyright (C) 2007-2015, Gabriel Dos Reis.
+;; Copyright (C) 2007-2022, Gabriel Dos Reis.
;; All rights reserved.
;;
;; Redistribution and use in source and binary forms, with or without
@@ -526,8 +526,8 @@
(vector-push-extend id cvec)
cvec)
((adjustable-array-p cvec)
- (let ((l (length cvec)))
- (adjust-array cvec (1+ l))
+ (let ((l (array-dimension cvec 0)))
+ (setf cvec (adjust-array cvec (1+ l)))
(setf (elt cvec l) id)
cvec))
(t (concat cvec id))))