first commit
This commit is contained in:
commit
f972dbe40a
9
.gitignore
vendored
Normal file
9
.gitignore
vendored
Normal file
@ -0,0 +1,9 @@
|
|||||||
|
*.abcl
|
||||||
|
*.fasl
|
||||||
|
*.dx32fsl
|
||||||
|
*.dx64fsl
|
||||||
|
*.lx32fsl
|
||||||
|
*.lx64fsl
|
||||||
|
*.x86f
|
||||||
|
*~
|
||||||
|
.#*
|
5
README.markdown
Normal file
5
README.markdown
Normal file
@ -0,0 +1,5 @@
|
|||||||
|
# Article-Splorer
|
||||||
|
|
||||||
|
## Usage
|
||||||
|
|
||||||
|
## Installation
|
5
README.org
Normal file
5
README.org
Normal file
@ -0,0 +1,5 @@
|
|||||||
|
* Article-Splorer
|
||||||
|
|
||||||
|
** Usage
|
||||||
|
|
||||||
|
** Installation
|
21
article-splorer.asd
Normal file
21
article-splorer.asd
Normal file
@ -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)))
|
18
src/main.lisp
Normal file
18
src/main.lisp
Normal file
@ -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 )))
|
||||||
|
|
11
tests/main.lisp
Normal file
11
tests/main.lisp
Normal file
@ -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))))
|
Loading…
Reference in New Issue
Block a user