(DEFINE-FILE-INFO §PACKAGE "INTERLISP" §READTABLE "INTERLISP" §BASE 10) (FILECREATED " 8-Jan-87 10:54:03" ("compiled on " {QV}LISP>FLOAT-ARRAY-SUPPORT.;4) "30-Dec-86 11:35:10" "COMPILE-FILEd" in "Xerox Lisp 30-Dec-86 ..." dated "30-Dec-86 12:05:28") (FILECREATED " 5-Dec-86 18:23:44" {QV}LISP>FLOAT-ARRAY-SUPPORT.;4 9218 changes to%: (VARS FLOAT-ARRAY-SUPPORTCOMS) (FUNCTIONS SINGLE-FLOAT-VECTOR-P SINGLE-FLOAT-ARRAY-P MAKE-FLOAT-VECTOR MAKE-FLOAT-ARRAY %%BLKFDIFF) (PROPS (%%BLKFDIFF DOPVAL)) previous date%: "21-Oct-86 13:28:23" {QV}LISP>FLOAT-ARRAY-SUPPPORT.;1) (RPAQQ FLOAT-ARRAY-SUPPORTCOMS ((FILES (SYSLOAD FROM VALUEOF DIRECTORIES) UNBOXEDOPS) (FUNCTIONS %%BLKEXPONENT %%BLKFABSMAX %%BLKFABSMIN %%BLKFMAX %%BLKFMIN %%BLKFPLUS %%BLKFDIFF %%BLKFTIMES %%BLKPERM %%BLKSMALLP2FLOAT %%FLOATTOBYTE %%GET-FLOAT-ARRAY-BASE %%INSURE-ARRAY %%MATMULT-133 %%MATMULT-144 %%MATMULT-331 %%MATMULT-333 %%MATMULT-441 %%MATMULT-444 %%MUL2 %%POLY-EVAL %%TEST-ARRAY MAKE-FLOAT-ARRAY MAKE-FLOAT-VECTOR SINGLE-FLOAT-ARRAY-P SINGLE-FLOAT-VECTOR-P) (OPTIMIZERS %%POLY-EVAL %%MATMULT-133 %%MATMULT-144 %%MATMULT-331 %%MATMULT-333 %%MATMULT-441 %%MATMULT-444) (PROP DOPVAL %%BLKEXPONENT %%BLKFABSMAX %%BLKFABSMIN %%BLKFDIFF %%BLKFMAX %%BLKFMIN %%BLKFPLUS %%BLKFTIMES %%BLKPERM %%BLKSMALLP2FLOAT %%FLOATTOBYTE) (PROP FILETYPE FLOAT-ARRAY-SUPPORT) (DECLARE%: DONTCOPY DOEVAL@COMPILE DONTEVAL@LOAD (LOCALVARS . T)))) (FILESLOAD (SYSLOAD FROM VALUEOF DIRECTORIES) UNBOXEDOPS) %%BLKEXPONENT :D4 (L (2 SIZE 1 DEST 0 SOURCE)) @ABj (6 \MISC3.UFN) NIL () %%BLKFABSMAX :D4 (L (2 SIZE 1 ZERO 0 BASE)) @ABl (7 \MISC3.UFN) NIL () %%BLKFABSMIN :D4 (L (2 SIZE 1 ZERO 0 BASE)) @ABl (7 \MISC3.UFN) NIL () %%BLKFMAX :D4 (L (2 SIZE 1 ZERO 0 BASE)) @ABl (7 \MISC3.UFN) NIL () %%BLKFMIN :D4 (L (2 SIZE 1 ZERO 0 BASE)) @ABl (7 \MISC3.UFN) NIL () %%BLKFPLUS :D4 (L (3 SIZE 2 DEST 1 SOURCE2 0 SOURCE1)) @ABCl (9 \MISC4.UFN) NIL () %%BLKFDIFF :D4 (L (3 SIZE 2 DEST 1 SOURCE2 0 SOURCE1)) @ABCl (9 \MISC4.UFN) NIL () %%BLKFTIMES :D4 (L (3 SIZE 2 DEST 1 SOURCE2 0 SOURCE1)) @ABCj (8 \MISC4.UFN) NIL () %%BLKPERM :D4 (L (3 SIZE 2 DEST 1 PERMUTATION 0 SOURCE)) @ABCk (8 \MISC4.UFN) NIL () %%BLKSMALLP2FLOAT :D4 (L (2 SIZE 1 DEST 0 SOURCE)) @ABl (7 \MISC3.UFN) NIL () %%FLOATTOBYTE :D4 (L (2 SIZE 1 DEST 0 SOURCE)) @ABl (7 \MISC3.UFN) NIL () expand-%%GET-FLOAT-ARRAY-BASE :D4 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) &@ggHhggHhohNIL (21 %%ARRAY-OFFSET 18 LLSH 11 %%ARRAY-BASE 8 \ADDBASE) ( 29 (1)) (SETF-MACRO-FUNCTION (QUOTE %%GET-FLOAT-ARRAY-BASE) (QUOTE expand-%%GET-FLOAT-ARRAY-BASE)) expand-%%INSURE-ARRAY :D4 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) :@AH¹HZ»Jµ'gKh¼gIgIKhgLoh°áNIL (40 CL:MAKE-ARRAY 31 %%TEST-ARRAY 27 CL:IF 19 QUOTE) ( 45 (:ELEMENT-TYPE (QUOTE CL:SINGLE-FLOAT))) (SETF-MACRO-FUNCTION (QUOTE %%INSURE-ARRAY) (QUOTE expand-%%INSURE-ARRAY)) %%MATMULT-133 :D4 (L (2 MATRIXCBASE 1 MATRIXBBASE 0 MATRIXABASE)) @ABl (7 \UNBOXFLOAT3) NIL () %%MATMULT-144 :D4 (L (2 MATRIXCBASE 1 MATRIXBBASE 0 MATRIXABASE)) @ABl (7 \UNBOXFLOAT3) NIL () %%MATMULT-331 :D4 (L (2 MATRIXCBASE 1 MATRIXBBASE 0 MATRIXABASE)) @ABl (7 \UNBOXFLOAT3) NIL () %%MATMULT-333 :D4 (L (2 MATRIXCBASE 1 MATRIXBBASE 0 MATRIXABASE)) @ABk (6 \UNBOXFLOAT3) NIL () %%MATMULT-441 :D4 (L (2 MATRIXCBASE 1 MATRIXBBASE 0 MATRIXABASE)) @ABl (7 \UNBOXFLOAT3) NIL () %%MATMULT-444 :D4 (L (2 MATRIXCBASE 1 MATRIXBBASE 0 MATRIXABASE)) @ABl (7 \UNBOXFLOAT3) NIL () expand-%%MUL2 :D4 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @gHoNIL (8 LLSH) ( 13 (1)) (SETF-MACRO-FUNCTION (QUOTE %%MUL2) (QUOTE expand-%%MUL2)) %%POLY-EVAL :D4 (L (2 SIZE 1 BASE 0 X)) @íABj í(8 \UNBOXFLOAT3) NIL () expand-%%TEST-ARRAY :D4 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) <@!H¹HºggIgggJhhhIgoIhhNIL (43 CL:ERROR 27 CL:SINGLE-FLOAT 24 CL:ARRAY 21 QUOTE 17 TYPEP 14 CL:IF) ( 47 "Array of incorrect type: ~S") (SETF-MACRO-FUNCTION (QUOTE %%TEST-ARRAY) (QUOTE expand-%%TEST-ARRAY)) expand-MAKE-FLOAT-ARRAY :D4 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) D@1H¹HºgJ d»Jo K²gIgogKhgIo(29 KEYWORD-TEST 17 FIND-KEYWORD) (58 CL:MAKE-ARRAY 46 :INITIAL-ELEMENT 39 :ELEMENT-TYPE 35 CL:MAKE-ARRAY 13 :INITIAL-ELEMENT) ( 63 (:ELEMENT-TYPE (QUOTE CL:SINGLE-FLOAT)) 43 (QUOTE CL:SINGLE-FLOAT) 26 (:INITIAL-ELEMENT)) (SETF-MACRO-FUNCTION (QUOTE MAKE-FLOAT-ARRAY) (QUOTE expand-MAKE-FLOAT-ARRAY)) expand-MAKE-FLOAT-VECTOR :D4 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) D@1H¹HºgJ d»Jo K²gIgogKhgIo(29 KEYWORD-TEST 17 FIND-KEYWORD) (58 MAKE-VECTOR 46 :INITIAL-ELEMENT 39 :ELEMENT-TYPE 35 MAKE-VECTOR 13 :INITIAL-ELEMENT) ( 63 (:ELEMENT-TYPE (QUOTE CL:SINGLE-FLOAT)) 43 (QUOTE CL:SINGLE-FLOAT) 26 (:INITIAL-ELEMENT)) (SETF-MACRO-FUNCTION (QUOTE MAKE-FLOAT-VECTOR) (QUOTE expand-MAKE-FLOAT-VECTOR)) expand-SINGLE-FLOAT-ARRAY-P :D4 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @gHoNIL (8 TYPEP) ( 13 ((QUOTE (CL:ARRAY CL:SINGLE-FLOAT)))) (SETF-MACRO-FUNCTION (QUOTE SINGLE-FLOAT-ARRAY-P) (QUOTE expand-SINGLE-FLOAT-ARRAY-P)) expand-SINGLE-FLOAT-VECTOR-P :D4 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @gHoNIL (8 TYPEP) ( 13 ((QUOTE (CL:ARRAY CL:SINGLE-FLOAT (CL:*))))) (SETF-MACRO-FUNCTION (QUOTE SINGLE-FLOAT-VECTOR-P) (QUOTE expand-SINGLE-FLOAT-VECTOR-P)) optimize-%%POLY-EVAL :D4 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) +@AH¹HZ»J¼gogIhKLhhNIL (26 \FLOATUNBOX 19 \FLOATBOX) ( 23 (OPCODES UBFLOAT3 0)) (LET* ((A1449 (QUOTE %%POLY-EVAL)) (A1450 (QUOTE COMPILER:OPTIMIZER-LIST)) (A1452 (CL:ADJOIN (QUOTE optimize-%%POLY-EVAL) (GET A1449 A1450)))) (PUTPROP A1449 A1450 A1452)) optimize-%%MATMULT-133 :D4 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @AH¹HZ»J¼oIKLhNIL NIL ( 20 (OPCODES UBFLOAT3 3)) (LET* ((A1455 (QUOTE %%MATMULT-133)) (A1456 (QUOTE COMPILER:OPTIMIZER-LIST)) (A1458 (CL:ADJOIN (QUOTE optimize-%%MATMULT-133) (GET A1455 A1456)))) (PUTPROP A1455 A1456 A1458)) optimize-%%MATMULT-144 :D4 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @AH¹HZ»J¼oIKLhNIL NIL ( 20 (OPCODES UBFLOAT3 5)) (LET* ((A1461 (QUOTE %%MATMULT-144)) (A1462 (QUOTE COMPILER:OPTIMIZER-LIST)) (A1464 (CL:ADJOIN (QUOTE optimize-%%MATMULT-144) (GET A1461 A1462)))) (PUTPROP A1461 A1462 A1464)) optimize-%%MATMULT-331 :D4 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @AH¹HZ»J¼oIKLhNIL NIL ( 20 (OPCODES UBFLOAT3 4)) (LET* ((A1467 (QUOTE %%MATMULT-331)) (A1468 (QUOTE COMPILER:OPTIMIZER-LIST)) (A1470 (CL:ADJOIN (QUOTE optimize-%%MATMULT-331) (GET A1467 A1468)))) (PUTPROP A1467 A1468 A1470)) optimize-%%MATMULT-333 :D4 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @AH¹HZ»J¼oIKLhNIL NIL ( 20 (OPCODES UBFLOAT3 1)) (LET* ((A1473 (QUOTE %%MATMULT-333)) (A1474 (QUOTE COMPILER:OPTIMIZER-LIST)) (A1476 (CL:ADJOIN (QUOTE optimize-%%MATMULT-333) (GET A1473 A1474)))) (PUTPROP A1473 A1474 A1476)) optimize-%%MATMULT-441 :D4 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @AH¹HZ»J¼oIKLhNIL NIL ( 20 (OPCODES UBFLOAT3 6)) (LET* ((A1479 (QUOTE %%MATMULT-441)) (A1480 (QUOTE COMPILER:OPTIMIZER-LIST)) (A1482 (CL:ADJOIN (QUOTE optimize-%%MATMULT-441) (GET A1479 A1480)))) (PUTPROP A1479 A1480 A1482)) optimize-%%MATMULT-444 :D4 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @AH¹HZ»J¼oIKLhNIL NIL ( 20 (OPCODES UBFLOAT3 2)) (LET* ((A1485 (QUOTE %%MATMULT-444)) (A1486 (QUOTE COMPILER:OPTIMIZER-LIST)) (A1488 (CL:ADJOIN (QUOTE optimize-%%MATMULT-444) (GET A1485 A1486)))) (PUTPROP A1485 A1486 A1488)) (PUTPROPS %%BLKEXPONENT DOPVAL (3 MISC3 0)) (PUTPROPS %%BLKFABSMAX DOPVAL (3 MISC3 6)) (PUTPROPS %%BLKFABSMIN DOPVAL (3 MISC3 7)) (PUTPROPS %%BLKFDIFF DOPVAL (4 MISC4 3)) (PUTPROPS %%BLKFMAX DOPVAL (3 MISC3 4)) (PUTPROPS %%BLKFMIN DOPVAL (3 MISC3 5)) (PUTPROPS %%BLKFPLUS DOPVAL (4 MISC4 2)) (PUTPROPS %%BLKFTIMES DOPVAL (4 MISC4 0)) (PUTPROPS %%BLKPERM DOPVAL (4 MISC4 1)) (PUTPROPS %%BLKSMALLP2FLOAT DOPVAL (3 MISC3 2)) (PUTPROPS %%FLOATTOBYTE DOPVAL (3 MISC3 8)) (PUTPROPS FLOAT-ARRAY-SUPPORT FILETYPE CL:COMPILE-FILE) (PUTPROPS FLOAT-ARRAY-SUPPORT COPYRIGHT ("Xerox Corporation" 1986)) NIL