[usocket-cvs] r109 - usocket/trunk

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Fri Feb 17 14:53:53 2006
New Revision: 109

Modified:
   usocket/trunk/package.lisp
Log:
Export new interfaces.

Modified: usocket/trunk/package.lisp
==============================================================================
--- usocket/trunk/package.lisp	(original)
+++ usocket/trunk/package.lisp	Fri Feb 17 14:53:53 2006
@@ -10,23 +10,29 @@
 (eval-when (:execute :load-toplevel :compile-toplevel)
   (defpackage :usocket
       (:use :cl)
-    (:export :socket-connect ; socket constructors and methods
-             :socket-close
+    (:export #:socket-connect ; socket constructors and methods
+             #:socket-close
+             #:get-local-address
+             #:get-peer-address
+             #:get-local-port
+             #:get-peer-port
+             #:get-local-name
+             #:get-peer-name
 
-             :with-connected-socket ; macros
+             #:with-connected-socket ; macros
 
-             :usocket ; socket object and accessors
-             :socket
-             :socket-stream
+             #:usocket ; socket object and accessors
+             #:socket
+             #:socket-stream
 
-             :host-byte-order ; IPv4 utility functions
-             :hbo-to-dotted-quad
-             :hbo-to-vector-quad
-             :vector-quad-to-dotted-quad
-             :dotted-quad-to-vector-quad
+             #:host-byte-order ; IPv4 utility functions
+             #:hbo-to-dotted-quad
+             #:hbo-to-vector-quad
+             #:vector-quad-to-dotted-quad
+             #:dotted-quad-to-vector-quad
 
-             :socket-condition ; conditions
-             :socket-error ; errors
-             :unknown-condition
-             :unknown-error)))
+             #:socket-condition ; conditions
+             #:socket-error ; errors
+             #:unknown-condition
+             #:unknown-error)))