Recently Written · git

clic

MIRROR ONLY Gopher client with pretty colours in Common Lisp

git clone https://github.com/equwal/clic

Log | Files | Refs


3rdparties/software/flexi-streams-20200427-git/packages.lisp (3633 bytes)

1 ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*-
2 ;;; $Header: /usr/local/cvsrep/flexi-streams/packages.lisp,v 1.39 2008/05/30 07:50:31 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 (unless (find-symbol (symbol-name :stream-file-position) :trivial-gray-streams)
33   (error "You need a newer version of TRIVIAL-GRAY-STREAMS."))
34 
35 (defpackage :flexi-streams
36   (:use :cl :trivial-gray-streams)
37   (:nicknames :flex)  
38   (:shadow #+:lispworks :with-accessors
39            :defconstant)
40   (:export :*default-eol-style*
41            :*default-little-endian*
42            :*substitution-char*
43            :accept-overlong-sequence
44            :char-length
45            :external-format-condition
46            :external-format-condition-external-format
47            :external-format-eol-style
48            :external-format-error
49            :external-format-encoding-error
50            :external-format-equal
51            :external-format-id
52            :external-format-little-endian
53            :external-format-name
54            :flexi-input-stream
55            :flexi-output-stream
56            :flexi-io-stream
57            :flexi-stream
58            :flexi-stream-bound
59            :flexi-stream-column
60            :flexi-stream-external-format
61            :flexi-stream-element-type
62            :flexi-stream-element-type-error
63            :flexi-stream-element-type-error-element-type
64            :flexi-stream-error
65            :flexi-stream-out-of-sync-error
66            :flexi-stream-position
67            :flexi-stream-stream
68            :get-output-stream-sequence
69            :in-memory-stream
70            :in-memory-stream-closed-error
71            :in-memory-stream-error
72            :in-memory-stream-position-spec-error
73            :in-memory-stream-position-spec-error-position-spec
74            :in-memory-input-stream
75            :in-memory-output-stream
76            :list-stream
77            :make-external-format
78            :make-in-memory-input-stream
79            :make-in-memory-output-stream
80            :make-flexi-stream
81            :octet
82            :octet-length
83            :octets-to-string
84            :output-stream-sequence-length
85            :peek-byte
86            :string-to-octets
87            :unread-byte
88            :vector-stream
89            :with-input-from-sequence
90            :with-output-to-sequence))