fix bitwise ops
svn: r13850
This commit is contained in:
parent
9df218784a
commit
d10cdccca9
|
@ -395,10 +395,10 @@
|
||||||
[lcm (null -Integer . ->* . -Integer)]
|
[lcm (null -Integer . ->* . -Integer)]
|
||||||
|
|
||||||
[arithmetic-shift (-Integer -Integer . -> . -Integer)]
|
[arithmetic-shift (-Integer -Integer . -> . -Integer)]
|
||||||
[bitwise-and (null N . ->* . N)]
|
[bitwise-and (null -Integer . ->* . -Integer)]
|
||||||
[bitwise-ior (null N . ->* . N)]
|
[bitwise-ior (null -Integer . ->* . -Integer)]
|
||||||
[bitwise-not (null N . ->* . N)]
|
[bitwise-not (null -Integer . ->* . -Integer)]
|
||||||
[bitwise-xor (null N . ->* . N)]
|
[bitwise-xor (null -Integer . ->* . -Integer)]
|
||||||
|
|
||||||
[vector (-poly (a) (->* (list) a (-vec a)))]
|
[vector (-poly (a) (->* (list) a (-vec a)))]
|
||||||
[make-string (cl-> [(-Integer) -String] [(-Integer -Char) -String])]
|
[make-string (cl-> [(-Integer) -String] [(-Integer -Char) -String])]
|
||||||
|
|
Loading…
Reference in New Issue
Block a user