From befbdac85c917646d1b9aa411c5c69ac3134a94d Mon Sep 17 00:00:00 2001 From: Gabriel Dos Reis Date: Sun, 21 Aug 2022 17:20:41 -0700 Subject: 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. --- src/interp/vmlisp.lisp | 6 +++--- 1 file 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)))) -- cgit v1.2.3