--- /dev/null
+<BLOAT 150000 5000 100 1500 100>
+<SET REDEFINE T>
+<RSUBR-LINK <>>
+<GC-MON T>
+
+<USE "MLOAD">
+
+<SETG DUMMY-FILE!-IMLOAD!-MLOAD!-PACKAGE "PS:<MDLLIB>DUMMY.NBIN">
+
+<SETG LOAD-GBINS? T>
+
+<USE "MCLEAN">
+
+<OR <LOOKUP "GLUE" <ROOT>>
+ <INSERT "GLUE" <ROOT>>>
+<SET GLUE T>
+
+<FLOAD "PS:<MDLLIB>ELMER.FBIN">
+<USE "GLUE">
+<SETG GLUE-MAX-SPACE T>
+
+<SETG L-SEARCH-PATH (["SRC:<MDL.COMP>"] !,L-SEARCH-PATH)>
+<FLOAD "SRC:<MDL.COMP>HELP.COMPIL">
+
+<GUNASSIGN L-LOADER>
+
+<MOBY-LOAD "SRC:<MDL.COMP>SYMANA.NBIN">
+
+
+<MOBY-CLEAN SYMANA <>>
+
+<USE "CLEAN" "PURITY">
+<CLEANUP>
+<FLUSH-CLEANUP>
+<KILL:PURITY>
+
+<SETG PKGS ("SYMANA" "CARANA" "MAPANA" "NOTANA" "STRANA" "BITANA"
+ "BACKAN" "ADVMESS")>
+
+<PRINT <GC 0 T>>
+<PRINT <GC 0 T>>
+
+<SETG SURVIVERS (SPEC-FLUSH!-ISYMANA!-SYMANA!-PACKAGE
+ TYPE-OK?!-CHKDCL!-PACKAGE
+SUBR-ANA!-ISYMANA!-SYMANA!-PACKAGE
+QUOTE-ANA!-ISYMANA!-SYMANA!-PACKAGE
+FUNC-ANA!-ISYMANA!-SYMANA!-PACKAGE
+SEGMENT-ANA!-ISYMANA!-SYMANA!-PACKAGE
+FORM-AN!-ISYMANA!-SYMANA!-PACKAGE
+PRG-REP-ANA!-ISYMANA!-SYMANA!-PACKAGE
+SUBR-ANA!-ISYMANA!-SYMANA!-PACKAGE
+COND-ANA!-ISYMANA!-SYMANA!-PACKAGE
+COPY-AN!-ISYMANA!-SYMANA!-PACKAGE
+RSUBR-ANA!-ISYMANA!-SYMANA!-PACKAGE
+ISTRUC-ANA!-ISYMANA!-SYMANA!-PACKAGE
+ISTRUC2-ANA!-ISYMANA!-SYMANA!-PACKAGE
+READ-ANA!-ISYMANA!-SYMANA!-PACKAGE
+READ2-ANA!-ISYMANA!-SYMANA!-PACKAGE
+GET-ANA!-ISYMANA!-SYMANA!-PACKAGE
+GET2-ANA!-ISYMANA!-SYMANA!-PACKAGE
+MAPPER-AN!-ISYMANA!-SYMANA!-PACKAGE
+MARGS-ANA!-ISYMANA!-SYMANA!-PACKAGE
+ARITH-ANA!-ISYMANA!-SYMANA!-PACKAGE
+ARITHP-ANA!-ISYMANA!-SYMANA!-PACKAGE
+ARITHP-ANA!-ISYMANA!-SYMANA!-PACKAGE
+ARITHP-ANA!-ISYMANA!-SYMANA!-PACKAGE
+ARITH-ANA!-ISYMANA!-SYMANA!-PACKAGE
+ABS-ANA!-ISYMANA!-SYMANA!-PACKAGE
+FIX-ANA!-ISYMANA!-SYMANA!-PACKAGE
+FLOAT-ANA!-ISYMANA!-SYMANA!-PACKAGE
+MOD-ANA!-ISYMANA!-SYMANA!-PACKAGE
+LENGTH-ANA!-ISYMANA!-SYMANA!-PACKAGE
+EMPTY?-ANA!-ISYMANA!-SYMANA!-PACKAGE
+NTH-ANA!-ISYMANA!-SYMANA!-PACKAGE
+REST-ANA!-ISYMANA!-SYMANA!-PACKAGE
+PUT-ANA!-ISYMANA!-SYMANA!-PACKAGE
+PUTREST-ANA!-ISYMANA!-SYMANA!-PACKAGE
+UNWIND-ANA!-ISYMANA!-SYMANA!-PACKAGE
+FORM-F-ANA!-ISYMANA!-SYMANA!-PACKAGE
+COPY-AN!-ISYMANA!-SYMANA!-PACKAGE
+BACK-ANA!-ISYMANA!-SYMANA!-PACKAGE
+TOP-ANA!-ISYMANA!-SYMANA!-PACKAGE
+SUBSTRUC-ANA!-ISYMANA!-SYMANA!-PACKAGE
+DEFAULT-GEN!-ICODGEN!-CODGEN!-PACKAGE
+FORM-GEN!-ICODGEN!-CODGEN!-PACKAGE
+PROG-REP-GEN!-ICODGEN!-CODGEN!-PACKAGE
+SUBR-GEN!-ICODGEN!-CODGEN!-PACKAGE
+COND-GEN!-ICODGEN!-CODGEN!-PACKAGE
+LVAL-GEN!-ICODGEN!-CODGEN!-PACKAGE
+SET-GEN!-ICODGEN!-CODGEN!-PACKAGE
+OR-GEN!-ICODGEN!-CODGEN!-PACKAGE
+AND-GEN!-ICODGEN!-CODGEN!-PACKAGE
+RETURN-GEN!-ICODGEN!-CODGEN!-PACKAGE
+COPY-GEN!-ICODGEN!-CODGEN!-PACKAGE
+AGAIN-GEN!-ICODGEN!-CODGEN!-PACKAGE
+GO-GEN!-ICODGEN!-CODGEN!-PACKAGE
+ARITH-GEN!-ICODGEN!-CODGEN!-PACKAGE
+RSUBR-GEN!-ICODGEN!-CODGEN!-PACKAGE
+0-TEST!-ICODGEN!-CODGEN!-PACKAGE
+NOT-GEN!-ICODGEN!-CODGEN!-PACKAGE
+1?-GEN!-ICODGEN!-CODGEN!-PACKAGE
+TEST-GEN!-ICODGEN!-CODGEN!-PACKAGE
+==-GEN!-ICODGEN!-CODGEN!-PACKAGE
+TYPE?-GEN!-ICODGEN!-CODGEN!-PACKAGE
+LNTH-GEN!-ICODGEN!-CODGEN!-PACKAGE
+MT-GEN!-ICODGEN!-CODGEN!-PACKAGE
+REST-GEN!-ICODGEN!-CODGEN!-PACKAGE
+NTH-GEN!-ICODGEN!-CODGEN!-PACKAGE
+PUT-GEN!-ICODGEN!-CODGEN!-PACKAGE
+PUTREST-GEN!-ICODGEN!-CODGEN!-PACKAGE
+FLVAL-GEN!-ICODGEN!-CODGEN!-PACKAGE
+FSET-GEN!-ICODGEN!-CODGEN!-PACKAGE
+FGVAL-GEN!-ICODGEN!-CODGEN!-PACKAGE
+FSETG-GEN!-ICODGEN!-CODGEN!-PACKAGE
+STACKFORM-GEN!-ICODGEN!-CODGEN!-PACKAGE
+MIN-MAX!-ICODGEN!-CODGEN!-PACKAGE
+CHTYPE-GEN!-ICODGEN!-CODGEN!-PACKAGE
+FIX-GEN!-ICODGEN!-CODGEN!-PACKAGE
+FLOAT-GEN!-ICODGEN!-CODGEN!-PACKAGE
+ABS-GEN!-ICODGEN!-CODGEN!-PACKAGE
+MOD-GEN!-ICODGEN!-CODGEN!-PACKAGE
+ID-GEN!-ICODGEN!-CODGEN!-PACKAGE
+ASSIGNED?-GEN!-ICODGEN!-CODGEN!-PACKAGE
+ISTRUC-GEN!-ICODGEN!-CODGEN!-PACKAGE
+ISTRUC-GEN!-ICODGEN!-CODGEN!-PACKAGE
+BITS-GEN!-ICODGEN!-CODGEN!-PACKAGE
+GETBITS-GEN!-ICODGEN!-CODGEN!-PACKAGE
+BITLOG-GEN!-ICODGEN!-CODGEN!-PACKAGE
+PUTBITS-GEN!-ICODGEN!-CODGEN!-PACKAGE
+ISUBR-GEN!-ICODGEN!-CODGEN!-PACKAGE
+ID-GEN!-ICODGEN!-CODGEN!-PACKAGE
+READ2-GEN!-ICODGEN!-CODGEN!-PACKAGE
+SUBR-GEN!-ICODGEN!-CODGEN!-PACKAGE
+IPUT-GEN!-ICODGEN!-CODGEN!-PACKAGE
+IREMAS-GEN!-ICODGEN!-CODGEN!-PACKAGE
+GET-GEN!-ICODGEN!-CODGEN!-PACKAGE
+GET2-GEN!-ICODGEN!-CODGEN!-PACKAGE
+IRSUBR-GEN!-ICODGEN!-CODGEN!-PACKAGE
+MAPFR-GEN!-ICODGEN!-CODGEN!-PACKAGE
+MPARGS-GEN!-ICODGEN!-CODGEN!-PACKAGE
+MAPLEAVE-GEN!-ICODGEN!-CODGEN!-PACKAGE
+MAPRET-STOP-GEN!-ICODGEN!-CODGEN!-PACKAGE
+UNWIND-GEN!-ICODGEN!-CODGEN!-PACKAGE
+GVAL-GEN!-ICODGEN!-CODGEN!-PACKAGE
+SETG-GEN!-ICODGEN!-CODGEN!-PACKAGE
+TAG-GEN!-ICODGEN!-CODGEN!-PACKAGE
+PRINT-GEN!-ICODGEN!-CODGEN!-PACKAGE
+MEMQ-GEN!-ICODGEN!-CODGEN!-PACKAGE
+LENGTH?-GEN!-ICODGEN!-CODGEN!-PACKAGE
+FORM-F-GEN!-ICODGEN!-CODGEN!-PACKAGE
+INFO-GEN!-ICODGEN!-CODGEN!-PACKAGE
+OBLIST?-GEN!-ICODGEN!-CODGEN!-PACKAGE
+AS-NXT-GEN!-ICODGEN!-CODGEN!-PACKAGE
+ASSOC-FIELD-GET!-ICODGEN!-CODGEN!-PACKAGE
+ALL-REST-GEN!-ICODGEN!-CODGEN!-PACKAGE
+LIST-BUILD!-ICODGEN!-CODGEN!-PACKAGE
+SPEC-PUT-GEN!-ICODGEN!-CODGEN!-PACKAGE
+BACK-GEN!-ICODGEN!-CODGEN!-PACKAGE
+TOP-GEN!-ICODGEN!-CODGEN!-PACKAGE
+SUBSTRUC-GEN!-ICODGEN!-CODGEN!-PACKAGE
+ROT-GEN!-ICODGEN!-CODGEN!-PACKAGE
+LSH-GEN!-ICODGEN!-CODGEN!-PACKAGE
+BIT-TEST-GEN!-ICODGEN!-CODGEN!-PACKAGE
+ENTROPY!-SYMANA!-PACKAGE
+NORM-BAN!-SYMANA!-PACKAGE
+NAUX-BAN!-SYMANA!-PACKAGE
+TUP-BAN!-SYMANA!-PACKAGE
+ARGS-BAN!-SYMANA!-PACKAGE
+MENTROPY!-MAPANA!-PACKAGE
+MAUX!-MAPANA!-PACKAGE
+MAUX1!-MAPANA!-PACKAGE
+MTUPLE!-MAPANA!-PACKAGE
+MBAD!-MAPANA!-PACKAGE
+MOPT!-MAPANA!-PACKAGE
+MOPT2!-MAPANA!-PACKAGE
+MNORM!-MAPANA!-PACKAGE
+)>
+
+
+<REPEAT ((A <ASSOCIATIONS>) RSB)
+ <COND (<==? <INDICATOR .A> ANALYSIS!-SYMANA!-PACKAGE>
+ <COND (<TYPE? <SET RSB <AVALUE .A>> RSUBR RSUBR-ENTRY>
+ <COND (<NOT <MEMQ <3 .RSB> ,SURVIVERS>>
+ <SETG SURVIVERS (<3 .RSB> !,SURVIVERS)>)>)>)>
+ <OR <SET A <NEXT .A>> <RETURN>>>
+
+
+
+<GROUP-GLUE SYMANA
+ <>
+ .OUTCHAN
+ ,PKGS
+ ,SURVIVERS>
+
+<MOBY-CLEAN SYMANA>
+
projects / pdp10-muddle.git / blobdiff