dual-channel-single-fd-gray-stream -> dual-channel-gray-stream

Nikolay V. Razbegaev [2010-06-25 10:58]
dual-channel-single-fd-gray-stream -> dual-channel-gray-stream
Filename
streams.lisp
diff --git a/streams.lisp b/streams.lisp
index 340fc15..ce8e802 100644
--- a/streams.lisp
+++ b/streams.lisp
@@ -3,7 +3,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (in-package :iolib.termios)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(defclass dual-channel-tty-gray-stream (dual-channel-single-fd-gray-stream)
+(defclass dual-channel-tty-gray-stream (dual-channel-gray-stream)
   ((path :reader tty-path :initarg :path :type string)
    (read-timeout :accessor read-timeout :initarg :read-timeout)
    (write-timeout :accessor write-timeout :initarg :write-timeout)
@@ -33,8 +33,7 @@
         (termios (foreign-alloc 'termios)))
     (%tcgetattr fd termios)
     (let ((s (make-instance 'dual-channel-tty-gray-stream
-                            :input-fd fd
-                            :output-fd fd
+                            :fd fd
                             :path path
                             :external-format external-format
                             :original-settings termios)))
ViewGit