diff --git a/code/load.lisp b/code/load.lisp
index 1707a640d192638776ed282705dc5c3010bc3fee..dfaa0d03a4e5562661fd930be4f904db677cdaf6 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
 ;;;