Skip to content
Snippets Groups Projects
Commit 92f1fe7d authored by wlott's avatar wlott
Browse files

Took the vm: off of single-float-bits and double-float-mumble-bits, 'cause

they are now in the kernel package.
parent 0fda20b2
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/compiler/dump.lisp,v 1.26 1990/11/20 15:51:27 chiles Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dump.lisp,v 1.27 1990/12/02 11:49:16 wlott Exp $
;;; ;;;
;;; This file contains stuff that knows about dumping FASL files. ;;; This file contains stuff that knows about dumping FASL files.
;;; ;;;
...@@ -773,13 +773,13 @@ ...@@ -773,13 +773,13 @@
(etypecase x (etypecase x
(single-float (single-float
(dump-fop 'lisp::fop-single-float file) (dump-fop 'lisp::fop-single-float file)
(quick-dump-number (vm:single-float-bits x) 4 file)) (quick-dump-number (single-float-bits x) 4 file))
(double-float (double-float
(dump-fop 'lisp::fop-double-float file) (dump-fop 'lisp::fop-double-float file)
(let ((x x)) (let ((x x))
(declare (double-float x)) (declare (double-float x))
(quick-dump-number (vm:double-float-low-bits x) 4 file) (quick-dump-number (double-float-low-bits x) 4 file)
(quick-dump-number (vm:double-float-high-bits x) 4 file))))) (quick-dump-number (double-float-high-bits x) 4 file)))))
;;;; Symbol Dumping: ;;;; Symbol Dumping:
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment