Dolda2000 GitWeb
/
lisp-utils.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
c94c6f0
)
CHARCODE: Disable codec streams until I can find a way to get them to work across...
author
Fredrik Tolf
<fredrik@dolda2000.com>
Tue, 30 Mar 2010 02:31:37 +0000
(
04:31
+0200)
committer
Fredrik Tolf
<fredrik@dolda2000.com>
Tue, 30 Mar 2010 02:31:37 +0000
(
04:31
+0200)
charcode.lisp
patch
|
blob
|
blame
|
history
diff --git
a/charcode.lisp
b/charcode.lisp
index
ac1c74d
..
a572fc2
100644
(file)
--- a/
charcode.lisp
+++ b/
charcode.lisp
@@
-2,7
+2,7
@@
;;;; representations thereof
(defpackage :charcode
;;;; 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"
(:export "MAKE-ENCODER" "MAKE-DECODER" "ENCODE-STRING" "DECODE-STRING" "SYSTEM-CHARSET"
"NO-CODEC-ERROR" "CODING-ERROR"
"MAKE-CODEC-CHARACTER-STREAM"
@@
-81,6
+81,10
@@
;;; Gray stream implementation
;;; 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)
(defclass codec-character-stream (fundamental-character-input-stream fundamental-character-output-stream)
((decoder :initarg :decoder)
(encoder :initarg :encoder)
@@
-189,6
+193,7
@@
(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))))
(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
;;; Implementation-specific functions