660 |
(funcall |
(funcall |
661 |
(compile |
(compile |
662 |
nil |
nil |
663 |
'(LAMBDA (B C) |
'(lambda (b c) |
664 |
(DECLARE (TYPE (INTEGER 0 1) B) (OPTIMIZE (SPEED 3))) |
(declare (type (integer 0 1) b) (optimize (speed 3))) |
665 |
(FLET ((%F2 () (LOGNOR (BLOCK B5 138) C))) |
(flet ((%f2 () (lognor (block b5 138) c))) |
666 |
(IF (NOT (OR (= -67399 B) B)) |
(if (not (or (= -67399 b) b)) |
667 |
(DEPOSIT-FIELD (%F2) (BYTE 11 8) -3) |
(deposit-field (%f2) (byte 11 8) -3) |
668 |
C)))) |
c)))) |
669 |
0 0) |
0 0) |
670 |
0) |
0) |
671 |
|
|
|
|
|
672 |
|
(deftest misc.47 |
673 |
|
(funcall |
674 |
|
(compile |
675 |
|
nil |
676 |
|
'(lambda (a) |
677 |
|
(declare (type (integer -4005718822 -50081775) a) |
678 |
|
(optimize (speed 3) (safety 1) (debug 1))) |
679 |
|
(lognor (ash a (min 0 a)) a))) |
680 |
|
-2878148992) |
681 |
|
0) |
682 |
|
|
683 |
|
(deftest misc.48 |
684 |
|
(funcall |
685 |
|
(compile |
686 |
|
nil |
687 |
|
'(lambda (a) (declare (notinline ash min)) (lognor (ash a (min 0 a)) a))) |
688 |
|
-2878148992) |
689 |
|
0) |
690 |
|
|
691 |
|
(deftest misc.49 |
692 |
|
(let ((body '(truncate (logorc1 -996082 C) -2)) |
693 |
|
(arg 25337234)) |
694 |
|
(values |
695 |
|
(funcall (compile nil `(lambda (c) ,body)) arg) |
696 |
|
(funcall (compile nil `(lambda (c) (declare (notinline truncate)) |
697 |
|
,body)) arg))) |
698 |
|
-13099001 |
699 |
|
-13099001) |
700 |
|
|
701 |
|
(deftest misc.50 |
702 |
|
(funcall (compile nil `(lambda (c) |
703 |
|
(declare (optimize (speed 3)) |
704 |
|
(type (integer 23062188 149459656) c)) |
705 |
|
(mod c (min -2 0)))) |
706 |
|
95019853) |
707 |
|
-1) |
708 |
|
|
709 |
|
(deftest misc.51 |
710 |
|
(funcall (compile nil `(lambda (b) |
711 |
|
(declare (optimize (speed 3)) |
712 |
|
(type (integer 2 152044363) b)) |
713 |
|
(rem b (min -16 0)))) |
714 |
|
108251912) |
715 |
|
8) |