first commit

This commit is contained in:
Jacob Windle 2022-06-01 23:18:49 -04:00
commit f972dbe40a
6 changed files with 69 additions and 0 deletions

9
.gitignore vendored Normal file
View File

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

5
README.markdown Normal file
View File

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

5
README.org Normal file
View File

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

21
article-splorer.asd Normal file
View 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
View 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
View 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))))