|
|
@ -31,6 +31,3 @@
|
|
|
|
(princ "server shutdown complete" stream)))
|
|
|
|
(princ "server shutdown complete" stream)))
|
|
|
|
|
|
|
|
|
|
|
|
(ccl:quit))
|
|
|
|
(ccl:quit))
|
|
|
|
|
|
|
|
|
|
|
|
(defparameter socket (ccl:make-socket :local-port 6200 :connect :passive))
|
|
|
|
|
|
|
|
(defparameter stream (ccl:accept-connection socket))
|
|
|
|
|
|
|
|