Raymond Toy pushed to branch issue-459-more-accurate-dd-complex-div at cmucl / cmucl

Commits:

1 changed file:

Changes:

  • src/compiler/float-tran-dd.lisp
    ... ... @@ -578,7 +578,7 @@
    578 578
     
    
    579 579
     (deftransform / ((a b) ((complex vm::double-double-float) (complex vm::double-double-float))
    
    580 580
     		 *)
    
    581
    -  `(kernel::cdiv-double-double-float a b))	      
    
    581
    +  `(kernel::cdiv-double-double-float a b))
    
    582 582
       	      
    
    583 583
     (declaim (inline sqr-d))
    
    584 584
     (defun sqr-d (a)
    
    ... ... @@ -691,8 +691,4 @@
    691 691
     	(kernel:double-double-lo a)
    
    692 692
     	(kernel:double-double-hi b)
    
    693 693
     	(kernel:double-double-lo b)))
    
    694
    -
    
    695
    -(deftransform / ((x y) ((complex double-double-float) (complex double-double-float))
    
    696
    -		 *)
    
    697
    -  `(kernel::cdiv-double-double-float x y))
    
    698 694
     ) ; end progn