/[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.145 by pfdietz, Tue Sep 14 13:16:50 2004 UTC revision 1.146 by pfdietz, Wed Sep 15 10:39:56 2004 UTC
# Line 7759  Broken at C::WT-C-INLINE-LOC. Line 7759  Broken at C::WT-C-INLINE-LOC.
7759     -1648)     -1648)
7760    -1648)    -1648)
7761    
7762    ;;; From abcl (cvs, 15 Sept 2004)
7763    ;;; Inconsistent stack height
7764    
7765    (deftest misc.404
7766      (let #+armedbear ((jvm::*catch-errors* nil))
7767             nil
7768           (funcall
7769            (compile
7770             nil
7771             '(lambda (a b)
7772                (declare (type (integer -77007578505 7500480849) a))
7773                (declare (type (integer 211464 53140083) b))
7774                (declare (ignorable a b))
7775                (declare (optimize (compilation-speed 0) (speed 2) (debug 3)
7776                                   (safety 1) (space 3)))
7777                (progn (tagbody (let ((v3
7778                                       (cons (case a
7779                                               ((13 5 -9 2 -13) (go tag8))
7780                                               (t 0))
7781                                             0)))
7782                                  0)
7783                                tag8)
7784                       a)))
7785            -1068524571 20786758))
7786      -1068524571)
7787    
7788    (deftest misc.405
7789      (let #+armedbear ((jvm::*catch-errors* nil))
7790           nil
7791           (funcall
7792            (compile
7793             nil
7794             '(lambda (a b)
7795                (declare (type (integer -82196 13938) a))
7796                (declare (type (integer -44152792 -15846835) b))
7797                (declare (ignorable a b))
7798                (declare (optimize (compilation-speed 3) (safety 2) (speed 3)
7799                                   (space 0) (debug 0)))
7800                (block b5
7801                  (let ((*s7*
7802                         (cons (if (position (if (eql 0 0)
7803                                                 (return-from b5
7804                                                   (return-from b5
7805                                                     (let ((*s6* (cons b a))) 0)))
7806                                               b)
7807                                             #(23)
7808                                             :test-not
7809                                             'eql)
7810                                   0
7811                                 0)
7812                               b)))
7813                    0))))
7814            -10305 -26691848))
7815      0)
7816    
7817    (deftest misc.406
7818      (let #+armedbear ((jvm::*catch-errors* nil))
7819           nil
7820           (funcall
7821            (compile
7822             nil
7823             '(lambda (a)
7824                (declare (type (integer -1 1412366903315) a))
7825                (declare (ignorable a))
7826                (declare (optimize (debug 3) (safety 3) (space 3)
7827                                   (compilation-speed 1) (speed 2)))
7828                (progn (tagbody (case 0 ((1 0 4) (values (go 1) 0)) (t 0))
7829                                1)
7830                       0)))
7831            251841706892))
7832      0)
7833    
7834    ;;; Incorrect binding
7835    (deftest misc.407
7836      (funcall
7837       (compile
7838        nil
7839        '(lambda (a)
7840           (declare (type (integer -324 175) a))
7841           (declare (ignorable a))
7842           (declare (optimize (safety 0) (space 0) (speed 2) (debug 0)
7843                              (compilation-speed 0)))
7844           (multiple-value-bind (v5) (cons (truncate 0) a) (cdr v5))))
7845       -279)
7846      -279)
7847    

Legend:
Removed from v.1.145  
changed lines
  Added in v.1.146

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