/[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.199 by pfdietz, Fri Dec 31 01:28:55 2004 UTC revision 1.200 by pfdietz, Fri Jan 14 13:02:15 2005 UTC
# Line 9572  Broken at C::WT-MAKE-CLOSURE. Line 9572  Broken at C::WT-MAKE-CLOSURE.
9572                       (if (evenp (%f10 0 0)) 0 2140390)))))                       (if (evenp (%f10 0 0)) 0 2140390)))))
9573    2140390)    2140390)
9574    
9575    ;;; Error in APPLY [or a callee]: fixnum or bignum expected
9576    ;;; Broken at COMPILER::CMP-ANON.
9577    
9578    (deftest misc.519
9579      (funcall
9580       (compile
9581        nil
9582        '(lambda ()
9583           (declare (optimize (compilation-speed 0) (speed 1) (debug 1)
9584                              (space 1) (safety 3)))
9585           (let ((*s3*
9586                  (* (the integer
9587                       (expt (rationalize
9588                              (multiple-value-bind (*s3*)
9589                                  (make-array nil :initial-element 0)
9590                                (shiftf (aref *s3*) 0)))
9591                             2)))))
9592             1))))
9593      1)
9594    
9595    ;;; sbcl 0.8.18 (sparc solaris)
9596    ;;;  identity ASH not transformed away
9597    
9598    (deftest misc.520
9599      (funcall
9600       (compile
9601        nil
9602        '(lambda (a c e)
9603          (declare (type (integer -44330 64753) c))
9604          (declare (type (integer -301534047 4291509) e))
9605          (declare (optimize (safety 3) (debug 2) (speed 3)
9606                    (space 2) (compilation-speed 2)))
9607          (if (oddp
9608               (ash (logorc2 c e)
9609                    (min 2 (mask-field (byte 0 0) (mod 0 (max 69 0))))))
9610           a
9611           0)))
9612       1 -8156 -229264929)
9613      0)

Legend:
Removed from v.1.199  
changed lines
  Added in v.1.200

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