(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 8-Jan-87 10:58:38" ("compiled on " {ERIS}LISPCORE>UNBOXEDOPS.;7) "30-Dec-86 11:35:10" "COMPILE-FILEd" in "Xerox Lisp 30-Dec-86 ..." dated "30-Dec-86 12:05:28") (FILECREATED " 7-Dec-86 17:26:23" {ERIS}LISPCORE>UNBOXEDOPS.;7 12906 changes to%: ( OPTIMIZERS UFREMAINDER2 UFREMAINDER) (FNS UFREMAINDER) (VARS UNBOXEDOPSCOMS) previous date%: " 3-Nov-86 20:30:24" {ERIS}LISPCORE>UNBOXEDOPS.;6) (RPAQQ UNBOXEDOPSCOMS ((FNS UFABS UFEQP UFGEQ UFGREATERP UFIX UFLEQ UFLESSP UFMAX UFMIN UFMINUS UFREMAINDER) (OPTIMIZERS UFABS UFABS1 UFEQP UFEQP2 UFGEQ UFGEQ2 UFGREATERP UFGREATERP2 UFIX UFIX1 UFLEQ UFLEQ2 UFLESSP UFLESSP2 UFMAX UFMAX2 UFMIN UFMIN2 UFMINUS UFMINUS1 UFREMAINDER) (PROP FILETYPE UNBOXEDOPS) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY (LOCALVARS . T)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA UFMIN UFMAX))))) UFABS :D4 (L (0 X)) @NIL NIL () UFEQP :D4 (L (1 Y 0 X)) @A (4 FEQP) NIL () UFGEQ :D4 (L (1 Y 0 X)) A@hNIL NIL () UFGREATERP :D4 (L (1 Y 0 X)) @ANIL NIL () UFIX :D4 (L (0 X)) @jNIL NIL () UFLEQ :D4 (L (1 Y 0 X)) @AhNIL NIL () UFLESSP :D4 (L (1 Y 0 X)) A@NIL NIL () UFMAX :D4 (L (0 ARGS)) !eHk`JdIKaKJaJkZNIL (8 MIN.FLOAT) () UFMIN :D4 (L (0 ARGS)) "eHk`JdIKaKJaJkZNIL (8 MAX.FLOAT) () UFMINUS :D4 (L (0 X)) @ (3 FMINUS) NIL () UFREMAINDER :D4 (L (1 Y 0 X)) @AHdIINIL NIL () optimize-UFABS :D4 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) _@AHdHhhH@JK>oi i oi ki ki Li i oi i gIh(84 TERPRI 79 PRIN1 70 TERPRI 65 PRIN1 59 SPACES 53 SPACES 47 PRIN1 38 TERPRI 33 PRIN1) (88 UFABS1) ( 75 "************" 43 "Illegal args to UFABS" 29 "************") (LET* ((A1491 (QUOTE UFABS)) (A1492 (QUOTE COMPILER:OPTIMIZER-LIST)) (A1494 (CL:ADJOIN (QUOTE optimize-UFABS) (GET A1491 A1492)))) (PUTPROP A1491 A1492 A1494)) optimize-UFABS1 :D4 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @gogHhhhNIL (15 \FLOATUNBOX 8 \FLOATBOX) ( 12 (OPCODES UBFLOAT1 2)) (LET* ((A1496 (QUOTE UFABS1)) (A1497 (QUOTE COMPILER:OPTIMIZER-LIST)) (A1499 (CL:ADJOIN (QUOTE optimize-UFABS1) (GET A1496 A1497)))) (PUTPROP A1496 A1497 A1499)) optimize-UFEQP :D4 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) s@q@HdHhhH\dLhhL_KNO>oi i oi ki ki Ii i oi i gJMh(102 TERPRI 97 PRIN1 88 TERPRI 83 PRIN1 77 SPACES 71 SPACES 65 PRIN1 56 TERPRI 51 PRIN1) (106 UFEQP2) ( 93 "************" 61 "Illegal args to UFEQP" 47 "************") (LET* ((A1503 (QUOTE UFEQP)) (A1504 (QUOTE COMPILER:OPTIMIZER-LIST)) (A1506 (CL:ADJOIN (QUOTE optimize-UFEQP) (GET A1503 A1504)))) (PUTPROP A1503 A1504 A1506)) optimize-UFEQP2 :D4 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) &@!HHgggIJhhoNIL (20 FDIFFERENCE 17 \FLOATUNBOX 14 EQ) ( 33 (NIL)) (LET* ((A1508 (QUOTE UFEQP2)) (A1509 (QUOTE COMPILER:OPTIMIZER-LIST)) (A1511 (CL:ADJOIN (QUOTE optimize-UFEQP2) (GET A1508 A1509)))) (PUTPROP A1508 A1509 A1511)) optimize-UFGEQ :D4 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) s@q@HdHhhH\dLhhL_KNO>oi i oi ki ki Ii i oi i gJMh(102 TERPRI 97 PRIN1 88 TERPRI 83 PRIN1 77 SPACES 71 SPACES 65 PRIN1 56 TERPRI 51 PRIN1) (106 UFGEQ2) ( 93 "************" 61 "Illegal args to UFGEQ" 47 "************") (LET* ((A1515 (QUOTE UFGEQ)) (A1516 (QUOTE COMPILER:OPTIMIZER-LIST)) (A1518 (CL:ADJOIN (QUOTE optimize-UFGEQ) (GET A1515 A1516)))) (PUTPROP A1515 A1516 A1518)) optimize-UFGEQ2 :D4 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) *@!HHgogIhgJhhhNIL (28 \FLOATUNBOX 21 \FLOATUNBOX 14 NOT) ( 18 (OPCODES SWAP UBFLOAT2 5)) (LET* ((A1520 (QUOTE UFGEQ2)) (A1521 (QUOTE COMPILER:OPTIMIZER-LIST)) (A1523 (CL:ADJOIN (QUOTE optimize-UFGEQ2) (GET A1520 A1521)))) (PUTPROP A1520 A1521 A1523)) optimize-UFGREATERP :D4 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) s@q@HdHhhH\dLhhL_KNO>oi i oi ki ki Ii i oi i gJMh(102 TERPRI 97 PRIN1 88 TERPRI 83 PRIN1 77 SPACES 71 SPACES 65 PRIN1 56 TERPRI 51 PRIN1) (106 UFGREATERP2) ( 93 "************" 61 "Illegal args to UFGREATERP" 47 "************") (LET* ((A1527 (QUOTE UFGREATERP)) (A1528 (QUOTE COMPILER:OPTIMIZER-LIST)) (A1530 (CL:ADJOIN (QUOTE optimize-UFGREATERP) (GET A1527 A1528)))) (PUTPROP A1527 A1528 A1530)) optimize-UFGREATERP2 :D4 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) $@!HHogIhgJhhNIL (25 \FLOATUNBOX 18 \FLOATUNBOX) ( 15 (OPCODES UBFLOAT2 5)) (LET* ((A1532 (QUOTE UFGREATERP2)) (A1533 (QUOTE COMPILER:OPTIMIZER-LIST)) (A1535 (CL:ADJOIN (QUOTE optimize-UFGREATERP2) (GET A1532 A1533)))) (PUTPROP A1532 A1533 A1535)) optimize-UFIX :D4 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) _@A@HdHhhHKL>oi i oi ki ki Ii i oi i gJh(84 TERPRI 79 PRIN1 70 TERPRI 65 PRIN1 59 SPACES 53 SPACES 47 PRIN1 38 TERPRI 33 PRIN1) (88 UFIX1) ( 75 "************" 43 "Illegal args to UFIX" 29 "************") (LET* ((A1538 (QUOTE UFIX)) (A1539 (QUOTE COMPILER:OPTIMIZER-LIST)) (A1541 (CL:ADJOIN (QUOTE optimize-UFIX) (GET A1538 A1539)))) (PUTPROP A1538 A1539 A1541)) optimize-UFIX1 :D4 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @ogHhhNIL (12 \FLOATUNBOX) ( 9 (OPCODES UBFLOAT1 4)) (LET* ((A1543 (QUOTE UFIX1)) (A1544 (QUOTE COMPILER:OPTIMIZER-LIST)) (A1546 (CL:ADJOIN (QUOTE optimize-UFIX1) (GET A1543 A1544)))) (PUTPROP A1543 A1544 A1546)) optimize-UFLEQ :D4 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) s@q@HdHhhH\dLhhL_KNO>oi i oi ki ki Ii i oi i gJMh(102 TERPRI 97 PRIN1 88 TERPRI 83 PRIN1 77 SPACES 71 SPACES 65 PRIN1 56 TERPRI 51 PRIN1) (106 UFLEQ2) ( 93 "************" 61 "Illegal args to UFLEQ" 47 "************") (LET* ((A1550 (QUOTE UFLEQ)) (A1551 (QUOTE COMPILER:OPTIMIZER-LIST)) (A1553 (CL:ADJOIN (QUOTE optimize-UFLEQ) (GET A1550 A1551)))) (PUTPROP A1550 A1551 A1553)) optimize-UFLEQ2 :D4 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) *@!HHgogIhgJhhhNIL (28 \FLOATUNBOX 21 \FLOATUNBOX 14 NOT) ( 18 (OPCODES UBFLOAT2 5)) (LET* ((A1555 (QUOTE UFLEQ2)) (A1556 (QUOTE COMPILER:OPTIMIZER-LIST)) (A1558 (CL:ADJOIN (QUOTE optimize-UFLEQ2) (GET A1555 A1556)))) (PUTPROP A1555 A1556 A1558)) optimize-UFLESSP :D4 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) s@q@HdHhhH\dLhhL_KNO>oi i oi ki ki Ii i oi i gJMh(102 TERPRI 97 PRIN1 88 TERPRI 83 PRIN1 77 SPACES 71 SPACES 65 PRIN1 56 TERPRI 51 PRIN1) (106 UFLESSP2) ( 93 "************" 61 "Illegal args to UFLESSP" 47 "************") (LET* ((A1562 (QUOTE UFLESSP)) (A1563 (QUOTE COMPILER:OPTIMIZER-LIST)) (A1565 (CL:ADJOIN (QUOTE optimize-UFLESSP) (GET A1562 A1563)))) (PUTPROP A1562 A1563 A1565)) optimize-UFLESSP2 :D4 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) $@!HHogIhgJhhNIL (25 \FLOATUNBOX 18 \FLOATUNBOX) ( 15 (OPCODES SWAP UBFLOAT2 5)) (LET* ((A1567 (QUOTE UFLESSP2)) (A1568 (QUOTE COMPILER:OPTIMIZER-LIST)) (A1570 (CL:ADJOIN (QUOTE optimize-UFLESSP2) (GET A1567 A1568)))) (PUTPROP A1567 A1568 A1570)) optimize-UFMAX :D4 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) M@aHdHhhH[dKhhKJgMgIhNggILhNgILhNIL (68 UFMAX2 55 UFMAX2 52 UFMAX 42 FLOAT 36 MIN.FLOAT) () (LET* ((A1574 (QUOTE UFMAX)) (A1575 (QUOTE COMPILER:OPTIMIZER-LIST)) (A1577 (CL:ADJOIN (QUOTE optimize-UFMAX) (GET A1574 A1575)))) (PUTPROP A1574 A1575 A1577)) optimize-UFMAX2 :D4 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) *@!HHgogIhgJhhhNIL (28 \FLOATUNBOX 21 \FLOATUNBOX 14 \FLOATBOX) ( 18 (OPCODES UBFLOAT2 6)) (LET* ((A1579 (QUOTE UFMAX2)) (A1580 (QUOTE COMPILER:OPTIMIZER-LIST)) (A1582 (CL:ADJOIN (QUOTE optimize-UFMAX2) (GET A1579 A1580)))) (PUTPROP A1579 A1580 A1582)) optimize-UFMIN :D4 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) M@aHdHhhH[dKhhKJgMgIhNggILhNgILhNIL (68 UFMIN2 55 UFMIN2 52 UFMIN 42 FLOAT 36 MAX.FLOAT) () (LET* ((A1586 (QUOTE UFMIN)) (A1587 (QUOTE COMPILER:OPTIMIZER-LIST)) (A1589 (CL:ADJOIN (QUOTE optimize-UFMIN) (GET A1586 A1587)))) (PUTPROP A1586 A1587 A1589)) optimize-UFMIN2 :D4 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) *@!HHgogIhgJhhhNIL (28 \FLOATUNBOX 21 \FLOATUNBOX 14 \FLOATBOX) ( 18 (OPCODES UBFLOAT2 7)) (LET* ((A1591 (QUOTE UFMIN2)) (A1592 (QUOTE COMPILER:OPTIMIZER-LIST)) (A1594 (CL:ADJOIN (QUOTE optimize-UFMIN2) (GET A1591 A1592)))) (PUTPROP A1591 A1592 A1594)) optimize-UFMINUS :D4 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) _@A@HdHhhHKL>oi i oi ki ki Ii i oi i gJh(84 TERPRI 79 PRIN1 70 TERPRI 65 PRIN1 59 SPACES 53 SPACES 47 PRIN1 38 TERPRI 33 PRIN1) (88 UFMINUS1) ( 75 "************" 43 "Illegal args to UFMINUS" 29 "************") (LET* ((A1597 (QUOTE UFMINUS)) (A1598 (QUOTE COMPILER:OPTIMIZER-LIST)) (A1600 (CL:ADJOIN (QUOTE optimize-UFMINUS) (GET A1597 A1598)))) (PUTPROP A1597 A1598 A1600)) optimize-UFMINUS1 :D4 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @gogHhhhNIL (15 \FLOATUNBOX 8 \FLOATBOX) ( 12 (OPCODES UBFLOAT1 3)) (LET* ((A1602 (QUOTE UFMINUS1)) (A1603 (QUOTE COMPILER:OPTIMIZER-LIST)) (A1605 (CL:ADJOIN (QUOTE optimize-UFMINUS1) (GET A1602 A1603)))) (PUTPROP A1602 A1603 A1605)) optimize-UFREMAINDER :D4 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) O@!HHI Il4J Jl(gIggggIJhhhJhhg(27 CL:CONSTANTP 15 CL:CONSTANTP) (76 COMPILER:PASS 51 FQUOTIENT 48 UFIX 45 FLOAT 42 FTIMES 38 FDIFFERENCE) () (LET* ((A1607 (QUOTE UFREMAINDER)) (A1608 (QUOTE COMPILER:OPTIMIZER-LIST)) (A1610 (CL:ADJOIN (QUOTE optimize-UFREMAINDER) (GET A1607 A1608)))) (PUTPROP A1607 A1608 A1610)) (PUTPROPS UNBOXEDOPS FILETYPE CL:COMPILE-FILE) (PUTPROPS UNBOXEDOPS COPYRIGHT ("Xerox Corporation" 1986)) NIL