From 67750b4d16dc35bbf84d1904de96a47b6db107e9 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Mon, 19 Mar 1990 12:12:07 +0000 Subject: [PATCH] Fixed computation of i-vector access code in fop-int-vector. --- compiler/old-rt/genesis.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/old-rt/genesis.lisp b/compiler/old-rt/genesis.lisp index d755cfd3c..cff8a12d8 100644 --- a/compiler/old-rt/genesis.lisp +++ b/compiler/old-rt/genesis.lisp @@ -996,7 +996,7 @@ (prepare-for-fast-read-byte *fasl-file* (let* ((len (fast-read-u-integer 4)) (size (fast-read-byte)) - (ac (integer-length size)) + (ac (1- (integer-length size))) (res (%primitive alloc-i-vector len ac))) (done-with-fast-read-byte) (unless (and (<= ac 5) (= size (ash 1 ac))) -- GitLab