24 lines
1.3 KiB
Plaintext
24 lines
1.3 KiB
Plaintext
(FILECREATED "24-Oct-2020 21:11:17" ("compiled on "
|
||
{DSK}<home>larry>ilisp>ENVOS>MISC>TEST>Tools>TEST-ARITHMETIC-UTILS.;1) " 9-Apr-2000 18:01:32" bcompl'd
|
||
in "Medley 3.5 PARC Full Sysout 4-Nov-2003 ..." dated " 4-Nov-2003 23:32:48")
|
||
(FILECREATED "23-Jul-85 12:55:55" {DSK}<LISPFILES>TESTER>SOURCES>TEST-ARITHMETIC-UTILS.;3 1675 changes
|
||
to: (VARS TEST-ARITHMETIC-UTILSCOMS TEST.BIGNUM-SPECIAL-NUMBERS) (FNS
|
||
TEST.GENERAL-IPLUS-SUCCESS-PREDICATE) previous date: "11-Jul-85 11:05:16"
|
||
{DSK}<LISPFILES>TESTER>TEST-ARITHMETIC-UTILS.;1)
|
||
TEST.GENERAL-IPLUS-SUCCESS-PREDICATE D8
|
||
(I 1 ARGUMENTS I 0 RESULT) 7 @ ³ A‹d @HÙb µó@jð³@µg ²õg (45 \FZEROP 5 TEST.ERRORP)
|
||
(52 SUCCESS 39 FAILURE)
|
||
()
|
||
TEST.NON-NUMERIC-ERROR D8
|
||
(I 1 ARGS I 0 RES) @ ²@l
|
||
|
||
•g g (17 EQP 5 TEST.ERRORP)
|
||
(29 FAILURE 23 SUCCESS)
|
||
()
|
||
(PRETTYCOMPRINT TEST-ARITHMETIC-UTILSCOMS)
|
||
(RPAQQ TEST-ARITHMETIC-UTILSCOMS ((FNS TEST.GENERAL-IPLUS-SUCCESS-PREDICATE TEST.NON-NUMERIC-ERROR) (
|
||
VARS TEST.BIGNUM-SPECIAL-NUMBERS)))
|
||
(RPAQQ TEST.BIGNUM-SPECIAL-NUMBERS (0 1 -1 16382 -16382 16383 -16383 16384 -16384 32766 -32766 32767
|
||
-32767 32768 -32768 65534 -65534 65536 -65536 16777214 -16777214 16777215 -16777215 16777216 -16777216
|
||
134217726 -134217726 134217727 -134217727 134217728 -134217728))
|
||
(PUTPROPS TEST-ARITHMETIC-UTILS COPYRIGHT ("Xerox Corporation" 1985))
|
||
NIL
|