diff --git a/lspack.asd b/lspack.asd
index 6960c19..47a7890 100644
--- a/lspack.asd
+++ b/lspack.asd
@@ -2,7 +2,7 @@
   :author "Emre Akan"
   :description "Quickstart Common Lisp projects"
   :license "GPL-3.0"
-  :version "0.0.1"
+  :version "0.0.2"
   :depends-on ("uiop")
   :pathname "src/"
   :serial t
diff --git a/src/package.lisp b/src/package.lisp
index 30ed6be..c79f75a 100644
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -1,2 +1,3 @@
 (defpackage :lspack
-  (:use :cl))
+  (:use :cl)
+  (:export :start))
diff --git a/src/starter.lisp b/src/starter.lisp
index ca71c2f..34402a0 100644
--- a/src/starter.lisp
+++ b/src/starter.lisp
@@ -34,14 +34,6 @@
              :initform *default-pathname*
              :type string)))
 
-(defparameter *test-project*
-  (make-instance '<project>
-                 :project-root #P"/tmp/tempo/"
-                 :project-name "my-project"
-                 :project-author "name"
-                 :project-description "a project"
-                 :project-license :mit))
-
 (defmethod project-defsystem-write ((project <project>) stream)
   (with-slots (name author description license version pathname)
       project
@@ -125,5 +117,14 @@
   (project-ensure-source-directory project)
   (project-create-package project))
 
-;; (defun start (name &key (author "") (description "") (license ""))
-;;   "Intended to be called interactively by the user at the repl")
+(defun start (name project-root &key (author *default-author*) (description "") (license *default-license*))
+  "Intended to be called interactively by the user at the repl"
+  (let ((project (make-instance
+                  '<project>
+                  :project-root (uiop:ensure-directory-pathname project-root)
+                  :project-name name
+                  :project-author author
+                  :project-description description
+                  :project-license license)))
+    (project-start project)))
+