-
Notifications
You must be signed in to change notification settings - Fork 0
/
rotator.asd
47 lines (44 loc) · 1.34 KB
/
rotator.asd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
#|
This file is a part of rotator project.
Copyright (c) 2017 Ito Dimercel (xolcman@gmail.com)
|#
#|
Author: Ito Dimercel (xolcman@gmail.com)
|#
(in-package :cl-user)
(defpackage rotator-asd
(:use :cl :asdf))
(in-package :rotator-asd)
(defsystem rotator
:version "0.1"
:author "Ito Dimercel"
:license "LLGPL"
:depends-on (:cl-ppcre
:cl-fad
:alexandria
:rutils
:local-time
:cl-yaml
:cl-rules
:cl-log)
:components ((:module "src"
:components
((:file "utils")
(:file "config")
(:file "condition")
(:file "rotator")
(:file "main"))))
:description ""
:long-description
#.(with-open-file (stream (merge-pathnames
#p"README.markdown"
(or *load-pathname* *compile-file-pathname*))
:if-does-not-exist nil
:direction :input)
(when stream
(let ((seq (make-array (file-length stream)
:element-type 'character
:fill-pointer t)))
(setf (fill-pointer seq) (read-sequence seq stream))
seq)))
:in-order-to ((test-op (test-op rotator-test))))