Parent Directory | Revision Log | Patch
revision 1.27 by kryde, Tue Jul 8 00:32:01 2003 UTC | revision 1.28 by kryde, Fri Jul 18 00:01:55 2003 UTC | |
---|---|---|
# | Line 1790 | Line 1790 |
1790 | ;;; * | ;;; * |
1791 | ;;; | ;;; |
1792 | ||
1793 | (with-test-prefix "*" | |
1794 | ||
1795 | (pass-if "complex * bignum" | |
1796 | (let ((big (ash 1 90))) | |
1797 | (= (make-rectangular big big) | |
1798 | (* 1+1i big))))) | |
1799 | ||
1800 | ;;; | ;;; |
1801 | ;;; / | ;;; / |
1802 | ;;; | ;;; |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |