From 26cb75d3b57f9ef9c4943bcd436ee21998988e16 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sun, 24 Nov 1991 22:55:31 +0000 Subject: [PATCH] Added FOP's for single and double-float vectors. --- code/load.lisp | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) diff --git a/code/load.lisp b/code/load.lisp index 1707a640d..dfaa0d03a 100644 --- a/code/load.lisp +++ b/code/load.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/load.lisp,v 1.32 1991/11/18 10:32:25 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/load.lisp,v 1.33 1991/11/24 22:55:31 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -714,6 +714,18 @@ nil) res)) +(define-fop (fop-single-float-vector 84) + (let* ((length (read-arg 4)) + (result (make-array length :element-type 'single-float))) + (read-n-bytes *fasl-file* result 0 (* length vm:word-bytes)) + result)) + +(define-fop (fop-double-float-vector 85) + (let* ((length (read-arg 4)) + (result (make-array length :element-type 'double-float))) + (read-n-bytes *fasl-file* result 0 (* length vm:word-bytes 2)) + result)) + ;;; FOP-INT-VECTOR -- Internal ;;; -- GitLab