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               #+allegro          :excl
   9               #+(or cmu scl)     :ext
  10               #+(or clisp ecl)   :gray
  11               #+(or ccl openmcl) :ccl
  12               #+lispworks        :stream
  13               #+sbcl             :sb-gray
  14               #-(or allegro cmu scl clisp ecl ccl openmcl lispworks sbcl)
  15               (cl:error "Your CL implementation isn't supported."))
  16              (#2=gray-streams-symbols
  17               '(#:fundamental-stream #:fundamental-input-stream
  18                 #:fundamental-output-stream #:fundamental-character-stream
  19                 #:fundamental-binary-stream #:fundamental-character-input-stream
  20                 #:fundamental-character-output-stream
  21                 #:fundamental-binary-input-stream
  22                 #:fundamental-binary-output-stream #:stream-read-char
  23                 #:stream-unread-char #:stream-read-char-no-hang
  24                 #:stream-peek-char #:stream-listen #:stream-read-line
  25                 #:stream-clear-input #:stream-write-char #:stream-line-column
  26                 #:stream-start-line-p #:stream-write-string #:stream-terpri
  27                 #:stream-fresh-line #:stream-finish-output #:stream-force-output
  28                 #:stream-clear-output #:stream-advance-to-column
  29                 #:stream-read-byte #:stream-write-byte)))
  30          `(defpackage :iolib.common-lisp
  31             (:nicknames :iolib.cl)
  32             (:extend/excluding :common-lisp
  33                                #:export #:unexport #:defpackage
  34                                #:delete-package #:rename-package
  35                                #:defconstant
  36                                #:boolean)
  37             (:export #:defconstant #:boolean)
  38             (:extend/excluding :iolib.internal.conduits
  39                                #:recompute-conduits)
  40             (:import-from ,#1# ,@#2#)
  41             (:export #:trivial-gray-stream-mixin
  42                      #:stream-read-sequence
  43                      #:stream-write-sequence
  44                      #:stream-file-position
  45                      ,@#2#)))))
  46   (define-gray-streams-package))
  47
  48 (defpackage :iolib.common-lisp-user
  49   (:nicknames :iolib.cl-user)
  50   (:use :iolib.common-lisp))