From ef69263d6f6c07e7e6a62a185d9c1346b3159b64 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 23 Nov 1990 08:40:12 +0000
Subject: [PATCH] Chagned bit-vector-copy to allocate the bit-vector itself
 instead of relying on bit-ior to do it.

---
 compiler/bit-util.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/bit-util.lisp b/compiler/bit-util.lisp
index 6aec56fd3..4fe910e31 100644
--- a/compiler/bit-util.lisp
+++ b/compiler/bit-util.lisp
@@ -47,4 +47,4 @@
 ;;;
 (defun bit-vector-copy (vec)
   (declare (type simple-bit-vector vec))
-  (bit-ior vec vec))
+  (bit-ior vec vec (make-array (length vec) :element-type 'bit)))
-- 
GitLab