flexi-streams.asd - clic - Clic is an command line interactive client for gophe… | |
git clone git://bitreich.org/clic/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65… | |
Log | |
Files | |
Refs | |
Tags | |
README | |
LICENSE | |
--- | |
flexi-streams.asd (3173B) | |
--- | |
1 ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*- | |
2 ;;; $Header: /usr/local/cvsrep/flexi-streams/flexi-streams.asd,v 1.79 20… | |
3 | |
4 ;;; Copyright (c) 2005-2008, Dr. Edmund Weitz. All rights reserved. | |
5 | |
6 ;;; Redistribution and use in source and binary forms, with or without | |
7 ;;; modification, are permitted provided that the following conditions | |
8 ;;; are met: | |
9 | |
10 ;;; * Redistributions of source code must retain the above copyright | |
11 ;;; notice, this list of conditions and the following disclaimer. | |
12 | |
13 ;;; * Redistributions in binary form must reproduce the above | |
14 ;;; copyright notice, this list of conditions and the following | |
15 ;;; disclaimer in the documentation and/or other materials | |
16 ;;; provided with the distribution. | |
17 | |
18 ;;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR 'AS IS' AND ANY EXPRESSED | |
19 ;;; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED | |
20 ;;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | |
21 ;;; ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY | |
22 ;;; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | |
23 ;;; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE | |
24 ;;; GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS | |
25 ;;; INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, | |
26 ;;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING | |
27 ;;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS | |
28 ;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. | |
29 | |
30 (in-package :cl-user) | |
31 | |
32 (defpackage :flexi-streams-system | |
33 (:use :asdf :cl)) | |
34 | |
35 (in-package :flexi-streams-system) | |
36 | |
37 ;;; Maybe it can be made work for some encodings | |
38 (when (<= char-code-limit 65533) | |
39 (error "flexi-streams doesn't work on implementations with CHAR-CODE-L… | |
40 char-code-limit)) | |
41 | |
42 (defsystem :flexi-streams | |
43 :version "1.0.18" | |
44 :serial t | |
45 :description "Flexible bivalent streams for Common Lisp" | |
46 :license "BSD-2-Clause" | |
47 :components ((:file "packages") | |
48 (:file "mapping") | |
49 (:file "ascii") | |
50 (:file "koi8-r") | |
51 (:file "iso-8859") | |
52 (:file "code-pages") | |
53 (:file "specials") | |
54 (:file "util") | |
55 (:file "conditions") | |
56 (:file "external-format") | |
57 (:file "length") | |
58 (:file "encode") | |
59 (:file "decode") | |
60 (:file "in-memory") | |
61 (:file "stream") | |
62 #+:lispworks (:file "lw-char-stream") | |
63 (:file "output") | |
64 (:file "input") | |
65 (:file "io") | |
66 (:file "strings")) | |
67 :depends-on (:trivial-gray-streams)) | |
68 | |
69 (defsystem :flexi-streams-test | |
70 :components ((:module "test" | |
71 :serial t | |
72 :components ((:file "packages") | |
73 (:file "test")))) | |
74 :depends-on (:flexi-streams)) | |
75 | |
76 (defmethod perform ((o test-op) (c (eql (find-system 'flexi-streams)))) | |
77 (operate 'load-op 'flexi-streams-test) | |
78 (funcall (intern (symbol-name :run-all-tests) | |
79 (find-package :flexi-streams-test)))) |