From eadc9825a5d9a44f9ae3ddac9b3c27f8bdbebffa Mon Sep 17 00:00:00 2001
From: toy <toy>
Date: Thu, 3 Jul 2003 17:13:30 +0000
Subject: [PATCH] In the deftransform for %unary-ftruncate, the bounds could be
 lists which we weren't handling.  Use bound-value to get the value.

This probably still needs some work.
---
 compiler/float-tran.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/compiler/float-tran.lisp b/compiler/float-tran.lisp
index d63f30f2e..a45a75892 100644
--- a/compiler/float-tran.lisp
+++ b/compiler/float-tran.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/float-tran.lisp,v 1.89 2003/07/02 21:45:33 toy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/float-tran.lisp,v 1.90 2003/07/03 17:13:30 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -126,8 +126,8 @@
 (macrolet ((frob (ftype func)
 	     `(deftransform %unary-ftruncate ((x) (,ftype))
 		(let* ((x-type (continuation-type x))
-		       (lo (numeric-type-low x-type))
-		       (hi (numeric-type-high x-type))
+		       (lo (bound-value (numeric-type-low x-type)))
+		       (hi (bound-value (numeric-type-high x-type)))
 		       (limit-lo (- (ash 1 #-sparc-v9 31 #+sparc-v9 63)))
 		       (limit-hi (ash 1 #-sparc-v9 31 #+sparc-v9 63)))
 		  (if (and (numberp lo) (numberp hi)
-- 
GitLab