-)
-
-;;; %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
-(sb!xc:deftype raw-vector () '(simple-array sb!vm:word (*)))
-
-(sb!vm::!def-primitive-type-alias raw-vector
- #!+#.(cl:if (cl:= 32 sb!vm:n-word-bits) '(and) '(or))
- sb!vm::simple-array-unsigned-byte-32
- #!+#.(cl:if (cl:= 64 sb!vm:n-word-bits) '(and) '(or))
- sb!vm::simple-array-unsigned-byte-64)
-
-(defknown %raw-ref-single (raw-vector index) single-float
- (foldable flushable always-translatable))
-(defknown %raw-ref-double (raw-vector index) double-float
- (foldable flushable always-translatable))
-#!+long-float
-(defknown %raw-ref-long (raw-vector index) long-float
- (foldable flushable always-translatable))
-(defknown %raw-set-single (raw-vector index single-float) single-float
- (unsafe always-translatable))
-(defknown %raw-set-double (raw-vector index double-float) double-float
- (unsafe always-translatable))
-#!+long-float
-(defknown %raw-set-long (raw-vector index long-float) long-float
- (unsafe always-translatable))