+#!-hppa
+(progn
+(defknown %raw-instance-ref/word (instance index) sb!vm:word
+ (flushable always-translatable))
+(defknown %raw-instance-set/word (instance index sb!vm:word) sb!vm:word
+ (unsafe always-translatable))
+(defknown %raw-instance-ref/single (instance index) single-float
+ (flushable always-translatable))
+(defknown %raw-instance-set/single (instance index single-float) single-float
+ (unsafe always-translatable))
+(defknown %raw-instance-ref/double (instance index) double-float
+ (flushable always-translatable))
+(defknown %raw-instance-set/double (instance index double-float) double-float
+ (unsafe always-translatable))
+(defknown %raw-instance-ref/complex-single (instance index)
+ (complex single-float)
+ (flushable always-translatable))
+(defknown %raw-instance-set/complex-single
+ (instance index (complex single-float))
+ (complex single-float)
+ (unsafe always-translatable))
+(defknown %raw-instance-ref/complex-double (instance index)
+ (complex double-float)
+ (flushable always-translatable))
+(defknown %raw-instance-set/complex-double
+ (instance index (complex double-float))
+ (complex double-float)
+ (unsafe always-translatable))
+)