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