10279 |
20851.398f0)) |
20851.398f0)) |
10280 |
1.0f0) |
1.0f0) |
10281 |
|
|
10282 |
|
;;; LOG |
10283 |
|
;;; The value #C(-215549 39/40) is not of type (COMPLEX RATIONAL). |
10284 |
|
|
10285 |
|
(deftest misc.562 |
10286 |
|
(let ((fn '(lambda (p1) |
10287 |
|
(declare (optimize (speed 0) (safety 0) (debug 0) (space 2)) |
10288 |
|
(type (complex rational) p1)) |
10289 |
|
(log p1)))) |
10290 |
|
(notnot (complexp (funcall (compile nil fn) #C(-215549 39/40))))) |
10291 |
|
t) |
10292 |
|
|
10293 |
|
;;; CONJUGATE |
10294 |
|
;;; Wrong result (#c(1 2)) |
10295 |
|
|
10296 |
|
(deftest misc.563 |
10297 |
|
(funcall (compile nil '(lambda (x) |
10298 |
|
(declare (optimize (speed 1) (safety 0) (debug 3) (space 1)) |
10299 |
|
(type (complex rational) x)) |
10300 |
|
(conjugate (the (eql #c(1 2)) x)))) |
10301 |
|
#c(1 2)) |
10302 |
|
#c(1 -2)) |
10303 |
|
|
10304 |
|
;;; PHASE |
10305 |
|
;;; The function SB-KERNEL:%ATAN2 is undefined. |
10306 |
|
|
10307 |
|
(deftest misc.564 |
10308 |
|
(notnot |
10309 |
|
(typep |
10310 |
|
(funcall |
10311 |
|
(compile |
10312 |
|
nil |
10313 |
|
'(lambda (p1) |
10314 |
|
(declare (optimize (speed 3) (safety 2) (debug 3) (space 0)) |
10315 |
|
(type complex p1)) |
10316 |
|
(phase (the (eql #c(1.0d0 2.0d0)) p1)))) |
10317 |
|
#c(1.0d0 2.0d0)) |
10318 |
|
'double-float)) |
10319 |
|
t) |