-(defknown %raw-ref-single (raw-vector index) single-float
- (foldable flushable))
-(defknown %raw-ref-double (raw-vector index) double-float
- (foldable flushable))
-#!+long-float
-(defknown %raw-ref-long (raw-vector index) long-float
- (foldable flushable))
-(defknown %raw-set-single (raw-vector index single-float) single-float
- (unsafe))
-(defknown %raw-set-double (raw-vector index double-float) double-float
- (unsafe))
-#!+long-float
-(defknown %raw-set-long (raw-vector index long-float) long-float
- (unsafe))
-
-(defknown %raw-ref-complex-single (raw-vector index) (complex single-float)
- (foldable flushable))
-(defknown %raw-ref-complex-double (raw-vector index) (complex double-float)
- (foldable flushable))
-
-(defknown %raw-set-complex-single (raw-vector index (complex single-float))
- (complex single-float)
- (unsafe))
-(defknown %raw-set-complex-double (raw-vector index (complex double-float))
- (complex double-float)
- (unsafe))
-
-
-(defknown %raw-bits (t fixnum) sb!vm:word
- (foldable flushable))
-(defknown (%set-raw-bits) (t fixnum sb!vm:word) sb!vm:word
- (unsafe))
-;; These two are mostly used for bit-bashing operations.