diff --git a/compiler/float-tran.lisp b/compiler/float-tran.lisp index 032720491a3d6b7f408c5899af7eebd3fc64fff6..ce5546482a6477a304f32be972abdede05aa2f9d 100644 --- a/compiler/float-tran.lisp +++ b/compiler/float-tran.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/float-tran.lisp,v 1.7 1990/12/01 16:32:28 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/float-tran.lisp,v 1.8 1990/12/02 15:59:07 wlott Exp $ ;;; ;;; This file contains floating-point specific transforms, and may be somewhat ;;; implementation dependent in its assumptions of what the formats are. @@ -103,14 +103,6 @@ ;;; known. ;;; -(defconstant single-float-digits - (1+ (byte-size vm:single-float-significand-byte))) - -(defconstant double-float-digits - (+ (byte-size vm:double-float-significand-byte) - vm:word-bits - 1)) - (deftype single-float-exponent () `(integer ,(- vm:single-float-normal-exponent-min vm:single-float-bias vm:single-float-digits)