ANY FIX FIX>> > > > > > > > "Stuff for status line" > ,H-STATE-LN ,H-STATE>> >> >> >> > > )> IMPORT-PM!- DEFINITION-MODULE!- PROGRAM-MODULE!- END-MODULE!- INCLUDE-DEFINITIONS!- PMEXPORT!- INCLUDE-WHEN!- IMPORT-WHEN!- ZSECTION!- ZZSECTION!- ZPACKAGE!- ZZPACKAGE!- ZENDPACKAGE!- ZENDSECTION!- ENDSECTION!- 0.5>>) (STARR ) INCH OUTCH (TEMPCH <>) TEM (NEW-INDEX ()) X (PRE-INDEX ()) (SRC-CHAN #FALSE ()) (NO-TEMP-FILE .NO-TEMP-FILE) ATOM-LIST OC FILE-DATA GC-HANDLER (OBLIST .OBLIST) TMP ATL PRECH (OUTCHAN .OUTCHAN) (NO-BQ <>) (REDO .REDO) NM1 SNM DEV (GCTIME 0.0) (I/O-TIME 0.0) (ANY-MIMAS? <>) (REAL-NM2 .NM2)) #DECL ((FCEX) (INFILE OUTFILE) STRING (REDO) LIST (OUTCHAN) (INCH OC) (TIXCH TEMPCH SRC-CHAN) > (OUTCH) (STARCPU STARR ATNUM) (ATOM-LIST ATL) ]>> (FILE-DATA) ATOM> (X) FLOAT (REDONE) (GCTIME I/O-TIME) (NO-BQ) (NM1 NM2 DEV SNM) (PRE-INDEX NEW-INDEX) (OBLIST) ) > >> )> > > ;> ;> > ) > )> > )> .PRECOMPILED> .PRECH> > >> ) (<=? "OPERATOR"> ; "Don't call error if running in batch mode" ": " <1 .PRECH> ,CRET> ) (> )>) (ELSE )>>)> )> > > )> >> > <> <>>)> > .X>> <> <>>)> > FUNCTION>>> .ATM) (ELSE )>> <1 .FILE-DATA>>> >> ) >>> >)> )> .PRECOMPILED .PRECH> > <> <>>)> )) > >> > > ATOM> "FCN"> <=? "GFCN">>> >> > >>> )> > > .HASH-CODE >>>> )>) ACCESS-LIST> !.PRE-INDEX)> > > > ) (ELSE > )> .NM> > )> >>)>)> >> )>) ( > > ) ( > '[PACKAGE RPACKAGE ENDPACKAGE ENTRY USE-WHEN USE-DEBUG INCLUDE DEFINITIONS END-DEFINITIONS DROP L-UNUSE RENTRY USE USE-DEFER USE-TOTAL IMPORT-PM!- DEFINITION-MODULE!- PROGRAM-MODULE!- END-MODULE!- INCLUDE-DEFINITIONS!- PMEXPORT!- INCLUDE-WHEN!- IMPORT-WHEN!- BLOCK ENDBLOCK ZSECTION!- ZZSECTION!- ZPACKAGE!- ZZPACKAGE!- ZENDPACKAGE!- ZENDSECTION!- ENDSECTION!- ]>>>> ; "Don't eval most things in precompiled, since they only screw things up." )> >> )> .X>>>)> ) (ELSE >>)> > .A) (ELSE )>> .ATOM-LIST>>)> (OUTL) ) >> > > > ) ACCESS-LIST> !.NEW-INDEX)> .X>>>) (ELSE ) !,ALL-OUT)>)>) (ELSE )>> .ATOM-LIST> <>>)> > > .L> > .NEW-INDEX>) (ELSE ! LIST>) INS-LIST>>> ,ALL-OUT>)> .PRECOMPILED> ) PN) #DECL ((PREV) ) )) #DECL ((L) ACCESS-LIST) > >> (.PREV)> > <4 .PREV>> > >)> )> > .PRE-INDEX>>)> > .TEMPCH> .X>>> > > )> .DISOWN> "Compilation completed. Your patience is godlike.") (ELSE "Compilation completed. Your patience is godlike.")>> ) (WIN <>) (PO )) > > >> > >) (ELSE .ATM)>> ) (LL )) #DECL ((L LL) LIST) >) ( LIST> > 1>>> >>) (ELSE >>)>>> >> >) (TSTARR <- >)) #DECL ((STARCPU STARR TSTARCPU TSTARR) FIX) )> ": " 1> "once") (T <2 .L>)> 1> "") (T " times")> ,CRET> >>)> ;"Went over midnight." >>)> "garbage collector CPU time,"> "I/O time."> >> "%." ,CRET "Number of garbage collects = " ,GC-COUNT ,CRET>> > > " hours "> >>)> " min. "> >)> > >> ) > >>> .ATOM-LIST>>>> " to go."> ) ( > > ) (> ) (ELSE )>) (ELSE )>> 1>> >>>> > > .A>>> ) > (<1 > .GRP)> > ) ( FORM> >>>> DEFINE> DEFMAC>>> ()>>) (ELSE <2 .TT> <>>>)> VALUE '<2 .TT>>> > >)>)> >>> ) > <==? <1 .TUP> CONTROL-G!-ERRORS>> ;"HAVE TO NEST TO TURN HANDLER ON AND OFF" ) (ELSE ,PRINT .TUP> )>> >)> ,CRET>> ..ATM> ;"Do it?" ;"Output channel already open." ) ( ;"Name of output file given." )> >) ;"So try opening it." (ELSE ;"Bad name." > )>) (ELSE ) (NM2 .STR2)) #DECL ((NM1 NM2) ) )> >) (ELSE > )>> .NEW-CHAN)>)>> ) B) > COMMENT> COMMENT>)> > )>>> "GETORDER FUNCTIONS" ) >>> (VALUE) LIST) 1>>> (OU) ) >) ) (>> .TEM> >) (ELSE .TEM> >)>)> >>> ) )> > > >> ) ]>> (VALUE) ]> (TEM) >) >) (> !.RES)> >) (ELSE >)> >) (ELSE > .FLIST>> !.RES2)> >) (ELSE >)>)> >> >> ) (> >)> > > 1>>>) (ELSE >>)>)> ) (ELSE )>> )>>> ATOM]>) >> > > >>> ATOM]> (RES) LIST) ) > ) <1 .LS> .LST>> >> ) FIX>) (TL 0) (LST .LST)) #DECL ((SHORT TL) FIX (LST) ) > >> .SHORT> )> >> >> <1 <1 .PNT>>) (ELSE <1 .PNT>)> !.RES)> > <1 .PNT>> > >) (ELSE >)>) (ELSE )>> >> > (MLST) ATOM]>) ) (ELSE ) .ATM> >> >> .MLST>>)>> .LST> .LATM> (FUNCL) >) >> )) #DECL ((FM) FORM) ) ( >>>> ATOM> >> FUNCTION> >> MACRO> >> >> ;"Analyze expansion of MACRO call" ,MAPF> <==? ,<1 .FM> ,MAPR>> > FORM> >> T> FORM> >>>>) (> ,FINDREC <1 .OBJ>>)> >) (ELSE ,FINDREC >)>) (ELSE ,FINDREC .OBJ>)>> > ) (ELSE )>> 100 .OBJ>>> ) ()>> VECTOR> ) (ELSE <1 .TEM>)>> 2> ATOM> <==? ,<1 .FM> ,GVAL> ATOM> > FUNCTION> MACRO> >> > FUNCTION>>> >>> (FUNCL) > (VALUE) ) .FUNCL> ATOM>) > > <1 .ATM> !.TD)> >>)) #DECL ((ATM) [REST ATOM]>> (TOPDO) ATOM>>) )) #DECL ((TODO) (CURDO) >) >> ) (ELSE > )>) ( .TOPDO>) (ELSE 1>> (> <1 .CURDO>)>)> >>> [REST ATOM]>>) >> >) (ELSE )>> ) TMP) > > > DEFINE> <==? .TMP DEFMAC>> VALUE '<2 .IT>>> ATOM> <==? .TMP .NM>> )>> .RGRP> .OB> 0.5>>) (REAL ) "AUX" (OUTCHAN ,OUTCHAN)) )> > )> > )> ) (ELSE )> ,STATE-FCN ! ,STATE-PHASE ! ,H-PHASE-LN> ,STATE-CPU !> ,STATE-REAL !> " " ! " " >> )) ) (ELSE )>> > )) ) ( >) (ELSE >>>)>> ) (H:FIX ) (R:FIX ) (M:FIX ) (S:FIX )) "*:") ( .H) (ELSE "")> .M ":" "0") (ELSE "")> .S " ") (ELSE "")> " ") (ELSE "")>>> ) (R:FIX ) (M:FIX ) (S:FIX )) "**") ( "") (ELSE > "")> > .H) (ELSE "")> .M ":" "0") (ELSE "")> .S "") ( " ") (ELSE " ")> " ") (ELSE "")>>> > >> >>) (ELSE >> > -1>> "") ( " ") (ELSE " ")> .LN2 "/" "") ( " ") (ELSE " ")> .LN1>)>>