[usocket-cvs] r246 - usocket/trunk

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Fri May 18 16:18:59 2007
New Revision: 246

Modified:
   usocket/trunk/package.lisp
Log:
Prefix package construction with Common Lisp package designator.
Add 2 missing external symbols.

Modified: usocket/trunk/package.lisp
==============================================================================
--- usocket/trunk/package.lisp	(original)
+++ usocket/trunk/package.lisp	Fri May 18 16:18:59 2007
@@ -3,14 +3,15 @@
 
 ;;;; See the LICENSE file for licensing information.
 
-(in-package :cl-user)
+#+lispworks (cl:require "comm")
 
-#+lispworks (require "comm")
-
-(eval-when (:execute :load-toplevel :compile-toplevel)
-  (defpackage :usocket
+(cl:eval-when (:execute :load-toplevel :compile-toplevel)
+  (cl:defpackage :usocket
       (:use :cl)
-    (:export #:socket-connect ; socket constructors and methods
+    (:export #:*wildcard-host*
+             #:*auto-port*
+
+             #:socket-connect ; socket constructors and methods
              #:socket-listen
              #:socket-accept
              #:socket-close