Commit f520a8e0 authored by Chun Tian (binghe)'s avatar Chun Tian (binghe)

Put server exported symbols back to package.lisp; usocket 0.7.0.1

parent 5f2cf498
......@@ -83,4 +83,8 @@
#:insufficient-implementation ; conditions regarding usocket support level
#:unsupported
#:unimplemented))
#:unimplemented
#:socket-server
#:*remote-host*
#:*remote-port*))
(in-package :usocket)
(eval-when (:compile-toplevel :load-toplevel :execute)
(use-package :portable-threads)
(export '(socket-server
*remote-host*
*remote-port*)))
(defun socket-server (host port function &optional arguments
&key in-new-thread (protocol :stream)
;; for udp
......@@ -36,7 +29,7 @@
:timeout timeout
:max-buffer-size max-buffer-size)))))
(if in-new-thread
(values (spawn-thread (or name "USOCKET Server") #'real-call) socket)
(values (portable-threads:spawn-thread (or name "USOCKET Server") #'real-call) socket)
(real-call)))))
(defvar *remote-host*)
......@@ -102,7 +95,7 @@
`(,socket ,@(when element-type `(:element-type ,element-type)))))
(client-stream (socket-stream client-socket)))
(if multi-threading
(apply #'spawn-thread "USOCKET Client" real-function client-socket arguments)
(apply #'portable-threads:spawn-thread "USOCKET Client" real-function client-socket arguments)
(prog1 (apply real-function client-socket arguments)
(close client-stream)
(socket-close client-socket)))
......
......@@ -7,7 +7,7 @@
(defsystem usocket-server
:name "usocket (server)"
:author "Chun Tian (binghe)"
:version "0.7.0"
:version "0.7.0.1"
:licence "MIT"
:description "Universal socket library for Common Lisp (server side)"
:depends-on (:usocket :portable-threads)
......
......@@ -8,7 +8,7 @@
:name "usocket (client)"
:author "Erik Enge & Erik Huelsmann"
:maintainer "Chun Tian (binghe) & Hans Huebner"
:version "0.7.0"
:version "0.7.0.1"
:licence "MIT"
:description "Universal socket library for Common Lisp"
:depends-on (#+(or sbcl ecl) :sb-bsd-sockets
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment