/[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.192 by pfdietz, Mon Dec 27 21:21:28 2004 UTC revision 1.193 by pfdietz, Mon Dec 27 21:36:40 2004 UTC
# Line 9416  Broken at C::WT-MAKE-CLOSURE. Line 9416  Broken at C::WT-MAKE-CLOSURE.
9416                                 -34832621))))))                                 -34832621))))))
9417          -26788929))          -26788929))
9418    116871)    116871)
9419    
9420    (deftest misc.510
9421      (let #+abcl ((jvm::*catch-errors* nil))
9422           nil
9423           (funcall
9424            (compile nil '(lambda (a)
9425                            (declare (type (integer -2827 3400) a))
9426                            (declare (optimize (compilation-speed 1) (space 3) (debug 1)
9427                                               (safety 0) (speed 1)))
9428                            (logand (the integer (dotimes (iv4 2 a) (progn iv4))))))
9429            155))
9430      155)
9431    
9432    (deftest misc.511
9433      (let #+abcl ((jvm::*catch-errors* nil))
9434           nil
9435           (funcall
9436            (compile nil '(lambda (a)
9437                            (declare (type (integer 18967 23584) a))
9438                            (declare (ignorable a))
9439                            (declare (optimize (space 1) (speed 1) (debug 1)
9440                                               (compilation-speed 3) (safety 1)))
9441                            (the integer
9442                              (values (loop for lv4 below 2 count (find a '(16389)))))))
9443            21352))
9444      0)
9445    
9446    ;;; Inconsistent stack height
9447    
9448    (deftest misc.512
9449      (let #+abcl ((jvm::*catch-errors* nil))
9450           nil
9451           (funcall
9452            (compile nil '(lambda (a)
9453                            (declare (type (integer 1 188902468) a))
9454                            (declare (ignorable a))
9455                            (declare (optimize (space 2) (speed 3) (safety 3)
9456                                               (compilation-speed 0) (debug 2)))
9457                            (catch 'ct6
9458                              (the integer
9459                                (let* ((v3 (signum (ignore-errors a))))
9460                                  (declare (dynamic-extent v3))
9461                                  (throw 'ct6
9462                                         (round (case (prog2
9463                                                          (lognor 290171664 v3)
9464                                                          -3512003993
9465                                                        -550842867)
9466                                                  ((4) (* 1 4092))
9467                                                  ((21 220 225)
9468                                                   (block b1
9469                                                     (setf v3
9470                                                           (let* ((v9 v3))
9471                                                             a))))
9472                                                  (t -639367819)))))))))
9473            49008586))
9474      -639367819
9475      0)
9476    
9477    ;;; COMPILE-FORM: unsupported special operator LET*
9478    ;;; Associated with 'THE' operator
9479    
9480    (deftest misc.513
9481      (let #+abcl ((jvm::*catch-errors* nil))
9482           nil
9483           (funcall
9484            (compile nil '(lambda (a)
9485                            (declare (type (integer -2 75025568) a))
9486                            (declare (ignorable a))
9487                            (declare (optimize (space 0) (compilation-speed 0) (safety 0)
9488                                               (speed 2) (debug 2)))
9489                            (let* ((v8
9490                                    (cons (the integer
9491                                            (prog2 a
9492                                                -1558460
9493                                              a
9494                                              (ignore-errors (progn (tagbody) -49510826))
9495                                              a))
9496                                          0)))
9497                              0)))
9498            68043554))
9499      0)
9500    
9501    (deftest misc.514
9502      (let #+abcl ((jvm::*catch-errors* nil))
9503           nil
9504           (funcall
9505            (compile nil '(lambda (a)
9506                            (declare (type (integer -6844832476 188341751) a))
9507                            (declare (optimize (speed 3) (debug 1) (safety 0) (space 3)
9508                                               (compilation-speed 1)))
9509                            (the integer (multiple-value-setq (a) -96073358))))
9510            -3792864899))
9511      -96073358)
9512    
9513    
9514    
9515    
9516    
9517    
9518    
9519            
9520                    

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

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