/[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.189 by pfdietz, Mon Dec 27 13:13:34 2004 UTC revision 1.190 by pfdietz, Mon Dec 27 16:51:26 2004 UTC
# Line 9319  Broken at C::WT-MAKE-CLOSURE. Line 9319  Broken at C::WT-MAKE-CLOSURE.
9319  (deftest misc.503  (deftest misc.503
9320    (funcall    (funcall
9321     (compile nil '(lambda (a)     (compile nil '(lambda (a)
                    ; (declare (type (integer -3392166213 2904445263) a))  
9322                     (declare (optimize (space 3) (debug 1) (speed 2) (safety 0)                     (declare (optimize (space 3) (debug 1) (speed 2) (safety 0)
9323                                        (compilation-speed 1)))                                        (compilation-speed 1)))
9324                     (catch 'ct1                     (catch 'ct1
# Line 9330  Broken at C::WT-MAKE-CLOSURE. Line 9329  Broken at C::WT-MAKE-CLOSURE.
9329                                        :end 8 :start 6 :from-end t))))))                                        :end 8 :start 6 :from-end t))))))
9330     17)     17)
9331    -6)    -6)
9332    
9333    ;;; Inconsistent stack height
9334    
9335    (deftest misc.504
9336      (let #+abcl ((jvm::*catch-errors* nil))
9337           nil
9338           (funcall
9339            (compile nil '(lambda (a)
9340                            (declare (type (integer 196060 241373941) a))
9341                            (declare (ignorable a))
9342                            (declare (optimize (speed 3) (debug 0) (safety 2)
9343                                               (compilation-speed 3) (space 2)))
9344                            (prog2 (if 0 (+ a a) 0) 0)))
9345            200000))
9346      0)

Legend:
Removed from v.1.189  
changed lines
  Added in v.1.190

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