/[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.190 by pfdietz, Mon Dec 27 16:51:26 2004 UTC revision 1.191 by pfdietz, Mon Dec 27 17:34:13 2004 UTC
# Line 9344  Broken at C::WT-MAKE-CLOSURE. Line 9344  Broken at C::WT-MAKE-CLOSURE.
9344                          (prog2 (if 0 (+ a a) 0) 0)))                          (prog2 (if 0 (+ a a) 0) 0)))
9345          200000))          200000))
9346    0)    0)
9347    
9348    (deftest misc.505
9349      (let #+abcl ((jvm::*catch-errors* nil))
9350           nil
9351           (funcall
9352            (compile nil '(lambda (a)
9353                            (declare (type (integer -6 5) a))
9354                            (declare (optimize (speed 3) (space 0) (safety 2)
9355                                               (compilation-speed 2) (debug 3)))
9356                            (dotimes (iv1 0 0) (+ a a))))
9357            1))
9358      0)
9359    
9360    (deftest misc.506
9361      (let #+abcl ((jvm::*catch-errors* nil))
9362           nil
9363           (funcall
9364            (compile nil '(lambda (a)
9365                            (declare (type (integer -53 49) a))
9366                            (declare (optimize (debug 0) (compilation-speed 1) (space 2)
9367                                               (safety 0) (speed 0)))
9368                            (unwind-protect (+ a a) 0)))
9369            -38))
9370      -76)
9371    
9372    ;;; The value 15390 is not of type FUNCTION.
9373    (deftest misc.507
9374      (funcall
9375       (compile nil '(lambda (a)
9376                       (declare (type (integer 2697 13005) a))
9377                       (declare (optimize (debug 0) (space 2) (speed 2)
9378                                          (compilation-speed 3) (safety 3)))
9379                       (truncate (prog1 0 a (+ a a)))))
9380       7695)
9381      0 0)

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

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