(defun %raw-instance-set/complex-double (instance index new-value)
(declare (type index index)
(type (complex double-float) new-value))
(defun %raw-instance-set/complex-double (instance index new-value)
(declare (type index index)
(type (complex double-float) new-value))