+#!-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))
+)
+
+;;; %RAW-{REF,SET}-FOO VOPs should be declared as taking a RAW-VECTOR
+;;; as their first argument (clarity and to match these DEFKNOWNs).
+;;; We declare RAW-VECTOR as a primitive type so the VOP machinery
+;;; will accept our VOPs as legitimate. --njf, 2004-08-10
+;;;
+;;; These are only used on HPPA, since on HPPA implements raw slots in
+;;; structures with an indirection vector; all other ports implement
+;;; raw slots directly in the structure. --njf, 2006-06-02
+#!+hppa
+(progn