src/new-cl/pkgdcl.lisp

   1 ;;;; -*- Mode: Lisp; indent-tabs-mode: nil -*-
   2
   3 (in-package :iolib.internal.conduits)
   4
   5 (macrolet
   6     ((define-gray-streams-package ()
   7        (let ((#1=gray-streams-package
   8               #+abcl             :gray-streams
   9               #+allegro          :excl
  10               #+(or cmu scl)     :ext
  11               #+(or clisp ecl)   :gray
  12               #+(or ccl openmcl) :ccl
  13               #+lispworks        :stream
  14               #+sbcl             :sb-gray
  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
  36                                #:defconstant
  37                                #:boolean)
  38             (:export #:defconstant #:boolean)
  39             (:extend/excluding :iolib.internal.conduits
  40                                #:recompute-conduits)
  41             (:import-from ,#1# ,@#2#)
  42             (:export #:trivial-gray-stream-mixin
  43                      #:stream-read-sequence
  44                      #:stream-write-sequence
  45                      #:stream-file-position
  46                      ,@#2#)))))
  47   (define-gray-streams-package))
  48
  49 (defpackage :iolib.common-lisp-user
  50   (:nicknames :iolib.cl-user :iolib/common-lisp-user :iolib/cl-user)
  51   (:use :iolib.common-lisp))