diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..6d01622
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,2 @@
+/gitano.fasl
+/main.fasl
diff --git a/gitano.asd b/gitano.asd
new file mode 100644
index 0000000..6c35d85
--- /dev/null
+++ b/gitano.asd
@@ -0,0 +1,17 @@
+(asdf:defsystem "gitano"
+  :version "0.0.1"
+  :author "Joseph Ferano"
+  :license "MIT"
+  :depends-on (
+               :hunchentoot
+               :easy-routes
+               :djula
+               :cl-git
+               )
+  :components ((:module "."  ;; a src/ subdirectory
+                :components
+                (
+                 (:file "main") ;; = src/myproject.lisp
+                )))
+
+  :description "A minimalist git forge intended for self-hosting")
diff --git a/main.lisp b/main.lisp
index 231a0b4..87c46bc 100644
--- a/main.lisp
+++ b/main.lisp
@@ -1,3 +1,7 @@
+(defpackage gitano
+  (:use :cl))
+(in-package :gitano)
+
 (ql:quickload '("hunchentoot" "caveman2" "spinneret"
                 "djula" "easy-routes" "cl-git"))
 
@@ -41,27 +45,27 @@
 
 
 
-(git:open-repository "/home/joe/Development/cubetimer/")
-(uiop:directory-exists-p  (merge-pathnames "/home/joe/Development/tinyswords/" ".git"))
+;; (git:open-repository "/home/joe/Development/cubetimer/")
+;; (uiop:directory-exists-p  (merge-pathnames "/home/joe/Development/tinyswords/" ".git"))
 
-(let* ((proj-path (merge-pathnames #p"Development/tinyswords/" (user-homedir-pathname)))
-       (repo (git:open-repository proj-path)))
-  (git:resolve (git:get-object 'git:reference "HEAD" repo)))
+;; (let* ((proj-path (merge-pathnames #p"Development/tinyswords/" (user-homedir-pathname)))
+;;        (repo (git:open-repository proj-path)))
+;;   (git:resolve (git:get-object 'git:reference "HEAD" repo)))
 
-(loop for item in (git:repository-status *repo*)
-      do (when (not (equalp (cadr item) :ignored))
-           (print item)))
+;; (loop for item in (git:repository-status *repo*)
+;;       do (when (not (equalp (cadr item) :ignored))
+;;            (print item)))
 
-(loop for item in (git:repository-status *repo*)
-      do (when (not (equalp (cadr item) :ignored))
-           (print item)))
+;; (loop for item in (git:repository-status *repo*)
+;;       do (when (not (equalp (cadr item) :ignored))
+;;            (print item)))
 
-(git:revision-walk (git:get-object 'git:reference "refs/heads/master"
-                                   (git:open-repository "/home/joe/Development/tinyswords/")))
+;; (git:revision-walk (git:get-object 'git:reference "refs/heads/master"
+;;                                    (git:open-repository "/home/joe/Development/tinyswords/")))
 
-(loop for entry in (git:entries (git:reflog (git:get-object 'git:reference "HEAD" *repo*)))
-      do (print (getf (git:committer entry) :email)))
+;; (loop for entry in (git:entries (git:reflog (git:get-object 'git:reference "HEAD" *repo*)))
+;;       do (print (getf (git:committer entry) :email)))
 
 
-(loop for tag in (git:with-repository (repo "/home/joe/Repositories/emacs/")
-                   (git:list-objects 'git:tag repo)))
+;; (loop for tag in (git:with-repository (repo "/home/joe/Repositories/emacs/")
+;;                    (git:list-objects 'git:tag repo)))