bitwise functions
svn: r12012
This commit is contained in:
parent
757c51957e
commit
dbadf365a3
|
@ -314,6 +314,10 @@
|
||||||
[exp (N . -> . N)]
|
[exp (N . -> . N)]
|
||||||
|
|
||||||
[arithmetic-shift (-Integer -Integer . -> . -Integer)]
|
[arithmetic-shift (-Integer -Integer . -> . -Integer)]
|
||||||
|
[bitwise-and (null N . ->* . N)]
|
||||||
|
[bitwise-ior (null N . ->* . N)]
|
||||||
|
[bitwise-not (null N . ->* . N)]
|
||||||
|
[bitwise-xor (null N . ->* . N)]
|
||||||
|
|
||||||
[vector (-poly (a) (->* (list) a (-vec a)))]
|
[vector (-poly (a) (->* (list) a (-vec a)))]
|
||||||
[make-string (cl-> [(N) -String] [(N -Char) -String])]
|
[make-string (cl-> [(N) -String] [(N -Char) -String])]
|
||||||
|
|
Loading…
Reference in New Issue
Block a user