/[gcl]/gcl/ansi-tests/misc.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/misc.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.221 by pfdietz, Sun Mar 6 15:08:08 2005 UTC revision 1.222 by pfdietz, Sun Mar 6 20:33:12 2005 UTC
# Line 10279  Broken at C::WT-MAKE-CLOSURE. Line 10279  Broken at C::WT-MAKE-CLOSURE.
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)

Legend:
Removed from v.1.221  
changed lines
  Added in v.1.222

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26