1 ;;;; -*- Mode: Lisp; indent-tabs-mode: nil -*-
3 (in-package :iolib.internal.conduits
)
6 ((define-gray-streams-package ()
7 (let ((#1=gray-streams-package
11 #+(or clisp ecl
) :gray
12 #+(or ccl openmcl
) :ccl
15 #-
(or abcl allegro cmu scl clisp ecl ccl openmcl lispworks sbcl
)
16 (cl:error
"Your CL implementation isn't supported."))
17 (#2=gray-streams-symbols
18 '(#:fundamental-stream
#:fundamental-input-stream
19 #:fundamental-output-stream
#:fundamental-character-stream
20 #:fundamental-binary-stream
#:fundamental-character-input-stream
21 #:fundamental-character-output-stream
22 #:fundamental-binary-input-stream
23 #:fundamental-binary-output-stream
#:stream-read-char
24 #:stream-unread-char
#:stream-read-char-no-hang
25 #:stream-peek-char
#:stream-listen
#:stream-read-line
26 #:stream-clear-input
#:stream-write-char
#:stream-line-column
27 #:stream-start-line-p
#:stream-write-string
#:stream-terpri
28 #:stream-fresh-line
#:stream-finish-output
#:stream-force-output
29 #:stream-clear-output
#:stream-advance-to-column
30 #:stream-read-byte
#:stream-write-byte
)))
31 `(defpackage :iolib.common-lisp
32 (:nicknames
:iolib.cl
:iolib
/common-lisp
)
33 (:extend
/excluding
:common-lisp
34 #:export
#:unexport
#:defpackage
35 #:delete-package
#:rename-package
38 (:export
#:defconstant
#:boolean
)
39 (:extend
/excluding
:iolib.internal.conduits
41 (:import-from
,#1# ,@#2#)
42 (:export
#:trivial-gray-stream-mixin
43 #:stream-read-sequence
44 #:stream-write-sequence
45 #:stream-file-position
47 (define-gray-streams-package))
49 (defpackage :iolib.common-lisp-user
50 (:nicknames
:iolib.cl-user
:iolib
/common-lisp-user
:iolib
/cl-user
)
51 (:use
:iolib.common-lisp
))