{{{  comments
; save the file and attach a file containg the output of ``spell''
; for the current file. attach a filled fold to the generated output.
}}}
nodup
{{{  spell-it
(deffun spell-it (
  save-file
  shell-command "spell "  "$ORIFILE "  ">.spelled newline-and-indent
  newline-and-indent
  beginning-of-line
  create-fold create-fold ".spelled
  open-file-fold
))
}}}