/[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.187 by pfdietz, Sun Dec 26 21:16:50 2004 UTC revision 1.188 by pfdietz, Sun Dec 26 21:49:28 2004 UTC
# Line 9285  Broken at C::WT-MAKE-CLOSURE. Line 9285  Broken at C::WT-MAKE-CLOSURE.
9285                                        (speed 1) (safety 3)))                                        (speed 1) (safety 3)))
9286                     (the integer (integer-length (dotimes (iv4 2 15790955)))))))                     (the integer (integer-length (dotimes (iv4 2 15790955)))))))
9287    24)    24)
9288    
9289    ;;; Inconsistent stack height 1 != 0
9290    
9291    (deftest misc.501
9292      (let #+abcl ((jvm::*catch-errors* nil))
9293           nil
9294           (funcall
9295            (compile nil '(lambda (a)
9296                            (declare (type (integer -437165353 179983908) a))
9297                            (declare (optimize (compilation-speed 0) (debug 1) (space 1)
9298                                               (safety 2) (speed 1)))
9299                            (dotimes (iv1 0 0) (1+ a))))
9300            1))
9301      0)
9302    
9303    ;;; Ordering problems
9304    
9305    (deftest misc.502
9306      (funcall
9307       (compile nil '(lambda (a)
9308                       (declare (type (integer -7 84717795) a))
9309                       (declare (ignorable a))
9310                       (declare (optimize (speed 1) (space 1) (debug 1) (safety 2)
9311                                          (compilation-speed 0)))
9312                       (+ a (setq a 35035201))))
9313       29207264)
9314      64242465)

Legend:
Removed from v.1.187  
changed lines
  Added in v.1.188

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