CHARCODE: Disable codec streams until I can find a way to get them to work across...
authorFredrik Tolf <fredrik@dolda2000.com>
Tue, 30 Mar 2010 02:31:37 +0000 (04:31 +0200)
committerFredrik Tolf <fredrik@dolda2000.com>
Tue, 30 Mar 2010 02:31:37 +0000 (04:31 +0200)
charcode.lisp

index ac1c74d..a572fc2 100644 (file)
@@ -2,7 +2,7 @@
 ;;;; representations thereof
 
 (defpackage :charcode
-  (:use :cl #+sbcl :sb-gray #-sbcl :gray)
+  (:use :cl)
   (:export "MAKE-ENCODER" "MAKE-DECODER" "ENCODE-STRING" "DECODE-STRING" "SYSTEM-CHARSET"
           "NO-CODEC-ERROR" "CODING-ERROR"
           "MAKE-CODEC-CHARACTER-STREAM"
 
 ;;; Gray stream implementation
 
+;; Disabled for now. There doesn't seem to be any good way to get
+;; these working generally over various implementations.
+
+#+unused (
 (defclass codec-character-stream (fundamental-character-input-stream fundamental-character-output-stream)
   ((decoder :initarg :decoder)
    (encoder :initarg :encoder)
     (let ((outbuf (make-array (list (- end start)) :element-type '(unsigned-byte 8) :adjustable t :fill-pointer 0)))
       (funcall encoder seq outbuf)
       (write-sequence outbuf back))))
+)
 
 ;;; Implementation-specific functions