2098 |
0) |
0) |
2099 |
-14) |
-14) |
2100 |
|
|
2101 |
|
;;; cmucl (9 Nov 2003) |
2102 |
|
;;; The assertion (NOT (MEMBER C::KIND '(:DELETED :OPTIONAL :TOP-LEVEL))) failed. |
2103 |
|
|
2104 |
|
(deftest misc.161 |
2105 |
|
(funcall |
2106 |
|
(compile nil |
2107 |
|
'(lambda (a b c) |
2108 |
|
(flet ((%f17 (f17-1 f17-2 f17-3) |
2109 |
|
(flet ((%f2 |
2110 |
|
(f2-1 f2-2 |
2111 |
|
&optional (f2-3 (return-from %f17 f17-1)) |
2112 |
|
(f2-4 (return-from %f17 -57))) |
2113 |
|
b)) |
2114 |
|
(multiple-value-call #'%f2 (values c -588 55101157))))) |
2115 |
|
(if nil |
2116 |
|
(let* ((v6 (%f17 102136 3096194 a))) |
2117 |
|
b) |
2118 |
|
c)))) |
2119 |
|
-511 -2269809964 250738) |
2120 |
|
250738) |
2121 |
|
|
2122 |
|
;;; cmucl (9 Nov 2003) Incorrect result at SPEED 0. |
2123 |
|
|
2124 |
|
(deftest misc.162 |
2125 |
|
(let* ((fn `(lambda (a c) |
2126 |
|
(declare (notinline funcall) |
2127 |
|
(optimize (speed 0) (debug 0))) |
2128 |
|
(labels ((%f17 (f17-1 &optional (f17-4 c)) |
2129 |
|
(return-from %f17 (if f17-4 f17-1 49572640)))) |
2130 |
|
(funcall #'%f17 15128425 a))))) |
2131 |
|
(funcall (compile nil fn) 1 3)) |
2132 |
|
15128425) |