aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
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))))