X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fsparc%2Ffloat.lisp;h=5834443dc88a08046ccfd1c750b2850b7994f705;hb=11b8fcf55c80cb2686fb49663fa4d96f9b152ce4;hp=64b67e3d2a4cd4bb8800e694717aae9068a456b7;hpb=ea775867d48327bf1179eb570263427f28083880;p=sbcl.git

diff --git a/src/compiler/sparc/float.lisp b/src/compiler/sparc/float.lisp
index 64b67e3..5834443 100644
--- a/src/compiler/sparc/float.lisp
+++ b/src/compiler/sparc/float.lisp
@@ -2548,7 +2548,7 @@
 	   (make-canonical-union-type (list (continuation-type x)
 					    (continuation-type y)))))))
 
-(deftransform max ((x y) (number number) * :when :both)
+(deftransform max ((x y) (number number) *)
   (let ((x-type (continuation-type x))
 	(y-type (continuation-type y))
 	(signed (specifier-type '(signed-byte #.sb!vm:n-word-bits)))
@@ -2578,7 +2578,7 @@
 	       (if (> ,arg1 ,arg2)
 		   ,arg1 ,arg2)))))))
 
-(deftransform min ((x y) (real real) * :when :both)
+(deftransform min ((x y) (real real) *)
   (let ((x-type (continuation-type x))
 	(y-type (continuation-type y))
 	(signed (specifier-type '(signed-byte #.sb!vm:n-word-bits)))