[usocket-cvs] r26 - usocket/trunk

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Fri Feb  3 14:20:59 2006
New Revision: 26

Modified:
   usocket/trunk/package.lisp
   usocket/trunk/usocket.lisp
Log:
Remove/add interfaces to be implemented at this stage.

Modified: usocket/trunk/package.lisp
==============================================================================
--- usocket/trunk/package.lisp	(original)
+++ usocket/trunk/package.lisp	Fri Feb  3 14:20:59 2006
@@ -13,6 +13,8 @@
     (:export :socket-connect ; socket constructors and methods
              :socket-close
 
+             :with-connected-socket ; macros
+
              :usocket ; socket object and accessors
              :socket-stream
 

Modified: usocket/trunk/usocket.lisp
==============================================================================
--- usocket/trunk/usocket.lisp	(original)
+++ usocket/trunk/usocket.lisp	Fri Feb  3 14:20:59 2006
@@ -14,12 +14,13 @@
    (stream
     :initarg :stream
     :accessor socket-stream)
-   (local-address ;; possibly need to eliminate
-    :initarg :local-address
-    :accessor local-address)
-   (local-port ;; possibly need to eliminate
-    :initarg :local-port
-    :accessor local-port)))
+;;    (local-address ;; possibly need to eliminate
+;;     :initarg :local-address
+;;     :accessor local-address)
+;;    (local-port ;; possibly need to eliminate
+;;     :initarg :local-port
+;;     :accessor local-port)
+   ))
 
 (defun make-socket (&key socket stream)
   (make-instance 'usocket