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