Permalink
Browse files

promote package sb-gray alignment to general utility package

  • Loading branch information...
lisp committed Jan 21, 2012
1 parent dba6093 commit c1d44239c334ad5e11e620c9d87049f4b1d992b9
Showing with 10 additions and 8 deletions.
  1. +2 −1 codecs/package.lisp
  2. +0 −6 dot/package.lisp
  3. +8 −1 package.lisp
View
@@ -24,7 +24,8 @@
(:import-from :de.setf.utility
:stream-reader
- :stream-writer)
+ :stream-writer
+ :stream-tyo)
#+allegro
(:import-from :excl
View
@@ -223,9 +223,3 @@
(eval-when (:compile-toplevel :load-toplevel :execute)
(import '(setf.dot:rgb-blue setf.dot:rgb-green setf.dot:rgb-p setf.dot:rgb-red setf.dot:make-rgb)
:de.setf.utility.implementation))
-
-;;; avoid conflicts
-#+sbcl
-(eval-when (:compile-toplevel :load-toplevel :execute)
- (import '(sb-gray:stream-write-char)
- :de.setf.utility.implementation))
View
@@ -55,12 +55,19 @@
:runtime-directory-name
:set-relative-logical-pathname-translations
:stream-reader
- :stream-writer))
+ :stream-writer
+ :stream-tyo))
(defpackage :de.setf.utility.implementation
(:use #+:CCL :ccl
:common-lisp
:de.setf.utility)
+ #+sbcl
+ (:import-from :sb-gray
+ :stream-line-column
+ :stream-write-char
+ :stream-write-sequence
+ :stream-write-string)
(:documentation "This is the package for source files in the :de.setf.utility library module."))

0 comments on commit c1d4423

Please sign in to comment.