#;1> (use generalized-arrays storage-classes)
#;2> (define vv (make-array f64vector-storage-class #(3 3)))
#;3> vv
#a2f64((6.92344724511615e-310 2.75164205365948e-135 6.92344724516783e-310) (6.9234451258684e-310 6.95329674947669e-310 6.92344515884076e-310) (6.92344506971408e-310 4.94065645841247e-324 6.95329674648463e-310))
#;4> (array-tabulate! (compose add1 (cute array-index->storage-index vv <>)) vv)
#a2f64((1.0 2.0 3.0) (4.0 5.0 6.0) (7.0 8.0 9.0))
#;5> vv
#a2f64((1.0 2.0 3.0) (4.0 5.0 6.0) (7.0 8.0 9.0))
#;6>