/[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.191 by pfdietz, Mon Dec 27 17:34:13 2004 UTC revision 1.192 by pfdietz, Mon Dec 27 21:21:28 2004 UTC
# Line 9379  Broken at C::WT-MAKE-CLOSURE. Line 9379  Broken at C::WT-MAKE-CLOSURE.
9379                     (truncate (prog1 0 a (+ a a)))))                     (truncate (prog1 0 a (+ a a)))))
9380     7695)     7695)
9381    0 0)    0 0)
9382    
9383    ;;; COMPILE-FORM: unsupported special operator LET*
9384    ;;; Associated with 'THE' operator
9385    
9386    (deftest misc.508
9387      (let #+abcl ((jvm::*catch-errors* nil))
9388           nil
9389           (funcall
9390            (compile nil '(lambda (a)
9391                            (declare (type (integer -57853147 -2) a))
9392                            (declare (ignorable a))
9393                            (declare (optimize (debug 2) (space 1) (compilation-speed 3)
9394                                               (safety 1) (speed 2)))
9395                            (the integer
9396                              (mask-field (byte 2 29)
9397                                          (ash (multiple-value-setq (a) -51781613)
9398                                               (min 1 a))))))
9399            -29324754))
9400      1610612736)
9401    
9402    (deftest misc.509
9403      (let #+abcl ((jvm::*catch-errors* nil))
9404           nil
9405           (funcall
9406            (compile nil '(lambda (a)
9407                            (declare (type (integer -38984312 657) a))
9408                            (declare (ignorable a))
9409                            (declare (optimize (debug 1) (compilation-speed 1) (speed 1)
9410                                               (safety 2) (space 3)))
9411                            (the integer
9412                              (if (> a -27907941364)
9413                                  116871
9414                                (cl:handler-case
9415                                 (multiple-value-setq (a)
9416                                   -34832621))))))
9417            -26788929))
9418      116871)

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

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