From: William H. N. <wn...@us...> - 2002-04-17 02:19:41
|
Update of /cvsroot/sbcl/sbcl/src/compiler/sparc In directory usw-pr-cvs1:/tmp/cvs-serv4559/src/compiler/sparc Modified Files: float.lisp Log Message: 0.7.2.13: merged APD "obsolete byte-compiler support" patch (sbcl-devel 2002-04-13) merged CSR BUGS serialization patch Index: float.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/sparc/float.lisp,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** float.lisp 9 Apr 2002 09:29:04 -0000 1.2 --- float.lisp 17 Apr 2002 02:19:39 -0000 1.3 *************** *** 2549,2553 **** (continuation-type y))))))) ! (deftransform max ((x y) (number number) * :when :both) (let ((x-type (continuation-type x)) (y-type (continuation-type y)) --- 2549,2553 ---- (continuation-type y))))))) ! (deftransform max ((x y) (number number) *) (let ((x-type (continuation-type x)) (y-type (continuation-type y)) *************** *** 2579,2583 **** ,arg1 ,arg2))))))) ! (deftransform min ((x y) (real real) * :when :both) (let ((x-type (continuation-type x)) (y-type (continuation-type y)) --- 2579,2583 ---- ,arg1 ,arg2))))))) ! (deftransform min ((x y) (real real) *) (let ((x-type (continuation-type x)) (y-type (continuation-type y)) |