- (unsafe))
-)
-
-;;; %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)