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