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