anchor.diff:  (in-package :iolib.internal.conduits)
   
   (macrolet
  -    ((#1=#:define-gray-streams-package ()
  -       (let ((#2=#:gray-streams-package
  +    ((define-gray-streams-package ()
  +       (let ((#1=gray-streams-package
                 #+allegro :excl
                 #+(or cmu scl) :ext
                 #+(or clisp ecl) :gray
  
positive.code:               #+sbcl :sb-gray
                #-(or allegro cmu scl clisp ecl ccl openmcl lispworks sbcl)
                (cl:error "Your CL implementation isn't supported."))
               (#3=#:gray-streams-symbols
                '(#:fundamental-stream #:fundamental-input-stream
                  #:fundamental-output-stream #:fundamental-character-stream
                  #:fundamental-binary-stream #:fundamental-character-input-stream
  
negative.code:             (:export #:defconstant)
              (:extend/excluding :iolib.internal.conduits
                                 #:recompute-conduits)
              (:import-from ,#1# ,@#2#)
              (:export #:trivial-gray-stream-mixin
                       #:stream-read-sequence
                       #:stream-write-sequence
                       #:stream-file-position
                       ,@#2#)))))
    (define-gray-streams-package))
  
  (defpackage :iolib.common-lisp-user
    (:nicknames :iolib.cl-user)
  