Coverage report: /home/ellis/.stash/quicklisp/dists/ultralisp/software/cl-babel-babel-20240610131823/src/packages.lisp

KindCoveredAll%
expression03 0.0
branch00nil
Key
Not instrumented
Conditionalized out
Executed
Not executed
 
Both branches taken
One branch taken
Neither branch taken
1
 ;;;; -*- Mode: lisp; indent-tabs-mode: nil -*-
2
 ;;;
3
 ;;; package.lisp --- Package definition for Babel
4
 ;;;
5
 ;;; Copyright (C) 2007, Luis Oliveira  <loliveira@common-lisp.net>
6
 ;;;
7
 ;;; Permission is hereby granted, free of charge, to any person
8
 ;;; obtaining a copy of this software and associated documentation
9
 ;;; files (the "Software"), to deal in the Software without
10
 ;;; restriction, including without limitation the rights to use, copy,
11
 ;;; modify, merge, publish, distribute, sublicense, and/or sell copies
12
 ;;; of the Software, and to permit persons to whom the Software is
13
 ;;; furnished to do so, subject to the following conditions:
14
 ;;;
15
 ;;; The above copyright notice and this permission notice shall be
16
 ;;; included in all copies or substantial portions of the Software.
17
 ;;;
18
 ;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
19
 ;;; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
20
 ;;; MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
21
 ;;; NONINFRINGEMENT.  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
22
 ;;; HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
23
 ;;; WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
24
 ;;; OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
25
 ;;; DEALINGS IN THE SOFTWARE.
26
 
27
 (in-package #:cl-user)
28
 
29
 (defpackage #:babel-encodings
30
   (:use #:common-lisp #:alexandria)
31
   (:export
32
    ;; character encoding objects
33
    #:list-character-encodings
34
    #:character-encoding
35
    #:*default-character-encoding*
36
    #:get-character-encoding
37
    #:enc-name
38
    #:enc-aliases
39
    #:enc-code-unit-size
40
    #:enc-max-units-per-char
41
    #:enc-native-endianness
42
    #:enc-decode-literal-code-unit-limit
43
    #:enc-encode-literal-code-unit-limit
44
    #:enc-use-bom
45
    #:enc-bom-encoding
46
    #:enc-nul-encoding
47
    #:enc-default-replacement
48
    #:ambiguous-encoding-p
49
    ;; concrete mappings
50
    #:instantiate-concrete-mappings
51
    #:encoder
52
    #:decoder
53
    #:octet-counter
54
    #:code-point-counter
55
    #:lookup-mapping
56
    #:with-simple-vector
57
    #:with-checked-simple-vector
58
    #:*suppress-character-coding-errors*
59
    ;; errors
60
    #:character-coding-error
61
    #:character-coding-error-encoding    ; accessor
62
    #:character-coding-error-buffer      ; accessor
63
    #:character-coding-error-position    ; accessor
64
    #:character-decoding-error
65
    #:character-decoding-error-octets    ; accessor
66
    #:character-encoding-error
67
    #:character-encoding-error-code      ; accessor
68
    #:end-of-input-in-character
69
    #:character-out-of-range
70
    #:invalid-utf8-starter-byte
71
    #:invalid-utf8-continuation-byte
72
    #:overlong-utf8-sequence))
73
 
74
 (defpackage #:babel
75
   (:use #:common-lisp #:babel-encodings #:alexandria)
76
   (:import-from #:babel-encodings)
77
   (:export
78
    ;; types
79
    #:unicode-char
80
    #:unicode-char-code-limit
81
    #:unicode-string
82
    #:simple-unicode-string
83
    ;; fixed sharp-backslash reader
84
    #:enable-sharp-backslash-syntax
85
    #:set-sharp-backslash-syntax-in-readtable
86
    ;; external formats
87
    #:external-format
88
    #:make-external-format
89
    #:ensure-external-format
90
    #:external-format-encoding
91
    #:external-format-eol-style
92
    #:external-format-equal
93
    #:*default-eol-style*
94
    ;; general user API
95
    #:*default-character-encoding*
96
    #:list-character-encodings
97
    #:string-to-octets
98
    #:octets-to-string
99
    #:concatenate-strings-to-octets
100
    #:string-size-in-octets
101
    #:vector-size-in-chars
102
    ;; errors
103
    #:character-coding-error
104
    #:character-coding-error-encoding    ; accessor
105
    #:character-coding-error-buffer      ; accessor
106
    #:character-coding-error-position    ; accessor
107
    #:character-decoding-error
108
    #:character-decoding-error-octets    ; accessor
109
    #:character-encoding-error
110
    #:character-encoding-error-code      ; accessor
111
    #:end-of-input-in-character
112
    #:character-out-of-range
113
    #:invalid-utf8-starter-byte
114
    #:invalid-utf8-continuation-byte
115
    #:overlong-utf8-sequence))