Commit 7bb20e4c authored by Raymond Toy's avatar Raymond Toy
Browse files

Fix typo in cis deftransform for double-doubles.

parent 00011211

src/compiler/float-tran.lisp

+1 −1
Original line number Diff line number Diff line
@@ -747,7 +747,7 @@ 
     (complex c s)))



#+double-double

(deftransform cis ((z) (double-double-float) *)

(deftransform cis ((x) (double-double-float) *)

  `(multiple-value-bind (s c)

       (kernel::dd-%sincos x)

     (complex c s)))