(*)
(intercompl 'beaver-mm)
(intercompl 'beaver-gc)
(intercompl 'beaver-support)
(interslurp 'beaver-compiler)
(intercompl 'beaver-primitives)
(intercompl 'beaver-compiler)
(intercompl 'beaver-processor)
(intercompl 'beaver-stats)
(intercompl 'sm-top)

(install-scan-space)
(create-spaces 10 32000 10000)
(\lockwords new-space 64000)   (* Entire new space. *)
(\lockwords future-survivor-space 10000) (* Half of space. *)
(\lockwords past-survivor-space 10000) (* Half of space. *)
(create-global-env)
(nlisp)