1 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Indent-tabs-mode: NIL -*-
3 ;;; Copyright (C) 2006-2008, Attila Lendvai <attila.lendvai@gmail.com>
5 ;;; This code is free software; you can redistribute it and/or
6 ;;; modify it under the terms of the version 2.1 of
7 ;;; the GNU Lesser General Public License as published by
8 ;;; the Free Software Foundation, as clarified by the
9 ;;; preamble found here:
10 ;;; http://opensource.franz.com/preamble.html
12 ;;; This program is distributed in the hope that it will be useful,
13 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
14 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 ;;; GNU General Public License for more details.
17 ;;; You should have received a copy of the GNU Lesser General
18 ;;; Public License along with this library; if not, write to the
19 ;;; Free Software Foundation, Inc., 51 Franklin St, Fifth Floor,
20 ;;; Boston, MA 02110-1301, USA
22 (in-package :common-lisp-user)
24 (asdf:defsystem :net.sockets.cc
25 :description "Extension to net.sockets that enables handling thousands of connection using continuations."
26 :author "Attila Lendvai <attila.lendvai@gmail.com>"
27 :maintainer "Attila Lendvai <attila.lendvai@gmail.com>"
29 :depends-on (:net.sockets :cl-cont :io.streams :io.multiplex :alexandria :metabang-bind :bordeaux-threads)
30 :pathname (merge-pathnames #p"net.sockets.cc/" *load-truename*)
37 (:file "cc-primitives")
41 (asdf:defsystem :net.sockets.cc.tests
42 :description "Tests for :net.sockets.cc"
43 :author "Attila Lendvai <attila.lendvai@gmail.com>"
44 :maintainer "Attila Lendvai <attila.lendvai@gmail.com>"
46 :depends-on (:net.sockets.cc :stefil)
47 :pathname (merge-pathnames #p"tests/net.sockets.cc/" *load-truename*)
53 (defmethod asdf:perform ((o asdf:test-op) (c (eql (asdf:find-system :net.sockets.cc))))
54 (asdf:operate 'asdf:load-op :net.sockets.cc.tests)
55 (in-package :sockets/cc-tests)
56 (declaim (optimize (debug 3)))
57 (warn "(declaim (optimize (debug 3))) was issued to help later C-c C-c'ing")
58 (eval (read-from-string "(stefil:funcall-test-with-feedback-message 'sockets/cc-tests::test)"))
61 ;; TODO this should eventually be dropped when asdf gets the relevant OPERATION-DONE-P patch
62 (defmethod asdf:operation-done-p ((op asdf:test-op) (system (eql (asdf:find-system :net.sockets.cc))))