(in-package :clim-user)

(defvar *application-processes* (make-hash-table))

(defun run (app)
  (let ((p (gethash app *application-processes*)))
    (when p
      (mp:destroy-process p))
    (setf (gethash app *application-processes*)
          (let ((pack *package*))
            (mp:make-process
             (lambda ()
               (let ((*package* pack))
                 (clim:run-frame-top-level
                  (clim:make-application-frame
                   app)))))))))