0.7.13.pcl-class.1

[sbcl.git] / src / compiler / sparc / float.lisp

diff --git a/src/compiler/sparc/float.lisp b/src/compiler/sparc/float.lisp
index 64b67e3..329d8be 100644 (file)
--- a/src/compiler/sparc/float.lisp
+++ b/src/compiler/sparc/float.lisp
@@ -1273,7 +1273,7 @@
       ;; The desired FP mode data is in the least significant 32
       ;; bits, which is stored at the next higher word in memory.
       (loadw res nfp (+ offset 4))
-      ;; Is this nop needed? (toy@rtp.ericsson.se)
+      ;; Is this nop needed? -- rtoy
       (inst nop))))
 
 (define-vop (set-floating-point-modes)
@@ -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)))