Added TCP-SOCKET accessor for streamish conditions (compatibility fix).

orthecreedence · Dec 26, 2014 · cf595e0 · cf595e0
1 parent c2cde82
commit cf595e0
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/streamish.lisp b/streamish.lisp
@@ -41,7 +41,9 @@
   ;; initarg :socket is added compatibility
   ((streamish :initarg :streamish
               :initarg :socket
-              :accessor streamish :initform nil))
+              :accessor streamish
+              :accessor tcp-socket ;; compatibility
+              :initform nil))
   (:report (lambda (c s)
              (print-unreadable-object (c s :type t :identity t)
                (format s "~a" (streamish c)))))