-#!-hppa
-(progn
- (defun %raw-instance-ref/word (instance index)
- (declare (type index index))
- (%raw-instance-ref/word instance index))
- (defun %raw-instance-set/word (instance index new-value)
- (declare (type index index)
- (type sb!vm:word new-value))
- (%raw-instance-set/word instance index new-value))
-
- (defun %raw-instance-ref/single (instance index)
- (declare (type index index))
- (%raw-instance-ref/single instance index))
- (defun %raw-instance-set/single (instance index new-value)
- (declare (type index index)
- (type single-float new-value))
- (%raw-instance-set/single instance index new-value))
-
- (defun %raw-instance-ref/double (instance index)
- (declare (type index index))
- (%raw-instance-ref/double instance index))
- (defun %raw-instance-set/double (instance index new-value)
- (declare (type index index)
- (type double-float new-value))
- (%raw-instance-set/double instance index new-value))
-
- (defun %raw-instance-ref/complex-single (instance index)
- (declare (type index index))
- (%raw-instance-ref/complex-single instance index))
- (defun %raw-instance-set/complex-single (instance index new-value)
- (declare (type index index)
- (type (complex single-float) new-value))
- (%raw-instance-set/complex-single instance index new-value))
-
- (defun %raw-instance-ref/complex-double (instance index)
- (declare (type index index))
- (%raw-instance-ref/complex-double instance index))
- (defun %raw-instance-set/complex-double (instance index new-value)
- (declare (type index index)
- (type (complex double-float) new-value))
- (%raw-instance-set/complex-double instance index new-value))
-) ; #!-HPPA
-
-#!+hppa
-(progn
-(defun %raw-ref-single (vec index)