From 39cb15e8362b1addb5e3f1d45ac913344f2d7c9e Mon Sep 17 00:00:00 2001
From: hallgren <hallgren>
Date: Wed, 6 Apr 1994 17:10:33 +0000
Subject: [PATCH] Updated for the Alpha (took out denormals).

---
 code/float.lisp | 20 +++++++++++---------
 1 file changed, 11 insertions(+), 9 deletions(-)

diff --git a/code/float.lisp b/code/float.lisp
index 4b53e2e2a..b3c45164f 100644
--- a/code/float.lisp
+++ b/code/float.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/float.lisp,v 1.11 1993/05/07 12:10:52 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/float.lisp,v 1.12 1994/04/06 17:10:33 hallgren Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -84,14 +84,16 @@
 
 ;;;; Float parameters:
 
-(defconstant least-positive-single-float (single-from-bits 0 0 1))
-(defconstant least-positive-short-float least-positive-single-float)
-(defconstant least-negative-single-float (single-from-bits 1 0 1))
-(defconstant least-negative-short-float least-negative-single-float)
-(defconstant least-positive-double-float (double-from-bits 0 0 1))
-(defconstant least-positive-long-float least-positive-double-float)
-(defconstant least-negative-double-float (double-from-bits 1 0 1))
-(defconstant least-negative-long-float least-negative-double-float)
+#-alpha
+(progn
+  (defconstant least-positive-single-float (single-from-bits 0 0 1))
+  (defconstant least-positive-short-float least-positive-single-float)
+  (defconstant least-negative-single-float (single-from-bits 1 0 1))
+  (defconstant least-negative-short-float least-negative-single-float)
+  (defconstant least-positive-double-float (double-from-bits 0 0 1))
+  (defconstant least-positive-long-float least-positive-double-float)
+  (defconstant least-negative-double-float (double-from-bits 1 0 1))
+  (defconstant least-negative-long-float least-negative-double-float))
 
 (defconstant least-positive-normalized-single-float
   (single-from-bits 0 vm:single-float-normal-exponent-min 0))
-- 
GitLab