And one more comment to be as clear as possible :)
My file contains several independent things: 1. package-file, of-system: are not very interesting, lets ignore them.
2. fake restart to allow calling editor from the debugger. The most interesting.
3. tools to enable finding a form definition by system name via M-. in SLIME or Lispworks IDE. Rather useful.