{{{  comments
; some macros to control svc
}}}
nodup
{{{  check-out
(deffun check-out (
  delete-mode-view
  shell-command "co "  "-l "  "$ORIFILE
))
}}}
{{{  check-in
(deffun check-in (
  save-file
  add-mode-view
  shell-command "ci "  "-u "  "$ORIFILE
))
}}}