-
Notifications
You must be signed in to change notification settings - Fork 24
/
jonathan.asd
41 lines (40 loc) · 1.62 KB
/
jonathan.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
(in-package :cl-user)
(defpackage jonathan-asd
(:use :cl :asdf))
(in-package :jonathan-asd)
(defsystem jonathan
:version "0.1"
:author "Rudolph-Miller"
:license "MIT"
:depends-on (:cl-syntax
:cl-syntax-annot
:fast-io
:trivial-types
:babel
:proc-parse
:cl-ppcre
:cl-annot)
:components ((:module "src"
:components
((:file "jonathan" :depends-on ("encode" "decode" "helper" "error"))
(:file "helper" :depends-on ("encode" "decode" "error"))
(:file "encode" :depends-on ("util" "error"))
(:file "decode" :depends-on ("util"))
(:file "util" :depends-on ("error"))
(:file "error"))))
:description "High performance JSON encoder and decoder. Currently support: SBCL, CCL."
:long-description
#.(with-open-file (stream (merge-pathnames
#p"README.md"
(or *load-pathname* *compile-file-pathname*))
:if-does-not-exist nil
:direction :input
:element-type #+lispworks :default #-lispworks 'character
:external-format #+clisp charset:utf-8 #-clisp :utf-8)
(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 jonathan-test))))