Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

promote package sb-gray alignment to general utility package

  • Loading branch information...
commit c1d44239c334ad5e11e620c9d87049f4b1d992b9 1 parent dba6093
james anderson authored January 21, 2012
3  codecs/package.lisp
@@ -24,7 +24,8 @@
24 24
   
25 25
   (:import-from :de.setf.utility
26 26
                 :stream-reader
27  
-                :stream-writer)
  27
+                :stream-writer
  28
+                :stream-tyo)
28 29
   
29 30
   #+allegro
30 31
   (:import-from :excl
6  dot/package.lisp
@@ -223,9 +223,3 @@
223 223
 (eval-when (:compile-toplevel :load-toplevel :execute)
224 224
   (import '(setf.dot:rgb-blue setf.dot:rgb-green setf.dot:rgb-p setf.dot:rgb-red setf.dot:make-rgb)
225 225
            :de.setf.utility.implementation))
226  
-
227  
-;;; avoid conflicts
228  
-#+sbcl
229  
-(eval-when (:compile-toplevel :load-toplevel :execute)
230  
-  (import '(sb-gray:stream-write-char)
231  
-           :de.setf.utility.implementation))
9  package.lisp
@@ -55,12 +55,19 @@
55 55
    :runtime-directory-name
56 56
    :set-relative-logical-pathname-translations
57 57
    :stream-reader
58  
-   :stream-writer))
  58
+   :stream-writer
  59
+   :stream-tyo))
59 60
 
60 61
 (defpackage :de.setf.utility.implementation
61 62
   (:use #+:CCL :ccl
62 63
         :common-lisp
63 64
         :de.setf.utility)
  65
+  #+sbcl
  66
+  (:import-from :sb-gray
  67
+                :stream-line-column
  68
+                :stream-write-char
  69
+                :stream-write-sequence
  70
+                :stream-write-string)
64 71
   (:documentation "This is the package for source files in the :de.setf.utility library module."))
65 72
 
66 73
 

0 notes on commit c1d4423

Please sign in to comment.
Something went wrong with that request. Please try again.