Issue with bitops

[oubiwann]

The following commented-out unit test seems to reveal something broken in bitops:

; (deftest bitops
;   (is-equal (ledis:set 'd #b(#xff #xf0 #x00))
;             #(ok #"OK"))
;   (is-equal (ledis:bitops 'd 0)
;             #(ok #"12"))
;   (is-equal (ledis:set 'd #b(#x00 #xff #xf0))
;             #(ok #"OK"))
;   (is-equal (ledis:bitops 'd 1 '(#(start 1)))
;             #(ok #"8"))
;   (is-equal (ledis:bitops 'd 1 '(#(start 2)))
;             #(ok #"16"))
;   (is-equal (ledis:set 'd #b(#x00 #x00 #x00))
;             #(ok #"OK"))
;   (is-equal (ledis:bitpos 'd 1)
;             #(ok #"-1")))