1 ;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CL-USER; -*-
2 ;;; ---------------------------------------------------------------------------
3 ;;; Title: Generating a sane DEFPACKAGE for RUNES
4 ;;; Created: 1999-05-25
5 ;;; Author: Gilbert Baumann <unk6@rz.uni-karlsruhe.de>
6 ;;; ---------------------------------------------------------------------------
7 ;;; (c) copyright 1999,2000 by Gilbert Baumann
12 (:use
:cl
#-scl
:trivial-gray-streams
)
59 #:xstream-column-number
68 #:find-output-encoding
72 #:ystream-write-escapable-rune
73 #:ystream-write-escapable-rod
75 #:make-octet-vector-ystream
76 #:make-octet-stream-ystream
78 #+rune-is-character
#:make-character-stream-ystream
79 ;; These don't make too much sense on Unicode-enabled,
80 ;; implementations but for those applications using them anyway,
81 ;; I have commented out the reader conditionals now:
83 #:make-string-ystream
/utf8
85 #:make-character-stream-ystream
/utf8
86 #:runes-to-utf8
/adjustable-string
90 #:make-octet-input-stream
))
92 (defpackage :utf8-runes
94 (:export
*utf8-runes-readtable
*
95 #:rune
#:rod
#:simple-rod
#:rod-string
#:rod
= #:make-rod
98 (defpackage :runes-encoding