/[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.223 by pfdietz, Mon Mar 7 09:14:28 2005 UTC revision 1.224 by pfdietz, Tue Mar 8 13:40:35 2005 UTC
# Line 10346  Broken at C::WT-MAKE-CLOSURE. Line 10346  Broken at C::WT-MAKE-CLOSURE.
10346     477)     477)
10347    0)    0)
10348    
10349    ;;; sbcl
10350    ;;; The value -4 is not of type (INTEGER -26794287907 505600792).
10351    
10352    (deftest misc.567
10353      (eqlt
10354       (funcall
10355        (compile
10356         nil
10357         '(lambda (p2)
10358            (declare (optimize (speed 3) (safety 1) (debug 0) (space 1))
10359                     (type (integer -26794287907 505600792) p2))
10360            (scale-float -15193.341216130497d0 (the (integer * 25) p2))))
10361        -4)
10362       (scale-float -15193.341216130497d0 -4))
10363      t)

Legend:
Removed from v.1.223  
changed lines
  Added in v.1.224

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