Skip to content
Snippets Groups Projects
Commit ef69263d authored by wlott's avatar wlott
Browse files

Chagned bit-vector-copy to allocate the bit-vector itself instead of

relying on bit-ior to do it.
parent 155954b8
No related branches found
No related tags found
No related merge requests found
...@@ -47,4 +47,4 @@ ...@@ -47,4 +47,4 @@
;;; ;;;
(defun bit-vector-copy (vec) (defun bit-vector-copy (vec)
(declare (type simple-bit-vector vec)) (declare (type simple-bit-vector vec))
(bit-ior vec vec)) (bit-ior vec vec (make-array (length vec) :element-type 'bit)))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment