(load "target:compiler/generic/new-genesis")
(setf lisp::*genesis-core-name*     "target:lisp/junk.core")
(setf lisp::*genesis-c-header-name* "target:lisp/internals.h") ; output
(setf lisp::*genesis-symbol-table*  "target:lisp/lisp.nm")     ; input
(lisp::genesis nil)
(quit)