-
-
Notifications
You must be signed in to change notification settings - Fork 1
/
assoc-utils.asd
38 lines (34 loc) · 1.16 KB
/
assoc-utils.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
#|
This file is a part of assoc-utils project.
Copyright (c) 2016 Eitaro Fukamachi ([email protected])
|#
#|
Utilities for manipulating association lists
Author: Eitaro Fukamachi ([email protected])
|#
(in-package :cl-user)
(defpackage assoc-utils-asd
(:use :cl :asdf))
(in-package :assoc-utils-asd)
(defsystem assoc-utils
:version "0.1"
:author "Eitaro Fukamachi"
:license "Public Domain"
:depends-on ()
:components ((:module "src"
:components
((:file "assoc-utils"))))
:description "Utilities for manipulating association lists"
: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 assoc-utils-test))))