(defun bug239 (bit-array-2 &optional result-bit-array)
(declare (type (array bit) bit-array-2)
(type (or (array bit) (member t nil)) result-bit-array))
(defun bug239 (bit-array-2 &optional result-bit-array)
(declare (type (array bit) bit-array-2)
(type (or (array bit) (member t nil)) result-bit-array))