Fixed the type for fxrshift.

original commit: 85b96a98b3f3ae2cb89f157bbf2ee3a83a5c365e
This commit is contained in:
Vincent St-Amour 2010-07-16 09:35:14 -04:00
parent 4d23f3416c
commit 7849444de2

View File

@ -484,8 +484,8 @@
[unsafe-fxior fx-op]
[unsafe-fxxor fx-op]
[unsafe-fxnot fx-unop]
[unsafe-fxlshift fx-intop]
[unsafe-fxrshift (cl->* (-> -NonnegativeFixnum -NonnegativeFixnum -NonnegativeFixnum) fx-intop)]
[unsafe-fxlshift fx-natop]
[unsafe-fxrshift fx-natop]
[unsafe-fx= fx=-type]
[unsafe-fx< fx<-type]
@ -509,8 +509,8 @@
[fxior fx-op]
[fxxor fx-op]
[fxnot fx-unop]
[fxlshift fx-intop]
[fxrshift (cl->* (-> -NonnegativeFixnum -NonnegativeFixnum -NonnegativeFixnum) fx-intop)]
[fxlshift fx-natop]
[fxrshift fx-natop]
[fx= fx=-type]
[fx< fx<-type]