(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE (DEFPACKAGE "COMPILER" (USE "LISP" "XCL"))) (IL:FILECREATED "26-Jan-98 14:01:16" ("compiled on " IL:|{DSK}disk2>jdstools>lc3>lispcore3.0>sources>XCLC-TRANSFORMS.;1|) "30-Mar-95 20:33:04" "COMPILE-FILEd" IL:|in| "Medley 14-Aug-95 ..." IL:|dated| "14-Aug-95 15:27:48") (IL:FILECREATED "10-Aug-92 13:17:53" IL:|{PELE:MV:ENVOS}SOURCES>XCLC-TRANSFORMS.;3| 21787 IL:|changes| IL:|to:| (IL:FUNCTIONS FIND-AND-PERFORM-RPLCONS-TRANSFORM) IL:|previous| IL:|date:| "23-May-90 13:25:49" IL:|{PELE:MV:ENVOS}SOURCES>XCLC-TRANSFORMS.;2|) (IL:RPAQQ IL:XCLC-TRANSFORMSCOMS ((IL:* IL:|;;| "Function-specific transformations") (IL:DEFINE-TYPES TRANSFORMS) (IL:FUNCTIONS DEFTRANSFORM) (IL:PROP IL:PROPTYPE TRANSFORM) (IL:FUNCTIONS IS-CALL-TO) (IL:* IL:|;;| "The various memory-reference primitives.") (TRANSFORMS IL:\\ADDBASE) (TRANSFORMS IL:\\GETBASE IL:\\GETBASEPTR) (TRANSFORMS IL:\\PUTBASE IL:\\PUTBASEPTR IL:\\RPLPTR) (OPTIMIZERS IL:\\PUTBASE IL:\\PUTBASEPTR IL:\\RPLPTR) (TRANSFORMS IL:\\GETBITS IL:\\PUTBITS) (OPTIMIZERS IL:\\GETBITS IL:\\PUTBITS) (IL:FUNCTIONS ENSURE-EFFECT-CONTEXT TRANSFORM-GET/PUT-BASE) (IL:* IL:|;;| "List-structure functions") (TRANSFORMS CAR CDR) (TRANSFORMS RPLACD) (IL:FUNCTIONS FIND-AND-PERFORM-RPLCONS-TRANSFORM) (OPTIMIZERS IL:FRPLACD) (IL:* IL:|;;| "Use the proper makefile-environment") (IL:PROP IL:MAKEFILE-ENVIRONMENT IL:XCLC-TRANSFORMS) (IL:* IL:|;;| "Use the proper compiler.") (IL:PROP IL:FILETYPE IL:XCLC-TRANSFORMS))) (IL:SET-DOCUMENTATION (QUOTE TRANSFORMS) (QUOTE IL:DEFINE-TYPES) (QUOTE "XCL Compiler transformations" )) (IL:SETQ IL:PRETTYDEFMACROS (ADJOIN (QUOTE (TRANSFORMS XCL::X (IL:P IL:* ( XCL::%DEFINE-TYPE-FILE-DEFINITIONS (QUOTE TRANSFORMS) (QUOTE XCL::X))))) IL:PRETTYDEFMACROS :TEST ( QUOTE EQUAL))) (IL:SETQ IL:PRETTYTYPELST (ADJOIN (QUOTE (CHANGEDTRANSFORMSLST TRANSFORMS "XCL Compiler transformations")) IL:PRETTYTYPELST :TEST (QUOTE EQUAL))) (PROCLAIM (QUOTE (GLOBAL CHANGEDTRANSFORMSLST))) (OR (BOUNDP (QUOTE CHANGEDTRANSFORMSLST)) (SETQ CHANGEDTRANSFORMSLST NIL)) (COND ((NOT (GETHASH (QUOTE TRANSFORMS) *DEFINITION-HASH-TABLE*)) (CL::PUTHASH (QUOTE TRANSFORMS) *DEFINITION-HASH-TABLE* (MAKE-HASH-TABLE :TEST (QUOTE EQUAL) :SIZE 50 :REHASH-SIZE 50)))) (IL:SETQ IL:FILEPKGTYPES (ADJOIN (QUOTE TRANSFORMS) IL:FILEPKGTYPES)) (IL:PUTPROP (QUOTE TRANSFORMS) (QUOTE IL:GETDEF) (QUOTE XCL::%DEFINE-TYPE-GETDEF)) (IL:PUTPROP (QUOTE TRANSFORMS) (QUOTE IL:DELDEF) (QUOTE XCL::%DEFINE-TYPE-DELDEF)) (IL:PUTPROP (QUOTE TRANSFORMS) (QUOTE IL:PUTDEF) (QUOTE XCL::%DEFINE-TYPE-PUTDEF)) (IL:PUTPROP (QUOTE TRANSFORMS) (QUOTE IL:FILEGETDEF) (QUOTE XCL::%DEFINE-TYPE-FILEGETDEF)) (IL:PUTPROP (QUOTE TRANSFORMS) (QUOTE IL:FILEPKGCONTENTS) (QUOTE IL:NILL)) (IL:PUTPROP (QUOTE TRANSFORMS) (QUOTE :UNDEFINERS) (ADJOIN (QUOTE (LAMBDA (NAME) (WHEN (SYMBOLP NAME) (REMPROP NAME (QUOTE TRANSFORM))))) (GET (QUOTE TRANSFORMS) (QUOTE :UNDEFINERS)))) (IL:PUTPROP (QUOTE DEFTRANSFORM) (QUOTE :DEFINER-FOR) (QUOTE TRANSFORMS)) (IL:PUTPROP (QUOTE TRANSFORMS) (QUOTE :DEFINED-BY) (ADJOIN (QUOTE DEFTRANSFORM) (GET (QUOTE TRANSFORMS ) (QUOTE :DEFINED-BY)))) |definition-expander-DEFTRANSFORM| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) n@QHHZJgoI I ggMKLgggIhogMhhh(47 INTERN 42 SYMBOL-PACKAGE 36 CONCATENATE 31 STRING) (95 QUOTE 79 QUOTE 74 GET 69 SETF 58 DEFUN 53 PROGN 20 STRING) ( 88 ((QUOTE TRANSFORM)) 25 "transform-") (IL:PUTPROP (QUOTE DEFTRANSFORM) (QUOTE :DEFINITION-EXPANDER) (QUOTE |definition-expander-DEFTRANSFORM|)) (IL:PUTPROP (QUOTE DEFTRANSFORM) (QUOTE :DEFINITION-NAME) (QUOTE SECOND)) (IL:PUTPROP (QUOTE DEFTRANSFORM) (QUOTE :DEFINITION-PRINT-TEMPLATE) (QUOTE (:NAME NIL :BODY))) (IL:SETQ IL:PRETTYPRINTMACROS (ADJOIN (QUOTE (DEFTRANSFORM . XCL::PPRINT-DEFINER)) IL:PRETTYPRINTMACROS :TEST (QUOTE EQUAL))) |expand-DEFTRANSFORM| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @AgggHIhNIL (20 DEFTRANSFORM 15 TRANSFORMS 10 DEFINER) () (IL:SETF-MACRO-FUNCTION (QUOTE DEFTRANSFORM) (QUOTE |expand-DEFTRANSFORM|)) (IL:PUTPROPS TRANSFORM IL:PROPTYPE IGNORE) IS-CALL-TO :D8 (IL:L (1 NODE 0 NAME)) 7A /A H H YI@I(30 VAR-REF-VARIABLE 22 VAR-REF-P 13 CALL-FN 5 CALL-P) (49 VARIABLE-STRUCT 42 VARIABLE-STRUCT 36 VARIABLE-STRUCT) () IL:|transform-\\ADDBASE| :D8 (IL:L (1 CONTEXT 0 NODE)) @ H_H_gO O vO 3 kO ^ ZN 3 PgO N N O MJI@\ LK @ Ob@A@(154 RELEASE-TREE 136 CALL-ARGS 121 CALL-ARGS 113 RELEASE-TREE 106 MAKE-LITERAL 100 LITERAL-VALUE 94 LITERAL-VALUE 78 LITERAL-VALUE 70 LITERAL-P 62 CALL-ARGS 51 LITERAL-VALUE 42 LITERAL-P 31 IS-CALL-TO 5 CALL-ARGS) (167 NODE 144 CALL-NODE 87 :VALUE 24 IL:\\ADDBASE) () (IL:PUTPROP (QUOTE IL:\\ADDBASE) (QUOTE TRANSFORM) (QUOTE IL:|transform-\\ADDBASE|)) IL:|transform-\\GETBASE| :D8 (IL:L (1 CONTEXT 0 NODE)) @Agg (16 TRANSFORM-GET/PUT-BASE) (11 IL:GETBASE.N 6 :GET) () (IL:PUTPROP (QUOTE IL:\\GETBASE) (QUOTE TRANSFORM) (QUOTE IL:|transform-\\GETBASE|)) IL:|transform-\\GETBASEPTR| :D8 (IL:L (1 CONTEXT 0 NODE)) @Agg (16 TRANSFORM-GET/PUT-BASE) (11 IL:GETBASEPTR.N 6 :GET) () (IL:PUTPROP (QUOTE IL:\\GETBASEPTR) (QUOTE TRANSFORM) (QUOTE IL:|transform-\\GETBASEPTR|)) IL:|transform-\\PUTBASE| :D8 (IL:L (1 CONTEXT 0 NODE)) +Ag@ggg @A@(29 TRANSFORM-GET/PUT-BASE) (36 NODE 24 IL:PUTBASE.N 19 :PUT 14 :EFFECT 5 :EFFECT) () (IL:PUTPROP (QUOTE IL:\\PUTBASE) (QUOTE TRANSFORM) (QUOTE IL:|transform-\\PUTBASE|)) IL:|transform-\\PUTBASEPTR| :D8 (IL:L (1 CONTEXT 0 NODE)) +Ag@ggg @A@(29 TRANSFORM-GET/PUT-BASE) (36 NODE 24 IL:PUTBASEPTR.N 19 :PUT 14 :EFFECT 5 :EFFECT) () (IL:PUTPROP (QUOTE IL:\\PUTBASEPTR) (QUOTE TRANSFORM) (QUOTE IL:|transform-\\PUTBASEPTR|)) IL:|transform-\\RPLPTR| :D8 (IL:L (1 CONTEXT 0 NODE)) +Ag@ggg @A@(29 TRANSFORM-GET/PUT-BASE) (36 NODE 24 IL:RPLPTR.N 19 :PUT 14 :EFFECT 5 :EFFECT) () (IL:PUTPROP (QUOTE IL:\\RPLPTR) (QUOTE TRANSFORM) (QUOTE IL:|transform-\\RPLPTR|)) IL:|optimize-\\PUTBASE| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) @BHIl (14 ENSURE-EFFECT-CONTEXT) NIL () (IL:PUTPROP (QUOTE IL:\\PUTBASE) (QUOTE OPTIMIZER-LIST) (ADJOIN (QUOTE IL:|optimize-\\PUTBASE|) (GET ( QUOTE IL:\\PUTBASE) (QUOTE OPTIMIZER-LIST)))) IL:|optimize-\\PUTBASEPTR| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) @BHIl (14 ENSURE-EFFECT-CONTEXT) NIL () (IL:PUTPROP (QUOTE IL:\\PUTBASEPTR) (QUOTE OPTIMIZER-LIST) (ADJOIN (QUOTE IL:|optimize-\\PUTBASEPTR|) (GET (QUOTE IL:\\PUTBASEPTR) (QUOTE OPTIMIZER-LIST)))) IL:|optimize-\\RPLPTR| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) @BHIl (14 ENSURE-EFFECT-CONTEXT) NIL () (IL:PUTPROP (QUOTE IL:\\RPLPTR) (QUOTE OPTIMIZER-LIST) (ADJOIN (QUOTE IL:|optimize-\\RPLPTR|) (GET ( QUOTE IL:\\RPLPTR) (QUOTE OPTIMIZER-LIST)))) IL:|transform-\\GETBITS| :D8 (IL:L (1 CONTEXT 0 NODE)) V@ H Hd 3 o H @ h@AggI (83 TRANSFORM-GET/PUT-BASE 60 CALL-ARGS 54 RELEASE-TREE 47 LITERAL-VALUE 39 IL:ASSERT-FAIL 25 LITERAL-VALUE 17 LITERAL-P 5 CALL-ARGS) (76 IL:GETBITS.N.FD 71 :GET) ( 34 "BUG: Field-descriptor for \\getbits is not a literal integer.") (IL:PUTPROP (QUOTE IL:\\GETBITS) (QUOTE TRANSFORM) (QUOTE IL:|transform-\\GETBITS|)) IL:|transform-\\PUTBITS| :D8 (IL:L (1 CONTEXT 0 NODE)) zAgg@ 1H Hd 3 o H @ @ KJ@gggI @A@(108 TRANSFORM-GET/PUT-BASE 76 CALL-ARGS 69 CALL-ARGS 63 RELEASE-TREE 56 LITERAL-VALUE 48 IL:ASSERT-FAIL 34 LITERAL-VALUE 26 LITERAL-P 14 CALL-ARGS) (115 NODE 101 IL:PUTBITS.N.FD 96 :PUT 91 :EFFECT 5 :EFFECT) ( 43 "BUG: Field-descriptor for \\putbits is not a literal integer.") (IL:PUTPROP (QUOTE IL:\\PUTBITS) (QUOTE TRANSFORM) (QUOTE IL:|transform-\\PUTBITS|)) IL:|optimize-\\GETBITS| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) <@QHHZJ@]K3 L3 o lgIKhM(38 IL:ASSERT-FAIL) (49 IL:\\GETBASE) ( 33 "BUG: The second and third arguments to \\GETBITS must be literal integers.") (IL:PUTPROP (QUOTE IL:\\GETBITS) (QUOTE OPTIMIZER-LIST) (ADJOIN (QUOTE IL:|optimize-\\GETBITS|) (GET ( QUOTE IL:\\GETBITS) (QUOTE OPTIMIZER-LIST)))) IL:|optimize-\\PUTBITS| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) W @HHZJ\L@_B_K3 M3 o lgIKNhOOlo (84 ENSURE-EFFECT-CONTEXT 48 IL:ASSERT-FAIL) (59 IL:\\PUTBASE) ( 79 (1 2) 43 "BUG: The second and third arguments to \\PUTBITS must be literal integers.") (IL:PUTPROP (QUOTE IL:\\PUTBITS) (QUOTE OPTIMIZER-LIST) (ADJOIN (QUOTE IL:|optimize-\\PUTBITS|) (GET ( QUOTE IL:\\PUTBITS) (QUOTE OPTIMIZER-LIST)))) ENSURE-EFFECT-CONTEXT :D8 (IL:L (3 SUBST-INDICES 2 RESULT-ARG-NUMBER 1 CTXT 0 FORM)) AjgP@jM%gI @H KhJ _NCOHNB$OgN \HLIOJNBLMNkԾ(97 IL:PACK* 62 REVERSE 49 REVERSE 41 REVERSE) (91 ARG- 35 IL:OPENLAMBDA 15 PASS 5 CONTEXT) () TRANSFORM-GET/PUT-BASE :D8 (IL:L (4 BETA-BYTE 3 OPCODE 2 USE 1 CONTEXT 0 NODE))  @  jHgL