From 6ff031b6a0e2322979a4a4b5fcfd82c5c0347768 Mon Sep 17 00:00:00 2001
From: toy <toy>
Date: Thu, 3 Jul 2003 17:11:21 +0000
Subject: [PATCH] Fix bug in ftruncate derive-type optimizer triggered by

(defun bar ()
  (ftruncate (random 4294967087d0)))

Was not correctly handling the derivation of the second result.
---
 compiler/srctran.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/compiler/srctran.lisp b/compiler/srctran.lisp
index e115ef395..f2cbde4b7 100644
--- a/compiler/srctran.lisp
+++ b/compiler/srctran.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/srctran.lisp,v 1.122 2003/07/01 18:44:18 toy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/srctran.lisp,v 1.123 2003/07/03 17:11:21 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1648,7 +1648,8 @@
 	     (rem (one-arg-derive-type number
 				       #'(lambda (n)
 					   (truncate-derive-type-rem-aux n div nil))
-				       #'rem)))
+				       #'(lambda (x)
+					   (rem x 1)))))
 	(when (and quot rem)
 	  (make-values-type :required (list quot rem))))))
 
-- 
GitLab