[server] separated usocket-server system; re-depend on portable-threa…

…ds (server only) & split-sequence.

CHANGES

@@ -109,4 +109,4 @@
 [TODO]
 
 * New feature: CLISP support some advanced TCP features which CLISP's SOCKET interface not provide
-* New feature: SOCKET-SHUTDOWN for TCP and UDP sockets.
+

package.lisp

@@ -1,7 +1,8 @@
 ;;;; See the LICENSE file for licensing information.
 
 (defpackage :usocket
-  (:use :common-lisp #+abcl :java)
+  (:use :common-lisp #+abcl :java
+        :split-sequence)
   (:export   #:*version*
              #:*wildcard-host*
              #:*auto-port*
@@ -25,7 +26,6 @@
 
              #:socket-send    ; udp function (send)
              #:socket-receive ; udp function (receive)
-             #:socket-server  ; udp server
              #:socket-option  ; 0.6.x
 
              #:wait-for-input ; waiting for input-ready state (select() like)

server.lisp

@@ -1,8 +1,9 @@
-;;;; $Id$
-;;;; $URL$
-
 (in-package :usocket)
 
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (use-package :portable-threads)
+  (export 'socket-server))
+
 (defun socket-server (host port function &optional arguments
                       &key in-new-thread (protocol :stream)
                            ;; for udp

test/package.lisp

@@ -1,6 +1,3 @@
-;;;; $Id$
-;;;; $URL$
-
 ;;;; See the LICENSE file for licensing information.
 
 (in-package :cl-user)

usocket.asd

@@ -3,19 +3,18 @@
 ;;;; See the LICENSE file for licensing information.
 
 (defsystem usocket
-    :name "usocket"
+    :name "usocket (client)"
     :author "Erik Enge & Erik Huelsmann"
     :maintainer "Chun Tian (binghe) & Hans Huebner"
     :version "0.6.6-dev"
     :licence "MIT"
     :description "Universal socket library for Common Lisp"
-    :depends-on (#+(or sbcl ecl) :sb-bsd-sockets)
+    :depends-on (#+(or sbcl ecl) :sb-bsd-sockets
+                 :split-sequence)
     :components ((:file "package")
 		 (:module "vendor" :depends-on ("package")
 		  :components (#+mcl (:file "kqueue")
-			       #+mcl (:file "OpenTransportUDP")
-			       (:file "spawn-thread")
-			       (:file "split-sequence")))
+			       #+mcl (:file "OpenTransportUDP")))
 		 (:file "usocket" :depends-on ("vendor"))
 		 (:file "condition" :depends-on ("usocket"))
 		 (:module "backend" :depends-on ("condition")
@@ -32,9 +31,18 @@
 			       #+openmcl	(:file "openmcl")
 			       #+(or ecl sbcl)	(:file "sbcl")
 			       #+scl		(:file "scl")))
-		 (:file "option" :depends-on ("backend"))
-		 (:file "server" :depends-on ("backend" "option"))))
+		 (:file "option" :depends-on ("backend"))))
+
+(defsystem usocket-server
+    :name "usocket (server)"
+    :author "Chun Tian (binghe)"
+    :version "1.0"
+    :licence "MIT"
+    :description "Universal socket library for Common Lisp (server side)"
+    :depends-on (:usocket :portable-threads)
+    :components ((:file "server")))
 
 (defmethod perform ((op test-op) (c (eql (find-system :usocket))))
+  (oos 'load-op :usocket-server)
   (oos 'load-op :usocket-test)
   (oos 'test-op :usocket-test))