(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP") (FILECREATED " 4-Nov-86 21:49:59" ("compiled on " {ERIS}SOURCES>CMLARRAY-OPTIMIZERS.\;5) " 4-Nov-86 10:55:04" "COMPILE-FILEd" |in| "Xerox Lisp 4-Nov-86 ..." |dated| " 4-Nov-86 11:27:14") (FILECREATED " 4-Nov-86 21:49:36" {ERIS}SOURCES>CMLARRAY-OPTIMIZERS.\;5 7225 |changes| |to:| (VARS CMLARRAY-OPTIMIZERSCOMS) (FUNCTIONS %AREF-EXPANDER %ASET-EXPANDER) (OPTIMIZERS %VECTORP) |previous| |date:| "24-Oct-86 22:04:30" {ERIS}SOURCES>CMLARRAY-OPTIMIZERS.\;4) (RPAQQ CMLARRAY-OPTIMIZERSCOMS ((* |;;;| "Setfs") (SETFS CL:AREF BIT CL:CHAR CL:FILL-POINTER CL:SBIT CL:SCHAR CL:SVREF) (* |;;;| "Optimizers") (FUNCTIONS %AREF-EXPANDER %ASET-EXPANDER) (OPTIMIZERS CL:AREF ASET BIT CL:CHAR CL:SBIT CL:SCHAR CL:SVREF %ARRAYP %GENERAL-ARRAY-P %ONED-ARRAY-P %SIMPLE-ARRAY-P %SIMPLE-STRING-P %STRINGP %TWOD-ARRAY-P %VECTORP) (OPTIMIZERS %ARRAY-READ %ARRAY-WRITE) (* |;;;| "Compiler options") (DECLARE\: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY (LOCALVARS . T)) (PROP FILETYPE CMLARRAY-OPTIMIZERS))) (REMPROP (QUOTE CL:AREF) (QUOTE SETF-INVERSE)) CL::|AREF-setf-expander| D1 (L (0 ACCESS-FORM)) D0@IHhZH&JQ@HH@JhI]MgJLKI (65 CL:VALUES 36 GENSYM 7 GENSYM) (54 ASET) () (PUTPROP (QUOTE CL:AREF) (QUOTE SETF-METHOD-EXPANDER) (QUOTE CL::|AREF-setf-expander|)) (REMPROP (QUOTE BIT) (QUOTE SETF-INVERSE)) CL::|BIT-setf-expander| D1 (L (0 ACCESS-FORM)) D0@IHhZH&JQ@HH@JhI]MgJLKI (65 CL:VALUES 36 GENSYM 7 GENSYM) (54 ASET) () (PUTPROP (QUOTE BIT) (QUOTE SETF-METHOD-EXPANDER) (QUOTE CL::|BIT-setf-expander|)) (REMPROP (QUOTE CL:CHAR) (QUOTE SETF-INVERSE)) CL::|CHAR-setf-expander| D1 (L (0 ACCESS-FORM)) G0@IHhZH&JQ@HH@JhI]MgJLKhI (68 CL:VALUES 36 GENSYM 7 GENSYM) (55 ASET) () (PUTPROP (QUOTE CL:CHAR) (QUOTE SETF-METHOD-EXPANDER) (QUOTE CL::|CHAR-setf-expander|)) (REMPROP (QUOTE CL:FILL-POINTER) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROP (QUOTE CL:FILL-POINTER) (QUOTE SETF-INVERSE) (QUOTE SET-FILL-POINTER)) (REMPROP (QUOTE CL:SBIT) (QUOTE SETF-INVERSE)) CL::|SBIT-setf-expander| D1 (L (0 ACCESS-FORM)) D0@IHhZH&JQ@HH@JhI]MgJLKI (65 CL:VALUES 36 GENSYM 7 GENSYM) (54 ASET) () (PUTPROP (QUOTE CL:SBIT) (QUOTE SETF-METHOD-EXPANDER) (QUOTE CL::|SBIT-setf-expander|)) (REMPROP (QUOTE CL:SCHAR) (QUOTE SETF-INVERSE)) CL::|SCHAR-setf-expander| D1 (L (0 ACCESS-FORM)) G0@IHhZH&JQ@HH@JhI]MgJLKhI (68 CL:VALUES 36 GENSYM 7 GENSYM) (55 ASET) () (PUTPROP (QUOTE CL:SCHAR) (QUOTE SETF-METHOD-EXPANDER) (QUOTE CL::|SCHAR-setf-expander|)) (REMPROP (QUOTE CL:SVREF) (QUOTE SETF-INVERSE)) CL::|SVREF-setf-expander| D1 (L (0 ACCESS-FORM)) G0@IHhZH&JQ@HH@JhI]MgJLKhI (68 CL:VALUES 36 GENSYM 7 GENSYM) (55 ASET) () (PUTPROP (QUOTE CL:SVREF) (QUOTE SETF-METHOD-EXPANDER) (QUOTE CL::|SVREF-setf-expander|)) %AREF-EXPANDER D1 (L (1 INDICES 0 ARRAY)) "A dk:g@Al:g@Ag(3 LENGTH) (31 COMPILER:PASS 23 %AREF2 11 %AREF1) () %ASET-EXPANDER D1 (L (2 INDICES 1 ARRAY 0 NEWVALUE)) &B dk:g@ABl:g@ABg(3 LENGTH) (35 COMPILER:PASS 25 %ASET2 11 %ASET1) () CL::|optimize-AREF| D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @!HHIJ (15 %AREF-EXPANDER) NIL () (LET* ((A0871 (QUOTE CL:AREF)) (A0872 (QUOTE COMPILER:OPTIMIZER-LIST)) (A0874 (CL:ADJOIN (QUOTE CL::|optimize-AREF|) (GET A0871 A0872)))) (PUTPROP A0871 A0872 A0874)) XCL::|optimize-ASET| D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @AHHZJIKL (21 %ASET-EXPANDER) NIL () (LET* ((A0878 (QUOTE ASET)) (A0879 (QUOTE COMPILER:OPTIMIZER-LIST)) (A0881 (CL:ADJOIN (QUOTE XCL::|optimize-ASET|) (GET A0878 A0879)))) (PUTPROP A0878 A0879 A0881)) CL::|optimize-BIT| D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @!HHIJ (15 %AREF-EXPANDER) NIL () (LET* ((A0884 (QUOTE BIT)) (A0885 (QUOTE COMPILER:OPTIMIZER-LIST)) (A0887 (CL:ADJOIN (QUOTE CL::|optimize-BIT|) (GET A0884 A0885)))) (PUTPROP A0884 A0885 A0887)) CL::|optimize-CHAR| D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @!HHgIJhNIL (14 %AREF1) () (LET* ((A0889 (QUOTE CL:CHAR)) (A0890 (QUOTE COMPILER:OPTIMIZER-LIST)) (A0892 (CL:ADJOIN (QUOTE CL::|optimize-CHAR|) (GET A0889 A0890)))) (PUTPROP A0889 A0890 A0892)) CL::|optimize-SBIT| D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @!HHIJ (15 %AREF-EXPANDER) NIL () (LET* ((A0895 (QUOTE CL:SBIT)) (A0896 (QUOTE COMPILER:OPTIMIZER-LIST)) (A0898 (CL:ADJOIN (QUOTE CL::|optimize-SBIT|) (GET A0895 A0896)))) (PUTPROP A0895 A0896 A0898)) CL::|optimize-SCHAR| D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @!HHgIJhNIL (14 %AREF1) () (LET* ((A0900 (QUOTE CL:SCHAR)) (A0901 (QUOTE COMPILER:OPTIMIZER-LIST)) (A0903 (CL:ADJOIN (QUOTE CL::|optimize-SCHAR|) (GET A0900 A0901)))) (PUTPROP A0900 A0901 A0903)) CL::|optimize-SVREF| D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @!HHgIJhNIL (14 %AREF1) () (LET* ((A0905 (QUOTE CL:SVREF)) (A0906 (QUOTE COMPILER:OPTIMIZER-LIST)) (A0908 (CL:ADJOIN (QUOTE CL::|optimize-SVREF|) (GET A0905 A0906)))) (PUTPROP A0905 A0906 A0908)) |optimize-%ARRAYP| D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) \@Hl ggHhgHhgHhhgIHhhggIhgIhgIhhh(45 GENSYM) (76 %GENERAL-ARRAY-P 69 %TWOD-ARRAY-P 62 %ONED-ARRAY-P 59 OR 49 LET 32 %GENERAL-ARRAY-P 25 %TWOD-ARRAY-P 18 %ONED-ARRAY-P 15 OR) () (LET* ((A0910 (QUOTE %ARRAYP)) (A0911 (QUOTE COMPILER:OPTIMIZER-LIST)) (A0913 (CL:ADJOIN (QUOTE |optimize-%ARRAYP|) (GET A0910 A0911)))) (PUTPROP A0910 A0911 A0913)) |optimize-%GENERAL-ARRAY-P| D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @goHhoNIL (8 AND) ( 20 (T) 12 (OPCODES TYPEP 16)) (LET* ((A0915 (QUOTE %GENERAL-ARRAY-P)) (A0916 (QUOTE COMPILER:OPTIMIZER-LIST)) (A0918 (CL:ADJOIN ( QUOTE |optimize-%GENERAL-ARRAY-P|) (GET A0915 A0916)))) (PUTPROP A0915 A0916 A0918)) |optimize-%ONED-ARRAY-P| D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @goHhoNIL (8 AND) ( 20 (T) 12 (OPCODES TYPEP 14)) (LET* ((A0920 (QUOTE %ONED-ARRAY-P)) (A0921 (QUOTE COMPILER:OPTIMIZER-LIST)) (A0923 (CL:ADJOIN (QUOTE |optimize-%ONED-ARRAY-P|) (GET A0920 A0921)))) (PUTPROP A0920 A0921 A0923)) |optimize-%SIMPLE-ARRAY-P| D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) ^@Hl!ggHhgogHhhgIHhhggIhgogIhhh(46 GENSYM) (77 |of| 70 |fetch| 63 %ARRAYP 60 AND 50 LET 32 |of| 25 |fetch| 18 %ARRAYP 15 AND) ( 74 (ARRAY-HEADER SIMPLE-P) 29 (ARRAY-HEADER SIMPLE-P)) (LET* ((A0925 (QUOTE %SIMPLE-ARRAY-P)) (A0926 (QUOTE COMPILER:OPTIMIZER-LIST)) (A0928 (CL:ADJOIN ( QUOTE |optimize-%SIMPLE-ARRAY-P|) (GET A0925 A0926)))) (PUTPROP A0925 A0926 A0928)) |optimize-%SIMPLE-STRING-P| D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @Hl2ggHhgogHhgogHhhgIHhhggIhgogIhgogIhhh(63 GENSYM) (110 |of| 103 |fetch| 94 |of| 87 |fetch| 80 %ONED-ARRAY-P 77 AND 67 LET 48 |of| 41 |fetch| 32 |of| 25 |fetch| 18 %ONED-ARRAY-P 15 AND) ( 107 (ARRAY-HEADER STRING-P) 91 (ARRAY-HEADER SIMPLE-P) 45 (ARRAY-HEADER STRING-P) 29 (ARRAY-HEADER SIMPLE-P)) (LET* ((A0930 (QUOTE %SIMPLE-STRING-P)) (A0931 (QUOTE COMPILER:OPTIMIZER-LIST)) (A0933 (CL:ADJOIN ( QUOTE |optimize-%SIMPLE-STRING-P|) (GET A0930 A0931)))) (PUTPROP A0930 A0931 A0933)) |optimize-%STRINGP| D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) z@Hl/gggHhgHhhgogHhhgIHhhgggIhgIhhgogIhhh(60 GENSYM) (105 |of| 98 |fetch| 87 %GENERAL-ARRAY-P 80 %ONED-ARRAY-P 77 OR 74 AND 64 LET 46 |of| 39 |fetch| 28 %GENERAL-ARRAY-P 21 %ONED-ARRAY-P 18 OR 15 AND) ( 102 (ARRAY-HEADER STRING-P) 43 (ARRAY-HEADER STRING-P)) (LET* ((A0935 (QUOTE %STRINGP)) (A0936 (QUOTE COMPILER:OPTIMIZER-LIST)) (A0938 (CL:ADJOIN (QUOTE |optimize-%STRINGP|) (GET A0935 A0936)))) (PUTPROP A0935 A0936 A0938)) |optimize-%TWOD-ARRAY-P| D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @goHhoNIL (8 AND) ( 20 (T) 12 (OPCODES TYPEP 15)) (LET* ((A0940 (QUOTE %TWOD-ARRAY-P)) (A0941 (QUOTE COMPILER:OPTIMIZER-LIST)) (A0943 (CL:ADJOIN (QUOTE |optimize-%TWOD-ARRAY-P|) (GET A0940 A0941)))) (PUTPROP A0940 A0941 A0943)) |optimize-%VECTORP| D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @Hl=ggHhggHhgkggogHhhhhhgIHhhggIhggIhgkggogIhhhhhh(74 GENSYM) (122 |of| 115 |ffetch| 112 LENGTH 108 EQL 101 %GENERAL-ARRAY-P 98 AND 91 %ONED-ARRAY-P 88 OR 78 LET 49 |of| 42 |ffetch| 39 LENGTH 35 EQL 28 %GENERAL-ARRAY-P 25 AND 18 %ONED-ARRAY-P 15 OR) ( 119 (GENERAL-ARRAY DIMS) 46 (GENERAL-ARRAY DIMS)) (LET* ((A0945 (QUOTE %VECTORP)) (A0946 (QUOTE COMPILER:OPTIMIZER-LIST)) (A0948 (CL:ADJOIN (QUOTE |optimize-%VECTORP|) (GET A0945 A0946)))) (PUTPROP A0945 A0946 A0948)) |optimize-%ARRAY-READ| D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @AHHZJoIKLhNIL NIL ( 20 (OPCODES MISC3 9)) (LET* ((A0951 (QUOTE %ARRAY-READ)) (A0952 (QUOTE COMPILER:OPTIMIZER-LIST)) (A0954 (CL:ADJOIN (QUOTE |optimize-%ARRAY-READ|) (GET A0951 A0952)))) (PUTPROP A0951 A0952 A0954)) |optimize-%ARRAY-WRITE| D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) &@aHHZJ\LoIKMNhNIL NIL ( 25 (OPCODES MISC4 7)) (LET* ((A0958 (QUOTE %ARRAY-WRITE)) (A0959 (QUOTE COMPILER:OPTIMIZER-LIST)) (A0961 (CL:ADJOIN (QUOTE |optimize-%ARRAY-WRITE|) (GET A0958 A0959)))) (PUTPROP A0958 A0959 A0961)) (PUTPROPS CMLARRAY-OPTIMIZERS FILETYPE CL:COMPILE-FILE) (PUTPROPS CMLARRAY-OPTIMIZERS COPYRIGHT ("Xerox Corporation" 1986)) NIL