From a1d0307a92b493899fbbd2a8a0b390dda2bb2dd8 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Tue, 9 Aug 2005 12:13:49 +0000 Subject: [PATCH] Remove tabs, and add misc.612 (gcl compiler problem) --- ansi-tests/misc.lsp | 6994 ++++++++++++++++++++++--------------------- 1 file changed, 3502 insertions(+), 3492 deletions(-) diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp index 61109fec..ca7e0a32 100644 --- a/ansi-tests/misc.lsp +++ b/ansi-tests/misc.lsp @@ -15,15 +15,15 @@ (deftest misc.1 (funcall (compile nil '(lambda (b) - (declare (type (integer 8 22337) b)) - (+ b 2607688420))) + (declare (type (integer 8 22337) b)) + (+ b 2607688420))) 100) 2607688520) (deftest misc.2 (funcall (compile nil - '(lambda (b) (integer-length (dpb b (byte 4 28) -1005)))) - 12800263) + '(lambda (b) (integer-length (dpb b (byte 4 28) -1005)))) + 12800263) 32) (deftest misc.3 @@ -33,9 +33,9 @@ '(lambda (a b) (declare (optimize (speed 3) (debug 1))) (let ((v7 - (let ((v2 (block b5 (return-from b5 (if t b -4))))) - a))) - -65667836))) + (let ((v2 (block b5 (return-from b5 (if t b -4))))) + a))) + -65667836))) 1 2) -65667836) @@ -44,42 +44,42 @@ (compile nil '(lambda (a b c) - (declare (type (integer -629491 -333) a) - (type (integer -142 1) b) - (type (integer 0 12604) c) - (optimize (speed 3) (safety 1) (debug 1))) - (let ((v6 (block b7 (return-from b7 (if (eql b 0) 1358159 a))))) - b))) + (declare (type (integer -629491 -333) a) + (type (integer -142 1) b) + (type (integer 0 12604) c) + (optimize (speed 3) (safety 1) (debug 1))) + (let ((v6 (block b7 (return-from b7 (if (eql b 0) 1358159 a))))) + b))) -1000 -17 6143) -17) (deftest misc.5 (funcall (compile nil - '(lambda () (* 390 (- (signum (logeqv -8005440 -2310)) - -10604863))))) + '(lambda () (* 390 (- (signum (logeqv -8005440 -2310)) + -10604863))))) 4135896180) (deftest misc.6 (funcall (compile nil - '(lambda (a c) - (declare (optimize (speed 3) (debug 1))) - (flet ((%f14 () (if c a -486826646))) - (let ((v7 (flet ((%f18 () (%f14))) a))) - (let ((v5 (%f14))) - 0))))) + '(lambda (a c) + (declare (optimize (speed 3) (debug 1))) + (flet ((%f14 () (if c a -486826646))) + (let ((v7 (flet ((%f18 () (%f14))) a))) + (let ((v5 (%f14))) + 0))))) 10 20) 0) (deftest misc.7 (funcall (compile nil - '(lambda (c) (declare (optimize (speed 3) (debug 1))) - (flet ((%f18 () -36)) - (flet ((%f13 () - (let () (block b8 (return-from b8 c))))) - (%f18))))) - 10) + '(lambda (c) (declare (optimize (speed 3) (debug 1))) + (flet ((%f18 () -36)) + (flet ((%f13 () + (let () (block b8 (return-from b8 c))))) + (%f18))))) + 10) -36) (deftest misc.8 @@ -89,10 +89,10 @@ '(lambda (a b) (declare (optimize (speed 3) (debug 1))) (let ((v3 (flet ((%f12 () (min b (block b2 (return-from b2 a))))) - a))) - (block b7 - (flet ((%f5 () (return-from b7 b))) - (%f5)))))) + a))) + (block b7 + (flet ((%f5 () (return-from b7 b))) + (%f5)))))) 10 20) 20) @@ -101,16 +101,16 @@ (compile nil '(lambda () - (declare (optimize (speed 3) (debug 1))) - (block b6 - (flet ((%f3 () - (ldb (byte 19 23) - (block b1 - (let () - (- (if nil (return-from b6 89627) - 1160) - (return-from b1 22923))))))) - 1))))) + (declare (optimize (speed 3) (debug 1))) + (block b6 + (flet ((%f3 () + (ldb (byte 19 23) + (block b1 + (let () + (- (if nil (return-from b6 89627) + 1160) + (return-from b1 22923))))))) + 1))))) 1) (deftest misc.10 @@ -118,17 +118,17 @@ (compile nil '(lambda (c) - (declare (optimize (speed 3) (debug 1)) - (type (integer -15417757 5816) c)) - (flet ((%f3 () (if nil -3143 c))) - (block b5 - (let ((v7 (if (< 23613642 (%f3)) c -23097977))) - (let ((v5 - (return-from b5 - (if (eql c v7) - (let ((v6 (%f3))) 4650813) - 782)))) - -4362540)))))) + (declare (optimize (speed 3) (debug 1)) + (type (integer -15417757 5816) c)) + (flet ((%f3 () (if nil -3143 c))) + (block b5 + (let ((v7 (if (< 23613642 (%f3)) c -23097977))) + (let ((v5 + (return-from b5 + (if (eql c v7) + (let ((v6 (%f3))) 4650813) + 782)))) + -4362540)))))) -10000) 782) @@ -137,16 +137,16 @@ (compile nil '(lambda (a b c) - (declare (optimize (speed 3) (debug 1))) - (block b8 - (logxor - (let ((v3 (return-from b8 120789657))) 3690) - (block b2 - (flet ((%f9 () - (flet ((%f10 () -1)) - c))) - (flet ((%f3 () (let () (return-from b2 b)))) - a))))))) + (declare (optimize (speed 3) (debug 1))) + (block b8 + (logxor + (let ((v3 (return-from b8 120789657))) 3690) + (block b2 + (flet ((%f9 () + (flet ((%f10 () -1)) + c))) + (flet ((%f3 () (let () (return-from b2 b)))) + a))))))) 1 2 3) 120789657) @@ -155,13 +155,13 @@ (compile nil '(lambda (c) - (declare (optimize (speed 3) (safety 1) (debug 1)) - (type (integer -171067 -5) c)) - (flet ((%f16 () - (flet ((%f12 () 439)) - 3358))) - (flet ((%f14 () c)) - (if (%f14) -1 (%f14)))))) + (declare (optimize (speed 3) (safety 1) (debug 1)) + (type (integer -171067 -5) c)) + (flet ((%f16 () + (flet ((%f12 () 439)) + 3358))) + (flet ((%f14 () c)) + (if (%f14) -1 (%f14)))))) -100) -1) @@ -170,21 +170,21 @@ (compile nil '(lambda (b c) - (declare (optimize (speed 3) (safety 1) (debug 1)) - (type (integer -1554410 36086789) b) - (type (integer -15033876209 126774299) c) - ) - (block b3 - (flet ((%f9 () - (abs - (flet ((%f5 () - (return-from b3 -2))) - (if (if (<= 1 c) b (%f5)) -65 -47895812))))) - (min - (let ((v3 (let ((v8 (%f9))) b))) b) - (if (= 1364001 (%f9)) - (logeqv (block b5 -2713) -247) - -19)))))) + (declare (optimize (speed 3) (safety 1) (debug 1)) + (type (integer -1554410 36086789) b) + (type (integer -15033876209 126774299) c) + ) + (block b3 + (flet ((%f9 () + (abs + (flet ((%f5 () + (return-from b3 -2))) + (if (if (<= 1 c) b (%f5)) -65 -47895812))))) + (min + (let ((v3 (let ((v8 (%f9))) b))) b) + (if (= 1364001 (%f9)) + (logeqv (block b5 -2713) -247) + -19)))))) 0 0) -2) @@ -193,13 +193,13 @@ (compile nil '(lambda (c) - (declare (notinline logandc1)) - (block b6 - (flet ((%f17 () (return-from b6 c))) - (logandc1 (%f17) - (if 1 - 450967818 - (let ((v1 (%f17))) -17))))))) + (declare (notinline logandc1)) + (block b6 + (flet ((%f17 () (return-from b6 c))) + (logandc1 (%f17) + (if 1 + 450967818 + (let ((v1 (%f17))) -17))))))) 10) 10) @@ -208,13 +208,13 @@ (compile nil '(lambda (a b) - (declare (optimize (speed 3) (safety 1) (debug 1))) - (flet ((%f6 () a)) - (block b5 - (flet ((%f14 () - (min 17593 (block b1 (return-from b1 b))))) - (block b7 (if (%f6) (return-from b7 28182012) - (return-from b5 0)))))))) + (declare (optimize (speed 3) (safety 1) (debug 1))) + (flet ((%f6 () a)) + (block b5 + (flet ((%f14 () + (min 17593 (block b1 (return-from b1 b))))) + (block b7 (if (%f6) (return-from b7 28182012) + (return-from b5 0)))))))) 3 5) 28182012) @@ -223,14 +223,14 @@ (compile nil '(lambda (a c) - (flet ((%f14 () - (block b6 - (flet ((%f7 () (return-from b6 4))) - (if 587793 (if (%f7) c -23086423) (%f7)))))) - (block b1 - (flet ((%f18 () a)) - (logandc1 (return-from b1 -2781) - (if (%f14) 58647578 -396746))))))) + (flet ((%f14 () + (block b6 + (flet ((%f7 () (return-from b6 4))) + (if 587793 (if (%f7) c -23086423) (%f7)))))) + (block b1 + (flet ((%f18 () a)) + (logandc1 (return-from b1 -2781) + (if (%f14) 58647578 -396746))))))) 1 2) -2781) @@ -239,15 +239,15 @@ (compile nil '(lambda (a b c) - (declare (optimize (speed 3) (safety 1) (debug 1)) - (type (integer 4 23363) b) - (type (integer -32681 41648) c) - ) - (flet ((%f18 () - (if nil c b))) - (if (if (> -71810514 a) 102077 465393) - (block b3 (if (%f18) (return-from b3 c) c)) - (%f18))))) + (declare (optimize (speed 3) (safety 1) (debug 1)) + (type (integer 4 23363) b) + (type (integer -32681 41648) c) + ) + (flet ((%f18 () + (if nil c b))) + (if (if (> -71810514 a) 102077 465393) + (block b3 (if (%f18) (return-from b3 c) c)) + (%f18))))) 0 10 1000) 1000) @@ -256,13 +256,13 @@ (compile nil '(lambda (a b c) - (declare (optimize (speed 3) (safety 1) (debug 1)) - (type (integer 7 58010860) a) - (type (integer -3573280 -1) b) - (type (integer -920848 -819) c) - ) - (flet ((%f15 () (if (logbitp 5 a) a c))) - (min (if (%f15) b -39) (if (> 0 -14756) b (%f15)))))) + (declare (optimize (speed 3) (safety 1) (debug 1)) + (type (integer 7 58010860) a) + (type (integer -3573280 -1) b) + (type (integer -920848 -819) c) + ) + (flet ((%f15 () (if (logbitp 5 a) a c))) + (min (if (%f15) b -39) (if (> 0 -14756) b (%f15)))))) 8 -1000 -10000) -1000) @@ -271,14 +271,14 @@ (compile nil '(lambda (a b c) - (declare (type (integer 54 3862515) a) (type (integer -961325 1539) b) - (type (integer 6 31455) c) (ignorable a b c) - (optimize (speed 3) (safety 1) (debug 1))) - (lognor - (flet ((%f13 () b)) (%f13)) - (flet ((%f1 () (return-from %f1 a))) - (labels ((%f3 () (%f1))) - -428))))) + (declare (type (integer 54 3862515) a) (type (integer -961325 1539) b) + (type (integer 6 31455) c) (ignorable a b c) + (optimize (speed 3) (safety 1) (debug 1))) + (lognor + (flet ((%f13 () b)) (%f13)) + (flet ((%f1 () (return-from %f1 a))) + (labels ((%f3 () (%f1))) + -428))))) 100 0 200) 427) @@ -287,15 +287,15 @@ (compile nil '(lambda (a b c) - (declare (type (integer -1 31880308) a) - (type (integer -11374222037 5331202966) b) - (type (integer -483 -1) c) - (ignorable a b c) - (optimize (speed 3) (safety 1) (debug 1))) - (labels ((%f6 () a)) - (if (eql (let ((v9 (%f6))) -50072824) c) - 28146341 - (if (< 119937 21304962) 21304962 (%f6)))))) + (declare (type (integer -1 31880308) a) + (type (integer -11374222037 5331202966) b) + (type (integer -483 -1) c) + (ignorable a b c) + (optimize (speed 3) (safety 1) (debug 1))) + (labels ((%f6 () a)) + (if (eql (let ((v9 (%f6))) -50072824) c) + 28146341 + (if (< 119937 21304962) 21304962 (%f6)))))) 0 0 -1) 21304962) @@ -304,18 +304,18 @@ (compile nil '(lambda (a b c) - (declare (type (integer 398 3955) a) (type (integer 233 464963) b) - (type (integer -124477 16) c) (ignorable a b c) - (optimize (speed 3) (safety 1) (debug 1))) - (logior - (flet ((%f18 () - -3584768)) - (%f18)) - (flet ((%f1 () - (return-from %f1 c))) - (flet ((%f9 () - (if (%f1) 24181 7))) - 56048))))) + (declare (type (integer 398 3955) a) (type (integer 233 464963) b) + (type (integer -124477 16) c) (ignorable a b c) + (optimize (speed 3) (safety 1) (debug 1))) + (logior + (flet ((%f18 () + -3584768)) + (%f18)) + (flet ((%f1 () + (return-from %f1 c))) + (flet ((%f9 () + (if (%f1) 24181 7))) + 56048))))) 400 300 0) -3547152) @@ -324,19 +324,19 @@ (compile nil '(lambda (a b c) - (declare (type (integer -126378 -103) a) - (type (integer -1158604975 1) b) - (type (integer 502 28036) c) - (ignorable a b c) - (optimize (speed 3) (safety 1) (debug 1))) - (labels ((%f13 () c)) - (labels ((%f3 () - (logandc1 - c - (block b6 - (max -73100 - (if b (return-from b6 4935) (%f13))))))) - (%f13))))) + (declare (type (integer -126378 -103) a) + (type (integer -1158604975 1) b) + (type (integer 502 28036) c) + (ignorable a b c) + (optimize (speed 3) (safety 1) (debug 1))) + (labels ((%f13 () c)) + (labels ((%f3 () + (logandc1 + c + (block b6 + (max -73100 + (if b (return-from b6 4935) (%f13))))))) + (%f13))))) -200 0 1000) 1000) @@ -345,19 +345,19 @@ (compile nil '(lambda (a b c) - (declare (type (integer 1 18911480) a) - (type (integer -1 48333) b) - (type (integer -3881001767 -1937357) c) - (ignorable a b c) - (optimize (speed 3) (safety 1) (debug 1))) - (labels ((%f10 () c)) - (block b7 - (logorc2 - (* (%f10) - (if (ldb-test (byte 27 1) -11337) - (return-from b7 -2) - 246137101)) - (min (%f10) (return-from b7 -76114))))))) + (declare (type (integer 1 18911480) a) + (type (integer -1 48333) b) + (type (integer -3881001767 -1937357) c) + (ignorable a b c) + (optimize (speed 3) (safety 1) (debug 1))) + (labels ((%f10 () c)) + (block b7 + (logorc2 + (* (%f10) + (if (ldb-test (byte 27 1) -11337) + (return-from b7 -2) + 246137101)) + (min (%f10) (return-from b7 -76114))))))) 1 0 -2000000) -2) @@ -366,18 +366,18 @@ (compile nil '(lambda (a b c) - (declare (type (integer -1477249397 -10697252) a) - (type (integer -7 54591) b) - (type (integer -102559556 15) c) - (ignorable a b c) - (optimize (speed 3) (safety 1) (debug 1))) - (block b8 - (let ((v1 (return-from b8 a))) - (1+ - (block b3 - (flet ((%f10 () - (min a (return-from b3 -1)))) - 16776220))))))) + (declare (type (integer -1477249397 -10697252) a) + (type (integer -7 54591) b) + (type (integer -102559556 15) c) + (ignorable a b c) + (optimize (speed 3) (safety 1) (debug 1))) + (block b8 + (let ((v1 (return-from b8 a))) + (1+ + (block b3 + (flet ((%f10 () + (min a (return-from b3 -1)))) + 16776220))))))) -11000000 0 0) -11000000) @@ -386,16 +386,16 @@ (compile nil '(lambda (a b c) - (declare (type (integer -944 111244) a) - (type (integer 100512 3286178) b) - (type (integer -2170236 -107) c) - (ignorable a b c) - (optimize (speed 3) (safety 1) (debug 1))) - (labels ((%f17 () c)) - (labels ((%f16 () a)) - (if (if (logbitp 10 1029643) t 355) - (if (equal (%f17) b) c a) - (if (= 1325844 (%f16)) -50285 (1- (%f17)))))))) + (declare (type (integer -944 111244) a) + (type (integer 100512 3286178) b) + (type (integer -2170236 -107) c) + (ignorable a b c) + (optimize (speed 3) (safety 1) (debug 1))) + (labels ((%f17 () c)) + (labels ((%f16 () a)) + (if (if (logbitp 10 1029643) t 355) + (if (equal (%f17) b) c a) + (if (= 1325844 (%f16)) -50285 (1- (%f17)))))))) 0 200000 -200) 0) @@ -404,13 +404,13 @@ (compile nil '(lambda (c) - (declare (optimize speed)) - (block b5 - (if (logbitp 6 -97) - (let ((v2 (block b8 -42484))) c) - (flet ((%f10 () (return-from b5 -785143))) - (let ((v3 (%f10))) - (%f10))))))) + (declare (optimize speed)) + (block b5 + (if (logbitp 6 -97) + (let ((v2 (block b8 -42484))) c) + (flet ((%f10 () (return-from b5 -785143))) + (let ((v3 (%f10))) + (%f10))))))) 0) -785143) @@ -419,13 +419,13 @@ (compile nil '(lambda (a b c) - (declare (optimize (speed 3) (debug 1))) - (labels ((%f14 () c)) - (logand (%f14) - (labels ((%f15 () (logeqv (let ((v1 b)) c) - (return-from %f15 -1740)))) - (labels ((%f8 () (%f15))) - a)))))) + (declare (optimize (speed 3) (debug 1))) + (labels ((%f14 () c)) + (logand (%f14) + (labels ((%f15 () (logeqv (let ((v1 b)) c) + (return-from %f15 -1740)))) + (labels ((%f8 () (%f15))) + a)))))) 5 2 3) 1) @@ -434,14 +434,14 @@ (compile nil '(lambda (a b c) - (declare - (type (integer 1948 12024) b) - (type (integer -104357939 -252) c) - (optimize (speed 3) (debug 1))) + (declare + (type (integer 1948 12024) b) + (type (integer -104357939 -252) c) + (optimize (speed 3) (debug 1))) (flet ((%f18 () c)) (logandc1 (if (eql b (%f18)) 0 a) (if (ldb-test (byte 30 30) 1) (%f18) 1) - )))) + )))) 0 2000 -300) 1) @@ -450,20 +450,20 @@ (compile nil '(lambda (a b c) - (declare (type (integer 661607 10451683348) a) - (type (integer -2 -2) b) - (type (integer 5996117 18803237) c) - (optimize (speed 3) (safety 1) (debug 1))) - (labels ((%f16 () -29)) - (flet ((%f7 () - (labels ((%f1 () a)) - (let () - (block b3 - (if 37101207 - (return-from b3 -5322045) - (let ((v5 b)) - 146099574))))))) - (if (%f16) c c))))) + (declare (type (integer 661607 10451683348) a) + (type (integer -2 -2) b) + (type (integer 5996117 18803237) c) + (optimize (speed 3) (safety 1) (debug 1))) + (labels ((%f16 () -29)) + (flet ((%f7 () + (labels ((%f1 () a)) + (let () + (block b3 + (if 37101207 + (return-from b3 -5322045) + (let ((v5 b)) + 146099574))))))) + (if (%f16) c c))))) 1000000 -2 6000000) 6000000) @@ -472,19 +472,19 @@ (compile nil '(lambda (c) - (declare (type (integer -253 -1) c) - (optimize (speed 3) (safety 1) (debug 1))) - (flet ((%f8 () c)) - (if (= (%f8) 481) (%f8) 1779465)))) + (declare (type (integer -253 -1) c) + (optimize (speed 3) (safety 1) (debug 1))) + (flet ((%f8 () c)) + (if (= (%f8) 481) (%f8) 1779465)))) -100) 1779465) (deftest misc.31 (funcall (compile nil - '(lambda () (let ((v9 (labels ((%f13 () nil)) nil))) - (let ((v3 (logandc2 97 3))) - (* v3 (- 37391897 (logand v3 -66)))))))) + '(lambda () (let ((v9 (labels ((%f13 () nil)) nil))) + (let ((v3 (logandc2 97 3))) + (* v3 (- 37391897 (logand v3 -66)))))))) 3589619040) (deftest misc.32 @@ -492,14 +492,14 @@ (compile nil '(lambda (a d) - (declare (type (integer -8507 26755) a) - (type (integer -393314538 2084485) d) - (optimize (speed 3) (safety 1) (debug 1))) - (gcd - (if (= 0 a) 10 (abs -1)) - (logxor -1 - (min -7580 - (max (logand a 31365125) d)))))) + (declare (type (integer -8507 26755) a) + (type (integer -393314538 2084485) d) + (optimize (speed 3) (safety 1) (debug 1))) + (gcd + (if (= 0 a) 10 (abs -1)) + (logxor -1 + (min -7580 + (max (logand a 31365125) d)))))) 1 1) 1) @@ -508,31 +508,31 @@ (compile nil '(lambda (a b c d) - (declare (type (integer 240 100434465) a) - (optimize (speed 3) (safety 1) (debug 1))) - (logxor - (if (ldb-test (byte 27 4) d) - -1 - (max 55546856 -431)) - (logorc2 - (if (>= 0 b) - (if (> b c) (logandc2 c d) (if (> d 224002) 0 d)) - (signum (logior c b))) - (logior a -1))))) + (declare (type (integer 240 100434465) a) + (optimize (speed 3) (safety 1) (debug 1))) + (logxor + (if (ldb-test (byte 27 4) d) + -1 + (max 55546856 -431)) + (logorc2 + (if (>= 0 b) + (if (> b c) (logandc2 c d) (if (> d 224002) 0 d)) + (signum (logior c b))) + (logior a -1))))) 256 0 0 0) 55546856) (deftest misc.34 (funcall (compile nil - `(lambda (b c) - (declare (type (integer -23228343 2) b) - (type (integer -115581022 512244512) c) - (optimize (speed 3) (safety 1) (debug 1))) - (* (* (logorc2 3 (deposit-field 4667947 (byte 14 26) b)) - (deposit-field b (byte 25 27) -30424886)) - (dpb b (byte 23 29) c) - ))) + `(lambda (b c) + (declare (type (integer -23228343 2) b) + (type (integer -115581022 512244512) c) + (optimize (speed 3) (safety 1) (debug 1))) + (* (* (logorc2 3 (deposit-field 4667947 (byte 14 26) b)) + (deposit-field b (byte 25 27) -30424886)) + (dpb b (byte 23 29) c) + ))) 0 0) 0) @@ -541,29 +541,29 @@ (compile nil '(lambda (c) - (declare (type (integer -5945502333 12668542) c) - (optimize (speed 3))) - (let ((v2 (* c 12))) - (- (max (if (/= 109335113 v2) -26479 v2) - (deposit-field 311 - (byte 14 28) - (min (max 521326 c) -51))))))) + (declare (type (integer -5945502333 12668542) c) + (optimize (speed 3))) + (let ((v2 (* c 12))) + (- (max (if (/= 109335113 v2) -26479 v2) + (deposit-field 311 + (byte 14 28) + (min (max 521326 c) -51))))))) 12668542) 26479) (deftest misc.36 (funcall (compile nil - '(lambda () - (declare (notinline + logand) - (optimize (speed 0))) - (logand - (block b5 - (flet ((%f1 () - (return-from b5 -220))) - (let ((v7 (%f1))) - (+ 359749 35728422)))) - -24076)))) + '(lambda () + (declare (notinline + logand) + (optimize (speed 0))) + (logand + (block b5 + (flet ((%f1 () + (return-from b5 -220))) + (let ((v7 (%f1))) + (+ 359749 35728422)))) + -24076)))) -24284) (deftest misc.37 @@ -573,9 +573,9 @@ '(lambda (b) (declare (notinline -) (optimize (speed 0))) (- (block b4 - (flet ((%f4 () - (return-from b4 b))) - (%f4)))))) + (flet ((%f4 () + (return-from b4 b))) + (%f4)))))) 10) -10) @@ -584,7 +584,7 @@ (compile nil '(lambda (x) (declare (type (integer 0 100) x) - (optimize (speed 3) (safety 1))) + (optimize (speed 3) (safety 1))) (logandc1 x x))) 79) 0) @@ -594,7 +594,7 @@ (compile nil '(lambda (x) (declare (type (integer 0 100) x) - (optimize (speed 3) (safety 1))) + (optimize (speed 3) (safety 1))) (logandc2 x x))) 79) 0) @@ -604,7 +604,7 @@ (compile nil '(lambda (x) (declare (type (integer 0 100) x) - (optimize (speed 3) (safety 1))) + (optimize (speed 3) (safety 1))) (logorc1 x x))) 79) -1) @@ -614,7 +614,7 @@ (compile nil '(lambda (x) (declare (type (integer 0 100) x) - (optimize (speed 3) (safety 1))) + (optimize (speed 3) (safety 1))) (logorc2 x x))) 79) -1) @@ -631,8 +631,8 @@ (deftest misc.43 (funcall (compile nil - '(lambda () (flet ((%f2 () 288213285)) - (+ (%f2) (* 13 (%f2))))))) + '(lambda () (flet ((%f2 () 288213285)) + (+ (%f2) (* 13 (%f2))))))) 4034985990) @@ -641,9 +641,9 @@ (compile nil '(lambda (a) - (declare (type (integer -917858 964754309) a) - (optimize (speed 3))) - (* 25 (min (max a 171625820) 171626138)))) + (declare (type (integer -917858 964754309) a) + (optimize (speed 3))) + (* 25 (min (max a 171625820) 171626138)))) 861929141) 4290653450) @@ -652,9 +652,9 @@ (compile nil '(lambda (b) - (declare (type (integer 21 9673) b) - (optimize (speed 3))) - (* (integer-length -198435631) (+ b 137206182)))) + (declare (type (integer 21 9673) b) + (optimize (speed 3))) + (* (integer-length -198435631) (+ b 137206182)))) 6027) 3841941852) @@ -663,11 +663,11 @@ (compile nil '(lambda (b c) - (declare (type (integer 0 1) b) (optimize (speed 3))) - (flet ((%f2 () (lognor (block b5 138) c))) - (if (not (or (= -67399 b) b)) - (deposit-field (%f2) (byte 11 8) -3) - c)))) + (declare (type (integer 0 1) b) (optimize (speed 3))) + (flet ((%f2 () (lognor (block b5 138) c))) + (if (not (or (= -67399 b) b)) + (deposit-field (%f2) (byte 11 8) -3) + c)))) 0 0) 0) @@ -676,9 +676,9 @@ (compile nil '(lambda (a) - (declare (type (integer -4005718822 -50081775) a) - (optimize (speed 3) (safety 1) (debug 1))) - (lognor (ash a (min 0 a)) a))) + (declare (type (integer -4005718822 -50081775) a) + (optimize (speed 3) (safety 1) (debug 1))) + (lognor (ash a (min 0 a)) a))) -2878148992) 0) @@ -692,77 +692,77 @@ (deftest misc.49 (let ((body '(truncate (logorc1 -996082 C) -2)) - (arg 25337234)) + (arg 25337234)) (values (funcall (compile nil `(lambda (c) ,body)) arg) (funcall (compile nil `(lambda (c) (declare (notinline truncate)) - ,body)) arg))) + ,body)) arg))) -13099001 -13099001) (deftest misc.50 (funcall (compile nil `(lambda (c) - (declare (optimize (speed 3)) - (type (integer 23062188 149459656) c)) - (mod c (min -2 0)))) - 95019853) + (declare (optimize (speed 3)) + (type (integer 23062188 149459656) c)) + (mod c (min -2 0)))) + 95019853) -1) (deftest misc.51 (funcall (compile nil `(lambda (b) - (declare (optimize (speed 3)) - (type (integer 2 152044363) b)) - (rem b (min -16 0)))) - 108251912) + (declare (optimize (speed 3)) + (type (integer 2 152044363) b)) + (rem b (min -16 0)))) + 108251912) 8) (deftest misc.53 (funcall (compile nil '(lambda () - (let (x) - (block nil - (flet ((%f (y z) (if (> y z) (setq x y) (setq x z)))) - (%f 1 2) - (%f (return 14) 2))) - x)))) + (let (x) + (block nil + (flet ((%f (y z) (if (> y z) (setq x y) (setq x z)))) + (%f 1 2) + (%f (return 14) 2))) + x)))) 2) (deftest misc.54 (funcall (compile nil '(lambda (a c) - (declare (type (integer 8 117873977) a) - (type (integer -131828754 234037511) c) - (optimize (speed 3) (safety 1) (debug 1))) - (* (mod (signum a) (max 50 -358301)) - (* -2320445737132 - (* (* a (deposit-field a (byte 32 19) a)) c))))) + (declare (type (integer 8 117873977) a) + (type (integer -131828754 234037511) c) + (optimize (speed 3) (safety 1) (debug 1))) + (* (mod (signum a) (max 50 -358301)) + (* -2320445737132 + (* (* a (deposit-field a (byte 32 19) a)) c))))) 11386 165297671) -49725654774521915007942373712) (deftest misc.55 (funcall (compile nil '(lambda (a b c) - (declare (type (integer -5498929 389890) a) - (type (integer -5029571274946 48793670) b) - (type (integer 9221496 260169518304) c) - (ignorable a b c) - (optimize (speed 3) (safety 1) (debug 1))) - (- (mod 1020122 (min -49 -420)) - (logandc1 - (block b2 - (mod c (min -49 (if t (return-from b2 1582) b)))) - (labels ((%f14 () (mod a (max 76 8)))) - b))))) + (declare (type (integer -5498929 389890) a) + (type (integer -5029571274946 48793670) b) + (type (integer 9221496 260169518304) c) + (ignorable a b c) + (optimize (speed 3) (safety 1) (debug 1))) + (- (mod 1020122 (min -49 -420)) + (logandc1 + (block b2 + (mod c (min -49 (if t (return-from b2 1582) b)))) + (labels ((%f14 () (mod a (max 76 8)))) + b))))) -1893077 -2965238893954 30902744890) 2965238894454) (deftest misc.56 (funcall (compile nil '(lambda (a c) - (declare (type (integer -8691408487404 -9) a) - (type (integer 266003133 2112105962) c) - (optimize (speed 3) (safety 1) (debug 1))) - (truncate (max (round a) c) (* (* a a) a)))) + (declare (type (integer -8691408487404 -9) a) + (type (integer 266003133 2112105962) c) + (optimize (speed 3) (safety 1) (debug 1))) + (truncate (max (round a) c) (* (* a a) a)))) -10 266003133) -266003 133) @@ -782,114 +782,114 @@ (deftest misc.58 (funcall (compile nil '(lambda (a) - (declare (type (integer -23 66141285) a) - (optimize (speed 3))) - (logorc2 (setq a 35191330) (* a 107)))) + (declare (type (integer -23 66141285) a) + (optimize (speed 3))) + (logorc2 (setq a 35191330) (* a 107)))) 4099241) -3764388885) (deftest misc.59 (funcall (compile nil '(lambda (a b c) - (declare (type (integer -3966039360 -879349) a) - (type (integer -62642199164 -8993827395) b) - (type (integer -8065934654337 223) c) - (optimize (speed 3) (safety 1) (debug 1))) - (floor (* (ceiling c) c) - (max 78 (* b (* a (* a b))))))) + (declare (type (integer -3966039360 -879349) a) + (type (integer -62642199164 -8993827395) b) + (type (integer -8065934654337 223) c) + (optimize (speed 3) (safety 1) (debug 1))) + (floor (* (ceiling c) c) + (max 78 (* b (* a (* a b))))))) -1000000 -10000000000 0) 0 0) (deftest misc.60 (funcall (compile nil - '(lambda () - (let ((v5 46660)) - (setq v5 (signum (rem v5 (max 53 v5)))))))) + '(lambda () + (let ((v5 46660)) + (setq v5 (signum (rem v5 (max 53 v5)))))))) 0) (deftest misc.61 (progn (compile nil - '(lambda (a b) - (declare (type (integer -1785799651 -2) a) - (type (integer -27 614132331) b) - (optimize (speed 3) (safety 1) (debug 1))) - (ceiling (max (floor -733432 (max 84 -20)) 346) - (min -10 (* 17592186028032 (* (* a b) a)))))) + '(lambda (a b) + (declare (type (integer -1785799651 -2) a) + (type (integer -27 614132331) b) + (optimize (speed 3) (safety 1) (debug 1))) + (ceiling (max (floor -733432 (max 84 -20)) 346) + (min -10 (* 17592186028032 (* (* a b) a)))))) :good) :good) (deftest misc.62 (funcall (compile nil '(lambda (a) - (if (and (if a t nil) nil) - a - (min (block b5 -1) a)))) - 100) + (if (and (if a t nil) nil) + a + (min (block b5 -1) a)))) + 100) -1) ;;; sbcl bug (probably #233) (deftest misc.63 (let* ((form '(flet ((%f12 () (setq c -9868204937))) - (if (<= c (%f12)) -2 (if (= c c) b c)))) - (form1 `(lambda (b c) - (declare (type (integer -80421740610 1395590616) c)) - ,form)) - (form2 `(lambda (b c) ,form)) - (vals '(-696742851945 686256271))) + (if (<= c (%f12)) -2 (if (= c c) b c)))) + (form1 `(lambda (b c) + (declare (type (integer -80421740610 1395590616) c)) + ,form)) + (form2 `(lambda (b c) ,form)) + (vals '(-696742851945 686256271))) (eqlt (apply (compile nil form1) vals) - (apply (compile nil form2) vals))) + (apply (compile nil form2) vals))) t) ;;; sbcl bug (probably #233) (deftest misc.64 (let* ((form '(logcount - (if (not (> c (let ((v7 (setq c -246180))) -1))) - (ldb (byte 24 11) c) - c))) - (form1 `(lambda (c) - (declare (type (integer -256128 207636) c)) - ,form)) - (form2 `(lambda (c) ,form)) - (vals '(11292)) - ) + (if (not (> c (let ((v7 (setq c -246180))) -1))) + (ldb (byte 24 11) c) + c))) + (form1 `(lambda (c) + (declare (type (integer -256128 207636) c)) + ,form)) + (form2 `(lambda (c) ,form)) + (vals '(11292)) + ) (eqlt (apply (compile nil form1) vals) - (apply (compile nil form2) vals))) + (apply (compile nil form2) vals))) t) ;;; sbcl bug (probably #233) (deftest misc.65 (let ((form1 '(lambda (b c) - (declare (type (integer -350684427436 -255912007) b)) - (logandc2 c (if (< b (setq b -25647585550)) b 0)))) - (form2 '(lambda (b c) - (logandc2 c (if (< b (setq b -25647585550)) b 0)))) - (vals '(-297090677547 -20121092))) + (declare (type (integer -350684427436 -255912007) b)) + (logandc2 c (if (< b (setq b -25647585550)) b 0)))) + (form2 '(lambda (b c) + (logandc2 c (if (< b (setq b -25647585550)) b 0)))) + (vals '(-297090677547 -20121092))) (eqlt (apply (compile nil form1) vals) - (apply (compile nil form2) vals))) + (apply (compile nil form2) vals))) t) (deftest misc.66 (let* ((form '(if (> a (setq a -2198578292)) - (min b (if (<= a -14866) a -128363)) - a)) - (form1 `(lambda (a b) - (declare (type (integer -3709231882 0) a)) - (declare (type (integer -562051054 -1) b)) - ,form)) - (form2 `(lambda (a b) ,form)) - (vals '(-2095414787 -256985442))) + (min b (if (<= a -14866) a -128363)) + a)) + (form1 `(lambda (a b) + (declare (type (integer -3709231882 0) a)) + (declare (type (integer -562051054 -1) b)) + ,form)) + (form2 `(lambda (a b) ,form)) + (vals '(-2095414787 -256985442))) (eqlt (apply (compile nil form1) vals) - (apply (compile nil form2) vals))) + (apply (compile nil form2) vals))) t) ;;; sbcl/cmucl bug (on sparc) (deftest misc.67 (funcall (compile nil '(lambda (x) - (declare (type (integer 10604862 10604862) x) - (optimize speed)) - (* x 390))) + (declare (type (integer 10604862 10604862) x) + (optimize speed)) + (* x 390))) 10604862) 4135896180) @@ -897,27 +897,27 @@ (deftest misc.68 (funcall (compile nil - '(lambda (b) - (flet ((%f8 () (rem b (identity (return-from %f8 0))))) - (lognor (%f8) 0)))) + '(lambda (b) + (flet ((%f8 () (rem b (identity (return-from %f8 0))))) + (lognor (%f8) 0)))) 0) -1) (deftest misc.69 (funcall (compile nil - '(lambda (b) - (flet ((%f11 () (logorc2 (block b1 (let () (return-from b1 b))) - -1984))) - b))) + '(lambda (b) + (flet ((%f11 () (logorc2 (block b1 (let () (return-from b1 b))) + -1984))) + b))) 0) 0) (deftest misc.70 (funcall (compile nil '(lambda (c) - (declare (type (integer 46156191457 126998564334) c)) - (truncate c (min -16 186196583)))) + (declare (type (integer 46156191457 126998564334) c)) + (truncate c (min -16 186196583)))) 87723029763) -5482689360 3) @@ -925,35 +925,35 @@ (deftest misc.71 (funcall (compile nil - '(lambda () - (block b8 - (if (identity (return-from b8 30)) - 1 - (identity - (block b5 - (labels ((%f10 () (min -52 (return-from b5 10)))) - 20)))))))) + '(lambda () + (block b8 + (if (identity (return-from b8 30)) + 1 + (identity + (block b5 + (labels ((%f10 () (min -52 (return-from b5 10)))) + 20)))))))) 30) (deftest misc.72 (funcall (compile nil '(lambda () - (flet ((%f13 () (rem 1 (min 0 (return-from %f13 17))))) - (%f13))))) + (flet ((%f13 () (rem 1 (min 0 (return-from %f13 17))))) + (%f13))))) 17) (deftest misc.73 (funcall (compile nil '(lambda (c) - (declare (type (integer 46156191457 126998564334) c)) - (rem c (min -1 0)))) + (declare (type (integer 46156191457 126998564334) c)) + (rem c (min -1 0)))) 87723029763) 0) (deftest misc.74 (funcall (compile nil '(lambda () - (declare (optimize (safety 3) (speed 0) (debug 0))) - (ash 6916244 (min 42 -185236061640))))) + (declare (optimize (safety 3) (speed 0) (debug 0))) + (ash 6916244 (min 42 -185236061640))))) 0) ;;; Unwind-protect bug, from sbcl: @@ -968,9 +968,9 @@ (deftest misc.76 (funcall (compile nil - '(lambda (a c) - (if nil (unwind-protect (max 521739 (unwind-protect c))) - (logandc2 3942 a)))) + '(lambda (a c) + (if nil (unwind-protect (max 521739 (unwind-protect c))) + (logandc2 3942 a)))) 0 0) 3942) @@ -984,12 +984,12 @@ (deftest misc.78 (funcall (compile nil '(lambda () - (declare (optimize (speed 0) (debug 0))) - (let ((v4 - (case 227 - ((-11113 -106126) (unwind-protect 8473)) - (t 43916)))) - -12)))) + (declare (optimize (speed 0) (debug 0))) + (let ((v4 + (case 227 + ((-11113 -106126) (unwind-protect 8473)) + (t 43916)))) + -12)))) -12) ;;; Same as misc.78, but with no declarations @@ -997,11 +997,11 @@ (deftest misc.79 (funcall (compile nil '(lambda () - (let ((v4 - (case 227 - ((-11113 -106126) (unwind-protect 8473)) - (t 43916)))) - -12)))) + (let ((v4 + (case 227 + ((-11113 -106126) (unwind-protect 8473)) + (t 43916)))) + -12)))) -12) (deftest misc.79a @@ -1011,11 +1011,11 @@ '(lambda (a b) (declare (type (integer 72504 351460) a)) (declare (type (integer 2383 108330) b)) - (declare (optimize (speed 2) (space 0) (safety 0) - (debug 2) (compilation-speed 1))) + (declare (optimize (speed 2) (space 0) (safety 0) + (debug 2) (compilation-speed 1))) (if (or (or (/= b 0) (logbitp 0 0)) (logbitp 0 a)) - 0 - (funcall (constantly 0) b 0 (catch 'ct4 b))))) + 0 + (funcall (constantly 0) b 0 (catch 'ct4 b))))) 132318 12238) 0) @@ -1024,15 +1024,15 @@ (deftest misc.80 (funcall (compile nil - '(lambda (b c) - (declare (notinline > logior imagpart)) - (declare (optimize (speed 0) (debug 0))) - (labels ((%f16 () - (imagpart - (block b3 - (logeqv (logior -122516 (if (> -1 0) (return-from b3 c) b)) - (return-from %f16 32186310)))))) - (lognor (%f16) b)))) + '(lambda (b c) + (declare (notinline > logior imagpart)) + (declare (optimize (speed 0) (debug 0))) + (labels ((%f16 () + (imagpart + (block b3 + (logeqv (logior -122516 (if (> -1 0) (return-from b3 c) b)) + (return-from %f16 32186310)))))) + (lognor (%f16) b)))) -123886 -1656) 57385) @@ -1040,9 +1040,9 @@ (deftest misc.81 (funcall (compile nil '(lambda (b) - (block b7 - (let ((v3 (return-from b7 b))) - (unwind-protect b))))) + (block b7 + (let ((v3 (return-from b7 b))) + (unwind-protect b))))) 17) 17) @@ -1050,11 +1050,11 @@ (deftest misc.82 (funcall (compile nil '(lambda (c) - (labels ((%f15 () - (* (unwind-protect c) - (max -5726369 - (return-from %f15 3099206))))) - c))) + (labels ((%f15 () + (* (unwind-protect c) + (max -5726369 + (return-from %f15 3099206))))) + c))) 0) 0) @@ -1062,57 +1062,57 @@ (deftest misc.83 (funcall (compile nil '(lambda (a c) - (flet ((%f8 () (min c (min a (return-from %f8 c))))) - c))) + (flet ((%f8 () (min c (min a (return-from %f8 c))))) + c))) 0 -10) -10) (deftest misc.84 (funcall (compile nil '(lambda (a b) - (flet ((%f18 () - (let () - (let () - (if (ldb-test (byte 20 23) b) a - (return-from %f18 431)))))) - -674))) + (flet ((%f18 () + (let () + (let () + (if (ldb-test (byte 20 23) b) a + (return-from %f18 431)))))) + -674))) 0 0) -674) (deftest misc.85 (funcall (compile nil - '(lambda (c) - (labels ((%f14 () - (let () - (logandc1 (min -32 (return-from %f14 -69793)) - c)))) - 156))) + '(lambda (c) + (labels ((%f14 () + (let () + (logandc1 (min -32 (return-from %f14 -69793)) + c)))) + 156))) 0) 156) ;;; Two tests showing bug(s) in clisp (2.31) (deftest misc.86 (funcall (compile nil '(lambda (b) - (flet ((%f10 nil :bad)) - (let ((v7 (let ((v2 (%f10))) b))) - (unwind-protect b))))) - :good) + (flet ((%f10 nil :bad)) + (let ((v7 (let ((v2 (%f10))) b))) + (unwind-protect b))))) + :good) :good) (deftest misc.87 (apply (compile nil '(lambda (a b c) - (let ((v9 a)) - (let ((v2 (setq v9 c))) - (unwind-protect c))))) - '(x y z)) + (let ((v9 a)) + (let ((v2 (setq v9 c))) + (unwind-protect c))))) + '(x y z)) z) ;;; cmucl bug (18e+ 10/15/03) (deftest misc.88 (eval '(block b3 - (max (return-from b3 1) - (if (unwind-protect (unwind-protect 2)) 3 4)))) + (max (return-from b3 1) + (if (unwind-protect (unwind-protect 2)) 3 4)))) 1) ;;; @@ -1127,10 +1127,10 @@ (deftest misc.89 (funcall (compile nil - '(lambda (c) - (declare (type (integer 0 130304) c)) - (- (rem -26 (max 25 (load-time-value 505849129))) - (* -15718867961526428520296254978781964 c)))) + '(lambda (c) + (declare (type (integer 0 130304) c)) + (- (rem -26 (max 25 (load-time-value 505849129))) + (* -15718867961526428520296254978781964 c)))) 0) -26) @@ -1146,8 +1146,8 @@ (declare (type (integer -913299295156 3670905260104) d)) (declare (ignorable a b c d)) (declare - (optimize (safety 1) (space 1) (compilation-speed 2) - (debug 0) (speed 2))) + (optimize (safety 1) (space 1) (compilation-speed 2) + (debug 0) (speed 2))) (- (signum (catch 'ct6 0)) (numerator (* -1303 d -20527703 d c))))) -261283766805 41605749408 5110 1269102278886) -220139978315039892599545286437019126040) @@ -1164,7 +1164,7 @@ (declare (type (integer -12830115357 3027711346) d)) (declare (ignorable a b c d)) (declare (optimize (speed 2) (compilation-speed 1) (space 1) - (safety 3) (debug 2))) + (safety 3) (debug 2))) (floor (load-time-value 0) (min -18 (* a c b -12626))))) -78545446876 -460518205737 -38885914099 1598305189) 0 0) @@ -1172,132 +1172,132 @@ ;;; acl bugs (version 6.2, linux x86 trial) (deftest misc.90 (let* ((form '(- 0 (ignore-errors 20763) - (logxor b 1 c -7672794) b)) - (fn1 `(lambda (b c) - (declare (type (integer -148895 -46982) b)) - (declare (type (integer 0 1) c)) - (declare (optimize (speed 3))) - (declare (optimize (safety 1))) - ,form)) - (fn2 `(lambda (b c) ,form))) + (logxor b 1 c -7672794) b)) + (fn1 `(lambda (b c) + (declare (type (integer -148895 -46982) b)) + (declare (type (integer 0 1) c)) + (declare (optimize (speed 3))) + (declare (optimize (safety 1))) + ,form)) + (fn2 `(lambda (b c) ,form))) (let ((v1 (funcall (compile nil fn1) -76071 0)) - (v2 (funcall (compile nil fn2) -76071 0)) - (v3 (funcall (eval `(function ,fn2)) -76071 0))) + (v2 (funcall (compile nil fn2) -76071 0)) + (v3 (funcall (eval `(function ,fn2)) -76071 0))) (if (= v1 v2 v3) :good - (list v1 v2 v3)))) + (list v1 v2 v3)))) :good) (deftest misc.91 (let ((fn1 '(lambda () - (declare (optimize (speed 3) (safety 1))) - (ash -10 (min 8 -481)))) - (fn2 '(lambda () (ash -10 (min 8 -481))))) + (declare (optimize (speed 3) (safety 1))) + (ash -10 (min 8 -481)))) + (fn2 '(lambda () (ash -10 (min 8 -481))))) (let ((v1 (funcall (compile nil fn1))) - (v2 (funcall (compile nil fn2))) - (v3 (funcall (eval `(function ,fn2))))) + (v2 (funcall (compile nil fn2))) + (v3 (funcall (eval `(function ,fn2))))) (if (= v1 v2 v3) - :good - (list v1 v2 v3)))) + :good + (list v1 v2 v3)))) :good) (deftest misc.92 (let* ((form '(- -16179207 b (lognor (let () 3) (logxor -17567197 c)))) - (fn1 `(lambda (b c) - (declare (type (integer -621 30) c)) - (declare (optimize (speed 3))) - (declare (optimize (safety 1))) - ,form)) - (fn2 `(lambda (b c) ,form)) - (vals '(26291532469 -21))) + (fn1 `(lambda (b c) + (declare (type (integer -621 30) c)) + (declare (optimize (speed 3))) + (declare (optimize (safety 1))) + ,form)) + (fn2 `(lambda (b c) ,form)) + (vals '(26291532469 -21))) (let ((v1 (apply (compile nil fn1) vals)) - (v2 (apply (compile nil fn2) vals)) - (v3 (apply (eval `(function ,fn2)) vals))) + (v2 (apply (compile nil fn2) vals)) + (v3 (apply (eval `(function ,fn2)) vals))) (if (= v1 v2 v3) - :good - (list v1 v2 v3)))) + :good + (list v1 v2 v3)))) :good) (deftest misc.93 (let* ((form '(ash (1+ (flet ((%f5 (f5-1) c)) c)) - (min 69 (logxor a b)))) - (fn1 `(lambda (a b c) - (declare (type (integer -128 -109) a) - (type (integer -2 -1) b) - (optimize (speed 3) (safety 1))) - ,form)) - (fn2 `(lambda (a b c) ,form)) - (vals '(-123 -1 2590941967601))) + (min 69 (logxor a b)))) + (fn1 `(lambda (a b c) + (declare (type (integer -128 -109) a) + (type (integer -2 -1) b) + (optimize (speed 3) (safety 1))) + ,form)) + (fn2 `(lambda (a b c) ,form)) + (vals '(-123 -1 2590941967601))) (eqlt (apply (compile nil fn1) vals) - (apply (compile nil fn2) vals))) + (apply (compile nil fn2) vals))) t) (deftest misc.94 (not (funcall - (compile nil '(lambda () - (declare (optimize (speed 3) (safety 1) (debug 1))) - (<= 268435280 - (load-time-value - 39763134374436777607194165739302560271120000)))))) + (compile nil '(lambda () + (declare (optimize (speed 3) (safety 1) (debug 1))) + (<= 268435280 + (load-time-value + 39763134374436777607194165739302560271120000)))))) nil) (deftest misc.95 (let* ((form '(+ 272 c (if (< b a) -49618 -29042) b)) - (fn1 `(lambda (a b c) - (declare (type (integer -1585918 601848636) a)) - (declare (type (integer -4 16544323) b)) - (declare (optimize (speed 3))) - (declare (optimize (safety 1))) - ,form)) - (fn2 `(lambda (a b c) ,form)) - (vals '(601739317 10891850 17452477960))) + (fn1 `(lambda (a b c) + (declare (type (integer -1585918 601848636) a)) + (declare (type (integer -4 16544323) b)) + (declare (optimize (speed 3))) + (declare (optimize (safety 1))) + ,form)) + (fn2 `(lambda (a b c) ,form)) + (vals '(601739317 10891850 17452477960))) (let ((v1 (apply (compile nil fn1) vals)) - (v2 (apply (compile nil fn2) vals))) + (v2 (apply (compile nil fn2) vals))) (if (eql v1 v2) - :good - (list v1 v2)))) + :good + (list v1 v2)))) :good) (deftest misc.96 (let* ((form '(max 26 (ceiling b (min -8 (max -1 c))))) - (fn1 `(lambda (b c) - (declare (type (integer 482134 96074347505) b)) - (declare (type (integer -4036 -50) c)) - (declare (optimize (speed 3))) - (declare (optimize (safety 1))) - ,form)) - (fn2 `(lambda (b c) ,form)) - (vals '(90244278480 -338))) + (fn1 `(lambda (b c) + (declare (type (integer 482134 96074347505) b)) + (declare (type (integer -4036 -50) c)) + (declare (optimize (speed 3))) + (declare (optimize (safety 1))) + ,form)) + (fn2 `(lambda (b c) ,form)) + (vals '(90244278480 -338))) (let ((v1 (apply (compile nil fn1) vals)) - (v2 (apply (compile nil fn2) vals))) + (v2 (apply (compile nil fn2) vals))) (if (eql v1 v2) - :good - (list v1 v2)))) + :good + (list v1 v2)))) :good) (deftest misc.97 (let* ((form '(- 349708 (gcd c 0) (logand b b (if (> -8543459 c) 83328 1073)))) - (fn1 `(lambda (b c) - (declare (type (integer 301653 329907) b)) - (declare (type (integer 171971491 1073721279) c)) - (declare (optimize (speed 3))) - (declare (optimize (safety 1))) - ,form)) - (fn2 `(lambda (b c) ,form)) - (vals '(321769 1073671227))) + (fn1 `(lambda (b c) + (declare (type (integer 301653 329907) b)) + (declare (type (integer 171971491 1073721279) c)) + (declare (optimize (speed 3))) + (declare (optimize (safety 1))) + ,form)) + (fn2 `(lambda (b c) ,form)) + (vals '(321769 1073671227))) (let ((v1 (apply (compile nil fn1) vals)) - (v2 (apply (compile nil fn2) vals))) + (v2 (apply (compile nil fn2) vals))) (if (eql v1 v2) - :good - (list v1 v2)))) + :good + (list v1 v2)))) :good) ;;; sbcl bugs (0.8.4.40, x86 linux) (deftest misc.98 (funcall (compile nil '(lambda (x) - (declare (type (integer -1000000 1000000) x)) - (logand x x 0))) - 12345) + (declare (type (integer -1000000 1000000) x)) + (logand x x 0))) + 12345) 0) (deftest misc.99 @@ -1310,73 +1310,73 @@ (deftest misc.100 (funcall (compile nil '(lambda (c) - (declare (type (integer -3924 1001809828) c)) - (declare (optimize (speed 3))) - (min 47 (if (ldb-test (byte 2 14) c) - -570344431 - (ignore-errors -732893970))))) - 705347625) + (declare (type (integer -3924 1001809828) c)) + (declare (optimize (speed 3))) + (min 47 (if (ldb-test (byte 2 14) c) + -570344431 + (ignore-errors -732893970))))) + 705347625) -570344431) (deftest misc.101 (funcall (compile nil '(lambda (a c) - (declare (type (integer 185501219873 303014665162) a)) - (declare (type (integer -160758 255724) c)) - (declare (optimize (speed 3))) - (let ((v8 - (- -554046873252388011622614991634432 - (ignore-errors c) - (unwind-protect 2791485)))) - (max (ignore-errors a) - (let ((v6 (- v8 (restart-case 980)))) - (min v8 v6)))))) + (declare (type (integer 185501219873 303014665162) a)) + (declare (type (integer -160758 255724) c)) + (declare (optimize (speed 3))) + (let ((v8 + (- -554046873252388011622614991634432 + (ignore-errors c) + (unwind-protect 2791485)))) + (max (ignore-errors a) + (let ((v6 (- v8 (restart-case 980)))) + (min v8 v6)))))) 259448422916 173715) 259448422916) (deftest misc.102 (funcall (compile nil '(lambda (b) - (declare (type (integer -1598566306 2941) b)) - (declare (optimize (speed 3))) - (max -148949 (ignore-errors b)))) + (declare (type (integer -1598566306 2941) b)) + (declare (optimize (speed 3))) + (max -148949 (ignore-errors b)))) 0) 0) (deftest misc.103 (funcall (compile nil '(lambda (a b) - (min -80 - (abs - (ignore-errors - (+ - (logeqv b - (block b6 - (return-from b6 - (load-time-value -6876935)))) - (if (logbitp 1 a) b (setq a -1522022182249)))))))) + (min -80 + (abs + (ignore-errors + (+ + (logeqv b + (block b6 + (return-from b6 + (load-time-value -6876935)))) + (if (logbitp 1 a) b (setq a -1522022182249)))))))) -1802767029877 -12374959963) -80) (deftest misc.104 (funcall (compile nil '(lambda (a) (declare (type (integer 55400028 60748067) a)) - (lognand 1505 (ash a (let () 40))))) + (lognand 1505 (ash a (let () 40))))) 58194485) -1) (deftest misc.105 (funcall (compile nil '(lambda (b c) - (declare (type (integer -4 -3) c)) - (block b7 - (flet ((%f1 (f1-1 f1-2 f1-3) - (if (logbitp 0 (return-from b7 - (- -815145138 f1-2))) - (return-from b7 -2611670) - 99345))) - (let ((v2 (%f1 -2464 (%f1 -1146 c c) -2))) - b))))) + (declare (type (integer -4 -3) c)) + (block b7 + (flet ((%f1 (f1-1 f1-2 f1-3) + (if (logbitp 0 (return-from b7 + (- -815145138 f1-2))) + (return-from b7 -2611670) + 99345))) + (let ((v2 (%f1 -2464 (%f1 -1146 c c) -2))) + b))))) 2950453607 -4) -815145134) @@ -1385,10 +1385,10 @@ (deftest misc.106 (progn (eval '(defun misc.106-fn (a b c) - (declare (optimize speed)) - (block b6 - (flet ((%f8 (f8-1 f8-2) b)) - (%f8 (%f8 c 338) (if t (return-from b6 a) c)))))) + (declare (optimize speed)) + (block b6 + (flet ((%f8 (f8-1 f8-2) b)) + (%f8 (%f8 c 338) (if t (return-from b6 a) c)))))) (misc.106-fn -30271 -1 -3043)) -30271) @@ -1396,16 +1396,16 @@ (deftest misc.107 (funcall (compile nil - '(lambda (b c) - (declare (type (integer -29742055786 23602182204) b)) - (declare (type (integer -7409 -2075) c)) - (declare (optimize (speed 3))) - (floor - (labels ((%f2 () - (block b6 - (ignore-errors (return-from b6 - (if (= c 8) b 82674)))))) - (%f2))))) + '(lambda (b c) + (declare (type (integer -29742055786 23602182204) b)) + (declare (type (integer -7409 -2075) c)) + (declare (optimize (speed 3))) + (floor + (labels ((%f2 () + (block b6 + (ignore-errors (return-from b6 + (if (= c 8) b 82674)))))) + (%f2))))) 22992834060 -5833) 82674 0) @@ -1416,14 +1416,14 @@ nil '(lambda () (declare - (optimize (speed 2) (space 0) (safety 1) - (debug 3) (compilation-speed 0))) + (optimize (speed 2) (space 0) (safety 1) + (debug 3) (compilation-speed 0))) (flet ((%f14 - (f14-1 - &optional (f14-2 (rationalize (catch 'ct4 0))) (f14-3 0) - (f14-4 0)) - (dotimes (iv2 0 0) (progn f14-2)))) - (apply #'%f14 0 0 0 nil))))) + (f14-1 + &optional (f14-2 (rationalize (catch 'ct4 0))) (f14-3 0) + (f14-4 0)) + (dotimes (iv2 0 0) (progn f14-2)))) + (apply #'%f14 0 0 0 nil))))) 0) ;;; "The value NIL is not of type SB-C::IR2-LVAR." (sbcl 0.8.14.18) @@ -1438,26 +1438,26 @@ (declare (type (integer -3798210806 -898) c)) (declare (ignorable a b c)) (declare - (optimize (speed 2) - (space 2) - (safety 2) - (debug 3) - (compilation-speed 1))) + (optimize (speed 2) + (space 2) + (safety 2) + (debug 3) + (compilation-speed 1))) (block b4 - (let ((*s7* (cons c 0))) - (declare (special *s7*)) - (return-from b4 - (prog1 0 - (the integer - (integer-length - (1+ - (let () - (gcd (cdr *s7*) - (case b - ((31 38 20 0 5 45) 2) - ((34 35 64 61 47) 39) - ((58) a) - (t 131788))))))))))))) + (let ((*s7* (cons c 0))) + (declare (special *s7*)) + (return-from b4 + (prog1 0 + (the integer + (integer-length + (1+ + (let () + (gcd (cdr *s7*) + (case b + ((31 38 20 0 5 45) 2) + ((34 35 64 61 47) 39) + ((58) a) + (t 131788))))))))))))) 734649164 -3343 -2306504518) 0) @@ -1467,11 +1467,11 @@ nil '(lambda (c) (declare (optimize (speed 2) (space 1) (safety 1) (debug 3) - (compilation-speed 0))) + (compilation-speed 0))) (let* ((*s6* - (unwind-protect 0 (the integer (ash 2914825 (min 8 c)))))) - (declare (special *s6*)) - 0))) + (unwind-protect 0 (the integer (ash 2914825 (min 8 c)))))) + (declare (special *s6*)) + 0))) -105) 0) @@ -1481,15 +1481,15 @@ nil '(lambda (a b) (declare (optimize (speed 1) (space 1) (safety 1) (debug 3) - (compilation-speed 1))) + (compilation-speed 1))) (catch 'ct4 - (logorc1 - (the integer - (case (dotimes (iv2 2 2) (progn 203)) - ((-51) -59598) - ((-31 -150) a) - (t b))) - (throw 'ct4 0))))) + (logorc1 + (the integer + (case (dotimes (iv2 2 2) (progn 203)) + ((-51) -59598) + ((-31 -150) a) + (t b))) + (throw 'ct4 0))))) 10 20) 0) @@ -1499,9 +1499,9 @@ nil '(lambda (a) (declare (optimize (speed 1) (space 0) (safety 1) - (debug 3) (compilation-speed 1))) + (debug 3) (compilation-speed 1))) (flet ((%f11 (&key (key1 (the integer (- a 245241933)))) 0)) - (%f11)))) + (%f11)))) 1) 0) @@ -1510,23 +1510,23 @@ (deftest misc.108 (funcall (compile nil '(lambda (b) - (block b7 (- b (ignore-errors (return-from b7 57876)))))) + (block b7 (- b (ignore-errors (return-from b7 57876)))))) 10) 57876) ;;; "The assertion (C::CONSTANT-CONTINUATION-P C::CONT) failed." (cmucl) (deftest misc.109 (funcall (compile - nil - '(lambda () - (load-time-value - (block b4 - (* (return-from b4 -27) - (block b5 - (return-from b4 - (return-from b5 - (ignore-errors (unwind-protect - (return-from b5 0)))))))))))) + nil + '(lambda () + (load-time-value + (block b4 + (* (return-from b4 -27) + (block b5 + (return-from b4 + (return-from b5 + (ignore-errors (unwind-protect + (return-from b5 0)))))))))))) -27) ;;; This bug was occuring a lot in sbcl, and now occurs in cmucl too @@ -1534,10 +1534,10 @@ (deftest misc.110 (funcall (compile nil - '(lambda (c) - (declare (type (integer -1441970837 -427) c)) - (declare (optimize (speed 3))) - (block b7 (abs (min c (ignore-errors (return-from b7 c))))))) + '(lambda (c) + (declare (type (integer -1441970837 -427) c)) + (declare (optimize (speed 3))) + (block b7 (abs (min c (ignore-errors (return-from b7 c))))))) -500) -500) @@ -1558,25 +1558,25 @@ (declare (type (integer -1472 1979) f)) (declare (ignorable a b c d e f)) (declare - (optimize (speed 3) - (space 3) - (safety 0) - (debug 0) - (compilation-speed 3))) + (optimize (speed 3) + (space 3) + (safety 0) + (debug 0) + (compilation-speed 3))) (catch 'ct7 - (if - (logbitp 0 - (if (/= 0 a) - c - (ignore-errors - (progn - (if - (ldb-test (byte 0 0) (rational (throw 'ct7 0))) - 0 + (if + (logbitp 0 + (if (/= 0 a) + c + (ignore-errors + (progn + (if + (ldb-test (byte 0 0) (rational (throw 'ct7 0))) + 0 0) - 0)))) - 0 - 0)))) + 0)))) + 0 + 0)))) 391833530 36648101240 -32785211 91893 -4124561581760 1358) 0) @@ -1612,12 +1612,12 @@ (deftest misc.113 (funcall (compile nil '(lambda (b c) - (if (or (ldb-test (byte 8 10) b) t) - c - (min (if (<= -6467 c) c 6) - (flet ((%f3 (f3-1 f3-2) - f3-1)) - (multiple-value-call #'%f3 (values b 107))))))) + (if (or (ldb-test (byte 8 10) b) t) + c + (min (if (<= -6467 c) c 6) + (flet ((%f3 (f3-1 f3-2) + f3-1)) + (multiple-value-call #'%f3 (values b 107))))))) -238 -23658556) -23658556) @@ -1631,10 +1631,10 @@ (block b2 (flet ((%f1 nil b)) (logior (if a - (if (ldb-test (byte 23 1) 253966182) - (return-from b2 a) - -103275090) - 62410) + (if (ldb-test (byte 23 1) 253966182) + (return-from b2 a) + -103275090) + 62410) (if (not (not (if (not nil) t (ldb-test (byte 2 27) 253671809)))) (return-from b2 -22) (%f1)))))))) @@ -1647,38 +1647,38 @@ (funcall (compile nil '(lambda (a b c) - (declare (type (integer 0 1000) a b c)) - (if (and (if b (not (and (not (or a t)) nil)) nil) - (logbitp 6 c)) - c b))) + (declare (type (integer 0 1000) a b c)) + (if (and (if b (not (and (not (or a t)) nil)) nil) + (logbitp 6 c)) + c b))) 0 100 600) 600) (deftest misc.116 (funcall (compile nil - '(lambda (a c) - (declare (type (integer 0 1000) a c)) - (if (if (and (not (and (not (or a t)) nil)) t) c nil) - 91 -1725615))) + '(lambda (a c) + (declare (type (integer 0 1000) a c)) + (if (if (and (not (and (not (or a t)) nil)) t) c nil) + 91 -1725615))) 0 0) 91) (deftest misc.117 (funcall (compile nil - '(lambda (a c) - (declare (type (integer 0 1000) a c)) - (if (or c (not (or nil (not (and (not (or a t)) nil))))) - 373146181 115))) + '(lambda (a c) + (declare (type (integer 0 1000) a c)) + (if (or c (not (or nil (not (and (not (or a t)) nil))))) + 373146181 115))) 0 0) 373146181) (deftest misc.118 (funcall (compile nil '(lambda (a) - (declare (type (integer 0 10000) a)) - (if (or (or nil (not (or (not (or a nil)) t))) a) a 9376))) + (declare (type (integer 0 10000) a)) + (if (or (or nil (not (or (not (or a nil)) t))) a) a 9376))) 0) 0) @@ -1688,8 +1688,8 @@ nil '(lambda () (if (and (if (1+ 0) nil (not (and (not (and (<= 3) nil)) nil))) - (if (= -31) -20 -2371)) - 1493 39720)))) + (if (= -31) -20 -2371)) + 1493 39720)))) 39720) (deftest misc.120 @@ -1699,7 +1699,7 @@ '(lambda (c) (declare (type (integer 377036 4184626) c)) (if (or (and t (not (and (not (and c nil)) nil))) nil) - 3470653 c))) + 3470653 c))) 1000000) 3470653) @@ -1737,62 +1737,62 @@ ;;; gcl bug (30 Oct 2003) (deftest misc.123 (let* ((fn1 '(lambda (b) - (declare (optimize (safety 1))) - (labels ((%f7 (f7-1 f7-2) - (let ((v2 (setq b 723149855))) - 25620))) - (max b - (multiple-value-call #'%f7 (values b 2)))))) - (fn2 '(lambda (b) - (labels ((%f7 (f7-1 f7-2) - (let ((v2 (setq b 723149855))) - 25620))) - (max b - (multiple-value-call #'%f7 (values b 2)))))) - (vals '(1439719153)) - (v1 (apply (compile nil fn1) vals)) - (v2 (apply (compile nil fn2) vals))) + (declare (optimize (safety 1))) + (labels ((%f7 (f7-1 f7-2) + (let ((v2 (setq b 723149855))) + 25620))) + (max b + (multiple-value-call #'%f7 (values b 2)))))) + (fn2 '(lambda (b) + (labels ((%f7 (f7-1 f7-2) + (let ((v2 (setq b 723149855))) + 25620))) + (max b + (multiple-value-call #'%f7 (values b 2)))))) + (vals '(1439719153)) + (v1 (apply (compile nil fn1) vals)) + (v2 (apply (compile nil fn2) vals))) (if (eql v1 v2) :good (list v1 v2))) :good) (deftest misc.124 (let* ((fn1 '(lambda (b) - (declare (optimize (safety 1))) - (labels ((%f7 (f7-1 f7-2) - (let ((v2 (setq b 723149855))) - 25620))) - (max b - (funcall #'%f7 b 2))))) - (fn2 '(lambda (b) - (labels ((%f7 (f7-1 f7-2) - (let ((v2 (setq b 723149855))) - 25620))) - (max b - (funcall #'%f7 b 2))))) - (vals '(1439719153)) - (v1 (apply (compile nil fn1) vals)) - (v2 (apply (compile nil fn2) vals))) + (declare (optimize (safety 1))) + (labels ((%f7 (f7-1 f7-2) + (let ((v2 (setq b 723149855))) + 25620))) + (max b + (funcall #'%f7 b 2))))) + (fn2 '(lambda (b) + (labels ((%f7 (f7-1 f7-2) + (let ((v2 (setq b 723149855))) + 25620))) + (max b + (funcall #'%f7 b 2))))) + (vals '(1439719153)) + (v1 (apply (compile nil fn1) vals)) + (v2 (apply (compile nil fn2) vals))) (if (eql v1 v2) :good (list v1 v2))) :good) ;;; This passed in gcl, but I added it for completeness. (deftest misc.125 (let* ((fn1 '(lambda (b) - (declare (optimize (safety 1))) - (labels ((%f7 (f7-1 f7-2) - (let ((v2 (setq b 723149855))) - 25620))) - (max b - (%f7 b 2))))) - (fn2 '(lambda (b) - (labels ((%f7 (f7-1 f7-2) - (let ((v2 (setq b 723149855))) - 25620))) - (max b - (%f7 b 2))))) - (vals '(1439719153)) - (v1 (apply (compile nil fn1) vals)) - (v2 (apply (compile nil fn2) vals))) + (declare (optimize (safety 1))) + (labels ((%f7 (f7-1 f7-2) + (let ((v2 (setq b 723149855))) + 25620))) + (max b + (%f7 b 2))))) + (fn2 '(lambda (b) + (labels ((%f7 (f7-1 f7-2) + (let ((v2 (setq b 723149855))) + 25620))) + (max b + (%f7 b 2))))) + (vals '(1439719153)) + (v1 (apply (compile nil fn1) vals)) + (v2 (apply (compile nil fn2) vals))) (if (eql v1 v2) :good (list v1 v2))) :good) @@ -1807,10 +1807,10 @@ (declare (special *should-always-be-true*)) (labels ((%f10 (f10-1 &optional (f10-2 (cl:handler-bind nil - (if *should-always-be-true* - (progn 878) - (should-never-be-called) - ))) + (if *should-always-be-true* + (progn 878) + (should-never-be-called) + ))) (f10-3 (cl:handler-case 10))) -15)) (%f10 -144))))) @@ -1822,15 +1822,15 @@ nil '(lambda (a c) (flet ((%f10 (f10-1 f10-2) 10)) - (flet ((%f4 - (&optional - (f4-1 (ldb (byte 10 6) - (* 828 - (+ 30 (dpb c (byte 9 30) (%f10 1918433 34107))) - ))) - (f4-2 (setq a 0))) - 2)) - (%f4 -5))))) + (flet ((%f4 + (&optional + (f4-1 (ldb (byte 10 6) + (* 828 + (+ 30 (dpb c (byte 9 30) (%f10 1918433 34107))) + ))) + (f4-2 (setq a 0))) + 2)) + (%f4 -5))))) 0 0) 2) @@ -1839,62 +1839,62 @@ (deftest misc.128 (flet ((%f14 - (f14-1 f14-2 - &optional - (f14-3 (unwind-protect 13059412)) - (f14-4 452384) - (f14-5 -6714)) - -1)) + (f14-1 f14-2 + &optional + (f14-3 (unwind-protect 13059412)) + (f14-4 452384) + (f14-5 -6714)) + -1)) (%f14 -2 1 1279896 589726354 -11)) -1) (deftest misc.129 (labels ((%f17 (f17-1 f17-2 &optional (f17-3 (unwind-protect 178))) - 483633925)) + 483633925)) -661328075) -661328075) (deftest misc.130 (let* ((fn1 - '(lambda (a c) - (flet ((%f10 (&optional (f10-1 -6489) (f10-2 (+ c))) - a)) - (multiple-value-call #'%f10 (values -178858 a))))) - (fn2 - '(lambda (a c) - (declare (notinline values +) (optimize (speed 0) (debug 0))) - (flet ((%f10 (&optional (f10-1 -6489) (f10-2 (+ c))) - a)) - (multiple-value-call #'%f10 (values -178858 a))))) - (vals '(-13649921 -1813684177409)) - (v1 (apply (compile nil fn1) vals)) - (v2 (apply (compile nil fn2) vals))) + '(lambda (a c) + (flet ((%f10 (&optional (f10-1 -6489) (f10-2 (+ c))) + a)) + (multiple-value-call #'%f10 (values -178858 a))))) + (fn2 + '(lambda (a c) + (declare (notinline values +) (optimize (speed 0) (debug 0))) + (flet ((%f10 (&optional (f10-1 -6489) (f10-2 (+ c))) + a)) + (multiple-value-call #'%f10 (values -178858 a))))) + (vals '(-13649921 -1813684177409)) + (v1 (apply (compile nil fn1) vals)) + (v2 (apply (compile nil fn2) vals))) (if (eql v1 v2) :good (list v1 v2))) :good) (deftest misc.131 (let* ((fn1 - '(lambda (a b) - (max - (block b7 - (abs - (ignore-errors - (if (ldb-test (byte 33 15) (return-from b7 a)) - b b))))))) - (fn2 - '(lambda (a b) - (declare (notinline abs max)) - (declare (optimize (speed 0))) - (declare (optimize (debug 0))) - (max - (block b7 - (abs - (ignore-errors - (if (ldb-test (byte 33 15) (return-from b7 a)) - b b))))))) - (vals '(-823894140303 -3)) - (v1 (apply (compile nil fn1) vals)) - (v2 (apply (compile nil fn2) vals))) + '(lambda (a b) + (max + (block b7 + (abs + (ignore-errors + (if (ldb-test (byte 33 15) (return-from b7 a)) + b b))))))) + (fn2 + '(lambda (a b) + (declare (notinline abs max)) + (declare (optimize (speed 0))) + (declare (optimize (debug 0))) + (max + (block b7 + (abs + (ignore-errors + (if (ldb-test (byte 33 15) (return-from b7 a)) + b b))))))) + (vals '(-823894140303 -3)) + (v1 (apply (compile nil fn1) vals)) + (v2 (apply (compile nil fn2) vals))) (if (eql v1 v2) :good (list v1 v2))) :good) @@ -1906,25 +1906,25 @@ (deftest misc.132 (funcall (compile nil - '(lambda (b c) - (declare (type (integer -3358662 7782429) b)) - (declare (type (integer -513018 12740) c)) - (declare (optimize (speed 3))) - (declare (optimize (safety 1))) - (declare (optimize (debug 1))) - (labels ((%f9 - (&optional - (f9-1 - (labels - ((%f5 (f5-1 f5-2) - (floor (ignore-errors f5-1) - (min -67 (if (equal -56 c) - -11197265 f5-2))))) - c)) - (f9-2 -439518) - (f9-3 -2840573)) - f9-1)) - (%f9 -193644 b 1368)))) + '(lambda (b c) + (declare (type (integer -3358662 7782429) b)) + (declare (type (integer -513018 12740) c)) + (declare (optimize (speed 3))) + (declare (optimize (safety 1))) + (declare (optimize (debug 1))) + (labels ((%f9 + (&optional + (f9-1 + (labels + ((%f5 (f5-1 f5-2) + (floor (ignore-errors f5-1) + (min -67 (if (equal -56 c) + -11197265 f5-2))))) + c)) + (f9-2 -439518) + (f9-3 -2840573)) + f9-1)) + (%f9 -193644 b 1368)))) 10 20) -193644) @@ -1935,18 +1935,18 @@ '(lambda () (declare (optimize (speed 2) (space 0) (safety 0) (debug 2) (compilation-speed 0))) (labels ((%f1 () 0)) - (if t 0 (dotimes (iv1 5 (if (%f1) 0 0)) (catch 'ct1 0))))))) + (if t 0 (dotimes (iv1 5 (if (%f1) 0 0)) (catch 'ct1 0))))))) 0) ;;; cmucl (22 Oct 2003) Default for optional parameter is improperly chosen (deftest misc.133 (funcall (compile nil - '(lambda (a b c) - (declare (notinline values)) - (declare (optimize (speed 0) (debug 0))) - (flet ((%f15 (&optional (f15-5 c)) f15-5)) - (multiple-value-call #'%f15 (values -2688612))))) + '(lambda (a b c) + (declare (notinline values)) + (declare (optimize (speed 0) (debug 0))) + (flet ((%f15 (&optional (f15-5 c)) f15-5)) + (multiple-value-call #'%f15 (values -2688612))))) 1 2 3) -2688612) @@ -1958,34 +1958,34 @@ (deftest misc.134 (funcall (compile nil - '(lambda (b) - (labels ((%f5 (f5-1 f5-2 f5-3 &optional (f5-4 0) - (f5-5 - (flet ((%f13 (f13-1) - (return-from %f13 b))) b))) - 900654472)) - 183301))) + '(lambda (b) + (labels ((%f5 (f5-1 f5-2 f5-3 &optional (f5-4 0) + (f5-5 + (flet ((%f13 (f13-1) + (return-from %f13 b))) b))) + 900654472)) + 183301))) 13775799184) 183301) (deftest misc.135 (funcall (compile nil - '(lambda (a b) - (labels ((%f4 (&optional (f4-1 (labels ((%f17 nil a)) b))) - -14806404)) - 190134))) + '(lambda (a b) + (labels ((%f4 (&optional (f4-1 (labels ((%f17 nil a)) b))) + -14806404)) + 190134))) 1783745644 268410629) 190134) (deftest misc.136 (funcall (compile nil - '(lambda (c) - (flet ((%f17 (&optional - (f17-1 (flet ((%f9 nil c)) 73574919))) - 643)) - 1039017546))) + '(lambda (c) + (flet ((%f17 (&optional + (f17-1 (flet ((%f9 nil c)) 73574919))) + 643)) + 1039017546))) 0) 1039017546) @@ -1994,28 +1994,28 @@ (deftest misc.137 (funcall (compile nil - '(lambda () - (declare (optimize (speed 3))) - (declare (optimize (safety 1))) - (flet ((%f16 (&optional - (f16-2 (lognor -3897747 - (if nil -1 -127228378)))) - 10)) - 20)))) + '(lambda () + (declare (optimize (speed 3))) + (declare (optimize (safety 1))) + (flet ((%f16 (&optional + (f16-2 (lognor -3897747 + (if nil -1 -127228378)))) + 10)) + 20)))) 20) (deftest misc.138 (funcall (compile nil - '(lambda (c) - (declare (type (integer 2996 39280) c)) - (declare (optimize (speed 3))) - (declare (optimize (safety 1))) - (if (zerop (labels ((%f8 (&optional - (f8-2 (logorc2 c -161957))) - 2176)) - 3)) - c c))) + '(lambda (c) + (declare (type (integer 2996 39280) c)) + (declare (optimize (speed 3))) + (declare (optimize (safety 1))) + (if (zerop (labels ((%f8 (&optional + (f8-2 (logorc2 c -161957))) + 2176)) + 3)) + c c))) 3000) 3000) @@ -2024,27 +2024,27 @@ (deftest misc.139 (let* ((fn1 - '(lambda (c) - (declare (optimize (speed 3))) - (logior (labels ((%f1 (f1-1 &optional (f1-2 (setq c 7))) f1-1)) - (%f1 774 3616592)) c))) - (fn2 - '(lambda (c) - (logior (labels ((%f1 (f1-1 &optional (f1-2 (setq c 7))) f1-1)) - (%f1 774 3616592)) c))) - (vals '(-3)) - (v1 (apply (compile nil fn1) vals)) - (v2 (apply (compile nil fn2) vals))) + '(lambda (c) + (declare (optimize (speed 3))) + (logior (labels ((%f1 (f1-1 &optional (f1-2 (setq c 7))) f1-1)) + (%f1 774 3616592)) c))) + (fn2 + '(lambda (c) + (logior (labels ((%f1 (f1-1 &optional (f1-2 (setq c 7))) f1-1)) + (%f1 774 3616592)) c))) + (vals '(-3)) + (v1 (apply (compile nil fn1) vals)) + (v2 (apply (compile nil fn2) vals))) (if (eql v1 v2) :good (list v1 v2))) :good) (deftest misc.140 (funcall (compile nil - '(lambda (a) - (ldb (byte 24 20) - (labels ((%f12 (&optional (f12-1 149) (f12-2 -3894159)) 34068)) - (let* ((v4 (%f12))) a))))) + '(lambda (a) + (ldb (byte 24 20) + (labels ((%f12 (&optional (f12-1 149) (f12-2 -3894159)) 34068)) + (let* ((v4 (%f12))) a))))) -1) 16777215) @@ -2055,17 +2055,17 @@ (deftest misc.141 (funcall (compile nil - '(lambda () (labels ((%f11 (&optional (f11-3 (restart-case 0))) f11-3)) - (%f11 1))))) + '(lambda () (labels ((%f11 (&optional (f11-3 (restart-case 0))) f11-3)) + (%f11 1))))) 1) (deftest misc.142 (funcall (compile nil - '(lambda () - (labels ((%f15 (&optional (f15-3 (block b1 (+ 1 (return-from b1 -10))))) - f15-3)) - (%f15))))) + '(lambda () + (labels ((%f15 (&optional (f15-3 (block b1 (+ 1 (return-from b1 -10))))) + f15-3)) + (%f15))))) -10) ;;; cmucl (22 Oct 2003): NIL is not of type C::REF @@ -2085,24 +2085,24 @@ (deftest misc.144 (funcall (compile nil - '(lambda (a b c) - (declare (type (integer 9739325 14941321) c)) - (labels ((%f7 (f7-1 f7-2 f7-3 &optional (f7-4 b)) - (return-from %f7 f7-4))) - (if (= -76482 c) - (if (>= c 10986082) (%f7 a b (%f7 -8088 c -147106 2)) -10502) - (%f7 509252 b b))))) + '(lambda (a b c) + (declare (type (integer 9739325 14941321) c)) + (labels ((%f7 (f7-1 f7-2 f7-3 &optional (f7-4 b)) + (return-from %f7 f7-4))) + (if (= -76482 c) + (if (>= c 10986082) (%f7 a b (%f7 -8088 c -147106 2)) -10502) + (%f7 509252 b b))))) -200 17 10000000) 17) (deftest misc.145 (funcall (compile nil - '(lambda (a b c) - (declare (optimize (safety 3))) - (block b5 - (return-from b5 - (logior (if (or c t) b (load-time-value -61)) (return-from b5 -3)))))) + '(lambda (a b c) + (declare (optimize (safety 3))) + (block b5 + (return-from b5 + (logior (if (or c t) b (load-time-value -61)) (return-from b5 -3)))))) 1 2 3) -3) @@ -2110,12 +2110,12 @@ (deftest misc.146 (funcall (compile nil - '(lambda (b) - (declare (optimize (speed 3))) - (flet ((%f14 (&optional (f14-1 301917227) - (f14-2 (setq b 995196571))) - f14-1)) - (%f14 b (block b3 (%f14 -64)))))) + '(lambda (b) + (declare (optimize (speed 3))) + (flet ((%f14 (&optional (f14-1 301917227) + (f14-2 (setq b 995196571))) + f14-1)) + (%f14 b (block b3 (%f14 -64)))))) 10) 10) @@ -2133,7 +2133,7 @@ (deftest misc.149 (funcall (compile nil '(lambda (b) - (block b1 (- (logand 0 -34 1026491) (ignore-errors (return-from b1 b)))))) + (block b1 (- (logand 0 -34 1026491) (ignore-errors (return-from b1 b)))))) 0) 0) @@ -2150,13 +2150,13 @@ nil '(lambda (a b c) (flet ((%f17 - (&optional - (f17-4 - (labels ((%f13 (f13-1 &optional (f13-2 (multiple-value-prog1 b))) - -4)) - (%f13 b (%f13 190))))) - -157596)) - (labels ((%f6 () (%f17))) c)))) + (&optional + (f17-4 + (labels ((%f13 (f13-1 &optional (f13-2 (multiple-value-prog1 b))) + -4)) + (%f13 b (%f13 190))))) + -157596)) + (labels ((%f6 () (%f17))) c)))) 10 20 30000) 30000) @@ -2166,7 +2166,7 @@ nil '(lambda () (declare (optimize (speed 3) (space 2) (safety 3) - (debug 3) (compilation-speed 2))) + (debug 3) (compilation-speed 2))) (catch 'ct6 (apply (constantly 0) (list)))))) 0) @@ -2177,7 +2177,7 @@ '(lambda (a) (declare (type integer a)) (declare (optimize (speed 3) (space 0) (safety 3) (debug 2) - (compilation-speed 3))) + (compilation-speed 3))) (if (= a 0) 0 (truncate a)))) 0) 0) @@ -2189,15 +2189,15 @@ '(lambda (a b) (declare (optimize (speed 1) (space 3) (safety 2) (debug 3) (compilation-speed 3))) (labels ((%f4 (f4-1) - 0)) - (labels ((%f15 - (f15-1 f15-2 - &optional (f15-3 (apply #'%f4 0 nil)) (f15-4 0) - (f15-5 (%f4 (%f4 (if (/= 0 0) a 0))))) - 0)) - (labels ((%f13 (f13-1) - (%f15 b 0 0 0))) - 0))))) + 0)) + (labels ((%f15 + (f15-1 f15-2 + &optional (f15-3 (apply #'%f4 0 nil)) (f15-4 0) + (f15-5 (%f4 (%f4 (if (/= 0 0) a 0))))) + 0)) + (labels ((%f13 (f13-1) + (%f15 b 0 0 0))) + 0))))) 1 2) 0) @@ -2222,10 +2222,10 @@ (declare (type (integer -249 97) b)) (declare (type (integer 3565969 6559088) c)) (let* ((v7 - (if (not (= 1030 4)) - c - (logand (if (/= b c) b 34945725) (unwind-protect -12443701))))) - 5520737))) + (if (not (= 1030 4)) + c + (logand (if (/= b c) b 34945725) (unwind-protect -12443701))))) + 5520737))) -24 5657943) 5520737) @@ -2235,7 +2235,7 @@ nil '(lambda () (declare - (optimize (speed 3) (space 3) (safety 1) (debug 1) (compilation-speed 0))) + (optimize (speed 3) (space 3) (safety 1) (debug 1) (compilation-speed 0))) (case 0 ((-12 -9 -12 -2 -5 -2 15) (catch 'ct7 (throw 'ct7 0))) (t 0))))) 0) @@ -2245,41 +2245,41 @@ (deftest misc.152 (funcall (compile nil - '(lambda (a) - (block b5 - (let ((v1 (let ((v8 (unwind-protect 9365))) - 8862008))) - (* - (return-from b5 - (labels ((%f11 (f11-1) f11-1)) - (%f11 87246015))) - (return-from b5 - (setq v1 - (labels ((%f6 (f6-1 f6-2 f6-3) v1)) - (dpb (unwind-protect a) - (byte 18 13) - (labels ((%f4 () 27322826)) - (%f6 -2 -108626545 (%f4)))))))))))) + '(lambda (a) + (block b5 + (let ((v1 (let ((v8 (unwind-protect 9365))) + 8862008))) + (* + (return-from b5 + (labels ((%f11 (f11-1) f11-1)) + (%f11 87246015))) + (return-from b5 + (setq v1 + (labels ((%f6 (f6-1 f6-2 f6-3) v1)) + (dpb (unwind-protect a) + (byte 18 13) + (labels ((%f4 () 27322826)) + (%f6 -2 -108626545 (%f4)))))))))))) -6) 87246015) (deftest misc.153 (funcall (compile nil - '(lambda (a) - (if (logbitp 3 - (case -2 - ((-96879 -1035 -57680 -106404 -94516 -125088) - (unwind-protect 90309179)) - ((-20811 -86901 -9368 -98520 -71594) - (let ((v9 (unwind-protect 136707))) - (block b3 - (setq v9 - (let ((v4 (return-from b3 v9))) - (- (ignore-errors (return-from b3 v4)))))))) - (t -50))) - -20343 - a))) + '(lambda (a) + (if (logbitp 3 + (case -2 + ((-96879 -1035 -57680 -106404 -94516 -125088) + (unwind-protect 90309179)) + ((-20811 -86901 -9368 -98520 -71594) + (let ((v9 (unwind-protect 136707))) + (block b3 + (setq v9 + (let ((v4 (return-from b3 v9))) + (- (ignore-errors (return-from b3 v4)))))))) + (t -50))) + -20343 + a))) 0) -20343) @@ -2289,11 +2289,11 @@ (deftest misc.154 (funcall (compile nil - '(lambda (b) - (labels ((%f8 nil -39011)) - (flet ((%f4 (f4-1 f4-2 &optional (f4-3 (%f8)) (f4-4 b)) - (%f8))) - (%f4 -260093 -75538 -501684 (let ((v9 (%f8))) -3)))))) + '(lambda (b) + (labels ((%f8 nil -39011)) + (flet ((%f4 (f4-1 f4-2 &optional (f4-3 (%f8)) (f4-4 b)) + (%f8))) + (%f4 -260093 -75538 -501684 (let ((v9 (%f8))) -3)))))) 0) -39011) @@ -2302,9 +2302,9 @@ (deftest misc.155 (funcall (compile nil - '(lambda (a b c) - (labels ((%f6 (f6-1 f6-2) c)) - (multiple-value-call #'%f6 (values a c))))) + '(lambda (a b c) + (labels ((%f6 (f6-1 f6-2) c)) + (multiple-value-call #'%f6 (values a c))))) 0 10 20) 20) @@ -2313,8 +2313,8 @@ (deftest misc.156 (funcall (compile nil - '(lambda () - (let ((v6 (ldb (byte 30 1) 1473))) (let ((v8 v6)) 2395))))) + '(lambda () + (let ((v6 (ldb (byte 30 1) 1473))) (let ((v8 v6)) 2395))))) 2395) ;;; "/tmp/ecl9CEiD1RL5.c:36: `lex0' undeclared (first use in this function)" @@ -2322,11 +2322,11 @@ (deftest misc.157 (funcall (compile nil - ' (lambda (c) - (labels ((%f11 nil 1)) - (flet ((%f9 (f9-1 f9-2) - (case 17466182 ((-12) (%f11)) (t c)))) - (%f9 -9913 c))))) + ' (lambda (c) + (labels ((%f11 nil 1)) + (flet ((%f9 (f9-1 f9-2) + (case 17466182 ((-12) (%f11)) (t c)))) + (%f9 -9913 c))))) 17) 17) @@ -2378,19 +2378,19 @@ (declare (optimize (safety 1))) (declare (optimize (debug 1))) (block b5 - (let ((v2 - (if (or (>= 34 a) 108361696) - (return-from b5 -1) - (lognand b -16023672)))) - (flet ((%f10 - (f10-1 - &optional (f10-2 (if (eql -30 v2) v2 -5)) (f10-3 v2) - (f10-4 14)) - (if (equal a f10-2) f10-4 380663047))) - (flet ((%f6 (f6-1 f6-2 f6-3) - f6-1)) - (multiple-value-call #'%f6 - (values a (%f10 -37243) -47691)))))))) + (let ((v2 + (if (or (>= 34 a) 108361696) + (return-from b5 -1) + (lognand b -16023672)))) + (flet ((%f10 + (f10-1 + &optional (f10-2 (if (eql -30 v2) v2 -5)) (f10-3 v2) + (f10-4 14)) + (if (equal a f10-2) f10-4 380663047))) + (flet ((%f6 (f6-1 f6-2 f6-3) + f6-1)) + (multiple-value-call #'%f6 + (values a (%f10 -37243) -47691)))))))) 100 -1200) -1) @@ -2400,10 +2400,10 @@ (deftest misc.160 (funcall (compile nil - '(lambda (c) - (declare (notinline + funcall)) - (+ (labels ((%f1 () -14)) (funcall #'%f1)) - (flet ((%f2 () (floor c))) (funcall #'%f2))))) + '(lambda (c) + (declare (notinline + funcall)) + (+ (labels ((%f1 () -14)) (funcall #'%f1)) + (flet ((%f2 () (floor c))) (funcall #'%f2))))) 0) -14) @@ -2413,27 +2413,27 @@ (deftest misc.161 (funcall (compile nil - '(lambda (a b c) - (flet ((%f17 (f17-1 f17-2 f17-3) - (flet ((%f2 - (f2-1 f2-2 - &optional (f2-3 (return-from %f17 f17-1)) - (f2-4 (return-from %f17 -57))) - b)) - (multiple-value-call #'%f2 (values c -588 55101157))))) - (if nil - (let* ((v6 (%f17 102136 3096194 a))) - b) - c)))) + '(lambda (a b c) + (flet ((%f17 (f17-1 f17-2 f17-3) + (flet ((%f2 + (f2-1 f2-2 + &optional (f2-3 (return-from %f17 f17-1)) + (f2-4 (return-from %f17 -57))) + b)) + (multiple-value-call #'%f2 (values c -588 55101157))))) + (if nil + (let* ((v6 (%f17 102136 3096194 a))) + b) + c)))) -511 -2269809964 250738) 250738) (deftest misc.161a (funcall (compile nil - '(lambda (a) - (declare (optimize (speed 3) (space 2) (safety 3) (debug 0) (compilation-speed 0))) - (progn (abs 0) (- a) 0))) + '(lambda (a) + (declare (optimize (speed 3) (space 2) (safety 3) (debug 0) (compilation-speed 0))) + (progn (abs 0) (- a) 0))) 1) 0) @@ -2441,11 +2441,11 @@ (deftest misc.162 (let* ((fn `(lambda (a c) - (declare (notinline funcall) - (optimize (speed 0) (debug 0))) - (labels ((%f17 (f17-1 &optional (f17-4 c)) - (return-from %f17 (if f17-4 f17-1 49572640)))) - (funcall #'%f17 15128425 a))))) + (declare (notinline funcall) + (optimize (speed 0) (debug 0))) + (labels ((%f17 (f17-1 &optional (f17-4 c)) + (return-from %f17 (if f17-4 f17-1 49572640)))) + (funcall #'%f17 15128425 a))))) (funcall (compile nil fn) 1 3)) 15128425) @@ -2455,12 +2455,12 @@ (deftest misc.163 (funcall (compile nil - '(lambda (b) - (declare (type (integer -15716 3947) b)) - (case b - ((-7 -6 -6) :good) - ((-5 -6) :bad) - ))) + '(lambda (b) + (declare (type (integer -15716 3947) b)) + (case b + ((-7 -6 -6) :good) + ((-5 -6) :bad) + ))) -6) :good) @@ -2474,12 +2474,12 @@ nil '(lambda (a) (labels ((%f6 (f6-1 f6-2) - (cl:handler-case - (labels ((%f2 nil (logior a))) - (if (eql (%f2) (%f2)) - 2829254 -10723)) - (error (c) (error c)) - ))) + (cl:handler-case + (labels ((%f2 nil (logior a))) + (if (eql (%f2) (%f2)) + 2829254 -10723)) + (error (c) (error c)) + ))) (funcall #'%f6 10 20) ))) 0) @@ -2494,19 +2494,19 @@ nil '(lambda (a b c) (block b3 - (flet ((%f15 - (f15-1 f15-2 f15-3 - &optional - (f15-4 - (flet ((%f17 - (f17-1 f17-2 f17-3 - &optional (f17-4 185155520) (f17-5 c) - (f17-6 37)) + (flet ((%f15 + (f15-1 f15-2 f15-3 + &optional + (f15-4 + (flet ((%f17 + (f17-1 f17-2 f17-3 + &optional (f17-4 185155520) (f17-5 c) + (f17-6 37)) c)) - (%f17 -1046 a 1115306 (%f17 b -146330 422) -337817))) - (f15-5 a) (f15-6 -40)) - (return-from b3 -16))) - (multiple-value-call #'%f15 (values -519354 a 121 c -1905)))))) + (%f17 -1046 a 1115306 (%f17 b -146330 422) -337817))) + (f15-5 a) (f15-6 -40)) + (return-from b3 -16))) + (multiple-value-call #'%f15 (values -519354 a 121 c -1905)))))) 0 0 -5) -16) @@ -2522,18 +2522,18 @@ nil '(lambda (a b c) (labels ((%f4 - (f4-1 f4-2 &optional (f4-3 b) (f4-4 c) (f4-5 -170)) - (let ((v2 - (flet ((%f3 - (f3-1 - &optional (f3-2 28476586) (f3-3 c) - (f3-4 -9240)) - (return-from %f4 1))) - (multiple-value-call - #'%f3 - (values -479909 19843799 f4-5 -463858))))) - b))) - c))) + (f4-1 f4-2 &optional (f4-3 b) (f4-4 c) (f4-5 -170)) + (let ((v2 + (flet ((%f3 + (f3-1 + &optional (f3-2 28476586) (f3-3 c) + (f3-4 -9240)) + (return-from %f4 1))) + (multiple-value-call + #'%f3 + (values -479909 19843799 f4-5 -463858))))) + b))) + c))) 0 0 -223721124) -223721124) @@ -2543,41 +2543,41 @@ nil '(lambda (a b c) (flet ((%f5 (f5-1 f5-2) - (return-from %f5 604245664))) - (flet ((%f12 - (f12-1 f12-2 - &optional (f12-3 c) (f12-4 -579456) - (f12-5 - (labels ((%f9 - (f9-1 - &optional - (f9-2 - (%f5 1 - (let ((v4 (%f5 30732606 a))) - b))) - (f9-3 -29) - (f9-4 - (block b4 - (labels ((%f14 () - (labels ((%f18 - (&optional - (f18-1 - (locally - 592928)) - (f18-2 -3) - (f18-3 - (return-from - b4 a))) - f18-1)) - (%f18 74214190 a)))) - (%f14))))) + (return-from %f5 604245664))) + (flet ((%f12 + (f12-1 f12-2 + &optional (f12-3 c) (f12-4 -579456) + (f12-5 + (labels ((%f9 + (f9-1 + &optional + (f9-2 + (%f5 1 + (let ((v4 (%f5 30732606 a))) + b))) + (f9-3 -29) + (f9-4 + (block b4 + (labels ((%f14 () + (labels ((%f18 + (&optional + (f18-1 + (locally + 592928)) + (f18-2 -3) + (f18-3 + (return-from + b4 a))) + f18-1)) + (%f18 74214190 a)))) + (%f14))))) -1)) - (flet ((%f17 - (f17-1 f17-2 &optional (f17-3 -136045032)) + (flet ((%f17 + (f17-1 f17-2 &optional (f17-3 -136045032)) -38655)) - (%f17 43873 -138030706 -1372492))))) - (return-from %f12 -15216677))) - (%f12 (%f5 b 2329383) a))))) + (%f17 43873 -138030706 -1372492))))) + (return-from %f12 -15216677))) + (%f12 (%f5 b 2329383) a))))) 1 2 3) -15216677) @@ -2587,25 +2587,25 @@ nil '(lambda (a b c) (block b3 - (flet ((%f11 - (f11-1 f11-2 - &optional - (f11-3 - (block b6 - (labels ((%f11 - (f11-1 - &optional (f11-2 c) - (f11-3 (return-from b6 -1806))) + (flet ((%f11 + (f11-1 f11-2 + &optional + (f11-3 + (block b6 + (labels ((%f11 + (f11-1 + &optional (f11-2 c) + (f11-3 (return-from b6 -1806))) (return-from b3 -28432))) - (apply #'%f11 (list -114)))))) - (return-from %f11 f11-2))) - (%f11 b - c - (labels ((%f10 - (f10-1 f10-2 - &optional (f10-3 a) (f10-4 (%f11 -3931 170))) - -1704759)) - c)))))) + (apply #'%f11 (list -114)))))) + (return-from %f11 f11-2))) + (%f11 b + c + (labels ((%f10 + (f10-1 f10-2 + &optional (f10-3 a) (f10-4 (%f11 -3931 170))) + -1704759)) + c)))))) 1 2 3) 3) @@ -2615,17 +2615,17 @@ nil '(lambda (a b c) (if t -21705 - (flet ((%f15 (f15-1 f15-2) + (flet ((%f15 (f15-1 f15-2) b)) - (block b4 - (%f15 -11112264 - (labels ((%f2 - (f2-1 - &optional (f2-2 (if b -5485340 -1534)) - (f2-3 -6)) - (return-from b4 f2-1))) - (return-from b4 - (if b (%f2 c -320813) (%f2 b a a)))))))))) + (block b4 + (%f15 -11112264 + (labels ((%f2 + (f2-1 + &optional (f2-2 (if b -5485340 -1534)) + (f2-3 -6)) + (return-from b4 f2-1))) + (return-from b4 + (if b (%f2 c -320813) (%f2 b a a)))))))))) 1 2 3) -21705) @@ -2661,31 +2661,31 @@ (declare (type (integer -281 30570) a)) (declare (type (integer -4247786 -199821) b)) (declare - (optimize (speed 3) - (space 0) - (safety 0) - (debug 2) - (compilation-speed 1))) + (optimize (speed 3) + (space 0) + (safety 0) + (debug 2) + (compilation-speed 1))) (flet ((%f14 (f14-1 f14-2) - (coerce 0 'integer))) - (labels ((%f3 (f3-1 f3-2 f3-3) - (if - (if - (typep (%f14 -864 -10620) '(integer -11672107617 -2)) - t - (typep - (imagpart - (lcm 2120258 0 (logandc2 -6222 -1057382553))) - '(integer * -113))) - (dotimes - (iv3 5 - (flet ((%f11 (f11-1 f11-2 f11-3) - b)) - (multiple-value-call #'%f11 - (values a a f3-3)))) - 0) - 0))) - (case (%f3 a a 0) (t 0)))))) + (coerce 0 'integer))) + (labels ((%f3 (f3-1 f3-2 f3-3) + (if + (if + (typep (%f14 -864 -10620) '(integer -11672107617 -2)) + t + (typep + (imagpart + (lcm 2120258 0 (logandc2 -6222 -1057382553))) + '(integer * -113))) + (dotimes + (iv3 5 + (flet ((%f11 (f11-1 f11-2 f11-3) + b)) + (multiple-value-call #'%f11 + (values a a f3-3)))) + 0) + 0))) + (case (%f3 a a 0) (t 0)))))) 22087 -1787181) 0) @@ -2697,16 +2697,16 @@ nil '(lambda (b) (block b6 - (flet ((%f11 (f11-1 f11-2 &optional (f11-3 -2369157) (f11-4 409468)) - (return-from b6 1))) - (block b2 - (flet ((%f10 (f10-1 f10-2 + (flet ((%f11 (f11-1 f11-2 &optional (f11-3 -2369157) (f11-4 409468)) + (return-from b6 1))) + (block b2 + (flet ((%f10 (f10-1 f10-2 &optional (f10-3 (return-from b6 (return-from b6 -3)))) - -8)) - (%f10 - (multiple-value-call #'%f11 (values -5945959 1654846427 -22)) - (return-from b2 b) - (return-from b2 31258361)))))))) + -8)) + (%f10 + (multiple-value-call #'%f11 (values -5945959 1654846427 -22)) + (return-from b2 b) + (return-from b2 31258361)))))))) 10) 1) @@ -2723,28 +2723,28 @@ (declare (optimize (speed 0))) (declare (optimize (debug 0))) (labels ((%f12 (f12-1 f12-2) - (labels ((%f2 (f2-1 f2-2) - (flet ((%f6 () - (flet ((%f18 - (f18-1 - &optional (f18-2 a) - (f18-3 -207465075) - (f18-4 a)) - (return-from %f12 b))) - (%f18 -3489553 - -7 - (%f18 (%f18 150 -64 f12-1) - (%f18 (%f18 -8531) - 11410) - b) - 56362666)))) - (labels ((%f7 - (f7-1 f7-2 - &optional (f7-3 (%f6))) - 7767415)) - f12-1)))) - (%f2 b -36582571)))) - (apply #'%f12 (list 774 -4413))))) + (labels ((%f2 (f2-1 f2-2) + (flet ((%f6 () + (flet ((%f18 + (f18-1 + &optional (f18-2 a) + (f18-3 -207465075) + (f18-4 a)) + (return-from %f12 b))) + (%f18 -3489553 + -7 + (%f18 (%f18 150 -64 f12-1) + (%f18 (%f18 -8531) + 11410) + b) + 56362666)))) + (labels ((%f7 + (f7-1 f7-2 + &optional (f7-3 (%f6))) + 7767415)) + f12-1)))) + (%f2 b -36582571)))) + (apply #'%f12 (list 774 -4413))))) 0 1 2) 774) @@ -2761,18 +2761,18 @@ (declare (optimize (speed 0))) (declare (optimize (debug 0))) (flet ((%f11 - (f11-1 f11-2 - &optional (f11-3 c) (f11-4 7947114) - (f11-5 - (flet ((%f3 (f3-1 &optional (f3-2 b) (f3-3 5529)) - 8134)) - (multiple-value-call #'%f3 - (values (%f3 -30637724 b) c))))) - (setq c 555910))) - (if (and nil (%f11 a a)) - (if (%f11 a 421778 4030 1) - (labels ((%f7 - (f7-1 f7-2 + (f11-1 f11-2 + &optional (f11-3 c) (f11-4 7947114) + (f11-5 + (flet ((%f3 (f3-1 &optional (f3-2 b) (f3-3 5529)) + 8134)) + (multiple-value-call #'%f3 + (values (%f3 -30637724 b) c))))) + (setq c 555910))) + (if (and nil (%f11 a a)) + (if (%f11 a 421778 4030 1) + (labels ((%f7 + (f7-1 f7-2 &optional (f7-3 (%f11 -79192293 @@ -2781,10 +2781,10 @@ b (%f11 b 985))) (f7-4 a)) - b)) - (%f11 c b -25644)) - 54) - -32326608)))) + b)) + (%f11 c b -25644)) + 54) + -32326608)))) 1 2 3) -32326608) @@ -2826,12 +2826,12 @@ (declare (optimize (safety 1))) (declare (optimize (debug 1))) (if (not (if (/= b 7) t (not (not a)))) - (case (setq b -5880) - ((8382 3401 2058 39167 62228) - (flet ((%f7 (f7-1 f7-2 f7-3) f7-1)) - (multiple-value-call #'%f7 (values -135629 a -410168200)))) - (t a)) - 15173))) + (case (setq b -5880) + ((8382 3401 2058 39167 62228) + (flet ((%f7 (f7-1 f7-2 f7-3) f7-1)) + (multiple-value-call #'%f7 (values -135629 a -410168200)))) + (t a)) + 15173))) 30 0) 15173) @@ -2846,24 +2846,24 @@ (declare (optimize (safety 1))) (declare (optimize (debug 1))) (if - (and - (if (if (equal b 9) nil t) - nil - (not - (logbitp 5 - (labels ((%f5 (f5-1 f5-2 f5-3) - 4057223)) - (let ((v9 (%f5 -42 -27504 45026809))) - 15011))))) - (if - (or a - (labels ((%f16 (f16-1) - 61)) - (apply #'%f16 275 (list)))) - a - t)) - (setq a -4803) - (rem a (max 47 b))))) + (and + (if (if (equal b 9) nil t) + nil + (not + (logbitp 5 + (labels ((%f5 (f5-1 f5-2 f5-3) + 4057223)) + (let ((v9 (%f5 -42 -27504 45026809))) + 15011))))) + (if + (or a + (labels ((%f16 (f16-1) + 61)) + (apply #'%f16 275 (list)))) + a + t)) + (setq a -4803) + (rem a (max 47 b))))) 0 0) 0) @@ -2880,37 +2880,37 @@ (declare (optimize (speed 0))) (declare (optimize (debug 0))) (labels ((%f4 (f4-1 f4-2 f4-3) - (labels ((%f1 (f1-1 f1-2 f1-3) - 2)) - (labels ((%f11 - (f11-1 - &optional - (f11-2 - (return-from %f4 - (labels ((%f8 - (f8-1 f8-2 f8-3 + (labels ((%f1 (f1-1 f1-2 f1-3) + 2)) + (labels ((%f11 + (f11-1 + &optional + (f11-2 + (return-from %f4 + (labels ((%f8 + (f8-1 f8-2 f8-3 &optional (f8-4 -35) (f8-5 f4-2)) - f4-1)) - (funcall #'%f8 53 b f4-1))))) + f4-1)) + (funcall #'%f8 53 b f4-1))))) (return-from %f4 a))) - (signum - (let ((v4 - (flet ((%f8 - (f8-1 f8-2 f8-3 - &optional (f8-4 b) (f8-5 -560367)) + (signum + (let ((v4 + (flet ((%f8 + (f8-1 f8-2 f8-3 + &optional (f8-4 b) (f8-5 -560367)) f8-4)) - (%f8 -27 35395 c -69)))) - (%f11 - (multiple-value-call #'%f11 - (values (%f1 (%f11 b (%f11 v4 f4-3)) f4-3 77936) - 1628490976)) - (return-from %f4 (%f1 -9432 f4-1 f4-1))))))))) - (flet ((%f7 (f7-1 f7-2 f7-3) - (%f4 b f7-3 f7-3))) - (flet ((%f14 (f14-1) - (apply #'%f7 -252 -56169265 -7322946 (list)))) - (%f14 a)))))) + (%f8 -27 35395 c -69)))) + (%f11 + (multiple-value-call #'%f11 + (values (%f1 (%f11 b (%f11 v4 f4-3)) f4-3 77936) + 1628490976)) + (return-from %f4 (%f1 -9432 f4-1 f4-1))))))))) + (flet ((%f7 (f7-1 f7-2 f7-3) + (%f4 b f7-3 f7-3))) + (flet ((%f14 (f14-1) + (apply #'%f7 -252 -56169265 -7322946 (list)))) + (%f14 a)))))) -70313091 577425217 28052774417) -70313091) @@ -2930,9 +2930,9 @@ (f17-3 (let () 6857)) (f17-4 (labels ((%f3 (f3-1 f3-2 f3-3 &optional (f3-4 a) (f3-5 877)) - 139)) + 139)) (apply #'%f3 (list -33052082 b a 1572))))) - b)) + b)) (multiple-value-call #'%f17 (values 31 b a b)))) 392))) 0 0) @@ -2950,21 +2950,21 @@ (declare (optimize (safety 1))) (declare (optimize (debug 1))) (lognor (unwind-protect -1248) - (flet ((%f7 - (&optional - (f7-1 - (flet ((%f1 (f1-1 f1-2 f1-3) 121426)) - (%f1 b 2337452 (%f1 61767 b a)))) - (f7-2 - (block b8 - (logandc1 - (labels ((%f10 (f10-1 f10-2 f10-3) 323734600)) - (%f10 (%f10 323734600 323734600 -10165) - -607741 (ignore-errors 971588))) - (if (>= b -27) (return-from b8 -2) - (ignore-errors 237138926)))))) - f7-2)) - (apply #'%f7 (list 761316125 b)))))) + (flet ((%f7 + (&optional + (f7-1 + (flet ((%f1 (f1-1 f1-2 f1-3) 121426)) + (%f1 b 2337452 (%f1 61767 b a)))) + (f7-2 + (block b8 + (logandc1 + (labels ((%f10 (f10-1 f10-2 f10-3) 323734600)) + (%f10 (%f10 323734600 323734600 -10165) + -607741 (ignore-errors 971588))) + (if (>= b -27) (return-from b8 -2) + (ignore-errors 237138926)))))) + f7-2)) + (apply #'%f7 (list 761316125 b)))))) 1792769319 -60202244870) 5) @@ -2984,37 +2984,37 @@ (declare (optimize (safety 1))) (declare (optimize (debug 1))) (block b6 - (flet ((%f10 (f10-1 f10-2) - (labels ((%f6 (f6-1 f6-2) - f6-1)) - (let ((v2 - (flet ((%f1 (f1-1 f1-2 f1-3) - f1-3)) - (let ((v8 - (%f1 -11350578 - (%f6 10414199 13) - -58931837))) - -239755)))) - 323)))) - (labels ((%f4 - (f4-1 - &optional (f4-2 204) (f4-3 -1) - (f4-4 - (flet ((%f2 (f2-1) - (if t (return-from b6 c) a))) - (logorc2 (multiple-value-call #'%f2 (values 1)) - (let* ((v5 (floor (%f2 -1260)))) - (case (abs (logxor 185664 a)) - ((-2 5975) - (if (or (< b v5) nil) - (return-from b6 - (let ((v10 (%f2 c))) - 0)) - (multiple-value-call #'%f10 - (values -3 a)))) - (t b))))))) - 1503938)) - (multiple-value-call #'%f4 (values -1 a 1853966))))))) + (flet ((%f10 (f10-1 f10-2) + (labels ((%f6 (f6-1 f6-2) + f6-1)) + (let ((v2 + (flet ((%f1 (f1-1 f1-2 f1-3) + f1-3)) + (let ((v8 + (%f1 -11350578 + (%f6 10414199 13) + -58931837))) + -239755)))) + 323)))) + (labels ((%f4 + (f4-1 + &optional (f4-2 204) (f4-3 -1) + (f4-4 + (flet ((%f2 (f2-1) + (if t (return-from b6 c) a))) + (logorc2 (multiple-value-call #'%f2 (values 1)) + (let* ((v5 (floor (%f2 -1260)))) + (case (abs (logxor 185664 a)) + ((-2 5975) + (if (or (< b v5) nil) + (return-from b6 + (let ((v10 (%f2 c))) + 0)) + (multiple-value-call #'%f10 + (values -3 a)))) + (t b))))))) + 1503938)) + (multiple-value-call #'%f4 (values -1 a 1853966))))))) 173549795 725346738048 993243799) 993243799) @@ -3023,37 +3023,37 @@ (deftest misc.177 (let* ((form '(flet ((%f11 - (f11-1 f11-2) - (labels ((%f4 () (round 200048 (max 99 c)))) - (logand - f11-1 - (labels ((%f3 (f3-1) -162967612)) - (%f3 (let* ((v8 (%f4))) - (setq f11-1 (%f4))))))))) - (%f11 -120429363 (%f11 62362 b)))) - (vars '(a b c)) - (vals '(6714367 9645616 -637681868)) - (fn1 `(lambda ,vars - (declare (type (integer 804561 7640697) a)) - (declare (type (integer -1 10441401) b)) - (declare (type (integer -864634669 55189745) c)) - (declare (ignorable a b c)) - (declare (optimize (speed 3))) - (declare (optimize (safety 1))) - (declare (optimize (debug 1))) - ,form)) - (fn2 `(lambda ,vars - (declare (notinline list apply logand max round)) - (declare (optimize (safety 3))) - (declare (optimize (speed 0))) - (declare (optimize (debug 0))) - ,form)) - (compiled-fn1 (compile nil fn1)) - (compiled-fn2 (compile nil fn2)) - (results1 (multiple-value-list (apply compiled-fn1 vals))) - (results2 (multiple-value-list (apply compiled-fn2 vals)))) + (f11-1 f11-2) + (labels ((%f4 () (round 200048 (max 99 c)))) + (logand + f11-1 + (labels ((%f3 (f3-1) -162967612)) + (%f3 (let* ((v8 (%f4))) + (setq f11-1 (%f4))))))))) + (%f11 -120429363 (%f11 62362 b)))) + (vars '(a b c)) + (vals '(6714367 9645616 -637681868)) + (fn1 `(lambda ,vars + (declare (type (integer 804561 7640697) a)) + (declare (type (integer -1 10441401) b)) + (declare (type (integer -864634669 55189745) c)) + (declare (ignorable a b c)) + (declare (optimize (speed 3))) + (declare (optimize (safety 1))) + (declare (optimize (debug 1))) + ,form)) + (fn2 `(lambda ,vars + (declare (notinline list apply logand max round)) + (declare (optimize (safety 3))) + (declare (optimize (speed 0))) + (declare (optimize (debug 0))) + ,form)) + (compiled-fn1 (compile nil fn1)) + (compiled-fn2 (compile nil fn2)) + (results1 (multiple-value-list (apply compiled-fn1 vals))) + (results2 (multiple-value-list (apply compiled-fn2 vals)))) (if (equal results1 results2) - :good + :good (values results1 results2))) :good) @@ -3115,13 +3115,13 @@ (declare (optimize (safety 1))) (declare (optimize (debug 1))) (block b3 - (return-from b3 - (flet ((%f17 (f17-1 &optional (f17-2 b) (f17-3 b)) - (+ (if t (return-from b3 -64796) a)))) - (case (%f17 -3908648 -7026139 a) - ((41771 -113272 -48004 -39699 50691 -13222) - (multiple-value-call #'%f17 (values -1963404294 -105))) - (t -7026139))))))) + (return-from b3 + (flet ((%f17 (f17-1 &optional (f17-2 b) (f17-3 b)) + (+ (if t (return-from b3 -64796) a)))) + (case (%f17 -3908648 -7026139 a) + ((41771 -113272 -48004 -39699 50691 -13222) + (multiple-value-call #'%f17 (values -1963404294 -105))) + (t -7026139))))))) 2000 -10000) -64796) @@ -3136,17 +3136,17 @@ (declare (optimize (safety 1))) (declare (optimize (debug 1))) (if (and (ldb-test (byte 30 10) b) nil) - (labels ((%f7 (f7-1 f7-2 &optional (f7-3 -508405733)) + (labels ((%f7 (f7-1 f7-2 &optional (f7-3 -508405733)) 390004056)) - (let* ((v4 (multiple-value-call #'%f7 (values b (%f7 b b))))) - (multiple-value-call #'%f7 - (values (%f7 80199 a) - (%f7 - (%f7 a - (let* ((v6 (%f7 -226 250))) - a)) - (abs (ceiling v4))))))) - -6001))) + (let* ((v4 (multiple-value-call #'%f7 (values b (%f7 b b))))) + (multiple-value-call #'%f7 + (values (%f7 80199 a) + (%f7 + (%f7 a + (let* ((v6 (%f7 -226 250))) + a)) + (abs (ceiling v4))))))) + -6001))) 50 0) -6001) @@ -3167,7 +3167,7 @@ (if 1 (return-from %f14 a) (labels ((%f10 (f10-1 f10-2 f10-3 - &optional (f10-4 (let* ((v7 a)) 915))) + &optional (f10-4 (let* ((v7 a)) 915))) -1268205049)) (labels ((%f18 (f18-1) (multiple-value-call #'%f10 @@ -3193,7 +3193,7 @@ -58 320)))) (let* ((v3 (let ((v7 (return-from %f14 (%f18 -418731)))) - (%f10 104871 -1196 -21 a)))) + (%f10 104871 -1196 -21 a)))) (labels ((%f1 () (%f18 (%f18 -794761)))) (return-from %f14 b)))))))) (if (%f14) b 887481)))) @@ -3211,36 +3211,36 @@ (declare (optimize (safety 1))) (declare (optimize (debug 1))) (labels ((%f1 (f1-1 &optional (f1-2 -34) (f1-3 3318057) (f1-4 117)) - (let ((v9 (let ((v9 (if t (return-from %f1 f1-2) 606042))) - f1-1))) - (flet ((%f16 (f16-1 f16-2) 292)) - (labels ((%f2 (f2-1 f2-2 f2-3 - &optional (f2-4 f1-3) (f2-5 f1-4) - (f2-6 -418207187)) - (%f16 2099 (%f16 f1-2 1157)))) - (return-from %f1 (%f2 f1-4 -12066040 v9 122107))))))) - (flet ((%f5 - (f5-1 - &optional - (f5-2 (labels ((%f13 (f13-1 f13-2 f13-3 - &optional (f13-4 a) (f13-5 b)) - 1054213657)) - (%f13 b 166441 -3))) - (f5-3 20102220) - (f5-4 (labels ((%f11 (f11-1 f11-2 f11-3) - (%f1 -110148 (%f1 -12336576 f11-1 -61)))) - (let ((v1 (apply #'%f11 -29706 a b (list)))) - a)))) - b)) - (labels ((%f17 (f17-1 f17-2 f17-3 - &optional (f17-4 -107566292) (f17-5 63) (f17-6 -2)) - 105656)) - (%f5 - (%f17 185703492 a a -511 - (%f1 b b -218142 - (%f17 -240978 2923208 22 (%f5 1542 68917407 a) b))) - -2018 - -1)))))) + (let ((v9 (let ((v9 (if t (return-from %f1 f1-2) 606042))) + f1-1))) + (flet ((%f16 (f16-1 f16-2) 292)) + (labels ((%f2 (f2-1 f2-2 f2-3 + &optional (f2-4 f1-3) (f2-5 f1-4) + (f2-6 -418207187)) + (%f16 2099 (%f16 f1-2 1157)))) + (return-from %f1 (%f2 f1-4 -12066040 v9 122107))))))) + (flet ((%f5 + (f5-1 + &optional + (f5-2 (labels ((%f13 (f13-1 f13-2 f13-3 + &optional (f13-4 a) (f13-5 b)) + 1054213657)) + (%f13 b 166441 -3))) + (f5-3 20102220) + (f5-4 (labels ((%f11 (f11-1 f11-2 f11-3) + (%f1 -110148 (%f1 -12336576 f11-1 -61)))) + (let ((v1 (apply #'%f11 -29706 a b (list)))) + a)))) + b)) + (labels ((%f17 (f17-1 f17-2 f17-3 + &optional (f17-4 -107566292) (f17-5 63) (f17-6 -2)) + 105656)) + (%f5 + (%f17 185703492 a a -511 + (%f1 b b -218142 + (%f17 -240978 2923208 22 (%f5 1542 68917407 a) b))) + -2018 + -1)))))) -100 1) 1) @@ -3249,35 +3249,35 @@ (deftest misc.182 (let* ((form '(labels ((%f14 (f14-1 f14-2) - (labels ((%f16 - (f16-1 f16-2 - &optional - (f16-3 (setq f14-1 (ash f14-1 (min 77 b))))) - (logandc2 c -100))) - (return-from %f14 (* 2 (gcd f14-1 (%f16 c f14-1))))))) - (round (%f14 c c) - (max 83 (%f14 (multiple-value-call #'%f14 (values 0 2)) 0))))) - (fn1 `(lambda (a b c) - (declare (type (integer 5628 8762) a)) - (declare (type (integer 778 33310188747) b)) - (declare (type (integer -6699 4554) c)) - (declare (optimize (speed 3))) - (declare (optimize (safety 1))) - (declare (optimize (debug 1))) - ,form)) - (fn2 `(lambda (a b c) - (declare (notinline values max round gcd * logandc2 min ash)) - (declare (optimize (safety 3))) - (declare (optimize (speed 0))) - (declare (optimize (debug 0))) - ,form)) - (vals '(7395 1602862793 -2384)) - (cfn1 (compile nil fn1)) - (cfn2 (compile nil fn2)) - (result1 (multiple-value-list (apply cfn1 vals))) - (result2 (multiple-value-list (apply cfn2 vals)))) + (labels ((%f16 + (f16-1 f16-2 + &optional + (f16-3 (setq f14-1 (ash f14-1 (min 77 b))))) + (logandc2 c -100))) + (return-from %f14 (* 2 (gcd f14-1 (%f16 c f14-1))))))) + (round (%f14 c c) + (max 83 (%f14 (multiple-value-call #'%f14 (values 0 2)) 0))))) + (fn1 `(lambda (a b c) + (declare (type (integer 5628 8762) a)) + (declare (type (integer 778 33310188747) b)) + (declare (type (integer -6699 4554) c)) + (declare (optimize (speed 3))) + (declare (optimize (safety 1))) + (declare (optimize (debug 1))) + ,form)) + (fn2 `(lambda (a b c) + (declare (notinline values max round gcd * logandc2 min ash)) + (declare (optimize (safety 3))) + (declare (optimize (speed 0))) + (declare (optimize (debug 0))) + ,form)) + (vals '(7395 1602862793 -2384)) + (cfn1 (compile nil fn1)) + (cfn2 (compile nil fn2)) + (result1 (multiple-value-list (apply cfn1 vals))) + (result2 (multiple-value-list (apply cfn2 vals)))) (if (equal result1 result2) - :good + :good (values result1 result2))) :good) @@ -3298,8 +3298,8 @@ (declare (optimize (safety 1))) (declare (optimize (debug 1))) (block b7 - (flet ((%f3 (f3-1 f3-2 f3-3) 0)) - (apply #'%f3 0 (catch 'foo (return-from b7 (%f3 0 b c))) c nil))))) + (flet ((%f3 (f3-1 f3-2 f3-3) 0)) + (apply #'%f3 0 (catch 'foo (return-from b7 (%f3 0 b c))) c nil))))) 0 6000 -9000000) 0) @@ -3322,17 +3322,17 @@ (declare (optimize (safety 1))) (declare (optimize (debug 1))) (if nil - (flet ((%f15 (f15-1 &optional (f15-2 c)) - (labels ((%f1 (f1-1 f1-2) 0)) - (%f1 a 0)))) - (flet ((%f4 () - (multiple-value-call #'%f15 - (values (%f15 c 0) (%f15 0))))) - (if nil (%f4) - (flet ((%f8 (f8-1 &optional (f8-2 (%f4)) (f8-3 0)) - f8-3)) - 0)))) - 0))) + (flet ((%f15 (f15-1 &optional (f15-2 c)) + (labels ((%f1 (f1-1 f1-2) 0)) + (%f1 a 0)))) + (flet ((%f4 () + (multiple-value-call #'%f15 + (values (%f15 c 0) (%f15 0))))) + (if nil (%f4) + (flet ((%f8 (f8-1 &optional (f8-2 (%f4)) (f8-3 0)) + f8-3)) + 0)))) + 0))) 3040851270 1664281 -1340106197) 0) @@ -3352,19 +3352,19 @@ (declare (optimize (safety 1))) (declare (optimize (debug 1))) (flet ((%f3 - (f3-1 f3-2 f3-3 + (f3-1 f3-2 f3-3 &optional (f3-4 a) (f3-5 0) (f3-6 (labels ((%f10 (f10-1 f10-2 f10-3) - 0)) + 0)) (apply #'%f10 0 a (- (if (equal a b) b (%f10 c a 0)) (catch 'ct2 (throw 'ct2 c))) nil)))) - 0)) - (%f3 (%f3 (%f3 b 0 0 0) a 0) a b b b c)))) + 0)) + (%f3 (%f3 (%f3 b 0 0 0) a 0) a b b b c)))) 5 0 7) 0) @@ -3380,12 +3380,12 @@ (declare (optimize (safety 1))) (declare (optimize (debug 1))) (flet ((%f13 (f13-1 f13-2 f13-3) - 0)) - (apply #'%f13 - (%f13 b 0 0) - (catch 'ct1 0) - (catch 'ct2 (throw 'ct2 c)) - nil)))) + 0)) + (apply #'%f13 + (%f13 b 0 0) + (catch 'ct1 0) + (catch 'ct2 (throw 'ct2 c)) + nil)))) 0 0 0) 0) @@ -3394,23 +3394,23 @@ (deftest misc.186 (let* ((form '(labels ((%f3 (f3-1 f3-2) f3-1)) - (apply #'%f3 b (catch 'ct8 (throw 'ct8 (logeqv (%f3 c 0)))) nil))) - (vars '(b c)) - (fn1 `(lambda ,vars - (declare (type (integer -2 19) b) - (type (integer -1520 218978) c) - (optimize (speed 3) (safety 1) (debug 1))) - ,form)) - (fn2 `(lambda ,vars - (declare (notinline logeqv apply) - (optimize (safety 3) (speed 0) (debug 0))) - ,form)) - (cf1 (compile nil fn1)) - (cf2 (compile nil fn2)) - (result1 (multiple-value-list (funcall cf1 2 18886))) - (result2 (multiple-value-list (funcall cf2 2 18886)))) + (apply #'%f3 b (catch 'ct8 (throw 'ct8 (logeqv (%f3 c 0)))) nil))) + (vars '(b c)) + (fn1 `(lambda ,vars + (declare (type (integer -2 19) b) + (type (integer -1520 218978) c) + (optimize (speed 3) (safety 1) (debug 1))) + ,form)) + (fn2 `(lambda ,vars + (declare (notinline logeqv apply) + (optimize (safety 3) (speed 0) (debug 0))) + ,form)) + (cf1 (compile nil fn1)) + (cf2 (compile nil fn2)) + (result1 (multiple-value-list (funcall cf1 2 18886))) + (result2 (multiple-value-list (funcall cf2 2 18886)))) (if (equal result1 result2) - :good + :good (values result1 result2))) :good) @@ -3420,18 +3420,18 @@ (deftest misc.187 (apply (eval '(function - (lambda (a b c) - (declare (notinline)) - (declare (optimize (safety 3))) - (declare (optimize (speed 0))) - (declare (optimize (debug 0))) - (flet ((%f7 (&optional (f7-1 (catch (quote ct7) 0)) (f7-2 0)) - c)) - (let ((v8 - (flet ((%f14 (f14-1 &optional (f14-2 (%f7 b))) - 0)) - 0))) - (%f7 b)))))) + (lambda (a b c) + (declare (notinline)) + (declare (optimize (safety 3))) + (declare (optimize (speed 0))) + (declare (optimize (debug 0))) + (flet ((%f7 (&optional (f7-1 (catch (quote ct7) 0)) (f7-2 0)) + c)) + (let ((v8 + (flet ((%f14 (f14-1 &optional (f14-2 (%f7 b))) + 0)) + 0))) + (%f7 b)))))) '(2374299 70496 -6321798384)) -6321798384) @@ -3460,8 +3460,8 @@ '(lambda (a b c) (declare (optimize (speed 3) (safety 1) (debug 1))) (let* ((v7 (labels ((%f13 (f13-1 f13-2 f13-3) 0)) - (multiple-value-call #'%f13 (values a a a))))) - (flet ((%f10 nil v7)) (%f10))))) + (multiple-value-call #'%f13 (values a a a))))) + (flet ((%f10 nil v7)) (%f10))))) 1733 3000 1314076) 0) @@ -3470,23 +3470,23 @@ (deftest misc.190 (let* ((form '(flet ((%f15 () - (labels ((%f4 (f4-1) 0)) - (flet ((%f6 (&optional - (f6-2 - (logand (apply #'%f4 (list (%f4 0))) - (round (* a))))) - -284)) - (%f6))))) - (funcall #'%f15))) - (fn `(lambda (a b c) - (declare (notinline values equal abs isqrt < >= byte - mask-field funcall + * logcount logand logior - round list apply min)) - (declare (optimize (safety 3))) - (declare (optimize (speed 0))) - (declare (optimize (debug 0))) - ,form)) - (vals '(538754530150 -199250645748 105109641))) + (labels ((%f4 (f4-1) 0)) + (flet ((%f6 (&optional + (f6-2 + (logand (apply #'%f4 (list (%f4 0))) + (round (* a))))) + -284)) + (%f6))))) + (funcall #'%f15))) + (fn `(lambda (a b c) + (declare (notinline values equal abs isqrt < >= byte + mask-field funcall + * logcount logand logior + round list apply min)) + (declare (optimize (safety 3))) + (declare (optimize (speed 0))) + (declare (optimize (debug 0))) + ,form)) + (vals '(538754530150 -199250645748 105109641))) (apply (compile nil fn) vals)) -284) @@ -3519,33 +3519,33 @@ (declare (optimize (safety 1))) (declare (optimize (debug 1))) (flet ((%f8 (f8-1 f8-2 f8-3) f8-2)) - (catch 'ct6 (%f8 0 b (catch 'ct6 (throw 'ct6 a))))))) + (catch 'ct6 (%f8 0 b (catch 'ct6 (throw 'ct6 a))))))) 1 2) 2) (deftest misc.193 (let* ((form '(if (if (<= a (truncate c (min -43 b))) - (logbitp 0 0) (logbitp 0 -1)) - 0 -36223)) - (fn1 `(lambda (a b c) - (declare (type (integer -3 15350342) a)) - (declare (type (integer -4357 -1555) b)) - (declare (type (integer 5389300879793 6422214587951) c)) - (declare (optimize (speed 3))) - (declare (optimize (safety 1))) - (declare (optimize (debug 1))) - ,form)) - (fn2 `(lambda (a b c) - (declare (notinline logbitp min truncate <=)) - (declare (optimize (safety 3))) - (declare (optimize (speed 0))) - (declare (optimize (debug 0))) - ,form)) - (vals '(7792101 -1615 6070931814551)) - (result1 (multiple-value-list (apply (compile nil fn1) vals))) - (result2 (multiple-value-list (apply (compile nil fn2) vals)))) + (logbitp 0 0) (logbitp 0 -1)) + 0 -36223)) + (fn1 `(lambda (a b c) + (declare (type (integer -3 15350342) a)) + (declare (type (integer -4357 -1555) b)) + (declare (type (integer 5389300879793 6422214587951) c)) + (declare (optimize (speed 3))) + (declare (optimize (safety 1))) + (declare (optimize (debug 1))) + ,form)) + (fn2 `(lambda (a b c) + (declare (notinline logbitp min truncate <=)) + (declare (optimize (safety 3))) + (declare (optimize (speed 0))) + (declare (optimize (debug 0))) + ,form)) + (vals '(7792101 -1615 6070931814551)) + (result1 (multiple-value-list (apply (compile nil fn1) vals))) + (result2 (multiple-value-list (apply (compile nil fn2) vals)))) (if (equal result1 result2) - :good + :good (values result1 result2))) :good) @@ -3560,11 +3560,11 @@ (declare (notinline funcall)) (declare (optimize (safety 3) (speed 0) (debug 3))) (flet ((%f14 - (f14-1 f14-2 - &optional (f14-3 0) (f14-4 (catch 'ct8 0)) - (f14-5 (unwind-protect c))) - 0)) - (funcall #'%f14 0 0)))) + (f14-1 f14-2 + &optional (f14-3 0) (f14-4 (catch 'ct8 0)) + (f14-5 (unwind-protect c))) + 0)) + (funcall #'%f14 0 0)))) 1 2 3) 0) @@ -3579,9 +3579,9 @@ (declare (ignorable a b)) (declare (optimize (speed 3) (safety 1) (debug 1))) (block b8 - (labels ((%f6 (f6-1 &optional (f6-2 0) (f6-3 0) (f6-4 0)) - 0)) - (multiple-value-call #'%f6 (values 0)))))) + (labels ((%f6 (f6-1 &optional (f6-2 0) (f6-3 0) (f6-4 0)) + 0)) + (multiple-value-call #'%f6 (values 0)))))) 100 -100000) 0) @@ -3596,10 +3596,10 @@ (declare (ignorable a b)) (declare (optimize (speed 3) (safety 1) (debug 1))) (if (not (logbitp 0 0)) - 0 - (labels ((%f9 (f9-1 f9-2 f9-3) - 0)) - (%f9 (catch 'ct6 a) (catch 'ct4 0) 0))))) + 0 + (labels ((%f9 (f9-1 f9-2 f9-3) + 0)) + (%f9 (catch 'ct6 a) (catch 'ct4 0) 0))))) 1 -200) 0) @@ -3612,8 +3612,8 @@ (declare (notinline logcount)) (declare (optimize (safety 3) (speed 0) (debug 3))) (labels ((%f5 (&optional (f5-1 b) (f5-2 0) (f5-3 (catch (quote ct2) 0))) - (prog1 (logcount (block b1 f5-1))))) - (if (%f5 0 0 0) (%f5 a) 0)))) + (prog1 (logcount (block b1 f5-1))))) + (if (%f5 0 0 0) (%f5 a) 0)))) 1 2) 1) @@ -3632,12 +3632,12 @@ (deftest misc.199 (let* ((fn '(lambda (b) - (declare (type (integer 3352138624 13120037248) b)) - (declare (optimize (speed 3) (safety 1) (space 1))) - (progn (catch 'ct1 - (progn (setq b 11159349376) - (throw 'ct1 0))) - b)))) + (declare (type (integer 3352138624 13120037248) b)) + (declare (optimize (speed 3) (safety 1) (space 1))) + (progn (catch 'ct1 + (progn (setq b 11159349376) + (throw 'ct1 0))) + b)))) (funcall (compile nil fn) 4108962100)) 11159349376) @@ -3647,10 +3647,10 @@ (deftest misc.200 (funcall (compile nil '(lambda () - (declare (optimize (speed 1) (space 0) (safety 3) (debug 3) (compilation-speed 1))) - (ceiling - (ceiling - (flet ((%f16 () 0)) (%f16))))))) + (declare (optimize (speed 1) (space 0) (safety 3) (debug 3) (compilation-speed 1))) + (ceiling + (ceiling + (flet ((%f16 () 0)) (%f16))))))) 0 0) ;;; ecl 5 Dec 2003 @@ -3663,9 +3663,9 @@ nil '(lambda (a b) (declare (optimize (speed 1) (space 0) (safety 0) (debug 2) - (compilation-speed 1))) + (compilation-speed 1))) (flet ((%f10 (f10-1) (return-from %f10 a))) - (multiple-value-call #'%f10 (values b))))) + (multiple-value-call #'%f10 (values b))))) 10 -100) ;; expected return value 10) @@ -3676,15 +3676,15 @@ (compile nil '(lambda (a b c) - (declare (type (integer -363953100 5324773015552) a)) - (declare (type (integer -5744998440960 59520311) b)) - (declare (type (integer -1864645998 -14608) c)) - (declare (ignorable a b c)) - (declare (optimize (speed 3) (space 0) (safety 2) (debug 0) - (compilation-speed 2))) - (flet ((%f1 (f1-1 f1-2) - (labels ((%f1 (f1-1 f1-2) 0)) (%f1 a f1-2)))) - (%f1 0 c)))) + (declare (type (integer -363953100 5324773015552) a)) + (declare (type (integer -5744998440960 59520311) b)) + (declare (type (integer -1864645998 -14608) c)) + (declare (ignorable a b c)) + (declare (optimize (speed 3) (space 0) (safety 2) (debug 0) + (compilation-speed 2))) + (flet ((%f1 (f1-1 f1-2) + (labels ((%f1 (f1-1 f1-2) 0)) (%f1 a f1-2)))) + (%f1 0 c)))) 10 20 -20000) 0) @@ -3695,10 +3695,10 @@ nil '(lambda (a) (declare (optimize (speed 3) (space 1) (safety 2) (debug 0) - (compilation-speed 0))) + (compilation-speed 0))) (labels ((%f18 (f18-1 f18-2 &optional (f18-3 a) (f18-4 a)) - f18-2)) - (multiple-value-call #'%f18 (values a 0))))) + f18-2)) + (multiple-value-call #'%f18 (values a 0))))) 100) 0) @@ -3729,13 +3729,13 @@ nil '(lambda (a b) (declare (optimize (speed 3) (space 1) (safety 1) (debug 0) - (compilation-speed 3))) + (compilation-speed 3))) (labels ((%f1 nil b)) - (flet ((%f11 (f11-1 f11-2 f11-3) 0)) - (apply #'%f11 a (logand (%f1)) - (flet ((%f13 (f13-1 f13-2) b)) - (apply #'%f13 0 0 nil)) - nil))))) + (flet ((%f11 (f11-1 f11-2 f11-3) 0)) + (apply #'%f11 a (logand (%f1)) + (flet ((%f13 (f13-1 f13-2) b)) + (apply #'%f13 0 0 nil)) + nil))))) 100 200) 0) @@ -3745,10 +3745,10 @@ #'(lambda (a b) (declare (notinline mask-field byte)) (declare (optimize (speed 1) (space 1) (safety 2) (debug 1) - (compilation-speed 2))) + (compilation-speed 2))) (mask-field (byte 0 0) - (block b3 - (labels ((%f14 nil (return-from b3 a))) (%f14))))) + (block b3 + (labels ((%f14 nil (return-from b3 a))) (%f14))))) 1 2) 0) @@ -3759,10 +3759,10 @@ nil '(lambda (a) (declare (optimize (speed 3) (space 2) (safety 0) (debug 1) - (compilation-speed 0))) + (compilation-speed 0))) (labels ((%f3 (f3-1) a)) - (labels ((%f10 (f10-1 f10-2) a)) - (apply #'%f10 0 (logior (%f3 0)) nil))))) + (labels ((%f10 (f10-1 f10-2) a)) + (apply #'%f10 0 (logior (%f3 0)) nil))))) -10000) -10000) @@ -3773,10 +3773,10 @@ nil '(lambda (b) (declare (optimize (speed 3) (space 2) (safety 3) (debug 3) - (compilation-speed 0))) + (compilation-speed 0))) (flet ((%f6 (f6-1 f6-2 f6-3) f6-3)) - (labels ((%f8 (f8-1) (let* ((v1 (%f6 0 0 0))) 0))) - (apply #'%f6 b b (%f8 b) nil))))) + (labels ((%f8 (f8-1) (let* ((v1 (%f6 0 0 0))) 0))) + (apply #'%f6 b b (%f8 b) nil))))) 10) 0) @@ -3787,7 +3787,7 @@ nil '(lambda (b) (declare (optimize (speed 3) (space 2) (safety 3) (debug 3) - (compilation-speed 3))) + (compilation-speed 3))) (max (catch 'ct4 (throw 'ct4 (setq b 0))) b))) 6353) 0) @@ -3800,9 +3800,9 @@ '(lambda (c) (declare (type (integer 3 65500689) c)) (declare (optimize (speed 2) (space 1) (safety 3) (debug 3) - (compilation-speed 2))) + (compilation-speed 2))) (catch 'ct6 - (let ((v10 (truncate (integer-length (throw 'ct6 0))))) c)))) + (let ((v10 (truncate (integer-length (throw 'ct6 0))))) c)))) 100) 0) @@ -3813,13 +3813,13 @@ '(lambda (a) (declare (type (integer -55982525 -1) a)) (declare (optimize (speed 1) (space 2) (safety 1) (debug 2) - (compilation-speed 1))) + (compilation-speed 1))) (flet ((%f11 (f11-1 f11-2 f11-3) a)) - (let ((v6 0)) - (flet ((%f12 (f12-1) v6)) - (if (<= 0) (%f11 v6 0 0) - (multiple-value-call #'%f11 - (values 0 0 (%f11 0 0 (apply #'%f12 0 nil)))))))))) + (let ((v6 0)) + (flet ((%f12 (f12-1) v6)) + (if (<= 0) (%f11 v6 0 0) + (multiple-value-call #'%f11 + (values 0 0 (%f11 0 0 (apply #'%f12 0 nil)))))))))) -100) -100) @@ -3833,15 +3833,15 @@ (declare (type (integer -28 282229324) b)) (declare (type (integer -108149896 38889958912) c)) (declare (optimize (speed 3) (space 1) (safety 2) (debug 1) - (compilation-speed 3))) + (compilation-speed 3))) (let ((v4 (labels ((%f8 (f8-1 &optional (f8-2 0) (f8-3 b)) 0)) - (logior (%f8 0) (%f8 0 0))))) - (truncate - (labels ((%f4 (&optional (f4-1 (ceiling c))) a)) - (%f4 v4)) - (max 38 - (labels ((%f8 (f8-1 &optional (f8-2 (+ c a))) 0)) - (apply #'%f8 a nil))))))) + (logior (%f8 0) (%f8 0 0))))) + (truncate + (labels ((%f4 (&optional (f4-1 (ceiling c))) a)) + (%f4 v4)) + (max 38 + (labels ((%f8 (f8-1 &optional (f8-2 (+ c a))) 0)) + (apply #'%f8 a nil))))))) -979021452526 138874383 21099308459) -25763722434 -34) @@ -3849,9 +3849,9 @@ ;;; Wrong value returned (deftest misc.212 (funcall #'(lambda () - (declare (optimize (speed 2) (space 0) (safety 3) (debug 2) - (compilation-speed 0))) - (let* ((v9 (unwind-protect 0))) v9))) + (declare (optimize (speed 2) (space 0) (safety 3) (debug 2) + (compilation-speed 0))) + (let* ((v9 (unwind-protect 0))) v9))) 0) ;;; segmentation violation @@ -3862,10 +3862,10 @@ '(lambda (a b) (declare (type (integer -2 -1) b)) (declare (optimize (speed 1) (space 0) (safety 1) (debug 1) - (compilation-speed 3))) + (compilation-speed 3))) (max (labels ((%f15 (f15-1) b)) (if (< 0 (%f15 a)) 0 0)) - (labels ((%f11 (f11-1 f11-2 f11-3) b)) - (apply #'%f11 0 0 0 nil))))) + (labels ((%f11 (f11-1 f11-2 f11-3) b)) + (apply #'%f11 0 0 0 nil))))) 0 -2) 0) @@ -3875,10 +3875,10 @@ nil '(lambda (a) (declare (optimize (speed 3) (space 3) (safety 0) (debug 1) - (compilation-speed 3))) + (compilation-speed 3))) (max (labels ((%f7 (f7-1) a)) (%f7 0)) - (flet ((%f12 (f12-1 f12-2) (if a f12-2 0))) - (apply #'%f12 0 a nil))))) + (flet ((%f12 (f12-1 f12-2) (if a f12-2 0))) + (apply #'%f12 0 a nil))))) 123) 123) @@ -3889,7 +3889,7 @@ nil '(lambda (a) (declare (optimize (speed 3) (space 1) (safety 2) (debug 0) - (compilation-speed 2))) + (compilation-speed 2))) (flet ((%f8 nil (setq a 0))) (max a (%f8))))) 100) 100) @@ -3901,16 +3901,16 @@ nil '(lambda () (declare (optimize (speed 3) (space 3) (safety 3) (debug 0) - (compilation-speed 2))) + (compilation-speed 2))) (ldb (byte 26 6) -1252)))) 67108844) (deftest misc.215a (funcall (compile nil '(lambda () - (declare (optimize (speed 3) (space 2) (safety 2) (debug 1) - (compilation-speed 2))) - (ldb (byte 30 0) -407020740)))) + (declare (optimize (speed 3) (space 2) (safety 2) (debug 1) + (compilation-speed 2))) + (ldb (byte 30 0) -407020740)))) 666721084) ;;; Floating point exception @@ -3933,9 +3933,9 @@ nil '(lambda () (labels ((%f (a b) - (labels ((%f (c d) 0)) - (%f 1 2)))) - (%f 3 4))))) + (labels ((%f (c d) 0)) + (%f 1 2)))) + (%f 3 4))))) 0) ;;; #\^E is not of type NUMBER. @@ -3948,14 +3948,14 @@ (declare (type (integer -1 13) b)) (declare (ignorable a b)) (declare (optimize (speed 2) (space 1) (safety 1) (debug 0) - (compilation-speed 1))) + (compilation-speed 1))) (labels ((%f18 (f18-1 f18-2 f18-3) a)) - (apply #'%f18 0 a - (%f18 b - (- (labels ((%f11 (f11-1 f11-2 f11-3) a)) - (%f11 0 0 0))) - a) - nil)))) + (apply #'%f18 0 a + (%f18 b + (- (labels ((%f11 (f11-1 f11-2 f11-3) a)) + (%f11 0 0 0))) + a) + nil)))) -468614602 3) -468614602) @@ -3981,14 +3981,14 @@ nil '(lambda (a b c) (declare (optimize (speed 2) (space 3) (safety 0) - (debug 1) (compilation-speed 0))) + (debug 1) (compilation-speed 0))) (flet ((%f14 (f14-1 f14-2 - &optional (f14-3 c) - (f14-4 (if (not nil) - (labels ((%f9 nil 0)) (%f9)) - a))) - (flet ((%f17 (f17-1 f17-2) f14-1)) (%f17 0 f14-3)))) - (%f14 (%f14 0 a) 0 b a)))) + &optional (f14-3 c) + (f14-4 (if (not nil) + (labels ((%f9 nil 0)) (%f9)) + a))) + (flet ((%f17 (f17-1 f17-2) f14-1)) (%f17 0 f14-3)))) + (%f14 (%f14 0 a) 0 b a)))) 248000 5409415 227923) 0) @@ -4002,11 +4002,11 @@ (deftest misc.226 (funcall (compile nil - '(lambda (a) - (flet ((%f (&optional (x (setq a 1)) - (y (setq a 2))) - 0)) - (%f 0 0)))) + '(lambda (a) + (flet ((%f (&optional (x (setq a 1)) + (y (setq a 2))) + 0)) + (%f 0 0)))) 0) 0) @@ -4016,7 +4016,7 @@ nil '(lambda (b) (flet ((%f (&optional x (y (setq b 1))) x)) - (%f 0)))) + (%f 0)))) 0) 0) @@ -4028,15 +4028,15 @@ nil '(lambda (a b c) (declare (optimize (speed 1) (space 2) (safety 0) (debug 2) - (compilation-speed 2))) + (compilation-speed 2))) (catch 'ct2 - (case 0 - ((-56087 86404 -94716) - (signum (labels ((%f7 (f7-1 f7-2 f7-3) f7-2)) 0))) - ((12986) - (let ((v3 (catch 'ct2 (throw 'ct2 0)))) - (labels ((%f14 (f14-1 f14-2) 0)) (%f14 b c)))) - (t 0))))) + (case 0 + ((-56087 86404 -94716) + (signum (labels ((%f7 (f7-1 f7-2 f7-3) f7-2)) 0))) + ((12986) + (let ((v3 (catch 'ct2 (throw 'ct2 0)))) + (labels ((%f14 (f14-1 f14-2) 0)) (%f14 b c)))) + (t 0))))) -3847091255 -13482 -7577750) 0) @@ -4050,15 +4050,15 @@ (declare (type (integer -2 1) c)) (declare (ignorable a b c)) (declare (optimize (speed 2) (space 2) (safety 1) (debug 3) - (compilation-speed 3))) + (compilation-speed 3))) (catch 'ct4 - (rational (case b - ((350 244 1059) (prog2 (numerator c) 0)) - ((1705 493) - (unwind-protect - (throw 'ct4 c) - (loop for lv2 below 2 count (logbitp 0 c)))) - (t a)))))) + (rational (case b + ((350 244 1059) (prog2 (numerator c) 0)) + ((1705 493) + (unwind-protect + (throw 'ct4 c) + (loop for lv2 below 2 count (logbitp 0 c)))) + (t a)))))) 0 200 -1) 0) @@ -4069,12 +4069,12 @@ '(lambda (c) (declare (type (integer -1 412413109) c)) (declare (optimize (speed 1) (space 2) (safety 2) (debug 1) - (compilation-speed 3))) + (compilation-speed 3))) (catch 'ct2 - (logior (* (progn (if c 0 (throw 'ct2 0)) 0) - (catch 'ct2 (throw 'ct2 0))) - (complex c 0) - )))) + (logior (* (progn (if c 0 (throw 'ct2 0)) 0) + (catch 'ct2 (throw 'ct2 0))) + (complex c 0) + )))) 62151) 62151) @@ -4085,12 +4085,12 @@ nil '(lambda nil (declare (optimize (speed 2) (space 1) (safety 1) (debug 2) - (compilation-speed 3))) + (compilation-speed 3))) (labels ((%f15 (f15-1) 0)) - (let ((v4 0)) - (catch 'ct5 - (%f15 - (gcd (catch 'ct5 (let* ((v5 (throw 'ct5 0))) 0)) v4)))))))) + (let ((v4 0)) + (catch 'ct5 + (%f15 + (gcd (catch 'ct5 (let* ((v5 (throw 'ct5 0))) 0)) v4)))))))) 0) ;;; ecl @@ -4103,11 +4103,11 @@ '(lambda (a) (declare (type (integer -6527559920 -247050) a)) (declare (optimize (speed 1) (space 3) (safety 0) (debug 0) - (compilation-speed 3))) + (compilation-speed 3))) (labels ((%f10 (&optional (f10-1 0) - (f10-2 (setq a -4456327156))) - 0)) - (logxor a (%f10 a))))) + (f10-2 (setq a -4456327156))) + 0)) + (logxor a (%f10 a))))) -3444248334) -3444248334) @@ -4121,11 +4121,11 @@ '(lambda (b) (declare (type (integer -5209401 3339878) b)) (declare (optimize (speed 1) (space 2) (safety 0) (debug 2) - (compilation-speed 3))) + (compilation-speed 3))) (flet ((%f3 (f3-1 f3-2) - f3-1)) - (apply #'%f3 0 (logxor (catch 'ct2 b) - (catch 'ct5 (throw 'ct5 0))) nil)))) + f3-1)) + (apply #'%f3 0 (logxor (catch 'ct2 b) + (catch 'ct5 (throw 'ct5 0))) nil)))) -2179757) 0) @@ -4138,16 +4138,16 @@ (declare (type (integer 197447754 495807327) a)) (declare (type (integer -125379462 1863191461) b)) (declare - (optimize (speed 2) (space 2) (safety 2) (debug 1) (compilation-speed 2))) + (optimize (speed 2) (space 2) (safety 2) (debug 1) (compilation-speed 2))) (flet ((%f8 - (&optional - (f8-1 - (max (catch (quote ct4) 0) - (catch (quote ct6) (throw (quote ct6) 0))))) - b)) - (flet ((%f16 (f16-1 f16-2 f16-3) - 0)) - (apply #'%f16 a 0 (%f8) nil))))) + (&optional + (f8-1 + (max (catch (quote ct4) 0) + (catch (quote ct6) (throw (quote ct6) 0))))) + b)) + (flet ((%f16 (f16-1 f16-2 f16-3) + 0)) + (apply #'%f16 a 0 (%f8) nil))))) 348270365 28780966) 0) @@ -4160,32 +4160,32 @@ (declare (type (integer -2333758327203 -321096206070) a)) (declare (type (integer -2842843403569 258395684270) b)) (declare (optimize (speed 2) (space 0) (safety 1) (debug 2) - (compilation-speed 2))) + (compilation-speed 2))) (flet ((%f18 (f18-1) - (the integer - (labels ((%f9 (f9-1 f9-2) - (* (- -1 -210032251) - (1+ - (floor - (labels ((%f11 (f11-1 f11-2) - -96773966)) - (%f11 b -3440758))))))) - (flet ((%f2 - (f2-1 f2-2 f2-3 - &optional (f2-4 (%f9 -429204 -63)) - (f2-5 (- (%f9 b 17) a)) - (f2-6 - (multiple-value-call #'%f9 - (values - (let () 7127585) - (flet ((%f1 (f1-1 f1-2 f1-3) - (catch 'ct6 -569234))) - (macrolet () 13)))))) - 1027)) - (if nil - (%f2 b a f18-1 69968 4 -217193265) - (catch 'ct1 129548688))))))) - (max (apply #'%f18 (list 0)))))) + (the integer + (labels ((%f9 (f9-1 f9-2) + (* (- -1 -210032251) + (1+ + (floor + (labels ((%f11 (f11-1 f11-2) + -96773966)) + (%f11 b -3440758))))))) + (flet ((%f2 + (f2-1 f2-2 f2-3 + &optional (f2-4 (%f9 -429204 -63)) + (f2-5 (- (%f9 b 17) a)) + (f2-6 + (multiple-value-call #'%f9 + (values + (let () 7127585) + (flet ((%f1 (f1-1 f1-2 f1-3) + (catch 'ct6 -569234))) + (macrolet () 13)))))) + 1027)) + (if nil + (%f2 b a f18-1 69968 4 -217193265) + (catch 'ct1 129548688))))))) + (max (apply #'%f18 (list 0)))))) -2067244683733 143879071206) 129548688) @@ -4197,16 +4197,16 @@ '(lambda (b) ;; (a b) (declare (type (integer -13583709 -3876310) b)) (declare (optimize (speed 1) (space 2) (safety 3) (debug 3) - (compilation-speed 1))) + (compilation-speed 1))) (flet ((%f14 (f14-1 f14-2 f14-3) - (flet ((%f2 - (f2-1 - &optional (f2-2 0) (f2-3 0) - (f2-4 - (block b8 (if (ldb-test (byte 0 0) 0) (* 0 f14-2) 0)))) - 0)) - (%f2 b f14-2)))) - (%f14 0 0 (%f14 0 0 0))))) + (flet ((%f2 + (f2-1 + &optional (f2-2 0) (f2-3 0) + (f2-4 + (block b8 (if (ldb-test (byte 0 0) 0) (* 0 f14-2) 0)))) + 0)) + (%f2 b f14-2)))) + (%f14 0 0 (%f14 0 0 0))))) ;; -155589 -5694124) 0) @@ -4220,7 +4220,7 @@ '(lambda (b) (declare (notinline not)) (declare (optimize (speed 1) (space 0) (safety 0) - (debug 2) (compilation-speed 3))) + (debug 2) (compilation-speed 3))) (multiple-value-prog1 0 (catch 'ct2 (if (not nil) (throw 'ct2 b) 0))))) :wrong) 0) @@ -4231,13 +4231,13 @@ nil '(lambda (a b) (declare (optimize (speed 1) (space 0) (safety 3) - (debug 0) (compilation-speed 1))) + (debug 0) (compilation-speed 1))) (flet ((%f8 (f8-1) 0)) - (labels ((%f18 (f18-1 f18-2 &optional (f18-3 0)) - (%f8 (catch 'ct7 (throw 'ct7 f18-1))))) - (multiple-value-prog1 (catch 'ct7 a) - 0 - (multiple-value-call #'%f18 (values 0 (%f8 b)))))))) + (labels ((%f18 (f18-1 f18-2 &optional (f18-3 0)) + (%f8 (catch 'ct7 (throw 'ct7 f18-1))))) + (multiple-value-prog1 (catch 'ct7 a) + 0 + (multiple-value-call #'%f18 (values 0 (%f8 b)))))))) :good :bad) :good) @@ -4247,10 +4247,10 @@ nil '(lambda () (declare (optimize (speed 2) (space 2) (safety 3) - (debug 3) (compilation-speed 1))) + (debug 3) (compilation-speed 1))) (multiple-value-prog1 0 - (catch 'ct7 (logandc1 (block b7 0) - (throw 'ct7 -908543))))))) + (catch 'ct7 (logandc1 (block b7 0) + (throw 'ct7 -908543))))))) 0) ;;; cmucl (11 2003 snapshot) @@ -4264,7 +4264,7 @@ (declare (type (integer -77145797 -1) a)) (declare (optimize (speed 1) (space 1) (safety 3) (debug 3) (compilation-speed 1))) (flet ((%f5 (f5-1) a)) - (%f5 (unwind-protect 0 (logand (- (catch 'ct5 0)))))))) + (%f5 (unwind-protect 0 (logand (- (catch 'ct5 0)))))))) -100) -100) @@ -4274,7 +4274,7 @@ nil '(lambda () (declare (optimize (speed 3) (space 2) (safety 3) - (debug 0) (compilation-speed 0))) + (debug 0) (compilation-speed 0))) (min (load-time-value 0)) 0))) 0) @@ -4288,20 +4288,20 @@ (declare (type (integer -2315418108387 111852261677) a)) (declare (optimize (speed 2) (space 0) (safety 2) (debug 2) (compilation-speed 1))) (labels ((%f4 () - (labels ((%f16 (f16-1 f16-2) 0)) - (flet ((%f9 () 0)) - (%f16 0 (%f16 (%f9) a)))))) - (flet ((%f10 (f10-1 f10-2 f10-3) - (flet ((%f15 (f15-1 &optional (f15-2 (%f4)) (f15-3 0)) f15-3)) - 0))) - 0)))) + (labels ((%f16 (f16-1 f16-2) 0)) + (flet ((%f9 () 0)) + (%f16 0 (%f16 (%f9) a)))))) + (flet ((%f10 (f10-1 f10-2 f10-3) + (flet ((%f15 (f15-1 &optional (f15-2 (%f4)) (f15-3 0)) f15-3)) + 0))) + 0)))) 100) 0) (deftest misc.239a (funcall (compile nil '(lambda () (declare (optimize speed safety)) - (LET ((x (PROG1 0 (ROUND 18916)))) (catch 'ct4 0))))) + (LET ((x (PROG1 0 (ROUND 18916)))) (catch 'ct4 0))))) 0) (deftest misc.240 @@ -4312,11 +4312,11 @@ (declare (type (integer 4 7) b)) (declare (optimize (speed 2) (space 3) (safety 3) (debug 1) (compilation-speed 3))) (unwind-protect 0 - (common-lisp:handler-case - (max - (let ((*s1* b)) - (declare (special *s1*)) - (+ 0 *s1*))))))) + (common-lisp:handler-case + (max + (let ((*s1* b)) + (declare (special *s1*)) + (+ 0 *s1*))))))) 5) 0) @@ -4388,12 +4388,12 @@ '(lambda (a b) (declare (notinline <=)) (declare (optimize (speed 2) (space 3) (safety 0) - (debug 1) (compilation-speed 3))) + (debug 1) (compilation-speed 3))) (if (if (<= 0) nil nil) (labels ((%f9 (f9-1 f9-2 f9-3) - (ignore-errors 0))) + (ignore-errors 0))) (dotimes (iv4 5 a) (%f9 0 0 b))) - 0))) + 0))) 1 2) 0) @@ -4404,18 +4404,18 @@ nil '(lambda (a) (declare (type (integer -12 14) a)) - (declare (optimize (speed 1) (space 2) (safety 1) (debug 1) (compilation-speed 3))) + (declare (optimize (speed 1) (space 2) (safety 1) (debug 1) (compilation-speed 3))) (let ((v6 0)) - (flet ((%f11 - (f11-1 - &optional - (f11-2 - (case (catch 'ct7 0) - (t - (let* ((v2 (ignore-errors a))) - v6))))) - 0)) - (%f11 0 0))))) + (flet ((%f11 + (f11-1 + &optional + (f11-2 + (case (catch 'ct7 0) + (t + (let* ((v2 (ignore-errors a))) + v6))))) + 0)) + (%f11 0 0))))) 5) 0) @@ -4436,15 +4436,15 @@ (declare (type (integer -186585769 -7483) a)) (declare (type (integer -550 524) b)) (declare - (optimize (speed 2) (space 1) (safety 1) (debug 2) (compilation-speed 3))) + (optimize (speed 2) (space 1) (safety 1) (debug 2) (compilation-speed 3))) (flet ((%f3 (f3-1 f3-2 f3-3) - 0)) - (%f3 0 0 - (flet ((%f13 (f13-1 f13-2) - 0)) - (if (/= b a) - b - (deposit-field (%f3 0 b 0) (byte 0 0) (%f3 0 0 (%f13 0 0))))))))) + 0)) + (%f3 0 0 + (flet ((%f13 (f13-1 f13-2) + 0)) + (if (/= b a) + b + (deposit-field (%f3 0 b 0) (byte 0 0) (%f3 0 0 (%f13 0 0))))))))) -10000 0) 0) @@ -4468,14 +4468,14 @@ (declare (type (integer -30189 -6047) a)) (declare (type (integer -10 16391481067) b)) (declare (optimize (speed 3) (space 1) (safety 2) (debug 3) - (compilation-speed 0))) + (compilation-speed 0))) (if - (<= 0 - (let ((*s1* (setq b 12204309028))) - (declare (special *s1*)) - (truncate b))) - a - 0))) + (<= 0 + (let ((*s1* (setq b 12204309028))) + (declare (special *s1*)) + (truncate b))) + a + 0))) -12618 16130777867) -12618) @@ -4493,7 +4493,7 @@ '(lambda () (declare (optimize (speed 2) (space 2) (safety 3) (debug 3) (compilation-speed 2))) (flet ((%f17 (f17-1) 0)) - (%f17 (logandc1 0 (catch 'ct2 0))))))) + (%f17 (logandc1 0 (catch 'ct2 0))))))) 0) (deftest misc.253a @@ -4502,17 +4502,17 @@ nil '(lambda (c) (declare (optimize (speed 1) (space 1) (safety 3) (debug 2) - (compilation-speed 1))) + (compilation-speed 1))) (labels ((%f1 (f1-1 f1-2) - (isqrt (abs (complex f1-1 0))))) - (progn - (/ - (multiple-value-call #'%f1 - (values (1- (restart-bind nil 1416182210)) - 123337746)) - 1) - (tagbody) - c)))) + (isqrt (abs (complex f1-1 0))))) + (progn + (/ + (multiple-value-call #'%f1 + (values (1- (restart-bind nil 1416182210)) + 123337746)) + 1) + (tagbody) + c)))) -34661) -34661) @@ -4525,9 +4525,9 @@ (declare (type (integer -5241 -1159) a)) (declare (optimize (speed 3) (space 2) (safety 0) (debug 3) (compilation-speed 1))) (gcd a - (let ((*misc.254* (setq a -4929))) ;; special variable - (declare (special *misc.254*)) - 0)))) + (let ((*misc.254* (setq a -4929))) ;; special variable + (declare (special *misc.254*)) + 0)))) -3000) 3000) @@ -4539,9 +4539,9 @@ (declare (type (integer -3474321 15089206) b)) (declare (optimize (speed 3) (space 3) (safety 3) (debug 3) (compilation-speed 0))) (- b - (block b3 - (setq b 9367613) - 0)))) + (block b3 + (setq b 9367613) + 0)))) 10) 10) @@ -4569,10 +4569,10 @@ (declare (optimize (speed 1) (space 2) (safety 3) (debug 3) (compilation-speed 1))) (declare (special b)) (tagbody (flet ((%f1 (f1-1) - (flet ((%f9 (&optional (f9-1 b) (f9-2 (go tag2)) (f9-3 0)) 0)) - (%f9 0 0 0)))) - (%f1 0)) - tag2)))) + (flet ((%f9 (&optional (f9-1 b) (f9-2 (go tag2)) (f9-3 0)) 0)) + (%f9 0 0 0)))) + (%f1 0)) + tag2)))) nil) ;;; clisp (26 Dec 2003) @@ -4601,7 +4601,7 @@ '(lambda (a) (declare (type (integer 177547470 226026978) a)) (declare (optimize (speed 3) (space 0) (safety 0) (debug 0) - (compilation-speed 1))) + (compilation-speed 1))) (logand a (* a 438810)))) 215067723) 13739018) @@ -4613,8 +4613,8 @@ '(lambda (a) (declare (type (integer 43369342 45325981) a)) (declare (optimize (speed 2) (space 0) (safety 2) - (debug 0) (compilation-speed 3))) - (logand 0 (* 5459177 a)))) + (debug 0) (compilation-speed 3))) + (logand 0 (* 5459177 a)))) 44219966) 0) @@ -4625,7 +4625,7 @@ '(lambda (b) (declare (type (integer 379442022 806547932) b)) (declare (optimize (speed 2) (space 0) (safety 0) - (debug 3) (compilation-speed 2))) + (debug 3) (compilation-speed 2))) (logand b (* 227 b)))) 551173513) 545263625) @@ -4637,7 +4637,7 @@ '(lambda (a) (declare (type (integer 515644 54674673) a)) (declare (optimize (speed 3) (space 2) (safety 3) - (debug 0) (compilation-speed 1))) + (debug 0) (compilation-speed 1))) (mask-field (byte 0 0) (* 613783109 a)))) 28831407) 0) @@ -4649,7 +4649,7 @@ '(lambda (a) (declare (type (integer 862944 60462138) a)) (declare (optimize (speed 3) (space 3) (safety 0) - (debug 1) (compilation-speed 1))) + (debug 1) (compilation-speed 1))) (logandc2 0 (* a 18094747)))) 36157847) 0) @@ -4661,7 +4661,7 @@ '(lambda (a) (declare (type (integer 896520522 1249309734) a)) (declare (optimize (speed 3) (space 3) (safety 1) - (debug 1) (compilation-speed 2))) + (debug 1) (compilation-speed 2))) (lognand 0 (* a 1381212086)))) 1202966173) -1) @@ -4677,7 +4677,7 @@ '(lambda (a) (declare (type (integer -19621 11895) a)) (declare (optimize (speed 3) (space 2) (safety 3) - (debug 3) (compilation-speed 3))) + (debug 3) (compilation-speed 3))) (* 0 a 103754))) 1) 0) @@ -4692,8 +4692,8 @@ nil '(lambda () (tagbody - (flet ((%f (x) :bad)) (multiple-value-call #'%f (go done))) - done)))) + (flet ((%f (x) :bad)) (multiple-value-call #'%f (go done))) + done)))) nil) (deftest misc.266a @@ -4703,7 +4703,7 @@ '(lambda (b) (declare (type (integer -14356828946432 -24266) b)) (declare (optimize (speed 3) (space 1) (safety 1) (debug 3) - (compilation-speed 2))) + (compilation-speed 2))) (progn (tagbody (unwind-protect 0 (go 3)) 3) b))) -30000) -30000) @@ -4715,7 +4715,7 @@ nil '(lambda (b) (declare (optimize (speed 2) (space 3) (safety 2) (debug 0) - (compilation-speed 0))) + (compilation-speed 0))) (unwind-protect 0 (catch 'ct7 (prog1 b 0))))) 1) 0) @@ -4724,8 +4724,8 @@ (deftest misc.267 (locally (declare (special *s5*)) - (let ((v8 (progv '(*s5*) (list 0) (if t *s5* *s5*)))) - v8)) + (let ((v8 (progv '(*s5*) (list 0) (if t *s5* *s5*)))) + v8)) 0) (deftest misc.267a @@ -4738,9 +4738,9 @@ nil '(lambda () (declare (optimize (speed 1) (space 1) (safety 3) (debug 2) - (compilation-speed 2))) + (compilation-speed 2))) (catch 'ct7 - (rationalize (let ((v9 (1+ (throw 'ct7 0)))) 48955)))))) + (rationalize (let ((v9 (1+ (throw 'ct7 0)))) 48955)))))) 0) (deftest misc.269 @@ -4750,7 +4750,7 @@ '(lambda (a) (declare (type (integer -1 20) a)) (declare (optimize (speed 3) (space 1) (safety 2) (debug 2) - (compilation-speed 3))) + (compilation-speed 3))) (if (if a (logbitp 34 a) nil) 0 -230678))) 14) -230678) @@ -4773,9 +4773,9 @@ nil '(lambda () (declare (optimize (speed 3) (space 1) (safety 0) (debug 3) - (compilation-speed 2))) + (compilation-speed 2))) (flet ((%f17 (f17-1) 1)) - (multiple-value-call #'%f17 (values (floor 0))))))) + (multiple-value-call #'%f17 (values (floor 0))))))) 1) ;;; clisp (10 jan 2004) @@ -4810,18 +4810,18 @@ nil '(lambda () (declare - (optimize (speed 2) - (space 2) - (safety 1) - (debug 2) - (compilation-speed 0))) + (optimize (speed 2) + (space 2) + (safety 1) + (debug 2) + (compilation-speed 0))) (multiple-value-prog1 - (ignore-errors 0) - 0 - (catch 'ct7 0) - (catch 'ct1 - (catch 'ct4 - (complex (throw 'ct4 (dotimes (iv4 0 0) (throw 'ct1 0))) 0))))))) + (ignore-errors 0) + 0 + (catch 'ct7 0) + (catch 'ct1 + (catch 'ct4 + (complex (throw 'ct4 (dotimes (iv4 0 0) (throw 'ct1 0))) 0))))))) 0) (deftest misc.274a @@ -4830,7 +4830,7 @@ nil '(lambda () (declare (optimize (speed 3) (space 1) (safety 3) - (debug 1) (compilation-speed 3))) + (debug 1) (compilation-speed 3))) (dotimes (iv4 3 0) (apply (constantly 0) 0 @@ -4848,19 +4848,19 @@ '(lambda (b) (declare (notinline funcall min coerce)) (declare - (optimize (speed 1) - (space 2) - (safety 2) - (debug 1) - (compilation-speed 1))) + (optimize (speed 1) + (space 2) + (safety 2) + (debug 1) + (compilation-speed 1))) (flet ((%f12 (f12-1) - (coerce - (min - (if f12-1 (multiple-value-prog1 - b (return-from %f12 0)) - 0)) - 'integer))) - (funcall #'%f12 0)))) + (coerce + (min + (if f12-1 (multiple-value-prog1 + b (return-from %f12 0)) + 0)) + 'integer))) + (funcall #'%f12 0)))) -33) 0) @@ -4870,12 +4870,12 @@ nil '(lambda () (declare (optimize (speed 2) (space 0) (safety 2) - (debug 1) (compilation-speed 1))) + (debug 1) (compilation-speed 1))) (block b4 - (coerce - (logcount - (if t 0 (multiple-value-prog1 (identity 0) (return-from b4 0)))) - 'integer))))) + (coerce + (logcount + (if t 0 (multiple-value-prog1 (identity 0) (return-from b4 0)))) + 'integer))))) 0) ;;; clisp (28 Jan 2004) @@ -4887,14 +4887,14 @@ nil `(lambda (b) (declare (optimize (speed 2) (space 0) (safety 0) - (debug 3) (compilation-speed 3))) + (debug 3) (compilation-speed 3))) (labels - ((%f2 () - (let ((v10 (progn (dotimes (iv2 0 0) iv2) - b))) - (unwind-protect b (labels ((%f6 ())) (%f6)) - )))) - (%f2)))) + ((%f2 () + (let ((v10 (progn (dotimes (iv2 0 0) iv2) + b))) + (unwind-protect b (labels ((%f6 ())) (%f6)) + )))) + (%f2)))) :good) :good) @@ -4907,11 +4907,11 @@ nil '(lambda () (declare (optimize (speed 3) (space 1) (safety 0) - (debug 3) (compilation-speed 0))) + (debug 3) (compilation-speed 0))) (labels ((%f15 (&optional (f15-3 - (tagbody (labels ((%f6 () (go tag1))) (%f6)) tag1))) - 0)) - (%f15))))) + (tagbody (labels ((%f6 () (go tag1))) (%f6)) tag1))) + 0)) + (%f15))))) 0) ;;; incorrect return value @@ -4921,9 +4921,9 @@ nil '(lambda () (declare (optimize (speed 1) (space 0) (safety 2) (debug 3) - (compilation-speed 0))) + (compilation-speed 0))) (catch 'ct5 (flet ((%f2 (&optional (f2-4 (throw 'ct5 0))) 1)) - (%f2 (%f2 0))))))) + (%f2 (%f2 0))))))) 1) ;;; incorrect return value @@ -4934,9 +4934,9 @@ '(lambda () (declare (optimize (speed 1) (space 1) (safety 3) (debug 0) (compilation-speed 3))) (flet ((%f10 () - (if (< 0 (dotimes (iv2 1 -501162))) - 0 -14))) - (%f10))))) + (if (< 0 (dotimes (iv2 1 -501162))) + 0 -14))) + (%f10))))) -14) ;;; incorrect return value (may be same bug as misc.278) @@ -4947,14 +4947,14 @@ '(lambda (a) (declare (optimize (speed 1) (space 3) (safety 1) (debug 3) (compilation-speed 2))) (catch 'ct6 - (labels ((%f12 () - (labels ((%f14 (&optional (f14-3 (return-from %f12 5))) 4)) - (funcall (constantly 3) - (let ((v2 (%f14))) 2) - (throw 'ct6 1) - )))) - (%f12) - a)))) + (labels ((%f12 () + (labels ((%f14 (&optional (f14-3 (return-from %f12 5))) 4)) + (funcall (constantly 3) + (let ((v2 (%f14))) 2) + (throw 'ct6 1) + )))) + (%f12) + a)))) :good) :good) @@ -4972,7 +4972,7 @@ ;;; gcl: Error in COMPILER::CMP-ANON [or a callee]: The function COMPILER::LDB1 is undefined. (deftest misc.282 (funcall (compile nil '(lambda () (declare (optimize safety)) - (ldb (byte 13 13) 43710)))) + (ldb (byte 13 13) 43710)))) 5) ;;; gcl (2/28/2004) @@ -5005,7 +5005,7 @@ (compilation-speed 2))) (progn (tagbody - (multiple-value-prog1 0 (go tag2)) + (multiple-value-prog1 0 (go tag2)) 0 tag2) (funcall (constantly 0) @@ -5021,7 +5021,7 @@ nil '(lambda (a) (declare (optimize (speed 2) (space 0) (safety 0) (debug 2) - (compilation-speed 3))) + (compilation-speed 3))) (block b7 (let* ((v1 (* (return-from b7 0) a))) -4359852)))) 1) 0) @@ -5042,7 +5042,7 @@ (flet ((%f11 (f11-2) 0)) (%f11 (unwind-protect e - (tagbody + (tagbody (let* ((v4 (unwind-protect (go 0)))) 0) 0) (logand (handler-bind () 0))))))) @@ -5052,17 +5052,17 @@ #| ecl (6 Mar 2004) (LAMBDA (C::LOC1 C::LOC2) (IF (AND (CONSP C::LOC1) - (EQ (CAR C::LOC1) 'FIXNUM) - (CONSP (CADR C::LOC1)) - (EQ (CAADR C::LOC1) 'C::FIXNUM-VALUE) - (EQ (CADR (CADR C::LOC1)) 2)) - (PROGN (C::WT1 "(1<<(") - (C::WT1 C::LOC2) (C::WT1 "))")) - (PROGN (C::WT1 "fixnum_expt(") - (C::WT1 C::LOC1) - (C::WT1 #\,) - (C::WT1 C::LOC2) - (C::WT1 #\))))) + (EQ (CAR C::LOC1) 'FIXNUM) + (CONSP (CADR C::LOC1)) + (EQ (CAADR C::LOC1) 'C::FIXNUM-VALUE) + (EQ (CADR (CADR C::LOC1)) 2)) + (PROGN (C::WT1 "(1<<(") + (C::WT1 C::LOC2) (C::WT1 "))")) + (PROGN (C::WT1 "fixnum_expt(") + (C::WT1 C::LOC1) + (C::WT1 #\,) + (C::WT1 C::LOC2) + (C::WT1 #\))))) is not of type STRING. Broken at C::WT-C-INLINE-LOC. |# @@ -5087,9 +5087,9 @@ Broken at C::WT-C-INLINE-LOC. nil '(lambda (b) (declare (optimize (speed 3) (space 1) (safety 1) (debug 2) - (compilation-speed 2))) + (compilation-speed 2))) (multiple-value-prog1 (apply (constantly 0) b 0 0 nil) - (catch 'ct8 (throw 'ct8 -2))))) + (catch 'ct8 (throw 'ct8 -2))))) 1) 0) @@ -5102,8 +5102,8 @@ Broken at C::WT-C-INLINE-LOC. nil '(lambda () (declare - (optimize (speed 3) (space 3) (safety 1) - (debug 2) (compilation-speed 0))) + (optimize (speed 3) (space 3) (safety 1) + (debug 2) (compilation-speed 0))) (apply (constantly 0) (catch 'ct2 0) 0 (catch 'ct2 0) nil)))) 0) @@ -5130,10 +5130,10 @@ Broken at C::WT-C-INLINE-LOC. #'(lambda (a) (declare (notinline numerator)) (declare (optimize (speed 2) (space 3) (safety 2) (debug 0) - (compilation-speed 2))) + (compilation-speed 2))) (tagbody (tagbody (progn a) tag) - (go tag) - tag)) + (go tag) + tag)) 17) nil) @@ -5146,20 +5146,20 @@ Broken at C::WT-C-INLINE-LOC. nil '(lambda (a b c) (declare - (optimize (speed 3) (space 2) (safety 3) (debug 0) - (compilation-speed 1))) + (optimize (speed 3) (space 2) (safety 3) (debug 0) + (compilation-speed 1))) (flet ((%f15 (f15-1 f15-2 f15-3) - (apply (constantly 0) - 0 - 0 - (ignore-errors - (let ((v10 (apply (constantly 0) - b a (max 0 c) nil))) - 0)) - nil))) - (flet ((%f14 (f14-1 &optional (f14-2 b) (f14-3 0) (f14-4 0)) - (%f15 0 0 b))) - (%f14 0 c))))) + (apply (constantly 0) + 0 + 0 + (ignore-errors + (let ((v10 (apply (constantly 0) + b a (max 0 c) nil))) + 0)) + nil))) + (flet ((%f14 (f14-1 &optional (f14-2 b) (f14-3 0) (f14-4 0)) + (%f15 0 0 b))) + (%f14 0 c))))) 1 2 3) 0) @@ -5169,22 +5169,22 @@ Broken at C::WT-C-INLINE-LOC. nil '(lambda (a b) (declare (optimize (speed 2) (space 0) (safety 3) (debug 1) - (compilation-speed 2))) + (compilation-speed 2))) (apply (constantly 0) - a - 0 - (catch 'ct6 - (apply (constantly 0) - 0 - 0 - (let* ((v1 - (let ((*s7* 0)) - b))) - 0) - 0 - nil)) - 0 - nil))) + a + 0 + (catch 'ct6 + (apply (constantly 0) + 0 + 0 + (let* ((v1 + (let ((*s7* 0)) + b))) + 0) + 0 + nil)) + 0 + nil))) 1 2) 0) @@ -5196,13 +5196,13 @@ Broken at C::WT-C-INLINE-LOC. nil '(lambda (a) (declare (optimize (speed 2) (space 1) (safety 3) (debug 3) - (compilation-speed 3))) + (compilation-speed 3))) (let ((v6 - (labels ((%f9 (f9-1) - (multiple-value-prog1 0 (return-from %f9 0) a))) - (let ((*s4* (%f9 0))) - 0)))) - 0))) + (labels ((%f9 (f9-1) + (multiple-value-prog1 0 (return-from %f9 0) a))) + (let ((*s4* (%f9 0))) + 0)))) + 0))) 1) 0) @@ -5212,14 +5212,14 @@ Broken at C::WT-C-INLINE-LOC. nil '(lambda (a b c) (declare (optimize (speed 2) (space 3) (safety 1) - (debug 2) (compilation-speed 2))) + (debug 2) (compilation-speed 2))) (block b6 - (multiple-value-prog1 - 0 b 0 - (catch 'ct7 - (return-from b6 - (catch 'ct2 - (complex (cl::handler-bind nil -254932942) 0)))))))) + (multiple-value-prog1 + 0 b 0 + (catch 'ct7 + (return-from b6 + (catch 'ct2 + (complex (cl::handler-bind nil -254932942) 0)))))))) 1 2 3) -254932942) @@ -5230,9 +5230,9 @@ Broken at C::WT-C-INLINE-LOC. '(lambda () (declare (notinline complex)) (declare (optimize (speed 1) (space 0) (safety 1) - (debug 3) (compilation-speed 3))) + (debug 3) (compilation-speed 3))) (flet ((%f () (multiple-value-prog1 0 (return-from %f 0)))) - (complex (%f) 0))))) + (complex (%f) 0))))) 0) (deftest misc.293c @@ -5250,7 +5250,7 @@ Broken at C::WT-C-INLINE-LOC. (debug 2) (speed 0) #+sbcl (sb-c:insert-step-conditions 0) - )) + )) (block b4 (multiple-value-prog1 0 (catch 'ct7 (return-from b4 (catch 'ct6 (if a 0 b)))) @@ -5268,12 +5268,12 @@ Broken at C::WT-C-INLINE-LOC. '(lambda (a b c) (declare (notinline /=)) (declare (optimize (speed 2) (space 0) (safety 1) - (debug 0)(compilation-speed 1))) + (debug 0)(compilation-speed 1))) (catch 'ct1 (flet ((%f1 (f1-1 f1-2 f1-3) (throw 'ct1 (if (/= 0) 0 (multiple-value-prog1 - 0 (throw 'ct1 a) c))))) + 0 (throw 'ct1 a) c))))) (let ((*s3* (%f1 a a 0))) 0))))) 1 2 3) @@ -5286,12 +5286,12 @@ Broken at C::WT-C-INLINE-LOC. '(lambda (a b c) (declare (notinline expt)) (declare (optimize (speed 1) (space 2) (safety 3) - (debug 0) (compilation-speed 0))) + (debug 0) (compilation-speed 0))) (catch 'ct2 - (expt - (catch 'ct2 - (throw 'ct2 (if a 0 (multiple-value-prog1 0 (throw 'ct2 c) 0)))) - 0)))) + (expt + (catch 'ct2 + (throw 'ct2 (if a 0 (multiple-value-prog1 0 (throw 'ct2 c) 0)))) + 0)))) 1 2 3) 1) @@ -5307,63 +5307,63 @@ Broken at C::WT-C-INLINE-LOC. (declare (type (integer -4717708 795706) c)) (declare (ignorable a b c)) (declare - (optimize (speed 1) - (space 0) - (safety 2) - (debug 1) - (compilation-speed 2))) + (optimize (speed 1) + (space 0) + (safety 2) + (debug 1) + (compilation-speed 2))) (multiple-value-prog1 - (the integer - (catch 'ct8 - (catch 'ct5 - (catch 'ct7 - (flet ((%f3 (f3-1 f3-2 &optional (f3-3 a) (f3-4 c)) b)) - (labels ((%f13 (f13-1 f13-2 f13-3) - (let* ((*s4* - (return-from %f13 - (flet ((%f18 (f18-1 f18-2) + (the integer + (catch 'ct8 + (catch 'ct5 + (catch 'ct7 + (flet ((%f3 (f3-1 f3-2 &optional (f3-3 a) (f3-4 c)) b)) + (labels ((%f13 (f13-1 f13-2 f13-3) + (let* ((*s4* + (return-from %f13 + (flet ((%f18 (f18-1 f18-2) (apply #'%f3 (progv nil nil f13-2) (list (%f3 -460 f18-1 10095 352819651))))) - (flet ((%f5 () - (funcall #'%f3 - f13-2 - (flet ((%f14 (f14-1 f14-2 &optional (f14-3 f13-2) (f14-4 -15)) - 160080387)) - -196377) - (isqrt - (abs - (if (/= 117 (%f18 -14 -46574)) - (return-from - %f13 - (ignore-errors - (flet ((%f12 (f12-1 f12-2 &optional (f12-3 740148786) - (f12-4 -20) - (f12-5 -35261)) - f12-3)) - (%f3 - (%f3 b (%f12 c b f13-3 f13-1 -1124)) - 0 - -1003264058 - f13-1)))) + (flet ((%f5 () + (funcall #'%f3 + f13-2 + (flet ((%f14 (f14-1 f14-2 &optional (f14-3 f13-2) (f14-4 -15)) + 160080387)) + -196377) + (isqrt + (abs + (if (/= 117 (%f18 -14 -46574)) + (return-from + %f13 + (ignore-errors + (flet ((%f12 (f12-1 f12-2 &optional (f12-3 740148786) + (f12-4 -20) + (f12-5 -35261)) + f12-3)) + (%f3 + (%f3 b (%f12 c b f13-3 f13-1 -1124)) + 0 + -1003264058 + f13-1)))) (block b3 (labels ((%f15 () f13-2)) -4858377))))) - (%f3 793 f13-2 f13-3 a)))) - f13-3))))) - (* -420793 - (%f3 (%f3 f13-1 f13-3 f13-3 f13-2) 0 8604 f13-1))))) - (lognor - (progv nil nil - (if (< -16 c) - 15867134 - (- - (throw 'ct5 - (prog1 7 - (floor - (max (%f13 -4862 -888 -53824112) a -17974 1540006) - (min -74 -473379))))))) - (progv nil nil (prog1 b 22 c a))))))))) - (catch 'ct1 (throw 'ct1 0)) - 0))) + (%f3 793 f13-2 f13-3 a)))) + f13-3))))) + (* -420793 + (%f3 (%f3 f13-1 f13-3 f13-3 f13-2) 0 8604 f13-1))))) + (lognor + (progv nil nil + (if (< -16 c) + 15867134 + (- + (throw 'ct5 + (prog1 7 + (floor + (max (%f13 -4862 -888 -53824112) a -17974 1540006) + (min -74 -473379))))))) + (progv nil nil (prog1 b 22 c a))))))))) + (catch 'ct1 (throw 'ct1 0)) + 0))) 794801 211700 -1246335) 7) @@ -6070,15 +6070,15 @@ Broken at C::WT-C-INLINE-LOC. nil '(lambda (a c) (declare (optimize (speed 2) (space 3) (safety 2) (debug 2) - (compilation-speed 0))) + (compilation-speed 0))) (unwind-protect - 0 - (progn (tagbody (bit #*000000111 (min 8 (max 0 a))) - tag5 (flet ((%f17 (f17-1 f17-2 f17-3) - (complex (numerator (go tag4)) 0))) - c) - tag4) - c)))) + 0 + (progn (tagbody (bit #*000000111 (min 8 (max 0 a))) + tag5 (flet ((%f17 (f17-1 f17-2 f17-3) + (complex (numerator (go tag4)) 0))) + c) + tag4) + c)))) 1 2) 0) @@ -6091,10 +6091,10 @@ Broken at C::WT-C-INLINE-LOC. nil '(lambda () (declare (optimize (speed 1) (space 1) (safety 3) (debug 0) - (compilation-speed 3))) + (compilation-speed 3))) (catch 'ct4 - (elt '(40760) - (min 0 (max 0 (let* ((v3 (* (throw 'ct4 0) 0))) 0)))))))) + (elt '(40760) + (min 0 (max 0 (let* ((v3 (* (throw 'ct4 0) 0))) 0)))))))) 0) ;;; seg fault @@ -6108,21 +6108,21 @@ Broken at C::WT-C-INLINE-LOC. (declare (type (integer 99335934976 442465125376) c)) (declare (ignorable a b c)) (declare (optimize (speed 1) (space 1) (safety 1) (debug 0) - (compilation-speed 0))) + (compilation-speed 0))) (if (rationalize - (labels ((%f12 (f12-1) - (if c 0 - (bit #*101010011000011 - (min 14 (max 0 0)))))) - (if (> 0 c) 0 (%f12 0)))) - (progn - (expt (flet ((%f18 (f18-1 f18-2 &optional (f18-3 0) - (f18-4 c) (f18-5 b)) - 0)) - (apply #'%f18 b b 0 0 nil)) - 0) - a) - 0))) + (labels ((%f12 (f12-1) + (if c 0 + (bit #*101010011000011 + (min 14 (max 0 0)))))) + (if (> 0 c) 0 (%f12 0)))) + (progn + (expt (flet ((%f18 (f18-1 f18-2 &optional (f18-3 0) + (f18-4 c) (f18-5 b)) + 0)) + (apply #'%f18 b b 0 0 nil)) + 0) + a) + 0))) 10 1 99335934976) 10) @@ -6137,13 +6137,13 @@ Broken at C::WT-C-INLINE-LOC. (declare (type (integer -746719 1431737508) c)) (declare (ignorable a b c)) (declare (optimize (speed 3) (space 1) (safety 2) (debug 3) - (compilation-speed 3))) + (compilation-speed 3))) (if (logbitp 0 - (flet ((%f10 (f10-1 f10-2 f10-3) b)) - (flet ((%f4 (f4-1 f4-2) - (apply #'%f10 (%f10 0 a 0) 0 c nil))) - (complex (%f4 0 0) 0)))) - 0 0))) + (flet ((%f10 (f10-1 f10-2 f10-3) b)) + (flet ((%f4 (f4-1 f4-2) + (apply #'%f10 (%f10 0 a 0) 0 c nil))) + (complex (%f4 0 0) 0)))) + 0 0))) 2378435476701 1646880 246794654) 0) @@ -6156,11 +6156,11 @@ Broken at C::WT-C-INLINE-LOC. nil '(lambda () (declare (optimize (speed 3) (space 0) (safety 2) - (debug 2) (compilation-speed 0))) + (debug 2) (compilation-speed 0))) (catch 'ct2 - (elt '(102) - (flet ((%f12 () (rem 0 -43))) - (multiple-value-call #'%f12 (values)))))))) + (elt '(102) + (flet ((%f12 () (rem 0 -43))) + (multiple-value-call #'%f12 (values)))))))) 102) (deftest misc.320a @@ -6169,14 +6169,14 @@ Broken at C::WT-C-INLINE-LOC. nil '(lambda (b) (declare (optimize (speed 3) (space 0) (safety 2) - (debug 2) (compilation-speed 0))) + (debug 2) (compilation-speed 0))) (reduce '* (list (elt '(10 20 30 40 50) b) (expt (reduce #'(lambda (lmv1 lmv3) (mod lmv3 15)) - (vector 0 0)) - 0) + (vector 0 0)) + 0) (rem 0 -71)) - ))) + ))) 2) 0) @@ -6190,16 +6190,16 @@ Broken at C::WT-C-INLINE-LOC. (declare (type (integer 445621505781 8489194559765) c)) (declare (ignorable a b c)) (declare - (optimize (speed 1) - (space 0) - (safety 2) - (debug 3) - (compilation-speed 3))) + (optimize (speed 1) + (space 0) + (safety 2) + (debug 3) + (compilation-speed 3))) (elt '(3327764 3386241) - (min 1 - (max 0 - (reduce #'(lambda (lmv6 lmv5) (mod 0 (min -86 0))) - (list 0 0))))))) + (min 1 + (max 0 + (reduce #'(lambda (lmv6 lmv5) (mod 0 (min -86 0))) + (list 0 0))))))) -512398 -156405 1140919327630) 3327764) @@ -6212,10 +6212,10 @@ Broken at C::WT-C-INLINE-LOC. nil '(lambda (p) (declare (optimize (speed 1) (space 3) (safety 2) (debug 1) - (compilation-speed 3))) + (compilation-speed 3))) (catch 'ct2 - (let* ((v3 (- (if p (throw 'ct2 :good) 0)))) - :bad)))) + (let* ((v3 (- (if p (throw 'ct2 :good) 0)))) + :bad)))) t) :good) @@ -6226,9 +6226,9 @@ Broken at C::WT-C-INLINE-LOC. nil '(lambda (a) (declare (optimize (speed 2) (space 2) (safety 0) (debug 3) - (compilation-speed 2))) + (compilation-speed 2))) (logorc2 (labels ((%f14 (f14-1) a)) (%f14 0)) - (reduce #'(lambda (lmv1 lmv2) a) (list 0 0))))) + (reduce #'(lambda (lmv1 lmv2) a) (list 0 0))))) 3151096069) -1) @@ -6236,13 +6236,13 @@ Broken at C::WT-C-INLINE-LOC. (deftest misc.323 (let* ((tail '(:from-end t)) - (form - `(lambda () - (declare (optimize (speed 3) (space 1) (safety 2) (debug 2) - (compilation-speed 2))) - (eval '(reduce #'logior - (vector (reduce #'logand (vector 0 0) . ,tail) 0) - . ,tail))))) + (form + `(lambda () + (declare (optimize (speed 3) (space 1) (safety 2) (debug 2) + (compilation-speed 2))) + (eval '(reduce #'logior + (vector (reduce #'logand (vector 0 0) . ,tail) 0) + . ,tail))))) (funcall (compile nil form))) 0) @@ -6254,10 +6254,10 @@ Broken at C::WT-C-INLINE-LOC. nil '(lambda (a) (declare (optimize (speed 2) (space 2) (safety 3) (debug 2) - (compilation-speed 3))) + (compilation-speed 3))) (labels ((%f6 (f6-1) (multiple-value-setq (a) 0))) - (reduce #'(lambda (lmv4 lmv3) a) - (list (%f6 0) 2))))) + (reduce #'(lambda (lmv4 lmv3) a) + (list (%f6 0) 2))))) 1) 0) @@ -6273,10 +6273,10 @@ Broken at C::WT-C-INLINE-LOC. (declare (type (integer -492625 197903) b)) (declare (ignorable a b)) (declare (optimize (speed 3) (space 1) (safety 3) (debug 0) - (compilation-speed 1))) + (compilation-speed 1))) (reduce #'(lambda (lmv5 lmv6) - (multiple-value-setq (a) 2443855591508)) - (vector b a 0 0) :from-end t))) + (multiple-value-setq (a) 2443855591508)) + (vector b a 0 0) :from-end t))) 1 2) 2443855591508) @@ -6288,7 +6288,7 @@ Broken at C::WT-C-INLINE-LOC. '(lambda (b) (declare (type (integer 155 7955) b)) (declare (optimize (speed 3) (space 3) (safety 3) (debug 1) - (compilation-speed 0))) + (compilation-speed 0))) (flet ((%f13 (f13-1) (shiftf b 3019))) (+ b (%f13 0))))) 200) 400) @@ -6305,20 +6305,20 @@ Broken at C::WT-C-INLINE-LOC. (declare (type (integer -586950907 -10945000) b)) (declare (ignorable a b)) (declare (optimize (speed 2) (space 0) (safety 2) (debug 2) - (compilation-speed 1))) + (compilation-speed 1))) (labels ((%f15 (f15-1) - (elt #(1073730663 1073689230 596123606 1073713997 - 311527378 186184643 1073713230 1316881) - (min 7 - (max 0 - (catch 'ct7 - (reduce - #'min - (list 0 b (catch 'ct7 - (throw 'ct7 f15-1)) - 0) - :start 1 - :from-end t))))))) + (elt #(1073730663 1073689230 596123606 1073713997 + 311527378 186184643 1073713230 1316881) + (min 7 + (max 0 + (catch 'ct7 + (reduce + #'min + (list 0 b (catch 'ct7 + (throw 'ct7 f15-1)) + 0) + :start 1 + :from-end t))))))) (%f15 0)))) -38276611 -11001852) 1073730663) @@ -6331,13 +6331,13 @@ Broken at C::WT-C-INLINE-LOC. '(lambda (a b c d e) (declare (notinline max vector reduce)) (declare (optimize (speed 1) (space 2) (safety 1) (debug 1) - (compilation-speed 2))) + (compilation-speed 2))) (reduce #'(lambda (lmv6 lmv3) lmv3) - (vector 0 (max 0) 0 0 - (catch 'ct2 (catch 'ct2 (throw 'ct2 0))) 0 e 0) - - :end 2 - :from-end t))) + (vector 0 (max 0) 0 0 + (catch 'ct2 (catch 'ct2 (throw 'ct2 0))) 0 e 0) + + :end 2 + :from-end t))) 68664683637 328245 881497115 -303855 311427) 0) @@ -6354,7 +6354,7 @@ Broken at C::WT-C-INLINE-LOC. (declare (type (integer -10 0) b)) (declare (ignorable a b)) (declare (optimize (speed 3) (space 1) (safety 3) (debug 0) - (compilation-speed 0))) + (compilation-speed 0))) (if (logbitp 0 (if (or t nil) (setf a -2616861879) 0)) 0 0))) -4836700955 -1) 0) @@ -6369,10 +6369,10 @@ Broken at C::WT-C-INLINE-LOC. (declare (type (integer 84176291516 98216856233) b)) (declare (ignorable a b)) (declare (optimize (speed 3) (space 3) (safety 0) (debug 0) - (compilation-speed 0))) + (compilation-speed 0))) (let ((*s2* (case b ((53651 62711 29537 25305 62250) 0) (t 0)))) - (declare (special *s2*)) - (setq a -688292831)))) + (declare (special *s2*)) + (setq a -688292831)))) -406606203 84436335326) -688292831) @@ -6385,7 +6385,7 @@ Broken at C::WT-C-INLINE-LOC. (declare (type (integer -3683497948554 427) b)) (declare (ignorable a b)) (declare (optimize (speed 3) (space 0) (safety 0) (debug 3) - (compilation-speed 2))) + (compilation-speed 2))) (lcm (block b8 (signum (return-from b8 a)))))) -12715609319989 -582329850697) 12715609319989) @@ -6399,7 +6399,7 @@ Broken at C::WT-C-INLINE-LOC. (declare (type (integer -63500163479 -8671) b)) (declare (ignorable a b)) (declare (optimize (speed 3) (space 0) (safety 0) (debug 2) - (compilation-speed 3))) + (compilation-speed 3))) (if (if (>= 0) t t) (setq b -25319949896) b))) 0 -10000) -25319949896) @@ -6413,11 +6413,11 @@ Broken at C::WT-C-INLINE-LOC. '(lambda (a b) (declare (notinline max logorc1 numerator rem)) (declare (optimize (speed 3) (space 1) (safety 1) (debug 1) - (compilation-speed 2))) + (compilation-speed 2))) (rem (progn (tagbody (numerator (logorc1 0 (go tag5))) - tag5) - 0) - (max 93 0)))) + tag5) + 0) + (max 93 0)))) -801 17641908) 0) @@ -6431,10 +6431,10 @@ Broken at C::WT-C-INLINE-LOC. '(lambda () (declare (notinline logxor)) (declare (optimize (speed 3) (space 0) (safety 0) (debug 3) - (compilation-speed 3))) + (compilation-speed 3))) (logxor (progn (tagbody (let* ((*s4* (progn (go 1) 0))) 0) - 1) - 0))))) + 1) + 0))))) 0) ;;; Debugger invoked on condition of type PROGRAM-ERROR: @@ -6449,7 +6449,7 @@ Broken at C::WT-C-INLINE-LOC. (declare (type (integer 2010840649 2119165101) c)) (declare (ignorable a b c)) (declare (optimize (speed 3) (space 2) (safety 0) (debug 2) - (compilation-speed 1))) + (compilation-speed 1))) (+ (block b6 (expt (return-from b6 b) 0))))) 3966745735633 -1123 2030094113) -1123) @@ -6458,15 +6458,15 @@ Broken at C::WT-C-INLINE-LOC. (deftest misc.335 (let ((c 10)) (denominator (progn (tagbody (realpart (loop for lv4 below 2 sum (go 0))) - 0) - c))) + 0) + c))) 1) (deftest misc.336 (prog2 (progn (tagbody (- (common-lisp:handler-case (go tag2))) - tag2) - 0) - 0) + tag2) + 0) + 0) 0) ;;; Incorrect return value @@ -6476,9 +6476,9 @@ Broken at C::WT-C-INLINE-LOC. nil '(lambda () (declare (optimize (speed 2) (space 2) (safety 2) (debug 0) - (compilation-speed 0))) + (compilation-speed 0))) (imagpart (block b8 - (logior (block b7 (return-from b8 225480400)))))))) + (logior (block b7 (return-from b8 225480400)))))))) 0) ;;; Inconsistent stack height 1 != 2 @@ -6486,11 +6486,11 @@ Broken at C::WT-C-INLINE-LOC. (let #+armedbear ((jvm::*catch-errors* nil)) nil (funcall - (compile - nil - '(lambda (c) - (conjugate (block b8 (max (if c (return-from b8 0) 0)))))) - 10)) + (compile + nil + '(lambda (c) + (conjugate (block b8 (max (if c (return-from b8 0) 0)))))) + 10)) 0) ;;; Inconsistent stack height 4 != 0 @@ -6502,15 +6502,15 @@ Broken at C::WT-C-INLINE-LOC. (compile nil '(lambda () - (declare (optimize (speed 1) (space 3) (safety 3) (debug 0) - (compilation-speed 0))) - (block b1 - (reduce #'min - (list (return-from b1 0)) - :end 1 - :start 0 - :from-end t - )))))) + (declare (optimize (speed 1) (space 3) (safety 3) (debug 0) + (compilation-speed 0))) + (block b1 + (reduce #'min + (list (return-from b1 0)) + :end 1 + :start 0 + :from-end t + )))))) 0) ;;; The value INTEGER is not of type sequence. @@ -6524,14 +6524,14 @@ Broken at C::WT-C-INLINE-LOC. (declare (type (integer -3229571579853 -180689150012) c)) (declare (ignorable a b c)) (declare (optimize (speed 3) (space 1) (safety 0) (debug 2) - (compilation-speed 2))) + (compilation-speed 2))) (coerce (rationalize (progn (tagbody (reduce #'logand - (list b 0 (go tag3)) - :from-end - t) - tag3) - 0)) - 'integer))) + (list b 0 (go tag3)) + :from-end + t) + tag3) + 0)) + 'integer))) -1625211 3052955 -2091182035681) 0) @@ -6544,12 +6544,12 @@ Broken at C::WT-C-INLINE-LOC. (compile nil '(lambda (c) - (declare (optimize (speed 2) (space 1) (safety 1) (debug 2) - (compilation-speed 3))) - (logeqv (block b6 - (logeqv (case 0 - ((45293 29462 60403) (return-from b6 0)) - (t c))))))) + (declare (optimize (speed 2) (space 1) (safety 1) (debug 2) + (compilation-speed 3))) + (logeqv (block b6 + (logeqv (case 0 + ((45293 29462 60403) (return-from b6 0)) + (t c))))))) 10)) 10) @@ -6562,11 +6562,11 @@ Broken at C::WT-C-INLINE-LOC. (compile nil '(lambda (a) - (declare (optimize (speed 1) (space 0) (safety 2) (debug 1) - (compilation-speed 2))) - (progn (tagbody (imagpart (dotimes (iv3 0 a) (go 4))) - 4) - 0))) + (declare (optimize (speed 1) (space 0) (safety 2) (debug 1) + (compilation-speed 2))) + (progn (tagbody (imagpart (dotimes (iv3 0 a) (go 4))) + 4) + 0))) 1)) 0) @@ -6579,15 +6579,15 @@ Broken at C::WT-C-INLINE-LOC. (compile nil '(lambda () - (declare (optimize (speed 2) (space 3) (safety 2) (debug 3) - (compilation-speed 2))) - (mask-field (byte 0 0) - (block b8 - (reduce 'logior - (list (return-from b8 0) 0 0) - :end 3 - :start 0 - :from-end t))))))) + (declare (optimize (speed 2) (space 3) (safety 2) (debug 3) + (compilation-speed 2))) + (mask-field (byte 0 0) + (block b8 + (reduce 'logior + (list (return-from b8 0) 0 0) + :end 3 + :start 0 + :from-end t))))))) 0) ;;; Wrong value @@ -6598,10 +6598,10 @@ Broken at C::WT-C-INLINE-LOC. '(lambda (a) (declare (type (integer -3464434 12316202) a)) (declare (optimize (speed 1) (space 0) (safety 0) (debug 0) - (compilation-speed 2))) + (compilation-speed 2))) (progn (tagbody (gcd (expt (setf a -2612809) 0) (go 5)) - 5) - a))) + 5) + a))) 1891348) -2612809) @@ -6614,20 +6614,20 @@ Broken at C::WT-C-INLINE-LOC. (compile nil '(lambda (a b c) - (declare (type (integer -1968 -1759) a)) - (declare (type (integer 91 2293818743282) b)) - (declare (type (integer -843793650839 -2) c)) - (declare (ignorable a b c)) - (declare (optimize (speed 3) (space 2) (safety 3) (debug 0) - (compilation-speed 3))) - (max (block b1 - (conjugate (dotimes (iv3 0 - (bit #*010 - (min 2 - (max 0 - (return-from b1 0))))) - (progn 0)))) - (sbit #*0001011010010 (min 12 (max 0 0)))))) + (declare (type (integer -1968 -1759) a)) + (declare (type (integer 91 2293818743282) b)) + (declare (type (integer -843793650839 -2) c)) + (declare (ignorable a b c)) + (declare (optimize (speed 3) (space 2) (safety 3) (debug 0) + (compilation-speed 3))) + (max (block b1 + (conjugate (dotimes (iv3 0 + (bit #*010 + (min 2 + (max 0 + (return-from b1 0))))) + (progn 0)))) + (sbit #*0001011010010 (min 12 (max 0 0)))))) -1957 523078358699 -634832888815)) 0) @@ -6639,13 +6639,13 @@ Broken at C::WT-C-INLINE-LOC. (compile nil '(lambda (c) - (declare (type (integer -3011346550 1630587670) c)) - (declare (optimize (speed 1) (space 1) (safety 0) (debug 3) - (compilation-speed 1))) - (progn (tagbody (dotimes (iv2 0 (- 0 (go 7))) (progn 0)) - 7 - (progn (mask-field (byte 0 0) 0) c)) - 0))) + (declare (type (integer -3011346550 1630587670) c)) + (declare (optimize (speed 1) (space 1) (safety 0) (debug 3) + (compilation-speed 1))) + (progn (tagbody (dotimes (iv2 0 (- 0 (go 7))) (progn 0)) + 7 + (progn (mask-field (byte 0 0) 0) c)) + 0))) 1)) 0) @@ -6656,16 +6656,16 @@ Broken at C::WT-C-INLINE-LOC. nil '(lambda () (declare (optimize (speed 2) (space 2) (safety 2) (debug 2) - (compilation-speed 2))) + (compilation-speed 2))) (bit #*011100 - (min 5 - (max 0 - (block b8 - (aref #(122010971004 126555236004) - (min 1 - (max 0 - (progn (return-from b8 191438621) - 0))))))))))) + (min 5 + (max 0 + (block b8 + (aref #(122010971004 126555236004) + (min 1 + (max 0 + (progn (return-from b8 191438621) + 0))))))))))) 0) ;;; The value 8 is not of type FUNCTION. @@ -6675,10 +6675,10 @@ Broken at C::WT-C-INLINE-LOC. nil '(lambda () (declare (optimize (speed 2) (space 2) (safety 3) (debug 2) - (compilation-speed 1))) + (compilation-speed 1))) (complex (* (block b2 - (boole boole-xor (logxor (return-from b2 0)) 0))) - 0)))) + (boole boole-xor (logxor (return-from b2 0)) 0))) + 0)))) 0) ;;; Wrong result @@ -6688,7 +6688,7 @@ Broken at C::WT-C-INLINE-LOC. nil '(lambda (a c) (declare (optimize (speed 1) (space 0) (safety 2) (debug 3) - (compilation-speed 1))) + (compilation-speed 1))) (max (conjugate (setq a -4178265097)) (if (> c 0) 0 a)))) -2408319173 -4307532101272) -4178265097) @@ -6699,10 +6699,10 @@ Broken at C::WT-C-INLINE-LOC. nil '(lambda () (declare (optimize (speed 3) (space 1) (safety 1) (debug 1) - (compilation-speed 2))) + (compilation-speed 2))) (mod (let ((*s7* (block b7 (logandc2 (+ (return-from b7 0)) 0)))) - -10) - (max 26 0))))) + -10) + (max 26 0))))) 16) ;;; Inconsistent stack height 0 != 1 @@ -6715,11 +6715,11 @@ Broken at C::WT-C-INLINE-LOC. (compile nil '(lambda () - (declare (optimize (speed 2) (space 3) (safety 1) (debug 2) - (compilation-speed 3))) - (progn (tagbody (complex (- 0 (if (and t) 0 (go tag1))) 0) - tag1) - 0))))) + (declare (optimize (speed 2) (space 3) (safety 1) (debug 2) + (compilation-speed 3))) + (progn (tagbody (complex (- 0 (if (and t) 0 (go tag1))) 0) + tag1) + 0))))) 0) (deftest misc.351 @@ -6730,13 +6730,13 @@ Broken at C::WT-C-INLINE-LOC. (compile nil '(lambda (c) - (declare (type (integer -598962457711 -2902) c)) - (declare (optimize (speed 1) (space 0) (safety 1) (debug 0) - (compilation-speed 3))) - (lognor c - (block b1 - (loop for lv3 below 1 - sum (if (/= 0) (return-from b1 0) c)))))) + (declare (type (integer -598962457711 -2902) c)) + (declare (optimize (speed 1) (space 0) (safety 1) (debug 0) + (compilation-speed 3))) + (lognor c + (block b1 + (loop for lv3 below 1 + sum (if (/= 0) (return-from b1 0) c)))))) -392248104420)) 392248104419) @@ -6748,11 +6748,11 @@ Broken at C::WT-C-INLINE-LOC. (compile nil '(lambda () - (declare (optimize (speed 1) (space 3) (safety 3) (debug 3) - (compilation-speed 1))) - (progn (tagbody (+ 0 (if (< 0) (go 5) 0)) - 5) - 0))))) + (declare (optimize (speed 1) (space 3) (safety 3) (debug 3) + (compilation-speed 1))) + (progn (tagbody (+ 0 (if (< 0) (go 5) 0)) + 5) + 0))))) 0) (deftest misc.353 @@ -6763,21 +6763,21 @@ Broken at C::WT-C-INLINE-LOC. (compile nil '(lambda (a b) - (declare (type (integer -8 -2) a)) - (declare (type (integer -67321 14697029362) b)) - (declare (optimize (speed 3) (space 1) (safety 3) (debug 1) - (compilation-speed 2))) - (expt (block b2 - (loop for lv1 below 3 - sum (prog2 b - 0 + (declare (type (integer -8 -2) a)) + (declare (type (integer -67321 14697029362) b)) + (declare (optimize (speed 3) (space 1) (safety 3) (debug 1) + (compilation-speed 2))) + (expt (block b2 + (loop for lv1 below 3 + sum (prog2 b + 0 (expt (case 0 ((-13960 -57685 -37843 -34222 - -14273 -40931 -2688) + -14273 -40931 -2688) (return-from b2 0)) (t a)) 0)))) - 0))) + 0))) -7 772373806)) 1) @@ -6792,11 +6792,11 @@ Broken at C::WT-C-INLINE-LOC. (declare (type (integer 7473698771 3542216118742) c)) (declare (ignorable a b c)) (declare (optimize (speed 3) (space 2) (safety 1) (debug 3) - (compilation-speed 2))) + (compilation-speed 2))) (+ 0 - (progn (tagbody (if (if (>= b (go 3)) nil t) a c) - 3) - 0)))) + (progn (tagbody (if (if (>= b (go 3)) nil t) a c) + 3) + 0)))) 29329060987 -4964942044116 512158612507) 0) @@ -6807,12 +6807,12 @@ Broken at C::WT-C-INLINE-LOC. '(lambda (c) (declare (type (integer -1390043946499 -115168466439) c)) (declare (optimize (speed 2) (space 0) (safety 0) (debug 1) - (compilation-speed 2))) + (compilation-speed 2))) (+ 0 - (coerce (progn (tagbody (if (<= -1 (go tag1)) 0 c) - tag1) - 0) - 'integer)))) + (coerce (progn (tagbody (if (<= -1 (go tag1)) 0 c) + tag1) + 0) + 'integer)))) -115168466439) 0) @@ -6824,12 +6824,12 @@ Broken at C::WT-C-INLINE-LOC. (compile nil '(lambda () - (declare (optimize (speed 2) (space 2) (safety 1) (debug 0) - (compilation-speed 3))) - (let ((*s7* 0)) - (dotimes (iv2 0 0) - (block b3 - (block b3 (block b3 (setq *s7* (return-from b3 0))))))))))) + (declare (optimize (speed 2) (space 2) (safety 1) (debug 0) + (compilation-speed 3))) + (let ((*s7* 0)) + (dotimes (iv2 0 0) + (block b3 + (block b3 (block b3 (setq *s7* (return-from b3 0))))))))))) 0) (deftest misc.357 @@ -6840,15 +6840,15 @@ Broken at C::WT-C-INLINE-LOC. (compile nil '(lambda (b) - (declare (type (integer -1750881587721 -327383867) b)) - (declare (optimize (speed 1) (space 0) (safety 2) (debug 3) - (compilation-speed 3))) - (denominator (block b2 - (let* ((*s8* 0)) - (setq *s8* - (case 0 - ((-26733 -244 -26253 -50028) 0) - (t (return-from b2 b))))))))) + (declare (type (integer -1750881587721 -327383867) b)) + (declare (optimize (speed 1) (space 0) (safety 2) (debug 3) + (compilation-speed 3))) + (denominator (block b2 + (let* ((*s8* 0)) + (setq *s8* + (case 0 + ((-26733 -244 -26253 -50028) 0) + (t (return-from b2 b))))))))) -1153135130306)) 1) @@ -6860,15 +6860,15 @@ Broken at C::WT-C-INLINE-LOC. (compile nil '(lambda () - (declare (optimize (speed 2) (space 0) (safety 0) (debug 3) - (compilation-speed 1))) - (rationalize (let* ((*s1* 0)) - (block b3 - (conjugate (let* ((v10 - (if (ldb-test (byte 0 0) 0) - (return-from b3 *s1*) - 0))) - (setq *s1* (return-from b3 0))))))))))) + (declare (optimize (speed 2) (space 0) (safety 0) (debug 3) + (compilation-speed 1))) + (rationalize (let* ((*s1* 0)) + (block b3 + (conjugate (let* ((v10 + (if (ldb-test (byte 0 0) 0) + (return-from b3 *s1*) + 0))) + (setq *s1* (return-from b3 0))))))))))) 0) (deftest misc.359 @@ -6879,18 +6879,18 @@ Broken at C::WT-C-INLINE-LOC. (compile nil '(lambda (a b) - (declare (type (integer -477801566869 432060432661) a)) - (declare (type (integer 366578392 525704751) b)) - (declare (optimize (speed 3) (space 3) (safety 1) (debug 1) - (compilation-speed 1))) - (max (case b - ((0 -3 -2 -2 -3) - (progn (tagbody (loop for lv1 below 2 - count (let* ((*s1* a)) - (setq *s1* (go 4)))) - 4) - 0)) - (t 0))))) + (declare (type (integer -477801566869 432060432661) a)) + (declare (type (integer 366578392 525704751) b)) + (declare (optimize (speed 3) (space 3) (safety 1) (debug 1) + (compilation-speed 1))) + (max (case b + ((0 -3 -2 -2 -3) + (progn (tagbody (loop for lv1 below 2 + count (let* ((*s1* a)) + (setq *s1* (go 4)))) + 4) + 0)) + (t 0))))) 287358622300 400248608)) 0) @@ -6914,18 +6914,18 @@ Broken at C::WT-C-INLINE-LOC. '(lambda (a b c) (declare (notinline boole values denominator list)) (declare - (optimize (speed 2) - (space 0) - (safety 1) - (debug 0) - (compilation-speed 2))) + (optimize (speed 2) + (space 0) + (safety 1) + (debug 0) + (compilation-speed 2))) (catch 'ct6 - (progv - '(*s8*) - (list 0) - (let ((v9 (ignore-errors (throw 'ct6 0)))) - (denominator - (progv nil nil (values (boole boole-and 0 v9))))))))) + (progv + '(*s8*) + (list 0) + (let ((v9 (ignore-errors (throw 'ct6 0)))) + (denominator + (progv nil nil (values (boole boole-and 0 v9))))))))) 1 2 3) 0) @@ -6937,21 +6937,21 @@ Broken at C::WT-C-INLINE-LOC. nil '(lambda (b g h) (declare (optimize (speed 3) (space 3) (safety 2) - (debug 2) (compilation-speed 3))) + (debug 2) (compilation-speed 3))) (catch 'ct5 - (unwind-protect - (labels ((%f15 (f15-1 f15-2 f15-3) + (unwind-protect + (labels ((%f15 (f15-1 f15-2 f15-3) (rational (throw 'ct5 0)))) - (%f15 0 - (apply #'%f15 - 0 - h - (progn - (progv '(*s2* *s5*) (list 0 (%f15 0 g 0)) b) - 0) - nil) - 0)) - (common-lisp:handler-case 0))))) + (%f15 0 + (apply #'%f15 + 0 + h + (progn + (progv '(*s2* *s5*) (list 0 (%f15 0 g 0)) b) + 0) + nil) + 0)) + (common-lisp:handler-case 0))))) 1 2 3) 0) @@ -6963,17 +6963,17 @@ Broken at C::WT-C-INLINE-LOC. '(lambda (a) (declare (type (integer -17286401550789 15753784105886) a)) (declare (optimize (speed 2) (space 2) (safety 2) - (debug 0) (compilation-speed 3))) + (debug 0) (compilation-speed 3))) (if (not (>= 0 (shiftf a 110236462073))) - 0 - (elt '(30 101 13 2 10 52 89 57) (min 7 (max 0 a)))))) + 0 + (elt '(30 101 13 2 10 52 89 57) (min 7 (max 0 a)))))) -3647332298473) 57) ;;; "full call to SB-KERNEL:DATA-VECTOR-REF" (deftest misc.364 (dotimes (iv1 2 0) - (if (> iv1 iv1) + (if (> iv1 iv1) (svref #(2002 3778 1998 3466 530 3279 2033 521 4085) (min 8 (max 0 iv1))) 0)) @@ -6982,21 +6982,21 @@ Broken at C::WT-C-INLINE-LOC. ;;; OpenMCL/darwin bug (12 May 2004) (deftest misc.365 (let* ((fn1 - '(lambda (a b c) - (declare (type (integer -2 21) a)) - (declare (type (integer -5651364356 4324101092) b)) - (declare (type (integer -30766087 28182568) c)) - (declare (ignorable a b c)) - (declare (optimize (speed 3) (space 1) (safety 3) (debug 0) (compilation-speed 1))) - (coerce (logxor b -1) 'integer))) - (fn2 - '(lambda (a b c) - (declare (notinline logxor coerce)) - (declare (optimize (speed 3) (space 0) (safety 3) (debug 2) (compilation-speed 2))) - (coerce (logxor b -1) 'integer))) - (vals '(9 -328421075 -6406890)) - (v1 (apply (compile nil fn1) vals)) - (v2 (apply (compile nil fn2) vals))) + '(lambda (a b c) + (declare (type (integer -2 21) a)) + (declare (type (integer -5651364356 4324101092) b)) + (declare (type (integer -30766087 28182568) c)) + (declare (ignorable a b c)) + (declare (optimize (speed 3) (space 1) (safety 3) (debug 0) (compilation-speed 1))) + (coerce (logxor b -1) 'integer))) + (fn2 + '(lambda (a b c) + (declare (notinline logxor coerce)) + (declare (optimize (speed 3) (space 0) (safety 3) (debug 2) (compilation-speed 2))) + (coerce (logxor b -1) 'integer))) + (vals '(9 -328421075 -6406890)) + (v1 (apply (compile nil fn1) vals)) + (v2 (apply (compile nil fn2) vals))) (if (eql v1 v2) :good (list v1 v2))) :good) @@ -7019,42 +7019,42 @@ Broken at C::WT-C-INLINE-LOC. (declare (type (integer -2579781276 2108461452) i)) (declare (ignorable a b c d e f g h i)) (declare - (optimize (speed 3) - (space 0) - (safety 0) - (debug 2) - (compilation-speed 2))) + (optimize (speed 3) + (space 0) + (safety 0) + (debug 2) + (compilation-speed 2))) (elt '(11751 8554 7393 1924 3418) - (min 4 - (max 0 - (block b4 - (numerator - (flet ((%f5 - (f5-1 f5-2 f5-3 - &optional - (f5-4 (prog1 0 (return-from b4 0) 0)) - (f5-5 d) (f5-6 0)) - 0)) - (numerator - (apply (constantly 0) - 0 - 0 - (rationalize - (unwind-protect - (%f5 0 - c - (%f5 0 - c - (%f5 0 - 0 - 0 - h - (%f5 0 0 0) - i) - a)) - (ignore-errors 0))) - 0 - nil)))))))))) + (min 4 + (max 0 + (block b4 + (numerator + (flet ((%f5 + (f5-1 f5-2 f5-3 + &optional + (f5-4 (prog1 0 (return-from b4 0) 0)) + (f5-5 d) (f5-6 0)) + 0)) + (numerator + (apply (constantly 0) + 0 + 0 + (rationalize + (unwind-protect + (%f5 0 + c + (%f5 0 + c + (%f5 0 + 0 + 0 + h + (%f5 0 0 0) + i) + a)) + (ignore-errors 0))) + 0 + nil)))))))))) 21956127 524275646496 101890987 8762 -88607922426 -55959 2177 147174 38469170) 11751) @@ -7070,21 +7070,21 @@ Broken at C::WT-C-INLINE-LOC. (declare (type (integer 11557968 115977463) a)) (declare (type (integer -89510 -20616) b)) (declare (optimize (speed 2) (space 3) (safety 1) - (debug 0) (compilation-speed 1))) + (debug 0) (compilation-speed 1))) (rational - (flet ((%f17 (f17-1 f17-2) 0)) - (%f17 - (numerator - (%f17 - (denominator - (catch 'ct5 - (apply (constantly 0) - 0 - (unwind-protect - (catch 'ct2 (throw 'ct5 (progn (%f17 a b) a)))) - nil))) - 0)) - (%f17 0 a)))))) + (flet ((%f17 (f17-1 f17-2) 0)) + (%f17 + (numerator + (%f17 + (denominator + (catch 'ct5 + (apply (constantly 0) + 0 + (unwind-protect + (catch 'ct2 (throw 'ct5 (progn (%f17 a b) a)))) + nil))) + 0)) + (%f17 0 a)))))) 112475717 -25829) 0) @@ -7098,13 +7098,13 @@ Broken at C::WT-C-INLINE-LOC. (declare (type (integer -5 -2) a)) (declare (ignorable a)) (declare - (optimize (speed 2) (space 3) (safety 1) - (debug 1) (compilation-speed 1))) + (optimize (speed 2) (space 3) (safety 1) + (debug 1) (compilation-speed 1))) (if - (and (not (not (> a (numerator (setf a -4))))) - (logbitp 0 (conjugate a))) - 0 - 0))) + (and (not (not (> a (numerator (setf a -4))))) + (logbitp 0 (conjugate a))) + 0 + 0))) -3) 0) @@ -7122,24 +7122,24 @@ Broken at C::WT-C-INLINE-LOC. (declare (type (integer -1853649832248 2196352552304) e)) (declare (ignorable a b c d e)) (declare (optimize (speed 1) (space 2) (safety 0) (debug 0) - (compilation-speed 3))) + (compilation-speed 3))) (flet ((%f2 (f2-1 &optional &key (key1 0) (key2 e)) - (labels ((%f5 (f5-1 f5-2 f5-3 &optional &key - (key1 - (aref #(397) - (min - 0 - (max - 0 - (let ((v7 (make-array nil :initial-element d))) - (reduce - #'(lambda (lmv5 lmv6) key1) - (vector f2-1 0) - :start 0)))))) - &allow-other-keys) - 0)) - 0))) - b))) + (labels ((%f5 (f5-1 f5-2 f5-3 &optional &key + (key1 + (aref #(397) + (min + 0 + (max + 0 + (let ((v7 (make-array nil :initial-element d))) + (reduce + #'(lambda (lmv5 lmv6) key1) + (vector f2-1 0) + :start 0)))))) + &allow-other-keys) + 0)) + 0))) + b))) -2821485338 -35420 -7622 135 9592294022) -35420) @@ -7155,18 +7155,18 @@ Broken at C::WT-C-INLINE-LOC. (declare (type (integer -4433759745778 -1) c)) (declare (ignorable a b c)) (declare - (optimize (speed 3) - (space 1) - (safety 0) - (debug 2) - (compilation-speed 3))) + (optimize (speed 3) + (space 1) + (safety 0) + (debug 2) + (compilation-speed 3))) (flet ((%f15 - (f15-1 f15-2 - &optional (f15-3 0) - (f15-4 (denominator (setq c -4214677583716))) (f15-5 0) - &key (key1 c) &allow-other-keys) - (progv '(*s1* *s5* *s7*) (list f15-2 0 f15-1) key1))) - (%f15 0 (%f15 c 0) 0)))) + (f15-1 f15-2 + &optional (f15-3 0) + (f15-4 (denominator (setq c -4214677583716))) (f15-5 0) + &key (key1 c) &allow-other-keys) + (progv '(*s1* *s5* *s7*) (list f15-2 0 f15-1) key1))) + (%f15 0 (%f15 c 0) 0)))) -1233959 -4 -2643533316361) -4214677583716) @@ -7181,25 +7181,25 @@ Broken at C::WT-C-INLINE-LOC. (compile nil '(lambda (a b c) - (declare (type (integer -7288 10764) a)) - (declare (type (integer -7 24) b)) - (declare (type (integer 7951930344 11209871544) c)) - (declare (ignorable a b c)) - (declare (optimize (speed 2) (space 2) (safety 0) (debug 0) - (compilation-speed 0))) - (rationalize (block b1 - (if b - (return-from b1 - (progn (tagbody (return-from b1 - (let* ((*s1* - (cons (go tag3) - 0))) - (declare (dynamic-extent - *s1*)) - 0)) - tag3) - 0)) - 0))))) + (declare (type (integer -7288 10764) a)) + (declare (type (integer -7 24) b)) + (declare (type (integer 7951930344 11209871544) c)) + (declare (ignorable a b c)) + (declare (optimize (speed 2) (space 2) (safety 0) (debug 0) + (compilation-speed 0))) + (rationalize (block b1 + (if b + (return-from b1 + (progn (tagbody (return-from b1 + (let* ((*s1* + (cons (go tag3) + 0))) + (declare (dynamic-extent + *s1*)) + 0)) + tag3) + 0)) + 0))))) -5566 9 10557204445)) 0) @@ -7214,15 +7214,15 @@ Broken at C::WT-C-INLINE-LOC. (declare (type (integer -71651668566 4932238952300) c)) (declare (ignorable a b c)) (declare (optimize (speed 3) (space 2) (safety 1) (debug 3) - (compilation-speed 2))) + (compilation-speed 2))) (sbit #*0 - (min 0 - (max 0 - (multiple-value-bind (v1) - (cons c - (truncate 0 - (min -42 0))) - (cdr v1))))))) + (min 0 + (max 0 + (multiple-value-bind (v1) + (cons c + (truncate 0 + (min -42 0))) + (cdr v1))))))) -657195 -10801112339 -4291316763) 0) @@ -7235,21 +7235,21 @@ Broken at C::WT-C-INLINE-LOC. (compile nil '(lambda (a b c) - (declare (type (integer 0 179061) a)) - (declare (type (integer -15793 42532) b)) - (declare (type (integer -2 0) c)) - (declare (ignorable a b c)) - (declare (optimize (speed 3) (space 0) (safety 2) (debug 1) - (compilation-speed 0))) - (reduce 'logxor - (list 0 b 0 0 - a 0 0 0 - (block b6 - (let* ((v6 (cons (if c (return-from b6 0) 0) b))) - 0)) - 0) - :end 6 - :from-end t))) + (declare (type (integer 0 179061) a)) + (declare (type (integer -15793 42532) b)) + (declare (type (integer -2 0) c)) + (declare (ignorable a b c)) + (declare (optimize (speed 3) (space 0) (safety 2) (debug 1) + (compilation-speed 0))) + (reduce 'logxor + (list 0 b 0 0 + a 0 0 0 + (block b6 + (let* ((v6 (cons (if c (return-from b6 0) 0) b))) + 0)) + 0) + :end 6 + :from-end t))) 141814 1445 -2)) 142419) @@ -7261,21 +7261,21 @@ Broken at C::WT-C-INLINE-LOC. (compile nil '(lambda (a b) - (declare (type (integer -99 4) a)) - (declare (type (integer 35621436 36172433) b)) - (declare (ignorable a b)) - (declare (optimize (speed 2) (space 1) (safety 3) (debug 1) - (compilation-speed 0))) - (lognand (let ((v6 0)) (declare (dynamic-extent v6)) v6) - (block b6 - (let* ((v10 - (cons (expt (case 0 - ((30207) (return-from b6 0)) - (t b)) - 0) - 0))) - (declare (dynamic-extent v10)) - 0))))) + (declare (type (integer -99 4) a)) + (declare (type (integer 35621436 36172433) b)) + (declare (ignorable a b)) + (declare (optimize (speed 2) (space 1) (safety 3) (debug 1) + (compilation-speed 0))) + (lognand (let ((v6 0)) (declare (dynamic-extent v6)) v6) + (block b6 + (let* ((v10 + (cons (expt (case 0 + ((30207) (return-from b6 0)) + (t b)) + 0) + 0))) + (declare (dynamic-extent v10)) + 0))))) -57 35725118)) -1) @@ -7294,16 +7294,16 @@ Broken at C::WT-C-INLINE-LOC. (declare (type (integer 1627646459 3124243119) f)) (declare (ignorable a b c d e f)) (declare (optimize (speed 3) (space 0) (safety 3) (debug 2) - (compilation-speed 2))) + (compilation-speed 2))) (let* ((*s6* (make-array nil :initial-element 0 :adjustable t))) - (if (logbitp 0 - (denominator (prog2 (truncate (dotimes (iv3 0 0) - (progn 0))) - (multiple-value-bind (*s7*) - (cons d 0) - (cdr *s7*))))) - 0 - 0)))) + (if (logbitp 0 + (denominator (prog2 (truncate (dotimes (iv3 0 0) + (progn 0))) + (multiple-value-bind (*s7*) + (cons d 0) + (cdr *s7*))))) + 0 + 0)))) 12851164 182468232812 -2243976802 309299185674 2538150 1855615980) 0) @@ -7315,13 +7315,13 @@ Broken at C::WT-C-INLINE-LOC. nil '(lambda () (declare (optimize (speed 1) (space 1) (safety 2) (debug 1) - (compilation-speed 0))) + (compilation-speed 0))) (dotimes (iv4 3 - (multiple-value-bind (*s6*) (cons 0 0) - (progn (cdr *s6*) 0))) - (floor (rational (let ((*s2* - (rational (common-lisp:handler-case 0)))) - 0))))))) + (multiple-value-bind (*s6*) (cons 0 0) + (progn (cdr *s6*) 0))) + (floor (rational (let ((*s2* + (rational (common-lisp:handler-case 0)))) + 0))))))) 0) (deftest misc.377 @@ -7331,16 +7331,16 @@ Broken at C::WT-C-INLINE-LOC. '(lambda (e) ; (a b c d e) (declare (type (integer -46778182694 512) e)) (declare (optimize (speed 3) (space 3) (safety 2) (debug 2) - (compilation-speed 3))) + (compilation-speed 3))) (if (block b3 - (numerator (progn (tagbody (truncate (dotimes (iv3 0 0) - (block b3 0))) - (multiple-value-bind (*s5*) - (cons 0 e) - (rationalize (cdr *s5*)))) - 0))) - 0 - 0))) + (numerator (progn (tagbody (truncate (dotimes (iv3 0 0) + (block b3 0))) + (multiple-value-bind (*s5*) + (cons 0 e) + (rationalize (cdr *s5*)))) + 0))) + 0 + 0))) 10) 0) @@ -7350,10 +7350,10 @@ Broken at C::WT-C-INLINE-LOC. nil '(lambda (c) (declare (optimize (speed 1) (space 0) (safety 1) (debug 3) - (compilation-speed 2))) + (compilation-speed 2))) (dotimes (iv4 3 0) - (restart-case (round (multiple-value-bind (*s6*) (cons c 0) - (car *s6*))))))) + (restart-case (round (multiple-value-bind (*s6*) (cons c 0) + (car *s6*))))))) 1) 0) @@ -7363,7 +7363,7 @@ Broken at C::WT-C-INLINE-LOC. nil '(lambda () (declare (optimize (speed 2) (space 0) (safety 2) (debug 2) - (compilation-speed 1))) + (compilation-speed 1))) (values (floor 0) (multiple-value-bind (v3) (cons 0 0) (car v3)))))) 0 0) @@ -7377,20 +7377,20 @@ Broken at C::WT-C-INLINE-LOC. '(lambda (a) (declare (type (integer -1397457 1846252) a)) (declare (optimize (speed 2) (space 2) (safety 1) - (debug 3) (compilation-speed 3))) + (debug 3) (compilation-speed 3))) (let ((v9 (make-array nil :initial-element 0))) - (declare (dynamic-extent v9)) - (block b8 - (let ((*s1* 0)) - (let ((*s4* (let - ((*s1* - (return-from b8 - (rational - (setf (aref v9) - (deposit-field -5 - (byte 20 30) a)))))) - 0))) - (let ((*s8* (cons 0 0))) 0))))))) + (declare (dynamic-extent v9)) + (block b8 + (let ((*s1* 0)) + (let ((*s4* (let + ((*s1* + (return-from b8 + (rational + (setf (aref v9) + (deposit-field -5 + (byte 20 30) a)))))) + 0))) + (let ((*s8* (cons 0 0))) 0))))))) 399997) 1125898833500797) @@ -7405,24 +7405,24 @@ Broken at C::WT-C-INLINE-LOC. '(lambda (a) (declare (type (integer -1397457 1846252) a)) (declare (optimize (speed 2) (space 2) (safety 1) - (debug 3) (compilation-speed 3))) + (debug 3) (compilation-speed 3))) (let ((v9 (make-array nil :initial-element 0))) - (declare (dynamic-extent v9)) - (block b8 - (let ((s1 0)) - (let ((s4 (let - ((s1 - (return-from b8 - (rational - (setf (aref v9) - (deposit-field -5 - (byte 20 30) a)))))) - 0))) - (let ((s8 (cons 0 0))) 0))))))) + (declare (dynamic-extent v9)) + (block b8 + (let ((s1 0)) + (let ((s4 (let + ((s1 + (return-from b8 + (rational + (setf (aref v9) + (deposit-field -5 + (byte 20 30) a)))))) + 0))) + (let ((s8 (cons 0 0))) 0))))))) 399997) 1125898833500797) - + ;;; gcl (31 May 2004, cvs head) ;;; Error in SYSTEM:ASET [or a callee]: Expected a FIXNUM @@ -7433,22 +7433,22 @@ Broken at C::WT-C-INLINE-LOC. '(lambda (b) (declare (type (integer -65822755520 31689335872) b)) (declare (optimize (speed 2) (space 2) (safety 3) - (debug 0) (compilation-speed 1))) + (debug 0) (compilation-speed 1))) (let ((s8 (make-array nil :initial-element - (catch 'ct4 - (complex - (dotimes (iv1 1 0) - (rational (throw 'ct4 b))) - 0))))) - (elt '(13423701584) - (min 0 - (max 0 - (rational - (let ((s3 (make-array nil :initial-element 0))) - (if (ldb-test (byte 0 0) - (shiftf (aref s8) - (aref s8))) - 0 0))))))))) + (catch 'ct4 + (complex + (dotimes (iv1 1 0) + (rational (throw 'ct4 b))) + 0))))) + (elt '(13423701584) + (min 0 + (max 0 + (rational + (let ((s3 (make-array nil :initial-element 0))) + (if (ldb-test (byte 0 0) + (shiftf (aref s8) + (aref s8))) + 0 0))))))))) -38169486910) 13423701584) @@ -7465,12 +7465,12 @@ Broken at C::WT-C-INLINE-LOC. (declare (ignorable a b c)) #+cmu (declare (optimize (extensions:inhibit-warnings 3))) (declare - (optimize (speed 3) (space 1) (safety 0) (debug 3) (compilation-speed 2))) + (optimize (speed 3) (space 1) (safety 0) (debug 3) (compilation-speed 2))) (logorc2 - (let* ((*s3* (cons 0 a))) - (declare (dynamic-extent *s3*)) - (shiftf c -124766263)) - 411942919))) + (let* ((*s3* (cons 0 a))) + (declare (dynamic-extent *s3*)) + (shiftf c -124766263)) + 411942919))) 79909316946 -347537841 -210771963) -142606339) @@ -7484,9 +7484,9 @@ Broken at C::WT-C-INLINE-LOC. nil (funcall (compile - nil - '(lambda () - (catch 'ct8 (throw 'ct8 (catch 'ct7 0))))))) + nil + '(lambda () + (catch 'ct8 (throw 'ct8 (catch 'ct7 0))))))) 0) (deftest misc.385 @@ -7528,7 +7528,7 @@ Broken at C::WT-C-INLINE-LOC. (declare (type (integer -13 5553) c)) (declare (ignorable a b c)) (declare (optimize (speed 2) (space 1) (safety 0) (debug 0) - (compilation-speed 0))) + (compilation-speed 0))) (dotimes (iv4 2 0) (multiple-value-setq (c) 4212)))) 8959928 366395687 5048) 0) @@ -7545,7 +7545,7 @@ Broken at C::WT-C-INLINE-LOC. (declare (type (integer -24815 15089) c)) (declare (ignorable a b c)) (declare (optimize (speed 2) (space 1) (safety 2) (debug 1) - (compilation-speed 0))) + (compilation-speed 0))) (multiple-value-setq (c) 8015))) -49966124671 -68547159 12944) 8015) @@ -7561,11 +7561,11 @@ Broken at C::WT-C-INLINE-LOC. (declare (type (integer -4 2001960914944) c)) (declare (ignorable a b c)) (declare (optimize (speed 2) (space 0) (safety 1) (debug 0) - (compilation-speed 1))) + (compilation-speed 1))) (labels ((%f12 (f12-1 &optional (f12-2 (setq b 63838027)) &key - (key1 0) (key2 0)) - b)) - (boole boole-orc2 b (let ((*s3* (%f12 0))) -14))))) + (key1 0) (key2 0)) + b)) + (boole boole-orc2 b (let ((*s3* (%f12 0))) -14))))) -173 1028908375 1289968133290) 1028908383) @@ -7578,10 +7578,10 @@ Broken at C::WT-C-INLINE-LOC. nil '(lambda (a b) (declare (optimize (speed 2) (space 0) (safety 0) - (debug 1) (compilation-speed 3))) + (debug 1) (compilation-speed 3))) (let* ((v5 (cons b b))) - (declare (dynamic-extent v5)) - a))) + (declare (dynamic-extent v5)) + a))) 'x 'y) x) @@ -7596,7 +7596,7 @@ Broken at C::WT-C-INLINE-LOC. '(lambda (a b) (declare (notinline /=)) (declare (optimize (speed 1) (space 2) (safety 1) - (debug 3) (compilation-speed 3))) + (debug 3) (compilation-speed 3))) (prog2 0 0 (loop for lv4 below 3 count (or b (/= b)))))) 1 2) 0) @@ -7616,14 +7616,14 @@ Broken at C::WT-C-INLINE-LOC. (declare (ignorable a b)) #+cmu (declare (optimize (extensions:inhibit-warnings 3))) (declare - (optimize (debug 3) (speed 2) (compilation-speed 0) (space 3) - (safety 3))) + (optimize (debug 3) (speed 2) (compilation-speed 0) (space 3) + (safety 3))) (labels ((%f7 - (f7-1 f7-2 f7-3 - &optional (f7-4 (lcm (if (>= b a) 0 a))) (f7-5 0) - &key) - 0)) - (progn (%f7 (%f7 b a a b) b 0) 0)))) + (f7-1 f7-2 f7-3 + &optional (f7-4 (lcm (if (>= b a) 0 a))) (f7-5 0) + &key) + 0)) + (progn (%f7 (%f7 b a a b) b 0) 0)))) 447930 66120263479) 0) @@ -7637,10 +7637,10 @@ Broken at C::WT-C-INLINE-LOC. (declare (ignorable a b)) #+cmu (declare (optimize (extensions:inhibit-warnings 3))) (declare - (optimize (safety 3) (space 1) (debug 2) (compilation-speed 3) - (speed 3))) + (optimize (safety 3) (space 1) (debug 2) (compilation-speed 3) + (speed 3))) (dotimes (iv1 2 0) - (case (min -3693810 a iv1) ((26 -4) (ldb (byte 13 0) a)) (t b))))) + (case (min -3693810 a iv1) ((26 -4) (ldb (byte 13 0) a)) (t b))))) 56 -1579426331) 0) @@ -7657,8 +7657,8 @@ Broken at C::WT-C-INLINE-LOC. (declare (ignorable a b)) #+cmu (declare (optimize (extensions:inhibit-warnings 3))) (declare - (optimize (speed 2) (space 0) (debug 3) (compilation-speed 0) - (safety 3))) + (optimize (speed 2) (space 0) (debug 3) (compilation-speed 0) + (safety 3))) (logeqv 0 b))) -34528661 843541658238) -843541658239) @@ -7673,8 +7673,8 @@ Broken at C::WT-C-INLINE-LOC. (declare (ignorable a b)) #+cmu (declare (optimize (extensions:inhibit-warnings 3))) (declare - (optimize (debug 3) (speed 3) (space 2) (safety 0) - (compilation-speed 3))) + (optimize (debug 3) (speed 3) (space 2) (safety 0) + (compilation-speed 3))) (+ (shiftf a 8496033756259) (min 0 b)))) 8369430915156 -369704905) 8369061210251) @@ -7690,8 +7690,8 @@ Broken at C::WT-C-INLINE-LOC. (declare (ignorable a b)) #+cmu (declare (optimize (extensions:inhibit-warnings 3))) (declare - (optimize (debug 0) (space 2) (speed 0) (safety 3) - (compilation-speed 2))) + (optimize (debug 0) (space 2) (speed 0) (safety 3) + (compilation-speed 2))) (apply (constantly 0) 0 (list (signum b))))) -1365 -46960621335) 0) @@ -7708,13 +7708,13 @@ Broken at C::WT-C-INLINE-LOC. (declare (ignorable a b)) #+cmu (declare (optimize (extensions:inhibit-warnings 3))) (declare - (optimize (speed 0) (safety 3) (compilation-speed 1) (space 0) - (debug 2))) + (optimize (speed 0) (safety 3) (compilation-speed 1) (space 0) + (debug 2))) (labels ((%f4 (f4-1 f4-2 &key) - (flet ((%f7 (f7-1 f7-2 f7-3 &optional &key (key1 a)) - (progv '(*s1* *s6* *s2*) (list a 0 key1) f4-1))) - f4-2))) - (apply #'%f4 (list a 0))))) + (flet ((%f7 (f7-1 f7-2 f7-3 &optional &key (key1 a)) + (progv '(*s1* *s6* *s2*) (list a 0 key1) f4-1))) + f4-2))) + (apply #'%f4 (list a 0))))) -156882103995 -38) 0) @@ -7732,13 +7732,13 @@ Broken at C::WT-C-INLINE-LOC. (declare (ignorable a b)) #+cmu (declare (optimize (extensions:inhibit-warnings 3))) (declare - (optimize (safety 3) (compilation-speed 1) (debug 1) (speed 0) - (space 0))) + (optimize (safety 3) (compilation-speed 1) (debug 1) (speed 0) + (space 0))) (conjugate - (if t - (labels ((%f12 (f12-1 f12-2 f12-3) - 0)) - (%f12 0 b 0)) + (if t + (labels ((%f12 (f12-1 f12-2 f12-3) + 0)) + (%f12 0 b 0)) (dotimes (iv1 2 0) (catch 'ct2 a)))))) 4430 3476635674) 0) @@ -7754,8 +7754,8 @@ Broken at C::WT-C-INLINE-LOC. (declare (ignorable a)) #+cmu (declare (optimize (extensions:inhibit-warnings 3))) (declare - (optimize (space 0) (debug 0) (speed 3) (compilation-speed 2) - (safety 3))) + (optimize (space 0) (debug 0) (speed 3) (compilation-speed 2) + (safety 3))) (catch 'ct8 (logior a -457019 -1)))) 0) -1) @@ -7770,8 +7770,8 @@ Broken at C::WT-C-INLINE-LOC. (declare (ignorable a)) #+cmu (declare (optimize (extensions:inhibit-warnings 3))) (declare - (optimize (debug 0) (safety 0) (space 0) (compilation-speed 3) - (speed 3))) + (optimize (debug 0) (safety 0) (space 0) (compilation-speed 3) + (speed 3))) (case (lognand 775 a) ((-7) 0) (t 4)))) 4182) 0) @@ -7786,8 +7786,8 @@ Broken at C::WT-C-INLINE-LOC. (declare (ignorable a)) #+cmu (declare (optimize (extensions:inhibit-warnings 3))) (declare - (optimize (compilation-speed 2) (space 1) (safety 2) (speed 1) - (debug 2))) + (optimize (compilation-speed 2) (space 1) (safety 2) (speed 1) + (debug 2))) (logeqv (setq a 220250126156) 0))) 157474319912) -220250126157) @@ -7802,15 +7802,15 @@ Broken at C::WT-C-INLINE-LOC. (declare (ignorable a)) #+cmu (declare (optimize (extensions:inhibit-warnings 3))) (declare - (optimize (space 1) (safety 3) (debug 1) (compilation-speed 0) - (speed 0))) + (optimize (space 1) (safety 3) (debug 1) (compilation-speed 0) + (speed 0))) (dotimes (iv3 2 0) - (progn - (apply (constantly 0) - (list - (let* ((*s1* 0)) - *s1*))) - 0)))) + (progn + (apply (constantly 0) + (list + (let* ((*s1* 0)) + *s1*))) + 0)))) 10) 0) @@ -7824,8 +7824,8 @@ Broken at C::WT-C-INLINE-LOC. (declare (ignorable a)) #+cmu (declare (optimize (extensions:inhibit-warnings 3))) (declare - (optimize (space 3) (safety 1) (compilation-speed 1) (speed 0) - (debug 0))) + (optimize (space 3) (safety 1) (compilation-speed 1) (speed 0) + (debug 0))) (dotimes (iv1 0 a) (loop for lv4 below 3 sum (catch 'ct8 0))))) -1648) -1648) @@ -7837,69 +7837,69 @@ Broken at C::WT-C-INLINE-LOC. (let #+armedbear ((jvm::*catch-errors* nil)) nil (funcall - (compile - nil - '(lambda (a b) - (declare (type (integer -77007578505 7500480849) a)) - (declare (type (integer 211464 53140083) b)) - (declare (ignorable a b)) - (declare (optimize (compilation-speed 0) (speed 2) (debug 3) - (safety 1) (space 3))) - (progn (tagbody (let ((v3 - (cons (case a - ((13 5 -9 2 -13) (go tag8)) - (t 0)) - 0))) - 0) - tag8) - a))) - -1068524571 20786758)) + (compile + nil + '(lambda (a b) + (declare (type (integer -77007578505 7500480849) a)) + (declare (type (integer 211464 53140083) b)) + (declare (ignorable a b)) + (declare (optimize (compilation-speed 0) (speed 2) (debug 3) + (safety 1) (space 3))) + (progn (tagbody (let ((v3 + (cons (case a + ((13 5 -9 2 -13) (go tag8)) + (t 0)) + 0))) + 0) + tag8) + a))) + -1068524571 20786758)) -1068524571) (deftest misc.405 (let #+armedbear ((jvm::*catch-errors* nil)) nil (funcall - (compile - nil - '(lambda (a b) - (declare (type (integer -82196 13938) a)) - (declare (type (integer -44152792 -15846835) b)) - (declare (ignorable a b)) - (declare (optimize (compilation-speed 3) (safety 2) (speed 3) - (space 0) (debug 0))) - (block b5 - (let ((*s7* - (cons (if (position (if (eql 0 0) - (return-from b5 - (return-from b5 - (let ((*s6* (cons b a))) 0))) - b) - #(23) - :test-not - 'eql) - 0 - 0) - b))) - 0)))) - -10305 -26691848)) + (compile + nil + '(lambda (a b) + (declare (type (integer -82196 13938) a)) + (declare (type (integer -44152792 -15846835) b)) + (declare (ignorable a b)) + (declare (optimize (compilation-speed 3) (safety 2) (speed 3) + (space 0) (debug 0))) + (block b5 + (let ((*s7* + (cons (if (position (if (eql 0 0) + (return-from b5 + (return-from b5 + (let ((*s6* (cons b a))) 0))) + b) + #(23) + :test-not + 'eql) + 0 + 0) + b))) + 0)))) + -10305 -26691848)) 0) (deftest misc.406 (let #+armedbear ((jvm::*catch-errors* nil)) nil (funcall - (compile - nil - '(lambda (a) - (declare (type (integer -1 1412366903315) a)) - (declare (ignorable a)) - (declare (optimize (debug 3) (safety 3) (space 3) - (compilation-speed 1) (speed 2))) - (progn (tagbody (case 0 ((1 0 4) (values (go 1) 0)) (t 0)) - 1) - 0))) - 251841706892)) + (compile + nil + '(lambda (a) + (declare (type (integer -1 1412366903315) a)) + (declare (ignorable a)) + (declare (optimize (debug 3) (safety 3) (space 3) + (compilation-speed 1) (speed 2))) + (progn (tagbody (case 0 ((1 0 4) (values (go 1) 0)) (t 0)) + 1) + 0))) + 251841706892)) 0) ;;; Incorrect binding @@ -7911,7 +7911,7 @@ Broken at C::WT-C-INLINE-LOC. (declare (type (integer -324 175) a)) (declare (ignorable a)) (declare (optimize (safety 0) (space 0) (speed 2) (debug 0) - (compilation-speed 0))) + (compilation-speed 0))) (multiple-value-bind (v5) (cons (truncate 0) a) (cdr v5)))) -279) -279) @@ -7922,19 +7922,19 @@ Broken at C::WT-C-INLINE-LOC. (let #+armedbear ((jvm::*catch-errors* nil)) nil (funcall - (compile - nil - '(lambda (a) - (declare (type (integer 0 0) a)) - (declare (ignorable a)) - (declare (optimize (compilation-speed 0) (safety 3) (speed 0) - (debug 1) (space 0))) - (progn (tagbody (dotimes (iv4 0 - (let ((v5 (cons 0 (if (go 3) 0 0)))) 0)) - (progn 0)) - 3) - (ash 0 (min 16 0))))) - 0)) + (compile + nil + '(lambda (a) + (declare (type (integer 0 0) a)) + (declare (ignorable a)) + (declare (optimize (compilation-speed 0) (safety 3) (speed 0) + (debug 1) (space 0))) + (progn (tagbody (dotimes (iv4 0 + (let ((v5 (cons 0 (if (go 3) 0 0)))) 0)) + (progn 0)) + 3) + (ash 0 (min 16 0))))) + 0)) 0) ;;; ecl (07 Oct 2004) @@ -7949,17 +7949,17 @@ Broken at C::WT-C-INLINE-LOC. (declare (type (integer -5967075 -235) b)) (declare (ignorable a b)) (declare (optimize (speed 2) (safety 1) (space 2) - (compilation-speed 3) (debug 0))) + (compilation-speed 3) (debug 0))) (labels ((%f2 (f2-1 f2-2 &optional (f2-3 0) (f2-4 a)) 0)) - (apply #'%f2 a - (%f2 b - (flet ((%f12 (f12-1 f12-2 f12-3 &optional &key - (key1 0) (key2 0)) - (%f2 0 0))) - (reduce #'(lambda (lmv2 lmv1) (%f2 0 0 a)) - (list 0 0 a 0 0 0 a) :end 7)) - 0) - nil)))) + (apply #'%f2 a + (%f2 b + (flet ((%f12 (f12-1 f12-2 f12-3 &optional &key + (key1 0) (key2 0)) + (%f2 0 0))) + (reduce #'(lambda (lmv2 lmv1) (%f2 0 0 a)) + (list 0 0 a 0 0 0 a) :end 7)) + 0) + nil)))) -7465 -3590953) 0) @@ -7974,11 +7974,11 @@ Broken at C::WT-MAKE-CLOSURE. nil '(lambda () (declare (optimize (safety 0) (space 1) (compilation-speed 0) - (speed 2) (debug 0))) + (speed 2) (debug 0))) (let ((*s2* 0)) - (declare (special *s2*)) - (reduce #'(lambda (lmv1 lmv2) *s2*) (vector 0) :end 1 - :start 0))))) + (declare (special *s2*)) + (reduce #'(lambda (lmv1 lmv2) *s2*) (vector 0) :end 1 + :start 0))))) 0) ;;; THROW: The catch CT2 is undefined. @@ -7988,7 +7988,7 @@ Broken at C::WT-MAKE-CLOSURE. nil '(lambda () (declare (optimize (safety 2) (debug 0) (space 0) - (compilation-speed 2) (speed 0))) + (compilation-speed 2) (speed 0))) (catch 'ct2 (values 0 (throw 'ct2 0))) 0))) 0) @@ -8004,11 +8004,11 @@ Broken at C::WT-MAKE-CLOSURE. (declare (type (integer -215956065 223815244) b)) (declare (ignorable a b)) (declare (optimize (compilation-speed 2) (space 3) (debug 2) - (safety 1) (speed 3))) + (safety 1) (speed 3))) (complex (flet ((%f15 (f15-1 &optional &key (key1 0)) 0)) - (reduce #'(lambda (lmv6 lmv1) (%f15 lmv1)) - (list b 0))) - 0))) + (reduce #'(lambda (lmv6 lmv1) (%f15 lmv1)) + (list b 0))) + 0))) -21802 -105983932) 0) @@ -8022,22 +8022,22 @@ Broken at C::WT-MAKE-CLOSURE. (declare (type (integer 2777758072 5675328792) b)) (declare (ignorable a b)) (declare (optimize (compilation-speed 3) (space 3) (debug 3) - (safety 0) (speed 1))) + (safety 0) (speed 1))) (labels ((%f8 (f8-1 f8-2 &optional &key (key1 0)) - (let* ((v2 (ash f8-1 (min 63 a)))) 0))) - (ignore-errors - (logand (apply #'%f8 0 b nil) - (unwind-protect - 0 - (ash (%f8 0 0) - (min 48 - (flet - ((%f12 - (f12-1 f12-2 &optional &key - (key1 a) (key2 b) - &allow-other-keys) - 0)) - b))))))))) + (let* ((v2 (ash f8-1 (min 63 a)))) 0))) + (ignore-errors + (logand (apply #'%f8 0 b nil) + (unwind-protect + 0 + (ash (%f8 0 0) + (min 48 + (flet + ((%f12 + (f12-1 f12-2 &optional &key + (key1 a) (key2 b) + &allow-other-keys) + 0)) + b))))))))) -4794909 4095236669) 0) @@ -8050,10 +8050,10 @@ Broken at C::WT-MAKE-CLOSURE. nil '(lambda (c) (declare (optimize (speed 1) (space 3) (compilation-speed 3) - (debug 3) (safety 1))) + (debug 3) (safety 1))) (if (setq c 2) (case (shiftf c 1) ((2) c) (t 0)) - 0))) + 0))) 0) 1) @@ -8065,10 +8065,10 @@ Broken at C::WT-MAKE-CLOSURE. (funcall #'(lambda (a c) (catch 'ct2 - (flet ((%f17 (&optional x &key) - (let* ((y (cons (dotimes (iv3 0)) 0))) - a))) - c))) + (flet ((%f17 (&optional x &key) + (let* ((y (cons (dotimes (iv3 0)) 0))) + a))) + c))) :bad :good) :good) @@ -8080,8 +8080,8 @@ Broken at C::WT-MAKE-CLOSURE. '(lambda (b) (declare (type (integer 12052668 22838464) b)) (declare (ignorable a b c)) - (declare (optimize (compilation-speed 3) (debug 2) (speed 1) (space 0) - (safety 3))) + (declare (optimize (compilation-speed 3) (debug 2) (speed 1) (space 0) + (safety 3))) (min (mask-field (byte 2 18) b) 89582))) 13891743) 0) @@ -8094,7 +8094,7 @@ Broken at C::WT-MAKE-CLOSURE. '(lambda (c) (declare (type (integer 995 22565094) c)) (declare (optimize (safety 2) (debug 1) (space 0) (compilation-speed 2) - (speed 1))) + (speed 1))) (numerator (floor (numerator (deposit-field 0 (byte 0 0) c)))))) 17190042) 17190042) @@ -8109,7 +8109,7 @@ Broken at C::WT-MAKE-CLOSURE. (declare (type (integer 1670923021 2536883848) a)) (declare (ignorable a b c)) (declare (optimize (safety 3) (compilation-speed 3) (speed 1) (debug 1) - (space 2))) + (space 2))) (if (logior (setf c 67) 0 a) a 0))) 2161404325 -1968715305 83) 2161404325) @@ -8124,7 +8124,7 @@ Broken at C::WT-MAKE-CLOSURE. nil '(lambda () (declare (optimize (safety 3) (speed 3) (compilation-speed 1) (space 1) - (debug 2))) + (debug 2))) (boole boole-set 0 (case 2 ((0) 0) (t (numerator (catch 'ct2 0)))))))) -1) @@ -8141,16 +8141,16 @@ Broken at C::WT-MAKE-CLOSURE. (declare (type (integer 5721249203 36508717226) b)) (declare (ignorable a b)) (declare - (optimize (space 3) (compilation-speed 2) (safety 3) (speed 0) - (debug 2))) + (optimize (space 3) (compilation-speed 2) (safety 3) (speed 0) + (debug 2))) (flet ((%f14 (f14-1 f14-2 &key) - (prog2 0 f14-2 (min (catch 'ct4 (floor 120378948 (max 22 a))))))) - (reduce #'(lambda (lmv6 lmv5) (%f14 0 0)) - (vector 0 0 0) - :start - 0 - :from-end - t)))) + (prog2 0 f14-2 (min (catch 'ct4 (floor 120378948 (max 22 a))))))) + (reduce #'(lambda (lmv6 lmv5) (%f14 0 0)) + (vector 0 0 0) + :start + 0 + :from-end + t)))) 6313133774518 10840050742) 0) @@ -8161,7 +8161,7 @@ Broken at C::WT-MAKE-CLOSURE. nil '(lambda (a) (declare (optimize (debug 0) (space 2) (compilation-speed 1) (safety 0) - (speed 0))) + (speed 0))) (imagpart (block b8 (logior (catch 'ct7 (return-from b8 a)) -1123785))))) -1021899) 0) @@ -8174,7 +8174,7 @@ Broken at C::WT-MAKE-CLOSURE. '(lambda (a) (declare (type (integer -13 -3) a)) (declare (optimize (space 2) (debug 1) (safety 1) (speed 2) - (compilation-speed 1))) + (compilation-speed 1))) (logorc2 (sbit #*0010000011101010 (min 15 (max 0 0))) a))) -7) 6) @@ -8208,7 +8208,7 @@ Broken at C::WT-MAKE-CLOSURE. (declare (ignorable a b)) #+cmu (declare (optimize (extensions:inhibit-warnings 3))) (declare (optimize (safety 3) (debug 1) (compilation-speed 1) (space 3) - (speed 3))) + (speed 3))) (catch 'ct4 (logandc1 a (ignore-errors @@ -8226,7 +8226,7 @@ Broken at C::WT-MAKE-CLOSURE. (declare (type (integer -394128 80657) a)) (declare (type (integer 13729431 14852298) b)) (declare (optimize (space 2) (compilation-speed 1) (safety 0) (debug 0) - (speed 2))) + (speed 2))) (logorc1 (* a (logior b 0)) 0))) -80334 14527920) 1167085925279) @@ -8239,7 +8239,7 @@ Broken at C::WT-MAKE-CLOSURE. '(lambda () #+cmu (declare (optimize (extensions:inhibit-warnings 3))) (declare (optimize (safety 3) (space 3) (speed 3) (debug 1) - (compilation-speed 3))) + (compilation-speed 3))) (dotimes (iv3 1 0) (logxor iv3 1285775))))) 0) @@ -8254,12 +8254,12 @@ Broken at C::WT-MAKE-CLOSURE. '(lambda (a) (declare (notinline list reduce logior)) (declare (optimize (safety 2) (compilation-speed 1) - ; #+sbcl (sb-c:insert-step-conditions 0) - (speed 3) (space 2) (debug 2))) + ; #+sbcl (sb-c:insert-step-conditions 0) + (speed 3) (space 2) (debug 2))) (logior - (let* ((v5 (reduce #'+ (list 0 a)))) - (declare (dynamic-extent v5)) - (1- v5))))) + (let* ((v5 (reduce #'+ (list 0 a)))) + (declare (dynamic-extent v5)) + (1- v5))))) 17) 16) @@ -8269,11 +8269,11 @@ Broken at C::WT-MAKE-CLOSURE. nil '(lambda () (declare (notinline -)) - (declare (optimize (compilation-speed 0) (safety 1) (speed 0) - (debug 2) (space 3))) + (declare (optimize (compilation-speed 0) (safety 1) (speed 0) + (debug 2) (space 3))) (let ((v10 (catch 'ct2 1))) - (declare (dynamic-extent v10)) - (- v10))))) + (declare (dynamic-extent v10)) + (- v10))))) -1) (deftest misc.429 @@ -8282,10 +8282,10 @@ Broken at C::WT-MAKE-CLOSURE. nil '(lambda () (declare (optimize (safety 1) (debug 1) (space 2) - (speed 2) (compilation-speed 1))) + (speed 2) (compilation-speed 1))) (let ((v8 (let ((*s3* 0)) *s3*))) - (declare (dynamic-extent v8)) - (logandc1 v8 28))))) + (declare (dynamic-extent v8)) + (logandc1 v8 28))))) 28) ;;; poplog 15.53 @@ -8333,22 +8333,22 @@ Broken at C::WT-MAKE-CLOSURE. (declare (type (integer -4085 0) b)) (declare (ignorable a b)) (declare - (optimize (space 2) - (compilation-speed 0) - #+sbcl (sb-c:insert-step-conditions 0) - (debug 2) - (safety 0) - (speed 3))) + (optimize (space 2) + (compilation-speed 0) + #+sbcl (sb-c:insert-step-conditions 0) + (debug 2) + (safety 0) + (speed 3))) (let ((*s5* 0)) - (dotimes (iv1 2 0) - (let ((*s5* - (elt '(1954479092053) - (min 0 - (max 0 - (if (< iv1 iv1) - (lognand iv1 (ash iv1 (min 53 iv1))) - iv1)))))) - 0))))) + (dotimes (iv1 2 0) + (let ((*s5* + (elt '(1954479092053) + (min 0 + (max 0 + (if (< iv1 iv1) + (lognand iv1 (ash iv1 (min 53 iv1))) + iv1)))))) + 0))))) -7639589303599 -1368) 0) @@ -8361,20 +8361,20 @@ Broken at C::WT-MAKE-CLOSURE. '(lambda (a b c d) (declare (notinline aref logandc2 gcd make-array)) (declare - (optimize (space 0) - (safety 0) - (compilation-speed 3) - (speed 3) - (debug 1) - )) + (optimize (space 0) + (safety 0) + (compilation-speed 3) + (speed 3) + (debug 1) + )) (progn - (tagbody - (let* ((v2 - (make-array nil :initial-element (catch 'ct1 (go tag2))))) - (declare (dynamic-extent v2)) - (gcd (go tag2) (logandc2 (catch 'ct2 c) (aref v2)))) - tag2) - 0))) + (tagbody + (let* ((v2 + (make-array nil :initial-element (catch 'ct1 (go tag2))))) + (declare (dynamic-extent v2)) + (gcd (go tag2) (logandc2 (catch 'ct2 c) (aref v2)))) + tag2) + 0))) 3021871717588 -866608 -2 -17194) 0) @@ -8396,28 +8396,28 @@ Broken at C::WT-MAKE-CLOSURE. (declare (type (integer 0 160159) b)) (declare (ignorable a b)) (declare - (optimize (compilation-speed 1) - (speed 3) - (safety 3) - (space 0) - ; #+sbcl (sb-c:insert-step-conditions 0) - (debug 0))) + (optimize (compilation-speed 1) + (speed 3) + (safety 3) + (space 0) + ; #+sbcl (sb-c:insert-step-conditions 0) + (debug 0))) (if - (oddp - (loop for - lv1 - below - 2 - count - (logbitp 0 - (1- - (ash b - (min 8 - (count 0 - '(-10197561 486 430631291 - 9674068)))))))) - b - 0))) + (oddp + (loop for + lv1 + below + 2 + count + (logbitp 0 + (1- + (ash b + (min 8 + (count 0 + '(-10197561 486 430631291 + 9674068)))))))) + b + 0))) 1265797 110757) 0) @@ -8431,18 +8431,18 @@ Broken at C::WT-MAKE-CLOSURE. '(lambda (a b c d e) (declare (notinline values complex eql)) (declare - (optimize (compilation-speed 3) - (speed 3) - ; #+sbcl (sb-c:insert-step-conditions 0) - (debug 1) - (safety 1) - (space 0))) + (optimize (compilation-speed 3) + (speed 3) + ; #+sbcl (sb-c:insert-step-conditions 0) + (debug 1) + (safety 1) + (space 0))) (flet ((%f10 - (f10-1 f10-2 f10-3 - &optional (f10-4 (ignore-errors 0)) (f10-5 0) - &key &allow-other-keys) - (if (or (eql 0 0) t) 0 (if f10-1 0 0)))) - (complex (multiple-value-call #'%f10 (values a c b 0 0)) 0)))) + (f10-1 f10-2 f10-3 + &optional (f10-4 (ignore-errors 0)) (f10-5 0) + &key &allow-other-keys) + (if (or (eql 0 0) t) 0 (if f10-1 0 0)))) + (complex (multiple-value-call #'%f10 (values a c b 0 0)) 0)))) 80043 74953652306 33658947 -63099937105 -27842393) 0) @@ -8459,11 +8459,11 @@ Broken at C::WT-MAKE-CLOSURE. (compile nil ' (lambda (a) - (declare (type (integer 0 1696) a)) - ; (declare (ignorable a)) - (declare (optimize (space 2) (debug 0) (safety 1) - (compilation-speed 0) (speed 1))) - (if (logbitp 0 (ash (1- a) (min 11 a))) 0 0))) + (declare (type (integer 0 1696) a)) + ; (declare (ignorable a)) + (declare (optimize (space 2) (debug 0) (safety 1) + (compilation-speed 0) (speed 1))) + (if (logbitp 0 (ash (1- a) (min 11 a))) 0 0))) 805) 0) @@ -8476,12 +8476,12 @@ Broken at C::WT-MAKE-CLOSURE. (declare (type (integer -15205 18871) a)) (declare (ignorable a)) (declare - (optimize (space 2) - ; (sb-c:insert-step-conditions 0) - (speed 1) - (safety 1) - (debug 1) - (compilation-speed 3))) + (optimize (space 2) + ; (sb-c:insert-step-conditions 0) + (speed 1) + (safety 1) + (debug 1) + (compilation-speed 3))) (if (<= a (- (setf a 10305))) a 0))) -13589) 10305) @@ -8496,22 +8496,22 @@ Broken at C::WT-MAKE-CLOSURE. '(lambda (a b c) (declare (notinline logior)) (declare (optimize (safety 3) (debug 1) (speed 0) (space 1) - (compilation-speed 3))) + (compilation-speed 3))) (flet ((%f10 (&optional &key - (key1 - (logior (flet ((%f4 (f4-1 - &optional - &key - (key1 0) - (key2 b) - &allow-other-keys) - c)) - (%f4 0)))) - &allow-other-keys) - 0)) - (let ((*s8* (%f10))) - (declare (special *s8*)) - *s8*)))) + (key1 + (logior (flet ((%f4 (f4-1 + &optional + &key + (key1 0) + (key2 b) + &allow-other-keys) + c)) + (%f4 0)))) + &allow-other-keys) + 0)) + (let ((*s8* (%f10))) + (declare (special *s8*)) + *s8*)))) 13524 4484529434427 8109510572804) 0) @@ -8524,10 +8524,10 @@ Broken at C::WT-MAKE-CLOSURE. (declare (notinline complex)) (declare (optimize (compilation-speed 1) (space 1) (speed 3) (safety 2) (debug 3))) (flet ((%f8 (f8-1 f8-2 &optional - &key (key1 (labels ((%f9 nil a)) (complex (%f9) 0))) - (key2 0) &allow-other-keys) - 0)) - (%f8 0 a)))) + &key (key1 (labels ((%f9 nil a)) (complex (%f9) 0))) + (key2 0) &allow-other-keys) + 0)) + (%f8 0 a)))) 1 2) 0) @@ -8540,11 +8540,11 @@ Broken at C::WT-MAKE-CLOSURE. (declare (notinline apply evenp)) (declare (optimize (speed 1) (space 1) (safety 1) (compilation-speed 0) (debug 0))) (labels ((%f18 (f18-1 &optional - &key - (key1 (flet ((%f8 nil b)) (if (evenp (%f8)) 0 a))) - (key2 0)) - 0)) - (apply #'%f18 b nil)))) + &key + (key1 (flet ((%f8 nil b)) (if (evenp (%f8)) 0 a))) + (key2 0)) + 0)) + (apply #'%f18 b nil)))) 505808341634 -39752189) 0) @@ -8563,10 +8563,10 @@ Broken at C::WT-MAKE-CLOSURE. (declare (ignorable a b c d e)) (declare (optimize (compilation-speed 3) (debug 0) (space 0) (safety 1) (speed 1))) (catch 'ct7 (lcm (case 0 - ((-4557) (let ((*s7* (max d))) 0)) - ((-15387) c) - (t 0)) - (unwind-protect (throw 'ct7 b) 0))))) + ((-4557) (let ((*s7* (max d))) 0)) + ((-15387) c) + (t 0)) + (unwind-protect (throw 'ct7 b) 0))))) -1748290 -244489705763 38969920 -90 341977) -244489705763) @@ -8586,10 +8586,10 @@ Broken at C::WT-MAKE-CLOSURE. (declare (type (integer -252962 3018671) d)) (declare (ignorable a b c d)) (declare (optimize (safety 3) (space 3) (speed 3) - (compilation-speed 3) (debug 3))) + (compilation-speed 3) (debug 3))) (* (labels ((%f8 (&optional (f8-1 0)) (setq b 0))) - (if (> d 1668249724 (%f8)) 0 (complex a 0))) - (if (oddp b) 0 c)))) + (if (> d 1668249724 (%f8)) 0 (complex a 0))) + (if (oddp b) 0 c)))) 796131 -1 -338008808923 530637) -269099291056676913) @@ -8600,7 +8600,7 @@ Broken at C::WT-MAKE-CLOSURE. '(lambda (a) (declare (type (integer 38632397 46632460288) a)) (declare (optimize (space 0) (safety 0) (debug 1) - (compilation-speed 1) (speed 0))) + (compilation-speed 1) (speed 0))) (catch 'ct2 (if (= a 0 (throw 'ct2 0)) 1 2289596)))) 18160383912) 0) @@ -8613,7 +8613,7 @@ Broken at C::WT-MAKE-CLOSURE. (declare (type (integer -3716 1269) a)) (declare (type (integer -1976579 2312) b)) (declare (optimize (compilation-speed 1) (safety 0) - (speed 0) (space 0) (debug 3))) + (speed 0) (space 0) (debug 3))) (if (<= 0 b (setq a 117)) 0 a))) -1147 -44004) 117) @@ -8637,25 +8637,25 @@ Broken at C::WT-MAKE-CLOSURE. (deftest misc.451 (funcall (compile nil '(lambda (a b) (flet ((%f3 () (setq a -2210))) - (logxor a b (%f3))))) - -22650 20595) + (logxor a b (%f3))))) + -22650 20595) 171) (deftest misc.452 (funcall (compile nil '(lambda (d) (labels ((%f3 () (setf d -1135) -983)) - (+ d (%f3) 11267)))) - -2914) + (+ d (%f3) 11267)))) + -2914) 7370) (deftest misc.453 (funcall (compile nil '(lambda (a) (* a (setf a 2) a (identity 5)))) - 3) + 3) 60) (deftest misc.454 (let* ((form '(let ((v1 0)) (decf v1 (setq v1 -1)))) - (val1 (eval form)) - (val2 (funcall (compile nil `(lambda () ,form))))) + (val1 (eval form)) + (val2 (funcall (compile nil `(lambda () ,form))))) (if (eql val1 val2) :good (list val1 val2))) :good) @@ -8672,7 +8672,7 @@ Broken at C::WT-MAKE-CLOSURE. '(lambda (a b) (declare (type (integer -4079701634499 2272876436845) b)) (declare (optimize (space 0) (compilation-speed 1) - (safety 3) (speed 2) (debug 0))) + (safety 3) (speed 2) (debug 0))) (logand (* -775 b) a 37284))) -18465060867 832909434173) 32772) @@ -8685,7 +8685,7 @@ Broken at C::WT-MAKE-CLOSURE. (declare (type (integer -30606350847 35078064098) b)) (declare (type (integer -6652 6638) c)) (declare (optimize (space 3) (safety 0) - (speed 0) (compilation-speed 2) (debug 1))) + (speed 0) (compilation-speed 2) (debug 1))) (logand (* -9964236 (setq c 6206) 2600) b c))) 17296668225 -6574) 4096) @@ -8700,7 +8700,7 @@ Broken at C::WT-MAKE-CLOSURE. (declare (type (integer -455461 343063) a)) (declare (type (integer -1020097 -12430) b)) (declare (optimize (speed 3) (space 0) (compilation-speed 3) - (debug 0) (safety 3))) + (debug 0) (safety 3))) (deposit-field (* (logeqv a a) b) (byte 6 24) 0))) -212811 -985078) 0) @@ -8714,11 +8714,11 @@ Broken at C::WT-MAKE-CLOSURE. ' (lambda (a) (declare (type (integer -8175 27760966190) a)) (declare (optimize - ;; The next optimize declaration is necessary - ;; for the bug to occur in sbcl 0.8.17.24 - #+sbcl (sb-c:insert-step-conditions 0) - (space 2) (speed 0) (compilation-speed 1) - (safety 0) (debug 3))) + ;; The next optimize declaration is necessary + ;; for the bug to occur in sbcl 0.8.17.24 + #+sbcl (sb-c:insert-step-conditions 0) + (space 2) (speed 0) (compilation-speed 1) + (safety 0) (debug 3))) (ldb (byte 29 0) (* a a)))) 14774118941) 101418825) @@ -8733,7 +8733,7 @@ Broken at C::WT-MAKE-CLOSURE. (declare (type (integer -32933298905 -168011) a)) (declare (type (integer -190015111797 16) b)) (declare (optimize (speed 2) (compilation-speed 0) (space 0) - (safety 1) (debug 0))) + (safety 1) (debug 0))) (logand (+ b -9255) a 63))) -8166030199 -45872222127) 8) @@ -8751,26 +8751,26 @@ Broken at C::WT-MAKE-CLOSURE. (declare (type (integer 50354997 50514623) a)) (declare (ignorable a)) (declare - (optimize (speed 0) - (safety 0) - (compilation-speed 3) - #+sbcl (sb-c:insert-step-conditions 0) - (debug 1) - (space 1))) + (optimize (speed 0) + (safety 0) + (compilation-speed 3) + #+sbcl (sb-c:insert-step-conditions 0) + (debug 1) + (space 1))) (loop for lv3 below 2 - sum (if (find 0 - '(-17604051 126613572 -795198 12037855 127043241 -2 -59 - -3458890 1505 -1 -2 107498637 -977489 172087 421813 - 543299114 12 4311490 569 -3509 -4051770 -1 1 1 - 216399387 -2482 143297 2 304550 -61 -195904988 - 57682175 2344 1294831 -247 -2 25779388 -296 -12115 - -158487 -15) - :test 'eql) - (if (find 0 #(4193594) :test '<) - (min (catch 'ct6 0) (catch 'ct8 0) 0) - (let ((*s1* (cons a 0))) - (car *s1*))) - 0)))) + sum (if (find 0 + '(-17604051 126613572 -795198 12037855 127043241 -2 -59 + -3458890 1505 -1 -2 107498637 -977489 172087 421813 + 543299114 12 4311490 569 -3509 -4051770 -1 1 1 + 216399387 -2482 143297 2 304550 -61 -195904988 + 57682175 2344 1294831 -247 -2 25779388 -296 -12115 + -158487 -15) + :test 'eql) + (if (find 0 #(4193594) :test '<) + (min (catch 'ct6 0) (catch 'ct8 0) 0) + (let ((*s1* (cons a 0))) + (car *s1*))) + 0)))) 50395193) 0) @@ -8780,12 +8780,12 @@ Broken at C::WT-MAKE-CLOSURE. (deftest misc.461 (funcall (compile nil '(lambda (a) - (declare (type (integer -26657952320 0) a)) - (declare (optimize (compilation-speed 0) (space 3) (speed 3) - (safety 0) (debug 2))) - (- a - (ash -1 (min 31 (- a))) - -26715477))) + (declare (type (integer -26657952320 0) a)) + (declare (optimize (compilation-speed 0) (space 3) (speed 3) + (safety 0) (debug 2))) + (- a + (ash -1 (min 31 (- a))) + -26715477))) -26179151369) -24004952244) @@ -8797,12 +8797,12 @@ Broken at C::WT-MAKE-CLOSURE. (deftest misc.462 (funcall (compile nil '(lambda (a b) - (declare (type (integer -2726808666112 -26532) a)) - (declare (type (integer 182701814 171137312256) b)) - (declare (ignorable a b)) - (declare (optimize (compilation-speed 3) (safety 0) - (speed 3) (space 3) (debug 3))) - (ash (let* ((v8 (cons 0 0))) 0) (min 15 a)))) + (declare (type (integer -2726808666112 -26532) a)) + (declare (type (integer 182701814 171137312256) b)) + (declare (ignorable a b)) + (declare (optimize (compilation-speed 3) (safety 0) + (speed 3) (space 3) (debug 3))) + (ash (let* ((v8 (cons 0 0))) 0) (min 15 a)))) -1982565461868 46279989780) 0) @@ -8811,13 +8811,13 @@ Broken at C::WT-MAKE-CLOSURE. (deftest misc.463 (funcall (compile nil '(lambda (a b) - (declare (type (integer 0 0) a)) - (declare (type (integer -160364747008 264742845184) b)) - (declare (ignorable a b)) - (declare (optimize (debug 0) (safety 0) - (compilation-speed 2) (space 0) - (speed 1))) - (ash (multiple-value-setq (a) 0) (min 97 13027666096)))) + (declare (type (integer 0 0) a)) + (declare (type (integer -160364747008 264742845184) b)) + (declare (ignorable a b)) + (declare (optimize (debug 0) (safety 0) + (compilation-speed 2) (space 0) + (speed 1))) + (ash (multiple-value-setq (a) 0) (min 97 13027666096)))) 0 34670845086) 0) @@ -8827,24 +8827,24 @@ Broken at C::WT-MAKE-CLOSURE. (deftest misc.464 (funcall (compile nil '(lambda () - (declare (optimize (debug 1) (safety 2) (compilation-speed 0) - (space 1) (speed 1))) - (count (ash (the integer - (macrolet () (rem -197 (min -72 215)))) - (min 98 442719)) - #(0 96) :test '=)))) + (declare (optimize (debug 1) (safety 2) (compilation-speed 0) + (space 1) (speed 1))) + (count (ash (the integer + (macrolet () (rem -197 (min -72 215)))) + (min 98 442719)) + #(0 96) :test '=)))) 0) (deftest misc.465 (funcall (compile nil '(lambda (a) - (declare (type (integer -18822 -1280) a)) - (declare (optimize (debug 0) (speed 1) - (compilation-speed 3) (safety 0) - (space 0))) - (ash (the integer - (logand a (if t a (imagpart -2607360)))) - (min 79 (catch 'ct7 0))))) + (declare (type (integer -18822 -1280) a)) + (declare (optimize (debug 0) (speed 1) + (compilation-speed 3) (safety 0) + (space 0))) + (ash (the integer + (logand a (if t a (imagpart -2607360)))) + (min 79 (catch 'ct7 0))))) -17635) -17635) @@ -8857,10 +8857,10 @@ Broken at C::WT-MAKE-CLOSURE. (deftest misc.466 (funcall (compile nil '(lambda (x) - (declare (type (member 4 -1) x) - (optimize speed (safety 1))) - (isqrt x))) - 4) + (declare (type (member 4 -1) x) + (optimize speed (safety 1))) + (isqrt x))) + 4) 2) ;;; gcl 24 Dec 2004 @@ -8870,76 +8870,76 @@ Broken at C::WT-MAKE-CLOSURE. (deftest misc.467 (funcall (compile nil '(lambda (p2 p3) - (declare (optimize speed (safety 1)) - (type (integer -990888631320) p2) - (type (integer -20346 -19755) p3)) - (+ -77 (the (integer * -990888630255) p2) p3))) + (declare (optimize speed (safety 1)) + (type (integer -990888631320) p2) + (type (integer -20346 -19755) p3)) + (+ -77 (the (integer * -990888630255) p2) p3))) -990888630272 -19756) -990888650105) (deftest misc.468 (funcall (compile nil '(lambda (p2 p3) - (declare (optimize speed (safety 1)) - (type (integer * 151075404030) p2) - (type (integer 6515518 *) p3)) - (- 12967657127936 (the (eql 151075403520) p2) - (the (member 6515658 -14) p3)))) + (declare (optimize speed (safety 1)) + (type (integer * 151075404030) p2) + (type (integer 6515518 *) p3)) + (- 12967657127936 (the (eql 151075403520) p2) + (the (member 6515658 -14) p3)))) 151075403520 6515658) 12816575208758) (deftest misc.469 (funcall (compile nil '(lambda (p2) - (declare (optimize speed (safety 1)) (type integer p2)) - (+ 30926 (the (integer -4025987543018 *) p2)))) + (declare (optimize speed (safety 1)) (type integer p2)) + (+ 30926 (the (integer -4025987543018 *) p2)))) -4025817763840) -4025817732914) (deftest misc.470 (funcall (compile nil '(lambda (p2) - (declare (optimize speed (safety 1)) - (type (integer 3689224658939 *) p2)) - (+ -1071 (the (integer * 3689229115390) p2)))) + (declare (optimize speed (safety 1)) + (type (integer 3689224658939 *) p2)) + (+ -1071 (the (integer * 3689229115390) p2)))) 3689228853248) 3689228852177) (deftest misc.471 (funcall (compile nil '(lambda (p1 p2) - (declare (optimize speed (safety 1)) - (type (integer -9024844 230253450) p1) - (type (eql 35716681856) p2)) - (* p1 (the (integer * 35716681856) p2)))) + (declare (optimize speed (safety 1)) + (type (integer -9024844 230253450) p1) + (type (eql 35716681856) p2)) + (* p1 (the (integer * 35716681856) p2)))) -9024809 35716681856) -322336231864165504) (deftest misc.472 (funcall (compile nil '(lambda (p1 p2) - (declare (optimize speed (safety 1)) - (type (integer -785238 -80) p1) - (type (eql -523213622272) p2)) - (min p1 (the integer p2)))) + (declare (optimize speed (safety 1)) + (type (integer -785238 -80) p1) + (type (eql -523213622272) p2)) + (min p1 (the integer p2)))) -259 -523213622272) -523213622272) (deftest misc.473 (funcall (compile nil '(lambda (p2) - (declare (optimize speed (safety 1)) - (type (integer * 65861934352) p2)) - (max 23939 (the (integer 64863825609 65878336765) p2)))) + (declare (optimize speed (safety 1)) + (type (integer * 65861934352) p2)) + (max 23939 (the (integer 64863825609 65878336765) p2)))) 65861912512) 65861912512) (deftest misc.474 (funcall (compile nil '(lambda (p1) - (declare (optimize speed (safety 1)) - (type (integer -6750156308) p1)) - (logand (the signed-byte p1) -540165229))) + (declare (optimize speed (safety 1)) + (type (integer -6750156308) p1)) + (logand (the signed-byte p1) -540165229))) -6750156304) -7289140848) @@ -8951,48 +8951,48 @@ Broken at C::WT-MAKE-CLOSURE. (let #+armedbear ((jvm::*catch-errors* nil)) nil (funcall - (compile nil '(lambda (p1 p2 p3 p4 p6) - (declare (optimize speed (safety 1)) - (type (integer -785238 61564048) p1) - (type (integer * 65861934352) p2)) - (+ P1 (THE (INTEGER -485480 -7019) P2) P3 P4 - 463666373060 - P6))) - 61564048 -7457 24939545512 51 730)) + (compile nil '(lambda (p1 p2 p3 p4 p6) + (declare (optimize speed (safety 1)) + (type (integer -785238 61564048) p1) + (type (integer * 65861934352) p2)) + (+ P1 (THE (INTEGER -485480 -7019) P2) P3 P4 + 463666373060 + P6))) + 61564048 -7457 24939545512 51 730)) 488667475944) (deftest misc.476 (let #+armedbear ((jvm::*catch-errors* nil)) nil (funcall - (compile nil '(lambda (p4) - (declare (optimize speed (safety 1)) - (type (integer -115781893486) p4)) - (- 1 -35 0 (the (integer -115778245122) p4) -2))) - -115778114900)) + (compile nil '(lambda (p4) + (declare (optimize speed (safety 1)) + (type (integer -115781893486) p4)) + (- 1 -35 0 (the (integer -115778245122) p4) -2))) + -115778114900)) 115778114938) (deftest misc.477 (let #+armedbear ((jvm::*catch-errors* nil)) nil (funcall - (compile nil '(lambda (p4 p5) - (declare (optimize speed (safety 1)) - (type (integer -126908726190 -126906628448) p4) - (type (integer * 2202) p5)) - (* -1950 -33610502463 2 p4 p5))) - -126906629040 1839)) + (compile nil '(lambda (p4 p5) + (declare (optimize speed (safety 1)) + (type (integer -126908726190 -126906628448) p4) + (type (integer * 2202) p5)) + (* -1950 -33610502463 2 p4 p5))) + -126906629040 1839)) -30591843552678654213361992000) (deftest misc.478 (let #+armedbear ((jvm::*catch-errors* nil)) nil (funcall - (compile nil '(lambda (p2) - (declare (optimize speed (safety 1)) - (type (integer * 2343679) p2)) - (logand 12050257282405 p2 117775123 505354693 -415679150084))) - -6189)) + (compile nil '(lambda (p2) + (declare (optimize speed (safety 1)) + (type (integer * 2343679) p2)) + (logand 12050257282405 p2 117775123 505354693 -415679150084))) + -6189)) 33816832) ;;; Bug in CMUCL Snapshot 2004-10 @@ -9000,36 +9000,36 @@ Broken at C::WT-MAKE-CLOSURE. (deftest misc.479 (let ((r (make-array nil :element-type '(unsigned-byte 32))) - (fn (compile nil '(lambda (r p2) - (declare (optimize speed (safety 1)) - (type (simple-array (unsigned-byte 32) nil) r) - (type integer p2)) - (setf (aref r) (logxor 0 (the (integer 2797513123 2798027357) p2))) - (values))))) + (fn (compile nil '(lambda (r p2) + (declare (optimize speed (safety 1)) + (type (simple-array (unsigned-byte 32) nil) r) + (type integer p2)) + (setf (aref r) (logxor 0 (the (integer 2797513123 2798027357) p2))) + (values))))) (funcall fn r 2797674503) (aref r)) 2797674503) (deftest misc.480 (let ((r (make-array nil :element-type 'integer)) - (fn (compile nil '(lambda (r p1) - (declare (optimize speed (safety 1)) - (type (simple-array integer nil) r) - (type (integer -797971 -797511) p1)) - (setf (aref r) (logeqv p1 15 1078254884158 -12564176924 0 15096591909)) - (values))))) + (fn (compile nil '(lambda (r p1) + (declare (optimize speed (safety 1)) + (type (simple-array integer nil) r) + (type (integer -797971 -797511) p1)) + (setf (aref r) (logeqv p1 15 1078254884158 -12564176924 0 15096591909)) + (values))))) (funcall fn r -797965) (aref r)) -1075415510532) (deftest misc.481 (let ((r (make-array nil :element-type '(unsigned-byte 16))) - (fn (compile nil '(lambda (r p1) - (declare (optimize speed (safety 1)) - (type (simple-array (unsigned-byte 16) nil) r) - (type (member 4194309 -123 1692 -4432 -760653 -1741 37) p1)) - (setf (aref r) (logorc1 (the (eql -4432) p1) 0)) - (values))))) + (fn (compile nil '(lambda (r p1) + (declare (optimize speed (safety 1)) + (type (simple-array (unsigned-byte 16) nil) r) + (type (member 4194309 -123 1692 -4432 -760653 -1741 37) p1)) + (setf (aref r) (logorc1 (the (eql -4432) p1) 0)) + (values))))) (funcall fn r -4432) (aref r)) 4431) @@ -9038,133 +9038,133 @@ Broken at C::WT-MAKE-CLOSURE. (deftest misc.482 (let ((r (make-array nil :element-type '(unsigned-byte 4))) - (fn (compile nil '(lambda (r p2) - (declare (optimize speed (safety 1)) - (type (simple-array (unsigned-byte 4) nil) r) - (type (eql -4) p2)) - (setf (aref r) (logorc2 13 p2)) - (values))))) + (fn (compile nil '(lambda (r p2) + (declare (optimize speed (safety 1)) + (type (simple-array (unsigned-byte 4) nil) r) + (type (eql -4) p2)) + (setf (aref r) (logorc2 13 p2)) + (values))))) (funcall fn r -4) (aref r)) 15) (deftest misc.483 (let ((r (make-array nil :element-type '(unsigned-byte 4))) - (fn (compile nil '(lambda (r p1 p2) - (declare (optimize speed (safety 1)) - (type (simple-array (unsigned-byte 4) nil) r) - (type (integer * 28306533) p1) - (type (integer * 1245601) p2)) - (setf (aref r) (logandc1 p1 (the (integer -3308174) p2))) - (values))))) + (fn (compile nil '(lambda (r p1 p2) + (declare (optimize speed (safety 1)) + (type (simple-array (unsigned-byte 4) nil) r) + (type (integer * 28306533) p1) + (type (integer * 1245601) p2)) + (setf (aref r) (logandc1 p1 (the (integer -3308174) p2))) + (values))))) (funcall fn r -519 -28180) (aref r)) 4) (deftest misc.484 (let ((r (make-array nil :element-type '(unsigned-byte 4))) - (fn (compile nil '(lambda (r p2) - (declare (optimize speed (safety 1)) - (type (simple-array (unsigned-byte 4) nil) r) - (type (member 260646 -348969 34359738370 -110167) p2)) - (setf (aref r) (logandc2 9 (the (eql -348969) p2))) - (values))))) + (fn (compile nil '(lambda (r p2) + (declare (optimize speed (safety 1)) + (type (simple-array (unsigned-byte 4) nil) r) + (type (member 260646 -348969 34359738370 -110167) p2)) + (setf (aref r) (logandc2 9 (the (eql -348969) p2))) + (values))))) (funcall fn r -348969) (aref r)) 8) (deftest misc.485 (let ((r (make-array nil :element-type 'bit)) - (fn (compile nil '(lambda (r p2) - (declare (optimize speed (safety 1)) - (type (simple-array bit nil) r) - (type (integer -108220 256178) p2)) - (setf (aref r) (logand 1 (the (member -1 2147483652 1 -5 3802) p2))) - (values))))) + (fn (compile nil '(lambda (r p2) + (declare (optimize speed (safety 1)) + (type (simple-array bit nil) r) + (type (integer -108220 256178) p2)) + (setf (aref r) (logand 1 (the (member -1 2147483652 1 -5 3802) p2))) + (values))))) (funcall fn r -5) (aref r)) 1) (deftest misc.486 (let ((r (make-array nil :element-type '(unsigned-byte 4))) - (fn (compile nil '(lambda (r p1 p2) - (declare (optimize speed (safety 1)) - (type (simple-array (unsigned-byte 4) nil) r) - (type (integer -9) p1) - (type (integer * 1234117) p2)) - (setf (aref r) (logior (the (integer -295 *) p1) (the (integer -90 *) p2))) - (values))))) + (fn (compile nil '(lambda (r p1 p2) + (declare (optimize speed (safety 1)) + (type (simple-array (unsigned-byte 4) nil) r) + (type (integer -9) p1) + (type (integer * 1234117) p2)) + (setf (aref r) (logior (the (integer -295 *) p1) (the (integer -90 *) p2))) + (values))))) (funcall fn r 6 6) (aref r)) 6) (deftest misc.487 (let ((r (make-array nil :element-type '(unsigned-byte 16))) - (fn (compile nil '(lambda (r p1) - (declare (optimize speed (safety 1)) - (type (simple-array (unsigned-byte 16) nil) r) - (type (integer 1583040351 1587341394) p1)) - (setf (aref r) (logandc2 (the (integer 1587211196 1587341392) p1) -166174)) - (values))))) + (fn (compile nil '(lambda (r p1) + (declare (optimize speed (safety 1)) + (type (simple-array (unsigned-byte 16) nil) r) + (type (integer 1583040351 1587341394) p1)) + (setf (aref r) (logandc2 (the (integer 1587211196 1587341392) p1) -166174)) + (values))))) (funcall fn r 1587341392) (aref r)) 34832) (deftest misc.488 (let ((r (make-array nil :element-type '(unsigned-byte 32))) - (fn (compile nil '(lambda (r p2) - (declare (optimize speed (safety 1)) - (type (simple-array (unsigned-byte 32) nil) r) - (type (integer 1960409798 1960426181) p2)) - (setf (aref r) (logorc1 -1 p2)) - (values))))) + (fn (compile nil '(lambda (r p2) + (declare (optimize speed (safety 1)) + (type (simple-array (unsigned-byte 32) nil) r) + (type (integer 1960409798 1960426181) p2)) + (setf (aref r) (logorc1 -1 p2)) + (values))))) (funcall fn r 1960409801) (aref r)) 1960409801) (deftest misc.489 (let ((r (make-array nil :element-type '(unsigned-byte 32))) - (fn (compile nil '(lambda (r p2) - (declare (optimize speed (safety 1)) - (type (simple-array (unsigned-byte 32) nil) r) - (type (integer -55) p2)) - (setf (aref r) (logorc2 0 (the (member -51) p2))) - (values))))) + (fn (compile nil '(lambda (r p2) + (declare (optimize speed (safety 1)) + (type (simple-array (unsigned-byte 32) nil) r) + (type (integer -55) p2)) + (setf (aref r) (logorc2 0 (the (member -51) p2))) + (values))))) (funcall fn r -51) (aref r)) 50) (deftest misc.490 (let ((r (make-array nil :element-type '(unsigned-byte 32))) - (fn (compile nil '(lambda (r p1) - (declare (optimize speed (safety 1)) - (type (simple-array (unsigned-byte 32) nil) r) - (type (integer 761639858 1030075825) p1)) - (setf (aref r) (logior (the (integer * 35389813668) p1) 0)) - (values))))) + (fn (compile nil '(lambda (r p1) + (declare (optimize speed (safety 1)) + (type (simple-array (unsigned-byte 32) nil) r) + (type (integer 761639858 1030075825) p1)) + (setf (aref r) (logior (the (integer * 35389813668) p1) 0)) + (values))))) (funcall fn r 1030075308) (aref r)) 1030075308) (deftest misc.491 (let ((r (make-array nil :element-type '(signed-byte 16))) - (fn (compile nil '(lambda (r p2) - (declare (optimize speed (safety 1)) - (type (simple-array (signed-byte 16) nil) r) - (type (integer 505774114 573717424) p2)) - (setf (aref r) (lognand 58539 (the (integer * 910674467) p2))) - (values))))) + (fn (compile nil '(lambda (r p2) + (declare (optimize speed (safety 1)) + (type (simple-array (signed-byte 16) nil) r) + (type (integer 505774114 573717424) p2)) + (setf (aref r) (lognand 58539 (the (integer * 910674467) p2))) + (values))))) (funcall fn r 506608551) (aref r)) -8356) (deftest misc.492 (let ((r (make-array nil :element-type '(signed-byte 8))) - (fn (compile nil '(lambda (r p1) - (declare (optimize speed (safety 1)) - (type (simple-array (signed-byte 8) nil) r) (type (integer * 22050378) p1)) - (setf (aref r) (lognand (the (integer 19464371) p1) 2257)) - (values))))) + (fn (compile nil '(lambda (r p1) + (declare (optimize speed (safety 1)) + (type (simple-array (signed-byte 8) nil) r) (type (integer * 22050378) p1)) + (setf (aref r) (lognand (the (integer 19464371) p1) 2257)) + (values))))) (funcall fn r 19469591) (aref r)) -18) @@ -9176,12 +9176,12 @@ Broken at C::WT-MAKE-CLOSURE. (let #+abcl ((jvm::*catch-errors* nil)) nil (funcall - (compile nil '(lambda (b) - (declare (optimize (speed 2) (debug 1) (safety 3) - (compilation-speed 3) (space 1))) - (aref #(41397376227 18660605846 49244777443) (min 2 (max 0 b))))) - - -71)) + (compile nil '(lambda (b) + (declare (optimize (speed 2) (debug 1) (safety 3) + (compilation-speed 3) (space 1))) + (aref #(41397376227 18660605846 49244777443) (min 2 (max 0 b))))) + + -71)) 41397376227) ;;; ABCL (26 Dec 2004) @@ -9191,10 +9191,10 @@ Broken at C::WT-MAKE-CLOSURE. (let #+abcl ((jvm::*catch-errors* nil)) nil (funcall - (compile nil '(lambda () - (declare (optimize (safety 0) (space 2) (debug 3) (speed 0) - (compilation-speed 2))) - (conjugate (progn (catch 'ct5 (if t 0 0)) 0)))))) + (compile nil '(lambda () + (declare (optimize (safety 0) (space 2) (debug 3) (speed 0) + (compilation-speed 2))) + (conjugate (progn (catch 'ct5 (if t 0 0)) 0)))))) 0) ;;; The value 5085 is not of type FUNCTION. @@ -9202,16 +9202,16 @@ Broken at C::WT-MAKE-CLOSURE. (deftest misc.495 (funcall (compile nil '(lambda (a b) - (declare (type (integer -4197 284380207) a)) - (declare (type (integer -23 5088) b)) - (declare (ignorable a b)) - (declare (optimize (speed 1) (space 2) (debug 0) - (compilation-speed 0) (safety 2))) - (if (position (progn (1+ b) 0) - '(169496 -726 -13623 53307916 128 -258391 156 - 7432659 30 20 -11)) - 0 - a))) + (declare (type (integer -4197 284380207) a)) + (declare (type (integer -23 5088) b)) + (declare (ignorable a b)) + (declare (optimize (speed 1) (space 2) (debug 0) + (compilation-speed 0) (safety 2))) + (if (position (progn (1+ b) 0) + '(169496 -726 -13623 53307916 128 -258391 156 + 7432659 30 20 -11)) + 0 + a))) 72179019 5084) 72179019) @@ -9221,26 +9221,26 @@ Broken at C::WT-MAKE-CLOSURE. (let #+abcl ((jvm::*catch-errors* nil)) nil (funcall - (compile nil - '(lambda (a) - (declare (type (integer -54915 -3396) a)) - (declare (optimize (debug 3) (space 0) (safety 2) (speed 2) - (compilation-speed 3))) - (progn (1+ a) (catch 'ct6 (progn 0))))) - -25986)) + (compile nil + '(lambda (a) + (declare (type (integer -54915 -3396) a)) + (declare (optimize (debug 3) (space 0) (safety 2) (speed 2) + (compilation-speed 3))) + (progn (1+ a) (catch 'ct6 (progn 0))))) + -25986)) 0) (deftest misc.497 (let #+abcl ((jvm::*catch-errors* nil)) nil (funcall - (compile nil - '(lambda (b) - (declare (type (integer -1 0) b)) - (declare (optimize (space 3) (compilation-speed 1) - (safety 0) (debug 1) (speed 0))) - (if 0 (prog2 0 0 (1+ b)) 0))) - 0)) + (compile nil + '(lambda (b) + (declare (type (integer -1 0) b)) + (declare (optimize (space 3) (compilation-speed 1) + (safety 0) (debug 1) (speed 0))) + (if 0 (prog2 0 0 (1+ b)) 0))) + 0)) 0) ;;; Inconsistent stack height 1 != 0 @@ -9249,15 +9249,15 @@ Broken at C::WT-MAKE-CLOSURE. (let #+abcl ((jvm::*catch-errors* nil)) nil (funcall - (compile nil - '(lambda (a) - (declare (type (integer -16191 4) a)) - (declare (optimize (compilation-speed 2) (space 1) (debug 0) - (safety 0) (speed 2))) - (conjugate (dotimes (iv1 0 0) - (let ((v2 (dotimes (iv3 0 0) (1+ a)))) - 0))))) - -2840)) + (compile nil + '(lambda (a) + (declare (type (integer -16191 4) a)) + (declare (optimize (compilation-speed 2) (space 1) (debug 0) + (safety 0) (speed 2))) + (conjugate (dotimes (iv1 0 0) + (let ((v2 (dotimes (iv3 0 0) (1+ a)))) + 0))))) + -2840)) 0) ;;; Incompatible object argument for function call @@ -9266,15 +9266,15 @@ Broken at C::WT-MAKE-CLOSURE. (let #+abcl ((jvm::*catch-errors* nil)) nil (funcall - (compile nil - '(lambda (a b) - (declare (type (integer -31415 133871) a)) - (declare (type (integer -993 6448) b)) - (declare (ignorable a b)) - (declare (optimize (space 0) (debug 2) (safety 0) (speed 0) - (compilation-speed 0))) - (progn (ceiling (progn (1+ b) a)) a))) - -16435 2620)) + (compile nil + '(lambda (a b) + (declare (type (integer -31415 133871) a)) + (declare (type (integer -993 6448) b)) + (declare (ignorable a b)) + (declare (optimize (space 0) (debug 2) (safety 0) (speed 0) + (compilation-speed 0))) + (progn (ceiling (progn (1+ b) a)) a))) + -16435 2620)) -16435) ;;; Stack overflow during compilation @@ -9282,9 +9282,9 @@ Broken at C::WT-MAKE-CLOSURE. (deftest misc.500 (funcall (compile nil '(lambda nil - (declare (optimize (space 2) (debug 2) (compilation-speed 2) - (speed 1) (safety 3))) - (the integer (integer-length (dotimes (iv4 2 15790955))))))) + (declare (optimize (space 2) (debug 2) (compilation-speed 2) + (speed 1) (safety 3))) + (the integer (integer-length (dotimes (iv4 2 15790955))))))) 24) ;;; Inconsistent stack height 1 != 0 @@ -9293,12 +9293,12 @@ Broken at C::WT-MAKE-CLOSURE. (let #+abcl ((jvm::*catch-errors* nil)) nil (funcall - (compile nil '(lambda (a) - (declare (type (integer -437165353 179983908) a)) - (declare (optimize (compilation-speed 0) (debug 1) (space 1) - (safety 2) (speed 1))) - (dotimes (iv1 0 0) (1+ a)))) - 1)) + (compile nil '(lambda (a) + (declare (type (integer -437165353 179983908) a)) + (declare (optimize (compilation-speed 0) (debug 1) (space 1) + (safety 2) (speed 1))) + (dotimes (iv1 0 0) (1+ a)))) + 1)) 0) ;;; Ordering problems @@ -9306,11 +9306,11 @@ Broken at C::WT-MAKE-CLOSURE. (deftest misc.502 (funcall (compile nil '(lambda (a) - (declare (type (integer -7 84717795) a)) - (declare (ignorable a)) - (declare (optimize (speed 1) (space 1) (debug 1) (safety 2) - (compilation-speed 0))) - (+ a (setq a 35035201)))) + (declare (type (integer -7 84717795) a)) + (declare (ignorable a)) + (declare (optimize (speed 1) (space 1) (debug 1) (safety 2) + (compilation-speed 0))) + (+ a (setq a 35035201)))) 29207264) 64242465) @@ -9320,14 +9320,14 @@ Broken at C::WT-MAKE-CLOSURE. (deftest misc.503 (funcall (compile nil '(lambda (a) - (declare (optimize (space 3) (debug 1) (speed 2) (safety 0) - (compilation-speed 1))) - (catch 'ct1 - (throw 'ct1 - (catch 'ct5 - (reduce 'min - (vector 0 0 0 a a 0 0 (values 0 0) (throw 'ct5 -6)) - :end 8 :start 6 :from-end t)))))) + (declare (optimize (space 3) (debug 1) (speed 2) (safety 0) + (compilation-speed 1))) + (catch 'ct1 + (throw 'ct1 + (catch 'ct5 + (reduce 'min + (vector 0 0 0 a a 0 0 (values 0 0) (throw 'ct5 -6)) + :end 8 :start 6 :from-end t)))))) 17) -6) @@ -9337,47 +9337,47 @@ Broken at C::WT-MAKE-CLOSURE. (let #+abcl ((jvm::*catch-errors* nil)) nil (funcall - (compile nil '(lambda (a) - (declare (type (integer 196060 241373941) a)) - (declare (ignorable a)) - (declare (optimize (speed 3) (debug 0) (safety 2) - (compilation-speed 3) (space 2))) - (prog2 (if 0 (+ a a) 0) 0))) - 200000)) + (compile nil '(lambda (a) + (declare (type (integer 196060 241373941) a)) + (declare (ignorable a)) + (declare (optimize (speed 3) (debug 0) (safety 2) + (compilation-speed 3) (space 2))) + (prog2 (if 0 (+ a a) 0) 0))) + 200000)) 0) (deftest misc.505 (let #+abcl ((jvm::*catch-errors* nil)) nil (funcall - (compile nil '(lambda (a) - (declare (type (integer -6 5) a)) - (declare (optimize (speed 3) (space 0) (safety 2) - (compilation-speed 2) (debug 3))) - (dotimes (iv1 0 0) (+ a a)))) - 1)) + (compile nil '(lambda (a) + (declare (type (integer -6 5) a)) + (declare (optimize (speed 3) (space 0) (safety 2) + (compilation-speed 2) (debug 3))) + (dotimes (iv1 0 0) (+ a a)))) + 1)) 0) (deftest misc.506 (let #+abcl ((jvm::*catch-errors* nil)) nil (funcall - (compile nil '(lambda (a) - (declare (type (integer -53 49) a)) - (declare (optimize (debug 0) (compilation-speed 1) (space 2) - (safety 0) (speed 0))) - (unwind-protect (+ a a) 0))) - -38)) + (compile nil '(lambda (a) + (declare (type (integer -53 49) a)) + (declare (optimize (debug 0) (compilation-speed 1) (space 2) + (safety 0) (speed 0))) + (unwind-protect (+ a a) 0))) + -38)) -76) ;;; The value 15390 is not of type FUNCTION. (deftest misc.507 (funcall (compile nil '(lambda (a) - (declare (type (integer 2697 13005) a)) - (declare (optimize (debug 0) (space 2) (speed 2) - (compilation-speed 3) (safety 3))) - (truncate (prog1 0 a (+ a a))))) + (declare (type (integer 2697 13005) a)) + (declare (optimize (debug 0) (space 2) (speed 2) + (compilation-speed 3) (safety 3))) + (truncate (prog1 0 a (+ a a))))) 7695) 0 0) @@ -9388,60 +9388,60 @@ Broken at C::WT-MAKE-CLOSURE. (let #+abcl ((jvm::*catch-errors* nil)) nil (funcall - (compile nil '(lambda (a) - (declare (type (integer -57853147 -2) a)) - (declare (ignorable a)) - (declare (optimize (debug 2) (space 1) (compilation-speed 3) - (safety 1) (speed 2))) - (the integer - (mask-field (byte 2 29) - (ash (multiple-value-setq (a) -51781613) - (min 1 a)))))) - -29324754)) + (compile nil '(lambda (a) + (declare (type (integer -57853147 -2) a)) + (declare (ignorable a)) + (declare (optimize (debug 2) (space 1) (compilation-speed 3) + (safety 1) (speed 2))) + (the integer + (mask-field (byte 2 29) + (ash (multiple-value-setq (a) -51781613) + (min 1 a)))))) + -29324754)) 1610612736) (deftest misc.509 (let #+abcl ((jvm::*catch-errors* nil)) nil (funcall - (compile nil '(lambda (a) - (declare (type (integer -38984312 657) a)) - (declare (ignorable a)) - (declare (optimize (debug 1) (compilation-speed 1) (speed 1) - (safety 2) (space 3))) - (the integer - (if (> a -27907941364) - 116871 - (cl:handler-case - (multiple-value-setq (a) - -34832621)))))) - -26788929)) + (compile nil '(lambda (a) + (declare (type (integer -38984312 657) a)) + (declare (ignorable a)) + (declare (optimize (debug 1) (compilation-speed 1) (speed 1) + (safety 2) (space 3))) + (the integer + (if (> a -27907941364) + 116871 + (cl:handler-case + (multiple-value-setq (a) + -34832621)))))) + -26788929)) 116871) (deftest misc.510 (let #+abcl ((jvm::*catch-errors* nil)) nil (funcall - (compile nil '(lambda (a) - (declare (type (integer -2827 3400) a)) - (declare (optimize (compilation-speed 1) (space 3) (debug 1) - (safety 0) (speed 1))) - (logand (the integer (dotimes (iv4 2 a) (progn iv4)))))) - 155)) + (compile nil '(lambda (a) + (declare (type (integer -2827 3400) a)) + (declare (optimize (compilation-speed 1) (space 3) (debug 1) + (safety 0) (speed 1))) + (logand (the integer (dotimes (iv4 2 a) (progn iv4)))))) + 155)) 155) (deftest misc.511 (let #+abcl ((jvm::*catch-errors* nil)) nil (funcall - (compile nil '(lambda (a) - (declare (type (integer 18967 23584) a)) - (declare (ignorable a)) - (declare (optimize (space 1) (speed 1) (debug 1) - (compilation-speed 3) (safety 1))) - (the integer - (values (loop for lv4 below 2 count (find a '(16389))))))) - 21352)) + (compile nil '(lambda (a) + (declare (type (integer 18967 23584) a)) + (declare (ignorable a)) + (declare (optimize (space 1) (speed 1) (debug 1) + (compilation-speed 3) (safety 1))) + (the integer + (values (loop for lv4 below 2 count (find a '(16389))))))) + 21352)) 0) ;;; Inconsistent stack height @@ -9450,28 +9450,28 @@ Broken at C::WT-MAKE-CLOSURE. (let #+abcl ((jvm::*catch-errors* nil)) nil (funcall - (compile nil '(lambda (a) - (declare (type (integer 1 188902468) a)) - (declare (ignorable a)) - (declare (optimize (space 2) (speed 3) (safety 3) - (compilation-speed 0) (debug 2))) - (catch 'ct6 - (the integer - (let* ((v3 (signum (ignore-errors a)))) - (declare (dynamic-extent v3)) - (throw 'ct6 - (round (case (prog2 - (lognor 290171664 v3) - -3512003993 - -550842867) - ((4) (* 1 4092)) - ((21 220 225) - (block b1 - (setf v3 - (let* ((v9 v3)) - a)))) - (t -639367819))))))))) - 49008586)) + (compile nil '(lambda (a) + (declare (type (integer 1 188902468) a)) + (declare (ignorable a)) + (declare (optimize (space 2) (speed 3) (safety 3) + (compilation-speed 0) (debug 2))) + (catch 'ct6 + (the integer + (let* ((v3 (signum (ignore-errors a)))) + (declare (dynamic-extent v3)) + (throw 'ct6 + (round (case (prog2 + (lognor 290171664 v3) + -3512003993 + -550842867) + ((4) (* 1 4092)) + ((21 220 225) + (block b1 + (setf v3 + (let* ((v9 v3)) + a)))) + (t -639367819))))))))) + 49008586)) -639367819 0) @@ -9482,33 +9482,33 @@ Broken at C::WT-MAKE-CLOSURE. (let #+abcl ((jvm::*catch-errors* nil)) nil (funcall - (compile nil '(lambda (a) - (declare (type (integer -2 75025568) a)) - (declare (ignorable a)) - (declare (optimize (space 0) (compilation-speed 0) (safety 0) - (speed 2) (debug 2))) - (let* ((v8 - (cons (the integer - (prog2 a - -1558460 - a - (ignore-errors (progn (tagbody) -49510826)) - a)) - 0))) - 0))) - 68043554)) + (compile nil '(lambda (a) + (declare (type (integer -2 75025568) a)) + (declare (ignorable a)) + (declare (optimize (space 0) (compilation-speed 0) (safety 0) + (speed 2) (debug 2))) + (let* ((v8 + (cons (the integer + (prog2 a + -1558460 + a + (ignore-errors (progn (tagbody) -49510826)) + a)) + 0))) + 0))) + 68043554)) 0) (deftest misc.514 (let #+abcl ((jvm::*catch-errors* nil)) nil (funcall - (compile nil '(lambda (a) - (declare (type (integer -6844832476 188341751) a)) - (declare (optimize (speed 3) (debug 1) (safety 0) (space 3) - (compilation-speed 1))) - (the integer (multiple-value-setq (a) -96073358)))) - -3792864899)) + (compile nil '(lambda (a) + (declare (type (integer -6844832476 188341751) a)) + (declare (optimize (speed 3) (debug 1) (safety 0) (space 3) + (compilation-speed 1))) + (the integer (multiple-value-setq (a) -96073358)))) + -3792864899)) -96073358) ;;; gcl 27 Dec 2004 @@ -9530,12 +9530,12 @@ Broken at C::WT-MAKE-CLOSURE. (deftest misc.516 (funcall (compile nil '(lambda () - (declare (optimize (space 0) (debug 0) (safety 2) - (compilation-speed 3) (speed 1))) - (let ((*s2* (* -507991378 14))) - (declare (dynamic-extent *s2*)) - (declare (special *s2*)) - (1+ *s2*))))) + (declare (optimize (space 0) (debug 0) (safety 2) + (compilation-speed 3) (speed 1))) + (let ((*s2* (* -507991378 14))) + (declare (dynamic-extent *s2*)) + (declare (special *s2*)) + (1+ *s2*))))) -7111879291) ;;; gcl 29 Dec 2004 @@ -9544,14 +9544,14 @@ Broken at C::WT-MAKE-CLOSURE. (deftest misc.517 (funcall (compile nil '(lambda () - (declare (optimize (safety 3) (space 3) (debug 1) (speed 1) - (compilation-speed 0))) - (let* ((*s8* (let ((*s8* (make-array nil :initial-element 0))) - (declare (special *s8*)) - (progn (shiftf (aref *s8*) 31508066) 0)) - )) - (declare (special *s8*)) - 0)))) + (declare (optimize (safety 3) (space 3) (debug 1) (speed 1) + (compilation-speed 0))) + (let* ((*s8* (let ((*s8* (make-array nil :initial-element 0))) + (declare (special *s8*)) + (progn (shiftf (aref *s8*) 31508066) 0)) + )) + (declare (special *s8*)) + 0)))) 0) ;;; Incorrect return value @@ -9559,18 +9559,18 @@ Broken at C::WT-MAKE-CLOSURE. (deftest misc.518 (funcall (compile nil '(lambda () - (declare (optimize (compilation-speed 0) (safety 1) - (debug 1) (space 0) (speed 3))) - (flet ((%f10 (&optional (f10-1 0) (f10-2 0) &key) - (progn - (tagbody - (decf f10-2) - (return-from %f10 - (complex (unwind-protect (go tag7)) - 0)) - tag7) - f10-2))) - (if (evenp (%f10 0 0)) 0 2140390))))) + (declare (optimize (compilation-speed 0) (safety 1) + (debug 1) (space 0) (speed 3))) + (flet ((%f10 (&optional (f10-1 0) (f10-2 0) &key) + (progn + (tagbody + (decf f10-2) + (return-from %f10 + (complex (unwind-protect (go tag7)) + 0)) + tag7) + f10-2))) + (if (evenp (%f10 0 0)) 0 2140390))))) 2140390) ;;; Error in APPLY [or a callee]: fixnum or bignum expected @@ -9582,15 +9582,15 @@ Broken at C::WT-MAKE-CLOSURE. nil '(lambda () (declare (optimize (compilation-speed 0) (speed 1) (debug 1) - (space 1) (safety 3))) + (space 1) (safety 3))) (let ((*s3* - (* (the integer - (expt (rationalize - (multiple-value-bind (*s3*) - (make-array nil :initial-element 0) - (shiftf (aref *s3*) 0))) - 2))))) - 1)))) + (* (the integer + (expt (rationalize + (multiple-value-bind (*s3*) + (make-array nil :initial-element 0) + (shiftf (aref *s3*) 0))) + 2))))) + 1)))) 1) ;;; sbcl 0.8.18 (sparc solaris) @@ -9604,10 +9604,10 @@ Broken at C::WT-MAKE-CLOSURE. (declare (type (integer -44330 64753) c)) (declare (type (integer -301534047 4291509) e)) (declare (optimize (safety 3) (debug 2) (speed 3) - (space 2) (compilation-speed 2))) + (space 2) (compilation-speed 2))) (if (oddp - (ash (logorc2 c e) - (min 2 (mask-field (byte 0 0) (mod 0 (max 69 0)))))) + (ash (logorc2 c e) + (min 2 (mask-field (byte 0 0) (mod 0 (max 69 0)))))) a 0))) 1 -8156 -229264929) @@ -9622,12 +9622,12 @@ Broken at C::WT-MAKE-CLOSURE. nil '(lambda (b) (declare (optimize (speed 0) (safety 1) (debug 1) (compilation-speed 3) - (space 0))) + (space 0))) (if b - (let ((*s6* 0)) - 0) - (let* ((*s6* (make-array nil :initial-element 0))) - (aref *s6*))))) + (let ((*s6* 0)) + 0) + (let* ((*s6* (make-array nil :initial-element 0))) + (aref *s6*))))) nil) 0) @@ -9641,16 +9641,16 @@ Broken at C::WT-MAKE-CLOSURE. (declare (type (integer -25 38) a)) (declare (optimize (compilation-speed 3) (safety 3) (debug 1) (space 2) (speed 1))) (flet ((%f2 (f2-1 f2-2 - &optional - (f2-3 (labels ((%f6 (&optional (f6-1 0) (f6-2 0)) (max a))) - (%f6 0))) - (f2-4 0) (f2-5 0)) - (flet ((%f4 (f4-1 f4-2 f4-3) - (flet ((%f15 () f2-3)) a))) - 0))) - (reduce #'(lambda (lmv1 lmv6) a) - (vector 0 0 0 (%f2 a a) 0 a 0 a 0) - :start 4 :from-end t)))) + &optional + (f2-3 (labels ((%f6 (&optional (f6-1 0) (f6-2 0)) (max a))) + (%f6 0))) + (f2-4 0) (f2-5 0)) + (flet ((%f4 (f4-1 f4-2 f4-3) + (flet ((%f15 () f2-3)) a))) + 0))) + (reduce #'(lambda (lmv1 lmv6) a) + (vector 0 0 0 (%f2 a a) 0 a 0 a 0) + :start 4 :from-end t)))) 35) 35) @@ -9664,17 +9664,17 @@ Broken at C::WT-MAKE-CLOSURE. (declare (type (integer -1011 978) a)) (declare (optimize (compilation-speed 1) (safety 3) (debug 0) (speed 2) (space 1))) (let ((*s5* - (cons 0 - (catch 'ct8 - (ash - (flet ((%f15 (f15-1) - (return-from %f15 a))) - 0) - (min 57 - (lognor (throw 'ct8 (shiftf a 332)) - (let ((v1 (setf a 371))) - a)))))))) - a))) + (cons 0 + (catch 'ct8 + (ash + (flet ((%f15 (f15-1) + (return-from %f15 a))) + 0) + (min 57 + (lognor (throw 'ct8 (shiftf a 332)) + (let ((v1 (setf a 371))) + a)))))))) + a))) 99) 332) @@ -9690,14 +9690,14 @@ Broken at C::WT-MAKE-CLOSURE. (declare (ignorable b)) (declare (optimize (compilation-speed 0) (safety 0) (space 2) (speed 0) (debug 3))) (flet ((%f18 (f18-1 f18-2 f18-3 &optional &key (key1 0) &allow-other-keys) - (labels ((%f12 - (f12-1 - &optional (f12-2 0) - &key (key1 (catch 'ct7 (conjugate key1))) (key2 0) - &allow-other-keys) - 0)) - (%f12 a)))) - (%f18 a 0 0)))) + (labels ((%f12 + (f12-1 + &optional (f12-2 0) + &key (key1 (catch 'ct7 (conjugate key1))) (key2 0) + &allow-other-keys) + 0)) + (%f12 a)))) + (%f18 a 0 0)))) -925293 -1603) 0) @@ -9711,10 +9711,10 @@ Broken at C::WT-MAKE-CLOSURE. (declare (type (integer -17179869184 -2147483648) a)) (declare (ignorable a)) (declare - (optimize (space 2) (debug 3) (speed 3) (compilation-speed 3) (safety 1))) + (optimize (space 2) (debug 3) (speed 3) (compilation-speed 3) (safety 1))) (catch 'ct4 - (max (conjugate (unwind-protect 0 (catch 'ct4 (values 0)))) - (throw 'ct4 0))))) + (max (conjugate (unwind-protect 0 (catch 'ct4 (values 0)))) + (throw 'ct4 0))))) -17179869184) 0) @@ -9728,36 +9728,36 @@ Broken at C::WT-MAKE-CLOSURE. (declare (type (integer -4 3025867) a)) (declare (ignorable a)) (declare - (optimize (space 1) (safety 0) (debug 0) (speed 3) (compilation-speed 0))) + (optimize (space 1) (safety 0) (debug 0) (speed 3) (compilation-speed 0))) (flet ((%f14 (f14-1 f14-2 f14-3 &key) - (let ((v4 - (return-from %f14 - (flet ((%f11 - (&optional (f11-1 0) (f11-2 0) - (f11-3 - (coerce - (reduce (function (lambda (lmv2 lmv5) a)) - (vector f14-1 f14-1 0 f14-3 a f14-3 a f14-1 - 0 f14-2)) - (quote integer))) - &key (key1 f14-3) (key2 a)) - (flet ((%f8 - (f8-1 - &optional - (f8-2 - (flet ((%f16 - (f16-1 f16-2 f16-3 - &optional - &key (key1 0) - (key2 f11-3)) - key1)) - 0)) - &key (key1 0)) - f14-3)) - 0))) - (if (%f11 f14-1 (%f11 0 f14-3) f14-1) 0 0))))) - 0))) - (%f14 0 a a)))) + (let ((v4 + (return-from %f14 + (flet ((%f11 + (&optional (f11-1 0) (f11-2 0) + (f11-3 + (coerce + (reduce (function (lambda (lmv2 lmv5) a)) + (vector f14-1 f14-1 0 f14-3 a f14-3 a f14-1 + 0 f14-2)) + (quote integer))) + &key (key1 f14-3) (key2 a)) + (flet ((%f8 + (f8-1 + &optional + (f8-2 + (flet ((%f16 + (f16-1 f16-2 f16-3 + &optional + &key (key1 0) + (key2 f11-3)) + key1)) + 0)) + &key (key1 0)) + f14-3)) + 0))) + (if (%f11 f14-1 (%f11 0 f14-3) f14-1) 0 0))))) + 0))) + (%f14 0 a a)))) 857304) 0) @@ -9766,21 +9766,21 @@ Broken at C::WT-MAKE-CLOSURE. (deftest misc.527 (let ((v1 (make-array 1 :element-type 'bit - :initial-contents '(1) - :fill-pointer 0)) - (v2 (make-array 1 :element-type 'bit - :initial-contents '(1) - :fill-pointer 1)) - (r (make-array nil))) + :initial-contents '(1) + :fill-pointer 0)) + (v2 (make-array 1 :element-type 'bit + :initial-contents '(1) + :fill-pointer 1)) + (r (make-array nil))) (funcall (compile nil `(lambda (r p2) - (declare (optimize speed (safety 1)) - (type (simple-array t nil) r) - (type (array *) p2)) - (setf (aref r) (bit-and ,v1 (the (bit-vector *) p2))) - (values))) + (declare (optimize speed (safety 1)) + (type (simple-array t nil) r) + (type (array *) p2)) + (setf (aref r) (bit-and ,v1 (the (bit-vector *) p2))) + (values))) r v2) (let ((result (aref r))) (values @@ -9793,38 +9793,38 @@ Broken at C::WT-MAKE-CLOSURE. (deftest misc.528 (let* ((x 296.3066f0) - (y 22717067) - (form `(lambda (r p2) - (declare (optimize speed (safety 1)) - (type (simple-array single-float nil) r) - (type (integer -9369756340 22717335) p2)) - (setf (aref r) (* ,x (the (eql 22717067) p2))) - (values))) - (r (make-array nil :element-type 'single-float)) - (expected (* x y))) + (y 22717067) + (form `(lambda (r p2) + (declare (optimize speed (safety 1)) + (type (simple-array single-float nil) r) + (type (integer -9369756340 22717335) p2)) + (setf (aref r) (* ,x (the (eql 22717067) p2))) + (values))) + (r (make-array nil :element-type 'single-float)) + (expected (* x y))) (funcall (compile nil form) r y) (let ((actual (aref r))) (unless (eql expected actual) - (list expected actual)))) + (list expected actual)))) nil) ;;; The value 46790178 is not of type (INTEGER 46790178 46790178). (deftest misc.529 (let* ((x -2367.3296f0) - (y 46790178) - (form `(lambda (r p2) - (declare (optimize speed (safety 1)) - (type (simple-array single-float nil) r) - (type (eql 46790178) p2)) - (setf (aref r) (+ ,x (the (integer 45893897) p2))) - (values))) - (r (make-array nil :element-type 'single-float)) - (expected (+ x y))) + (y 46790178) + (form `(lambda (r p2) + (declare (optimize speed (safety 1)) + (type (simple-array single-float nil) r) + (type (eql 46790178) p2)) + (setf (aref r) (+ ,x (the (integer 45893897) p2))) + (values))) + (r (make-array nil :element-type 'single-float)) + (expected (+ x y))) (funcall (compile nil form) r y) (let ((actual (aref r))) (unless (eql expected actual) - (list expected actual)))) + (list expected actual)))) nil) ;;; cmucl (Jan 2005 snapshot) @@ -9833,19 +9833,19 @@ Broken at C::WT-MAKE-CLOSURE. (deftest misc.530 (let* ((v (make-array - '(11) :element-type 'double-float - :initial-contents - '(56826.586316245484d0 -57680.53641925701d0 68651.27735979737d0 - 30934.627728043164d0 47252.736017400945d0 35129.46986219467d0 - -57804.412938803005d0 13000.374416975968d0 50263.681826551256d0 - 89386.08276072948d0 -89508.77479231959d0))) - (form - `(lambda (r) - (declare (optimize speed (safety 1)) - (type (simple-array t nil) r)) - (setf (aref r) - (array-has-fill-pointer-p ,v)))) - (r (make-array nil))) + '(11) :element-type 'double-float + :initial-contents + '(56826.586316245484d0 -57680.53641925701d0 68651.27735979737d0 + 30934.627728043164d0 47252.736017400945d0 35129.46986219467d0 + -57804.412938803005d0 13000.374416975968d0 50263.681826551256d0 + 89386.08276072948d0 -89508.77479231959d0))) + (form + `(lambda (r) + (declare (optimize speed (safety 1)) + (type (simple-array t nil) r)) + (setf (aref r) + (array-has-fill-pointer-p ,v)))) + (r (make-array nil))) (funcall (compile nil form) r) (eqlt (aref r) (array-has-fill-pointer-p v))) t) @@ -9874,14 +9874,14 @@ Broken at C::WT-MAKE-CLOSURE. (deftest misc.533 (let* ((r (make-array nil)) - (c #c(208 -51494/29889)) - (form `(lambda (r p1) - (declare (optimize speed (safety 1)) - (type (simple-array t nil) r) - (type number p1)) - (setf (aref r) (+ (the (eql ,c) p1) -319284)) - (values))) - (fn (compile nil form))) + (c #c(208 -51494/29889)) + (form `(lambda (r p1) + (declare (optimize speed (safety 1)) + (type (simple-array t nil) r) + (type number p1)) + (setf (aref r) (+ (the (eql ,c) p1) -319284)) + (values))) + (fn (compile nil form))) (funcall fn r c) (eqlt (aref r) (+ -319284 c))) t) @@ -9895,13 +9895,13 @@ Broken at C::WT-MAKE-CLOSURE. (compile nil '(lambda (r p1 p2 p3) - (declare (optimize speed (safety 1)) - (type (eql 4134713351/6105637898) p2) - (type (eql 2685) p3)) - (setf (aref r) - (if p1 - (the (eql 4134713351/6105637898) p2) - (the (integer * 8391301) p3))))) + (declare (optimize speed (safety 1)) + (type (eql 4134713351/6105637898) p2) + (type (eql 2685) p3)) + (setf (aref r) + (if p1 + (the (eql 4134713351/6105637898) p2) + (the (integer * 8391301) p3))))) r0 t 4134713351/6105637898 2685) (aref r0)) 4134713351/6105637898) @@ -9924,11 +9924,11 @@ Broken at C::WT-MAKE-CLOSURE. (compile nil `(lambda (p1 p2) - (declare (optimize speed (safety 1)) - (type (simple-array t nil) r) - (type (eql ,c0) p1) - (type number p2)) - (eql (the (complex double-float) p1) p2))) + (declare (optimize speed (safety 1)) + (type (simple-array t nil) r) + (type (eql ,c0) p1) + (type number p2)) + (eql (the (complex double-float) p1) p2))) c0 #c(12 612/979))) nil) @@ -9939,8 +9939,8 @@ Broken at C::WT-MAKE-CLOSURE. nil '(lambda (p1 p2) (declare (optimize speed (safety 1)) - (type (eql #c(11963908204 1/6)) p1) - (type (complex rational) p2)) + (type (eql #c(11963908204 1/6)) p1) + (type (complex rational) p2)) (eql p1 (the complex p2)))) #c(11963908204 1/6) #c(2343315619 5252231066)) nil) @@ -9948,16 +9948,16 @@ Broken at C::WT-MAKE-CLOSURE. ;;; Comparison of bit vectors in compiled code (deftest misc.537 (let ((p1 (make-array '(0) :element-type 'bit - :adjustable t))) + :adjustable t))) (notnot (funcall (compile nil `(lambda (p2) - (declare (optimize speed (safety 1)) - (type (simple-array t nil) r) - (type (simple-bit-vector 0) p2)) - (equal ,p1 (the (bit-vector 0) p2)))) + (declare (optimize speed (safety 1)) + (type (simple-array t nil) r) + (type (simple-bit-vector 0) p2)) + (equal ,p1 (the (bit-vector 0) p2)))) #*))) t) @@ -9976,9 +9976,9 @@ Broken at C::WT-MAKE-CLOSURE. (complexp (funcall (compile nil '(lambda (x) - (declare (OPTIMIZE SPEED (SAFETY 1)) - (type (eql #c(0 -8)) x)) - (sqrt x))) + (declare (OPTIMIZE SPEED (SAFETY 1)) + (type (eql #c(0 -8)) x)) + (sqrt x))) #c(0 -8)))) t) @@ -9986,10 +9986,10 @@ Broken at C::WT-MAKE-CLOSURE. (deftest misc.540 (let* ((d0 #(a b c d e f g h)) - (d1 (make-array 5 - :fill-pointer 1 - :displaced-to d0 - :displaced-index-offset 2))) + (d1 (make-array 5 + :fill-pointer 1 + :displaced-to d0 + :displaced-index-offset 2))) (find #c(1.0 2.0) d1)) nil) @@ -10023,7 +10023,7 @@ Broken at C::WT-MAKE-CLOSURE. (compile nil (let ((bv1 (copy-seq #*1)) - (bv2 (copy-seq #*1))) + (bv2 (copy-seq #*1))) `(lambda () (eq ,bv1 ,bv2))))) nil) @@ -10036,9 +10036,9 @@ Broken at C::WT-MAKE-CLOSURE. nil '(lambda (p1) (declare (optimize speed (safety 1)) - ; (type (simple-array t nil) r) - (type (integer 2493220 2495515) p1)) - (* p1 #c(1123113 -260528)))) + ; (type (simple-array t nil) r) + (type (integer 2493220 2495515) p1)) + (* p1 #c(1123113 -260528)))) 2493726) #C(2800736089038 -649685447328)) @@ -10050,12 +10050,12 @@ Broken at C::WT-MAKE-CLOSURE. (complexp (funcall (compile - nil - `(lambda (p1) - (declare (optimize speed (safety 1)) - (type (long-float ,n 0.0l0) p1)) - (sqrt p1))) - n)))) + nil + `(lambda (p1) + (declare (optimize speed (safety 1)) + (type (long-float ,n 0.0l0) p1)) + (sqrt p1))) + n)))) t) ;;; OpenMCL @@ -10077,7 +10077,7 @@ Broken at C::WT-MAKE-CLOSURE. nil '(lambda (p1) (declare (optimize (speed 0) (safety 1) (debug 2) (space 3)) - (type (eql a) p1)) + (type (eql a) p1)) (typep p1 (type-of "")))) 'a) nil) @@ -10090,7 +10090,7 @@ Broken at C::WT-MAKE-CLOSURE. nil '(lambda (p1) (declare (optimize (speed 3) (safety 3) (debug 0) (space 3)) - (type symbol p1)) + (type symbol p1)) (typep (the (eql :c1) p1) (type-of "b")))) :c1) nil) @@ -10103,8 +10103,8 @@ Broken at C::WT-MAKE-CLOSURE. (compile nil '(lambda (p1) - (declare (optimize (speed 2) (safety 1) (debug 3) (space 2))) - (atom (the (member f assoc-if write-line t w) p1)))) + (declare (optimize (speed 2) (safety 1) (debug 3) (space 2))) + (atom (the (member f assoc-if write-line t w) p1)))) t)) t) @@ -10116,7 +10116,7 @@ Broken at C::WT-MAKE-CLOSURE. nil '(lambda (p2) (declare (optimize (speed 1) (safety 1) (debug 0) (space 3)) - (type symbol p2)) + (type symbol p2)) (and :a (the (eql t) p2)))) t) t) @@ -10127,8 +10127,8 @@ Broken at C::WT-MAKE-CLOSURE. nil '(lambda (p1 p2) (declare (optimize (speed 3) (safety 2) (debug 3) (space 3)) - (type atom p1) - (type symbol p2)) + (type atom p1) + (type symbol p2)) (or p1 (the (eql t) p2)))) nil t) t) @@ -10139,8 +10139,8 @@ Broken at C::WT-MAKE-CLOSURE. nil '(lambda (p1 p2) (declare (optimize (speed 1) (safety 1) (debug 3) (space 3)) - (type symbol p1) - (type (integer * 55687) p2)) + (type symbol p1) + (type (integer * 55687) p2)) (funcall (the (eql +) p1) (the (integer -93015310 16215) p2) 2952))) '+ 823) 3775) @@ -10148,8 +10148,8 @@ Broken at C::WT-MAKE-CLOSURE. (deftest misc.551a (funcall (compile nil '(lambda (x) (declare (optimize (speed 2)) - (type symbol x)) - (the (eql t) x))) + (type symbol x)) + (the (eql t) x))) t) t) @@ -10161,7 +10161,7 @@ Broken at C::WT-MAKE-CLOSURE. nil '(lambda (p1) (declare (optimize (speed 3) (safety 1) (debug 2) (space 2)) - (type unsigned-byte p1)) + (type unsigned-byte p1)) (logbitp (the (integer -780969457 *) p1) 9))) 26) nil) @@ -10171,7 +10171,7 @@ Broken at C::WT-MAKE-CLOSURE. (deftest misc.553 (funcall (compile nil '(lambda (x) (declare (type (eql #c(1.0 2.0)) x)) x)) - #c(1.0 2.0)) + #c(1.0 2.0)) #c(1.0 2.0)) ;;; 1 is not of type SEQUENCE @@ -10186,9 +10186,9 @@ Broken at C::WT-MAKE-CLOSURE. (notnot (funcall (compile nil '(lambda (p1) - (declare (optimize (speed 1) (safety 2) (debug 2) (space 0)) - (type keyword p1)) - (keywordp p1))) + (declare (optimize (speed 1) (safety 2) (debug 2) (space 0)) + (type keyword p1)) + (keywordp p1))) :c)) t) @@ -10198,12 +10198,12 @@ Broken at C::WT-MAKE-CLOSURE. (values (funcall (compile nil '(lambda (p1 p2) - (declare - (optimize (speed 1) (safety 0) - (debug 0) (space 0)) - (type (member 8174.8604) p1) - (type (member -95195347) p2)) - (floor p1 p2))) + (declare + (optimize (speed 1) (safety 0) + (debug 0) (space 0)) + (type (member 8174.8604) p1) + (type (member -95195347) p2)) + (floor p1 p2))) 8174.8604 -95195347)) -1) @@ -10215,9 +10215,9 @@ Broken at C::WT-MAKE-CLOSURE. (compile nil '(lambda (p1) - (declare (optimize (speed 3) (safety 0) (debug 3) (space 1)) - (type (member -94430.086f0) p1)) - (floor (the single-float p1) 19311235))) + (declare (optimize (speed 3) (safety 0) (debug 3) (space 1)) + (type (member -94430.086f0) p1)) + (floor (the single-float p1) 19311235))) -94430.086f0)) -1) @@ -10229,10 +10229,10 @@ Broken at C::WT-MAKE-CLOSURE. (compile nil '(lambda (p1) - (declare (optimize (speed 1) (safety 2) - (debug 2) (space 3)) - (type (eql -39466.56f0) p1)) - (ffloor p1 305598613))) + (declare (optimize (speed 1) (safety 2) + (debug 2) (space 3)) + (type (eql -39466.56f0) p1)) + (ffloor p1 305598613))) -39466.56f0)) -1.0f0) @@ -10244,9 +10244,9 @@ Broken at C::WT-MAKE-CLOSURE. (compile nil '(lambda (p1) - (declare (optimize (speed 1) (safety 1) (debug 1) (space 2)) - (type (eql -83232.09f0) p1)) - (ceiling p1 -83381228))) + (declare (optimize (speed 1) (safety 1) (debug 1) (space 2)) + (type (eql -83232.09f0) p1)) + (ceiling p1 -83381228))) -83232.09f0)) 1) @@ -10257,10 +10257,10 @@ Broken at C::WT-MAKE-CLOSURE. (compile nil '(lambda (p1) - (declare (optimize (speed 1) (safety 1) - (debug 1) (space 0)) - (type (member -66414.414f0) p1)) - (ceiling p1 -63019173f0))) + (declare (optimize (speed 1) (safety 1) + (debug 1) (space 0)) + (type (member -66414.414f0) p1)) + (ceiling p1 -63019173f0))) -66414.414f0)) 1) @@ -10272,10 +10272,10 @@ Broken at C::WT-MAKE-CLOSURE. (compile nil '(lambda (p1) - (declare (optimize (speed 0) (safety 1) - (debug 0) (space 1)) - (type (eql 20851.398f0) p1)) - (fceiling p1 80839863))) + (declare (optimize (speed 0) (safety 1) + (debug 0) (space 1)) + (type (eql 20851.398f0) p1)) + (fceiling p1 80839863))) 20851.398f0)) 1.0f0) @@ -10284,9 +10284,9 @@ Broken at C::WT-MAKE-CLOSURE. (deftest misc.562 (let ((fn '(lambda (p1) - (declare (optimize (speed 0) (safety 0) (debug 0) (space 2)) - (type (complex rational) p1)) - (log p1)))) + (declare (optimize (speed 0) (safety 0) (debug 0) (space 2)) + (type (complex rational) p1)) + (log p1)))) (notnot (complexp (funcall (compile nil fn) #C(-215549 39/40))))) t) @@ -10295,10 +10295,10 @@ Broken at C::WT-MAKE-CLOSURE. (deftest misc.563 (funcall (compile nil '(lambda (x) - (declare (optimize (speed 1) (safety 0) (debug 3) (space 1)) - (type (complex rational) x)) - (conjugate (the (eql #c(1 2)) x)))) - #c(1 2)) + (declare (optimize (speed 1) (safety 0) (debug 3) (space 1)) + (type (complex rational) x)) + (conjugate (the (eql #c(1 2)) x)))) + #c(1 2)) #c(1 -2)) ;;; PHASE @@ -10311,9 +10311,9 @@ Broken at C::WT-MAKE-CLOSURE. (compile nil '(lambda (p1) - (declare (optimize (speed 3) (safety 2) (debug 3) (space 0)) - (type complex p1)) - (phase (the (eql #c(1.0d0 2.0d0)) p1)))) + (declare (optimize (speed 3) (safety 2) (debug 3) (space 0)) + (type complex p1)) + (phase (the (eql #c(1.0d0 2.0d0)) p1)))) #c(1.0d0 2.0d0)) 'double-float)) t) @@ -10327,7 +10327,7 @@ Broken at C::WT-MAKE-CLOSURE. nil '(lambda (x) (declare (optimize (speed 2) (safety 1) (debug 3) (space 0)) - (type double-float x)) + (type double-float x)) (not (the (eql 1.0d0) x)))) 1.0d0) nil) @@ -10355,9 +10355,9 @@ Broken at C::WT-MAKE-CLOSURE. (compile nil '(lambda (p2) - (declare (optimize (speed 3) (safety 1) (debug 0) (space 1)) - (type (integer -26794287907 505600792) p2)) - (scale-float -15193.341216130497d0 (the (integer * 25) p2)))) + (declare (optimize (speed 3) (safety 1) (debug 0) (space 1)) + (type (integer -26794287907 505600792) p2)) + (scale-float -15193.341216130497d0 (the (integer * 25) p2)))) -4) (scale-float -15193.341216130497d0 -4)) t) @@ -10370,9 +10370,9 @@ Broken at C::WT-MAKE-CLOSURE. (values (funcall (compile nil '(lambda (p2) - (declare (optimize (speed 1) (safety 3) (debug 3) (space 1)) - (type (rational * 5325/3112) p2)) - (floor 13026.059 (the (member 5325/3112 0 -2316/167 -449/460) p2)))) + (declare (optimize (speed 1) (safety 3) (debug 3) (space 1)) + (type (rational * 5325/3112) p2)) + (floor 13026.059 (the (member 5325/3112 0 -2316/167 -449/460) p2)))) 5325/3112)) 7612) @@ -10391,8 +10391,8 @@ Broken at C::WT-MAKE-CLOSURE. ;;; Incorrect return value (deftest misc.570 (funcall (compile nil '(lambda () - (declare (optimize (speed 3) (safety 1))) - (char-equal #\: #\: #\;)))) + (declare (optimize (speed 3) (safety 1))) + (char-equal #\: #\: #\;)))) nil) ;;; CODE-CHAR returns incorrect result @@ -10401,14 +10401,14 @@ Broken at C::WT-MAKE-CLOSURE. (deftest misc.571 (and (< 1000 char-code-limit) (let ((c1 (code-char 1000)) - (c2 - (funcall (compile nil '(lambda (x) - (declare (optimize speed (safety 1))) - (code-char x))) - 1000))) - (if (not (eql c1 c2)) - (list c1 c2) - nil))) + (c2 + (funcall (compile nil '(lambda (x) + (declare (optimize speed (safety 1))) + (code-char x))) + 1000))) + (if (not (eql c1 c2)) + (list c1 c2) + nil))) nil) ;;; sbcl 0.8.20.19 @@ -10420,11 +10420,11 @@ Broken at C::WT-MAKE-CLOSURE. nil '(lambda (p4) (declare (optimize (speed 1) (safety 2) (debug 1) (space 1)) - (type (integer -59 65558) p4)) + (type (integer -59 65558) p4)) (string<= #.(coerce "1yapt1l7eeenz72u6xqhdfimcyk" 'base-string) - #.(coerce "bababababbbabbabbababb" 'base-string) - :start2 - (the (integer -3735 *) p4)))) + #.(coerce "bababababbbabbabbababb" 'base-string) + :start2 + (the (integer -3735 *) p4)))) 22) nil) @@ -10436,10 +10436,10 @@ Broken at C::WT-MAKE-CLOSURE. nil '(lambda (p4) (declare (optimize (speed 2) (safety 1) (debug 2) (space 2)) - (type unsigned-byte p4)) + (type unsigned-byte p4)) (string<= (coerce "pdhd5oeynvqlthz3xrrdycotf" 'base-string) - (coerce "" 'base-string) - :start1 (the (integer * 81) p4)))) + (coerce "" 'base-string) + :start1 (the (integer * 81) p4)))) 10) nil) @@ -10451,19 +10451,19 @@ Broken at C::WT-MAKE-CLOSURE. nil '(lambda (p4) (declare (optimize (speed 3) (safety 1) - (debug 1) (space 2)) - (type (integer * 397079023) p4)) - (string<= (coerce "e99mo7yAJ6oU4" 'base-string) - (coerce "aaABAAbaa" 'base-string) - :start1 - (the - (member -34 - 131074 - 67108872 - 9 - -3305367300 - 335) - p4)))) + (debug 1) (space 2)) + (type (integer * 397079023) p4)) + (string<= (coerce "e99mo7yAJ6oU4" 'base-string) + (coerce "aaABAAbaa" 'base-string) + :start1 + (the + (member -34 + 131074 + 67108872 + 9 + -3305367300 + 335) + p4)))) 9) 9) @@ -10491,8 +10491,8 @@ Broken at C::WT-MAKE-CLOSURE. (deftest misc.578 (funcall (compile nil '(lambda (p1) (declare (optimize safety)) (the (string 1) p1))) - (make-array '(1) :element-type 'base-char :initial-element #\x - :fill-pointer 0)) + (make-array '(1) :element-type 'base-char :initial-element #\x + :fill-pointer 0)) "") ;;; clisp (11 Jan 2005) @@ -10502,8 +10502,8 @@ Broken at C::WT-MAKE-CLOSURE. (deftest misc.579 (funcall (compile nil '(lambda () - (declare (optimize (speed 3) (safety 3) (debug 3) (space 0))) - (member 61 '(432445) :allow-other-keys t :foo t)))) + (declare (optimize (speed 3) (safety 3) (debug 3) (space 0))) + (member 61 '(432445) :allow-other-keys t :foo t)))) nil) ;;; sbcl 0.8.20.19 @@ -10520,8 +10520,8 @@ Broken at C::WT-MAKE-CLOSURE. (floatp (funcall (compile nil '(lambda (x) - (declare (type (eql -5067.2056) x)) - (+ 213734822 x))) + (declare (type (eql -5067.2056) x)) + (+ 213734822 x))) -5067.2056))) t) @@ -10530,9 +10530,9 @@ Broken at C::WT-MAKE-CLOSURE. (typep (funcall (compile nil '(lambda (x) (declare (type (eql -1.0) x)) - ;;; Note! #x1000001 is the least positive integer - ;;; for which this fails on x86 - (+ #x1000001 x))) + ;;; Note! #x1000001 is the least positive integer + ;;; for which this fails on x86 + (+ #x1000001 x))) -1.0f0) 'single-float)) t) @@ -10578,9 +10578,9 @@ Broken at C::WT-MAKE-CLOSURE. nil '(lambda (p1 p2) (declare (optimize (speed 1) (safety 1) (debug 0) (space 1)) - (type (member -3712.8447) p1) - (type (integer -34359738403 -24) p2)) - (scale-float p1 p2))) + (type (member -3712.8447) p1) + (type (integer -34359738403 -24) p2)) + (scale-float p1 p2))) -3712.8447 -27) (scale-float -3712.8447 -27)) t) @@ -10591,9 +10591,9 @@ Broken at C::WT-MAKE-CLOSURE. (deftest misc.585 (funcall (compile nil '(lambda (p1) - (declare (optimize (speed 0) (safety 0) (debug 3) (space 3)) - (type symbol p1)) - (copy-list p1))) + (declare (optimize (speed 0) (safety 0) (debug 3) (space 3)) + (type symbol p1)) + (copy-list p1))) nil) nil) @@ -10605,10 +10605,10 @@ Broken at C::WT-MAKE-CLOSURE. nil '(lambda (p6) (declare (optimize (speed 0) (safety 2) (debug 0) (space 0)) - (type (integer -2 3009181) p6)) + (type (integer -2 3009181) p6)) (string> (coerce "ababaaabb" 'base-string) - (coerce "ubbm" 'base-string) - :start1 2 :start2 p6 :end1 8))) + (coerce "ubbm" 'base-string) + :start1 2 :start2 p6 :end1 8))) 4) 2) @@ -10617,13 +10617,13 @@ Broken at C::WT-MAKE-CLOSURE. (deftest misc.587 (let ((result (funcall - (compile - nil - '(lambda (p2) - (declare (optimize (speed 0) (safety 3) (debug 1) (space 0)) - (type (eql 33558541) p2)) - (- 92215.266 p2))) - 33558541))) + (compile + nil + '(lambda (p2) + (declare (optimize (speed 0) (safety 3) (debug 1) (space 0)) + (type (eql 33558541) p2)) + (- 92215.266 p2))) + 33558541))) (notnot (typep result 'single-float))) t) @@ -10632,7 +10632,7 @@ Broken at C::WT-MAKE-CLOSURE. (deftest misc.588 (funcall (compile nil '(lambda nil (declare (optimize (speed 2) (safety 1) (debug 1) (space 1))) - (functionp 3502843)))) + (functionp 3502843)))) nil) ;;; (ARRAY NIL) is an illegal type specifier. @@ -10651,9 +10651,9 @@ Broken at C::WT-MAKE-CLOSURE. (deftest misc.591 (let* ((s1 (coerce "708553218828630100500" 'base-string)) - (s2 (make-array '(13) :element-type 'base-char - :displaced-to s1 - :displaced-index-offset 5))) + (s2 (make-array '(13) :element-type 'base-char + :displaced-to s1 + :displaced-index-offset 5))) (parse-integer s2)) 3218828630100 13) @@ -10675,12 +10675,12 @@ Broken at C::WT-MAKE-CLOSURE. '(lambda (a b) (declare (ignorable a b)) (declare (optimize (space 3) (debug 0) (safety 1) - (compilation-speed 3) (speed 1))) + (compilation-speed 3) (speed 1))) (prog2 - (catch 'ct1 (if (or (and t (not (and (and (or a t) nil) nil))) nil) - a - (reduce #'(lambda (lmv5 lmv2) 0) (vector b 0 a)))) - 0))) + (catch 'ct1 (if (or (and t (not (and (and (or a t) nil) nil))) nil) + a + (reduce #'(lambda (lmv5 lmv2) 0) (vector b 0 a)))) + 0))) 2212755 3154856) 0) @@ -10694,10 +10694,10 @@ Broken at C::WT-MAKE-CLOSURE. '(lambda (a b c) (declare (ignorable a b c)) (declare (type (integer -1 0) a) - (type (integer -1065019672 -181184465) b) - (type (integer 30074 1948824693) c)) + (type (integer -1065019672 -181184465) b) + (type (integer 30074 1948824693) c)) (declare (optimize (safety 2) (compilation-speed 1) (speed 2) - (space 0) (debug 0))) + (space 0) (debug 0))) (ash c (min 82 -28192897)))) 0 -714979492 1474663829) 0) @@ -10719,8 +10719,8 @@ Broken at C::WT-MAKE-CLOSURE. (compile nil `(lambda () - (declare (optimize (speed 0) (safety 3) (debug 2) (space 1))) - (typep ,s '(string 1))))))) + (declare (optimize (speed 0) (safety 3) (debug 2) (space 1))) + (typep ,s '(string 1))))))) t) @@ -10729,11 +10729,11 @@ Broken at C::WT-MAKE-CLOSURE. (deftest misc.597 (funcall (compile nil '(lambda (c) - (declare (optimize (speed 1) (compilation-speed 2) - (space 1) (debug 1) (safety 2))) - (declare (type (integer 1 41) c)) - (logxor -1 c))) - 8) + (declare (optimize (speed 1) (compilation-speed 2) + (space 1) (debug 1) (safety 2))) + (declare (type (integer 1 41) c)) + (logxor -1 c))) + 8) -9) ;;; SBCL 0.9.1.19 @@ -10741,11 +10741,11 @@ Broken at C::WT-MAKE-CLOSURE. (deftest misc.598 (funcall (compile nil '(lambda (p1) - (declare (optimize (speed 2) (safety 0) (debug 3) - (space 1)) - (type short-float p1)) - (imagpart (the short-float p1)))) - -79916.61s0) + (declare (optimize (speed 2) (safety 0) (debug 3) + (space 1)) + (type short-float p1)) + (imagpart (the short-float p1)))) + -79916.61s0) -0.0s0) ;;; The value 20408096470 is not of type (INTEGER 19856842407 20640917103) @@ -10757,7 +10757,7 @@ Broken at C::WT-MAKE-CLOSURE. '(lambda (b) (declare (type (integer 19856842407 20640917103) b)) (declare (optimize (debug 1) (speed 3) (compilation-speed 2) - (safety 3) (space 3))) + (safety 3) (space 3))) (lognand b (deposit-field b (byte 0 0) 3762528061)))) 20408096470) -3225589269) @@ -10772,7 +10772,7 @@ Broken at C::WT-MAKE-CLOSURE. '(lambda () (declare (notinline min ash)) (declare (optimize (speed 0) (debug 1) (safety 1) - (space 1) (compilation-speed 3))) + (space 1) (compilation-speed 3))) (logxor (ash 0 (min 90 0)) 0)))) 0) @@ -10783,8 +10783,8 @@ Broken at C::WT-MAKE-CLOSURE. '(lambda () (declare (notinline gcd)) (declare - (optimize (debug 3) (space 3) (safety 3) - (compilation-speed 2) (speed 3))) + (optimize (debug 3) (space 3) (safety 3) + (compilation-speed 2) (speed 3))) (logeqv 0 (gcd 0))))) -1) @@ -10819,9 +10819,9 @@ Broken at C::WT-MAKE-CLOSURE. (deftest misc.605 (let ((form '(lambda (p1 p2) - (declare (optimize (speed 3) (safety 1) (debug 0) (space 0)) - (type number p1) (type (float 0.0 3579.314s0) p2)) - (eql (the real p1) p2)))) + (declare (optimize (speed 3) (safety 1) (debug 0) (space 0)) + (type number p1) (type (float 0.0 3579.314s0) p2)) + (eql (the real p1) p2)))) (not (funcall (compile nil form) 3579.314s0 3579.314s0))) nil) @@ -10829,8 +10829,8 @@ Broken at C::WT-MAKE-CLOSURE. (deftest misc.606 (let ((form '(lambda () - (declare (optimize (speed 3) (safety 2) (debug 3) (space 2))) - (equal #\a #c(-1775806.0s0 88367.29s0))))) + (declare (optimize (speed 3) (safety 2) (debug 3) (space 2))) + (equal #\a #c(-1775806.0s0 88367.29s0))))) (funcall (compile nil form))) nil) @@ -10838,45 +10838,55 @@ Broken at C::WT-MAKE-CLOSURE. (deftest misc.607 (funcall (compile nil '(lambda () - (declare (optimize (speed 0) (safety 2) (debug 2) (space 2))) - (equal #*1 1)))) + (declare (optimize (speed 0) (safety 2) (debug 2) (space 2))) + (equal #*1 1)))) nil) ;;; Error in COMPILER::CMP-ANON [or a callee]: #\& is not of type FIXNUM. (deftest misc.608 (funcall (compile nil '(lambda (p1) - (declare (optimize (speed 3) (safety 2) (debug 3) (space 3)) - (type (integer -62603278 -31187) p1)) - (equal p1 #\&))) - -31228) + (declare (optimize (speed 3) (safety 2) (debug 3) (space 3)) + (type (integer -62603278 -31187) p1)) + (equal p1 #\&))) + -31228) nil) ;;; Wrong return value (was returning T) (deftest misc.609 (funcall (compile nil '(lambda () - (declare (optimize (speed 0) (safety 0) (debug 0) (space 3))) - (equalp "b" #*)))) + (declare (optimize (speed 0) (safety 0) (debug 0) (space 3))) + (equalp "b" #*)))) nil) ;;; Error in COMPILER::CMP-ANON [or a callee]: 7933992 is not of type SYMBOL. (deftest misc.610 (not (funcall (compile nil '(lambda (p2) - (declare (optimize (speed 1) (safety 1) (debug 3) (space 2)) - (type (cons symbol) p2)) - (typep -32 p2))) - '(eql -32))) + (declare (optimize (speed 1) (safety 1) (debug 3) (space 2)) + (type (cons symbol) p2)) + (typep -32 p2))) + '(eql -32))) nil) ;;; Error in CAR [or a callee]: -757161859 is not of type LIST. (deftest misc.611 (funcall (compile nil '(lambda (p1) - (declare (optimize (speed 1) (safety 3) (debug 0) (space 2)) - (type (cons atom) p1)) - (car p1))) - '(48144509 . a)) + (declare (optimize (speed 1) (safety 3) (debug 0) (space 2)) + (type (cons atom) p1)) + (car p1))) + '(48144509 . a)) 48144509) +;;; gcl (09 Aug 2005) +;;; Error in COMPILER::POSSIBLE-EQ-LIST-SEARCH [or a callee]: COMPILER::POSSIBLE-EQ-LIST-SEARCH does not allow the keyword :B. + +(deftest misc.612 + (funcall + (compile nil '(lambda (p1 p2) + ((lambda (x y) (typep x (type-of y))) p1 + (the (member "foo" #\- :b "bar") p2)))) + #*1 :b) + nil) -- GitLab