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 |
|
|