1433 |
(funcall |
(funcall |
1434 |
(compile |
(compile |
1435 |
nil |
nil |
1436 |
'(lambda (a) |
'(lambda (a b) |
1437 |
(declare (optimize (speed 1) (space 1) (safety 1) (debug 3) |
(declare (optimize (speed 1) (space 1) (safety 1) (debug 3) |
1438 |
(compilation-speed 1))) |
(compilation-speed 1))) |
1439 |
(catch 'ct4 |
(catch 'ct4 |
1444 |
((-31 -150) a) |
((-31 -150) a) |
1445 |
(t b))) |
(t b))) |
1446 |
(throw 'ct4 0))))) |
(throw 'ct4 0))))) |
1447 |
10) |
10 20) |
1448 |
0) |
0) |
1449 |
|
|
1450 |
(deftest misc.107e |
(deftest misc.107e |
7518 |
;;; "The value #<SB-C::COMBINATION :FUN # :ARGS (# # #) {C44D1C1}> |
;;; "The value #<SB-C::COMBINATION :FUN # :ARGS (# # #) {C44D1C1}> |
7519 |
;;; is not of type SB-C::REF." |
;;; is not of type SB-C::REF." |
7520 |
|
|
|
|
|
7521 |
(deftest misc.392 |
(deftest misc.392 |
7522 |
(funcall |
(funcall |
7523 |
(compile |
(compile |
7529 |
(prog2 0 0 (loop for lv4 below 3 count (or b (/= b)))))) |
(prog2 0 0 (loop for lv4 below 3 count (or b (/= b)))))) |
7530 |
1 2) |
1 2) |
7531 |
0) |
0) |
7532 |
|
|
7533 |
|
;;; cmucl (2004-09 snapshot) |
7534 |
|
;;; "Error in function C::CORE-CALL-TOP-LEVEL-LAMBDA: |
7535 |
|
;;; Unresolved forward reference." |
7536 |
|
;;; (in C::CORE-CALL-TOP-LEVEL-LAMBDA) |
7537 |
|
|
7538 |
|
(deftest misc.393 |
7539 |
|
(funcall |
7540 |
|
(compile |
7541 |
|
nil |
7542 |
|
'(lambda (a b) |
7543 |
|
(declare (type (integer -995205 1035654) a)) |
7544 |
|
(declare (type (integer 473 114804994247) b)) |
7545 |
|
(declare (ignorable a b)) |
7546 |
|
#+cmucl (declare (optimize (extensions:inhibit-warnings 3))) |
7547 |
|
(declare |
7548 |
|
(optimize (debug 3) (speed 2) (compilation-speed 0) (space 3) |
7549 |
|
(safety 3))) |
7550 |
|
(labels ((%f7 |
7551 |
|
(f7-1 f7-2 f7-3 |
7552 |
|
&optional (f7-4 (lcm (if (>= b a) 0 a))) (f7-5 0) |
7553 |
|
&key) |
7554 |
|
0)) |
7555 |
|
(progn (%f7 (%f7 b a a b) b 0) 0)))) |
7556 |
|
447930 66120263479) |
7557 |
|
0) |
7558 |
|
|
7559 |
|
(deftest misc.393a |
7560 |
|
(funcall |
7561 |
|
(compile |
7562 |
|
nil |
7563 |
|
'(lambda (a b) |
7564 |
|
(declare (type (integer -76 86) a)) |
7565 |
|
(declare (type (integer -13771285280 109) b)) |
7566 |
|
(declare (ignorable a b)) |
7567 |
|
#+cmucl (declare (optimize (extensions:inhibit-warnings 3))) |
7568 |
|
(declare |
7569 |
|
(optimize (safety 3) (space 1) (debug 2) (compilation-speed 3) |
7570 |
|
(speed 3))) |
7571 |
|
(dotimes (iv1 2 0) |
7572 |
|
(case (min -3693810 a iv1) ((26 -4) (ldb (byte 13 0) a)) (t b))))) |
7573 |
|
56 -1579426331) |
7574 |
|
0) |
7575 |
|
|
7576 |
|
;;; cmucl (2004-09 snapshot) |
7577 |
|
;;; Wrong values |
7578 |
|
|
7579 |
|
(deftest misc.394 |
7580 |
|
(funcall |
7581 |
|
(compile |
7582 |
|
nil |
7583 |
|
'(lambda (a b) |
7584 |
|
(declare (type (integer -76645001 98715919) a)) |
7585 |
|
(declare (type (integer 0 856472753903) b)) |
7586 |
|
(declare (ignorable a b)) |
7587 |
|
#+cmucl (declare (optimize (extensions:inhibit-warnings 3))) |
7588 |
|
(declare |
7589 |
|
(optimize (speed 2) (space 0) (debug 3) (compilation-speed 0) |
7590 |
|
(safety 3))) |
7591 |
|
(logeqv 0 b))) |
7592 |
|
-34528661 843541658238) |
7593 |
|
-843541658239) |
7594 |
|
|
7595 |
|
(deftest misc.395 |
7596 |
|
(funcall |
7597 |
|
(compile |
7598 |
|
nil |
7599 |
|
'(lambda (a b) |
7600 |
|
(declare (type (integer 6429252570156 8761983588786) a)) |
7601 |
|
(declare (type (integer -400378288 4971722) b)) |
7602 |
|
(declare (ignorable a b)) |
7603 |
|
#+cmucl (declare (optimize (extensions:inhibit-warnings 3))) |
7604 |
|
(declare |
7605 |
|
(optimize (debug 3) (speed 3) (space 2) (safety 0) |
7606 |
|
(compilation-speed 3))) |
7607 |
|
(+ (shiftf a 8496033756259) (min 0 b)))) |
7608 |
|
8369430915156 -369704905) |
7609 |
|
8369061210251) |
7610 |
|
|
7611 |
|
;;; "The assertion (EQ (CAR C::STACK) C::CONT) failed." |
7612 |
|
(deftest misc.396 |
7613 |
|
(funcall |
7614 |
|
(compile |
7615 |
|
nil |
7616 |
|
'(lambda (a b) |
7617 |
|
(declare (type (integer -1601 485) a)) |
7618 |
|
(declare (type (integer -190428560464 -1444494) b)) |
7619 |
|
(declare (ignorable a b)) |
7620 |
|
#+cmucl (declare (optimize (extensions:inhibit-warnings 3))) |
7621 |
|
(declare |
7622 |
|
(optimize (debug 0) (space 2) (speed 0) (safety 3) |
7623 |
|
(compilation-speed 2))) |
7624 |
|
(apply (constantly 0) 0 (list (signum b))))) |
7625 |
|
-1365 -46960621335) |
7626 |
|
0) |
7627 |
|
|
7628 |
|
;;; "The assertion (EQ (C::FUNCTIONAL-KIND (C::LAMBDA-HOME C::FUN)) |
7629 |
|
;;; :TOP-LEVEL) failed." |
7630 |
|
(deftest misc.397 |
7631 |
|
(funcall |
7632 |
|
(compile |
7633 |
|
nil |
7634 |
|
'(lambda (a b) |
7635 |
|
(declare (type (integer -168258525920 -2044) a)) |
7636 |
|
(declare (type (integer -522 54) b)) |
7637 |
|
(declare (ignorable a b)) |
7638 |
|
#+cmucl (declare (optimize (extensions:inhibit-warnings 3))) |
7639 |
|
(declare |
7640 |
|
(optimize (speed 0) (safety 3) (compilation-speed 1) (space 0) |
7641 |
|
(debug 2))) |
7642 |
|
(labels ((%f4 (f4-1 f4-2 &key) |
7643 |
|
(flet ((%f7 (f7-1 f7-2 f7-3 &optional &key (key1 a)) |
7644 |
|
(progv '(*s1* *s6* *s2*) (list a 0 key1) f4-1))) |
7645 |
|
f4-2))) |
7646 |
|
(apply #'%f4 (list a 0))))) |
7647 |
|
-156882103995 -38) |
7648 |
|
0) |
7649 |
|
|
7650 |
|
;;; "Error in function C::CLOSURE-POSITION: |
7651 |
|
;;; Can't find #<C::LAMBDA-VAR #x594259BD |
7652 |
|
;;; NAME= IV1 |
7653 |
|
;;; TYPE= #<NUMERIC-TYPE (MOD 3)>>" |
7654 |
|
(deftest misc.398 |
7655 |
|
(funcall |
7656 |
|
(compile |
7657 |
|
nil |
7658 |
|
'(lambda (a b) |
7659 |
|
(declare (type (integer -319 7353) a)) |
7660 |
|
(declare (type (integer 31751 4233916489) b)) |
7661 |
|
(declare (ignorable a b)) |
7662 |
|
#+cmucl (declare (optimize (extensions:inhibit-warnings 3))) |
7663 |
|
(declare |
7664 |
|
(optimize (safety 3) (compilation-speed 1) (debug 1) (speed 0) |
7665 |
|
(space 0))) |
7666 |
|
(conjugate |
7667 |
|
(if t |
7668 |
|
(labels ((%f12 (f12-1 f12-2 f12-3) |
7669 |
|
0)) |
7670 |
|
(%f12 0 b 0)) |
7671 |
|
(dotimes (iv1 2 0) (catch 'ct2 a)))))) |
7672 |
|
4430 3476635674) |
7673 |
|
0) |
7674 |
|
|
7675 |
|
;;; "NIL is not of type C::CONTINUATION" |
7676 |
|
;;; in C::FIND-PUSHED-CONTINUATIONS |
7677 |
|
(deftest misc.399 |
7678 |
|
(funcall |
7679 |
|
(compile |
7680 |
|
nil |
7681 |
|
'(lambda (a) |
7682 |
|
(declare (type (integer -3 1) a)) |
7683 |
|
(declare (ignorable a)) |
7684 |
|
#+cmucl (declare (optimize (extensions:inhibit-warnings 3))) |
7685 |
|
(declare |
7686 |
|
(optimize (space 0) (debug 0) (speed 3) (compilation-speed 2) |
7687 |
|
(safety 3))) |
7688 |
|
(catch 'ct8 (logior a -457019 -1)))) |
7689 |
|
0) |
7690 |
|
-1) |
7691 |
|
|
7692 |
|
;;; Wrong value |
7693 |
|
(deftest misc.400 |
7694 |
|
(funcall |
7695 |
|
(compile |
7696 |
|
nil |
7697 |
|
'(lambda (a) |
7698 |
|
(declare (type (integer 3376 4762) a)) |
7699 |
|
(declare (ignorable a)) |
7700 |
|
#+cmucl (declare (optimize (extensions:inhibit-warnings 3))) |
7701 |
|
(declare |
7702 |
|
(optimize (debug 0) (safety 0) (space 0) (compilation-speed 3) |
7703 |
|
(speed 3))) |
7704 |
|
(case (lognand 775 a) ((-7) 0) (t 4)))) |
7705 |
|
4182) |
7706 |
|
0) |
7707 |
|
|
7708 |
|
;;; Invalid number of arguments: 1 |
7709 |
|
(deftest misc.401 |
7710 |
|
(funcall |
7711 |
|
(compile |
7712 |
|
nil |
7713 |
|
'(lambda (a) |
7714 |
|
(declare (type (integer 7299 257071514003) a)) |
7715 |
|
(declare (ignorable a)) |
7716 |
|
#+cmucl (declare (optimize (extensions:inhibit-warnings 3))) |
7717 |
|
(declare |
7718 |
|
(optimize (compilation-speed 2) (space 1) (safety 2) (speed 1) |
7719 |
|
(debug 2))) |
7720 |
|
(logeqv (setq a 220250126156) 0))) |
7721 |
|
157474319912) |
7722 |
|
-220250126157) |
7723 |
|
|
7724 |
|
;;; "The assertion (EQ (CAR C::NEW-STACK) C::CONT) failed." |
7725 |
|
(deftest misc.402 |
7726 |
|
(funcall |
7727 |
|
(compile |
7728 |
|
nil |
7729 |
|
'(lambda (a) |
7730 |
|
(declare (type (integer -19116544 21344004) a)) |
7731 |
|
(declare (ignorable a)) |
7732 |
|
#+cmucl (declare (optimize (extensions:inhibit-warnings 3))) |
7733 |
|
(declare |
7734 |
|
(optimize (space 1) (safety 3) (debug 1) (compilation-speed 0) |
7735 |
|
(speed 0))) |
7736 |
|
(dotimes (iv3 2 0) |
7737 |
|
(progn |
7738 |
|
(apply (constantly 0) |
7739 |
|
(list |
7740 |
|
(let* ((*s1* 0)) |
7741 |
|
*s1*))) |
7742 |
|
0)))) |
7743 |
|
10) |
7744 |
|
0) |
7745 |
|
|
7746 |
|
;;; "The assertion C::INDIRECT failed." |
7747 |
|
(deftest misc.403 |
7748 |
|
(funcall |
7749 |
|
(compile |
7750 |
|
nil |
7751 |
|
'(lambda (a) |
7752 |
|
(declare (type (integer -6456 -32) a)) |
7753 |
|
(declare (ignorable a)) |
7754 |
|
#+cmucl (declare (optimize (extensions:inhibit-warnings 3))) |
7755 |
|
(declare |
7756 |
|
(optimize (space 3) (safety 1) (compilation-speed 1) (speed 0) |
7757 |
|
(debug 0))) |
7758 |
|
(dotimes (iv1 0 a) (loop for lv4 below 3 sum (catch 'ct8 0))))) |
7759 |
|
-1648) |
7760 |
|
-1648) |
7761 |
|
|
7762 |
|
|
7763 |
|
|
7764 |
|
|
7765 |
|
|
7766 |
|
|
7767 |
|
|