diff options
| author | Gabriel Dos Reis <GabrielDosReis@users.noreply.github.com> | 2022-08-21 17:20:41 -0700 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-08-21 17:20:41 -0700 |
| commit | befbdac85c917646d1b9aa411c5c69ac3134a94d (patch) | |
| tree | 3590f2cce63f07bfc0378be2fdf70b8ea75abd6b /src | |
| parent | 0f612f581a6d58a4d3ceed0ade26e04681b32e13 (diff) | |
| download | open-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.lisp | 6 |
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)))) |