> "****** TOP LEVEL COMILER CALLS ******" "COMPILE -- compile one function. The arguments to compile are: FCN -- an atom whose GVAL is a function CAREFUL -- If true compile bounds checking else don't. REASONABLE -- Assume reasonable calling sequence? ANALY-OK -- If true, do hairy analysis. VERBOSE -- Print debugginh messages. " ) "AUX" (IND (1)) (VP (())) FCNP FCNN (GLOSP <>) (TAG-COUNT 0) (EXTRA-CODE-START .EXTRA-CODE-START) (ELSE (0))>) (EXTRA-CODE .EXTRA-CODE) (ELSE .EXTRA-CODE-START)>) CL "NAME" COMPILE-ACTIVATION) #DECL ((FCN) (FCNN) (SRC-FLG BIN-FLG CAREFUL GLOSP REASONABLE IND TAG-COUNT COMPILE-ACTIVATION ANALY-OK VERBOSE) (EXTRA-CODE-START EXTRA-CODE) ) )> FUNCTION> > > FUNCTION>>>>> )> "PS1" <>>)> > "ANA" <>>)> "GEN" <>>)> )> > ,FIXUP-DEATH-ENABLED> )> ,PEEP-ENABLED> "PEEP" <>>)> >)> ,FIXUP-DEATH-ENABLED> "DEAD" <>>)> > )>)>> > 60>) (NHRS )) #DECL ((NSEC) (NMIN NHRS) FIX (VALUE) STRING) > <- .NSEC <* .NMIN 60>>>> <2 .D2> <3 .D2>> <2 .D1> <3 .D1>>>)) #DECL ((D1 D2 T1 T2) (VALUE) STRING) <* <1 .T2> 3600> <* <2 .T2> 60> <3 .T2>> <+ <* <1 .T1> 3600> <* <2 .T1> 60> <3 .T1>>>>> > ":">) (ELSE "")> > >> "") (ELSE "0")> CHARACTER>>) (ELSE 48> CHARACTER> 48> CHARACTER>>)> ":">) (ELSE "")> > >> "0") (ELSE "")> CHARACTER>>) (ELSE 48> CHARACTER> 48> CHARACTER>>)>>>