(deffun check-out (
  delete-mode-view
  shell-command "co "  "-l "  "$ORIFILE
))

(deffun check-in (
  save-file
  add-mode-view
  shell-command "ci "  "-u "  "$ORIFILE
))
