first commit

.gitignore

@@ -0,0 +1,9 @@
+*.abcl
+*.fasl
+*.dx32fsl
+*.dx64fsl
+*.lx32fsl
+*.lx64fsl
+*.x86f
+*~
+.#*

README.markdown

@@ -0,0 +1,5 @@
+# Article-Splorer
+
+## Usage
+
+## Installation

README.org

@@ -0,0 +1,5 @@
+* Article-Splorer 
+
+** Usage
+
+** Installation

article-splorer.asd

@@ -0,0 +1,21 @@
+(defsystem "article-splorer"
+  :version "0.1.0"
+  :author ""
+  :license ""
+  :depends-on (#:log4cl)
+  :components ((:module "src"
+                :components
+                ((:file "main"))))
+  :description ""
+  :in-order-to ((test-op (test-op "article-splorer/tests"))))
+
+(defsystem "article-splorer/tests"
+  :author ""
+  :license ""
+  :depends-on ("article-splorer"
+               "rove")
+  :components ((:module "tests"
+                :components
+                ((:file "main"))))
+  :description "Test system for article-splorer"
+  :perform (test-op (op c) (symbol-call :rove :run c)))

src/main.lisp

@@ -0,0 +1,18 @@
+(defpackage article-splorer
+  (:use :cl :log4cl))
+(in-package :article-splorer)
+
+(defparameter *bfsqueue* (make-queue))
+
+(defun entrypoint ()
+  (progn
+    (log:info "starting our program")
+    (begin-loop 0)))
+
+(defun begin-loop (iteration)
+  (progn
+    (log:info "iteration ~d" iteration)
+    (sleep 5)
+    (log:info "doing work")
+    (bfs )))
+

tests/main.lisp

@@ -0,0 +1,11 @@
+(defpackage article-splorer/tests/main
+  (:use :cl
+        :article-splorer
+        :rove))
+(in-package :article-splorer/tests/main)
+
+;; NOTE: To run this test file, execute `(asdf:test-system :article-splorer)' in your Lisp.
+
+(deftest test-target-1
+  (testing "should (= 1 1) to be true"
+    (ok (= 1 1))))