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