How to defun body in procedural manner

[Kiwon Um]

Hello. I wrote a function as follows:

(defun my-update-package (path)
  "Update the package in path from CVS"
  (cvs-update path nil)
  (shell-command (concat "touch `find " path " -name Makefile`"))
  (compile (concat "make -C " path)))

When the function is called, it seems to execute the shell-command and
compile lines before the finishing cvs-update line. How can I make
this functional execution procedurally? Help me, please.

Thanks.