Merge pull request #114 from ivan4th/master

Added TCP-SOCKET accessor for streamish conditions (compatibility fix).
orthecreedence · Dec 26, 2014 · e0f738c · e0f738c
2 parents c2cde82 + cf595e0
commit e0f738c
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)))))