Skip to content
Snippets Groups Projects
Commit d7c4035b authored by toy's avatar toy
Browse files

%UNARY-FTRUNCATE actually takes a REAL arg, not FLOAT, so correct the

DEFKNOWN for it.
parent 38c460a0
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/float-tran.lisp,v 1.86 2002/03/08 18:38:20 toy Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/float-tran.lisp,v 1.87 2002/03/14 21:30:51 toy Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -97,7 +97,7 @@ ...@@ -97,7 +97,7 @@
(defknown %unary-ftruncate/double-float (double-float) double-float (defknown %unary-ftruncate/double-float (double-float) double-float
(movable foldable flushable)) (movable foldable flushable))
(defknown %unary-ftruncate (float) float (defknown %unary-ftruncate (real) float
(movable foldable flushable)) (movable foldable flushable))
;; Convert (ftruncate x y) to the obvious implementation. We only ;; Convert (ftruncate x y) to the obvious implementation. We only
...@@ -106,7 +106,7 @@ ...@@ -106,7 +106,7 @@
;; should be removed by other deftransforms.) ;; should be removed by other deftransforms.)
(deftransform ftruncate ((x &optional (y 1)) (deftransform ftruncate ((x &optional (y 1))
(float &optional (or float integer))) (float &optional (or float integer)))
'(let ((res (%unary-ftruncate (/ x y)))) '(let ((res (%unary-ftruncate (/ x y))))
(values res (- x (* y res))))) (values res (- x (* y res)))))
......
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