-(defun dump-single-float-vector (vec file)
- (let ((length (length vec)))
- (dump-fop 'sb!impl::fop-single-float-vector file)
- (dump-unsigned-32 length file)
- (dump-raw-bytes vec (* length sb!vm:word-bytes) file)))
-
-(defun dump-double-float-vector (vec file)
- (let ((length (length vec)))
- (dump-fop 'sb!impl::fop-double-float-vector file)
- (dump-unsigned-32 length file)
- (dump-raw-bytes vec (* length sb!vm:word-bytes 2) file)))
-
-#!+long-float
-(defun dump-long-float-vector (vec file)
- (let ((length (length vec)))
- (dump-fop 'sb!impl::fop-long-float-vector file)
- (dump-unsigned-32 length file)
- (dump-raw-bytes vec (* length sb!vm:word-bytes #!+x86 3 #!+sparc 4) file)))
-
-(defun dump-complex-single-float-vector (vec file)
- (let ((length (length vec)))
- (dump-fop 'sb!impl::fop-complex-single-float-vector file)
- (dump-unsigned-32 length file)
- (dump-raw-bytes vec (* length sb!vm:word-bytes 2) file)))
-
-(defun dump-complex-double-float-vector (vec file)
- (let ((length (length vec)))
- (dump-fop 'sb!impl::fop-complex-double-float-vector file)
- (dump-unsigned-32 length file)
- (dump-raw-bytes vec (* length sb!vm:word-bytes 2 2) file)))
-
-#!+long-float
-(defun dump-complex-long-float-vector (vec file)
- (let ((length (length vec)))
- (dump-fop 'sb!impl::fop-complex-long-float-vector file)
- (dump-unsigned-32 length file)
- (dump-raw-bytes vec (* length sb!vm:word-bytes #!+x86 3 #!+sparc 4 2) file)))
-