/usr/share/common-lisp/source/cl-trivial-gray-streams/package.lisp is in cl-trivial-gray-streams 20091021-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 | #+xcvb (module ())
(in-package :cl-user)
#+cmu
(eval-when (:compile-toplevel :load-toplevel :execute)
(require :gray-streams))
#+allegro
(eval-when (:compile-toplevel :load-toplevel :execute)
(unless (fboundp 'stream:stream-write-string)
(require "streamc.fasl")))
#+ecl
(eval-when (:compile-toplevel :load-toplevel :execute)
(gray::redefine-cl-functions))
(macrolet
((frob ()
(let
((common-symbols
'(#:fundamental-stream #:fundamental-input-stream
#:fundamental-output-stream #:fundamental-character-stream
#:fundamental-binary-stream #:fundamental-character-input-stream
#:fundamental-character-output-stream
#:fundamental-binary-input-stream
#:fundamental-binary-output-stream #:stream-read-char
#:stream-unread-char #:stream-read-char-no-hang
#:stream-peek-char #:stream-listen #:stream-read-line
#:stream-clear-input #:stream-write-char #:stream-line-column
#:stream-start-line-p #:stream-write-string #:stream-terpri
#:stream-fresh-line #:stream-finish-output #:stream-force-output
#:stream-clear-output #:stream-advance-to-column
#:stream-read-byte #:stream-write-byte)))
`(defpackage :trivial-gray-streams
(:use :cl)
(:import-from #+sbcl :sb-gray
#+allegro :excl
#+cmu :ext
#+clisp :gray
#+openmcl :ccl
#+lispworks :stream
#+ecl :gray
#-(or sbcl allegro cmu clisp openmcl lispworks ecl) ...
,@common-symbols)
(:export #:trivial-gray-stream-mixin
#:stream-read-sequence
#:stream-write-sequence
#:stream-file-position
,@common-symbols)))))
(frob))
|