From 8ab3d9bf713ff1278a17b62c3ea275f9be968995 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sat, 24 Nov 1990 08:41:46 +0000
Subject: [PATCH] Took the vm: off of make-single-float and make-double-float,
 'cause they are now in the kernel package.

---
 code/load.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/code/load.lisp b/code/load.lisp
index 6d7d825a7..231276fb4 100644
--- a/code/load.lisp
+++ b/code/load.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/load.lisp,v 1.18 1990/11/21 10:08:09 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/load.lisp,v 1.19 1990/11/24 08:41:46 wlott Exp $
 ;;;
 ;;; Loader for Spice Lisp.
 ;;; Written by Skef Wholey and Rob MacLachlan.
@@ -576,11 +576,11 @@
     (%make-complex (pop-stack) im)))
 
 (define-fop (fop-single-float 46)
-  (vm:make-single-float (load-s-integer 4)))
+  (make-single-float (load-s-integer 4)))
 
 (define-fop (fop-double-float 47)
   (let ((lo (ldb (byte 32 0) (load-s-integer 4))))
-    (vm:make-double-float (load-s-integer 4) lo)))
+    (make-double-float (load-s-integer 4) lo)))
 
 
 ;;;; Loading lists:
-- 
GitLab