Skip to content
Snippets Groups Projects
Commit 8ab3d9bf authored by wlott's avatar wlott
Browse files

Took the vm: off of make-single-float and make-double-float, 'cause they

are now in the kernel package.
parent 191b671d
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; 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. ;;; Loader for Spice Lisp.
;;; Written by Skef Wholey and Rob MacLachlan. ;;; Written by Skef Wholey and Rob MacLachlan.
...@@ -576,11 +576,11 @@ ...@@ -576,11 +576,11 @@
(%make-complex (pop-stack) im))) (%make-complex (pop-stack) im)))
(define-fop (fop-single-float 46) (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) (define-fop (fop-double-float 47)
(let ((lo (ldb (byte 32 0) (load-s-integer 4)))) (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: ;;;; Loading lists:
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment