tflexi-streams.asd - clic - Clic is an command line interactive client for gopher written in Common LISP
 (HTM) git clone git://bitreich.org/clic/ git://hg6vgqziawt5s4dj.onion/clic/
 (DIR) Log
 (DIR) Files
 (DIR) Refs
 (DIR) Tags
 (DIR) LICENSE
       ---
       tflexi-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 2008/08/26 10:59:22 edi Exp $
            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-LIMIT (~a) less than 65533"
           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))))