Pierre R. Mai
a890540a42
all versions of CMUCL that don't provide multi-processing support, like on all non-x86 platforms. Tested on an UltraSparc running Solaris 2.7 (hawk) and a mid-1999 version of CMUCL 18b+.
62 lines
1.8 KiB
Common Lisp
62 lines
1.8 KiB
Common Lisp
;;;; -*-Mode: LISP; Package: CL-USER; Syntax: ANSI-Common-lisp -*-
|
|
;;;; CLASH --- The Common Lisp Adaptable Simple HTTP server
|
|
;;;; This is copyrighted software. See documentation for terms.
|
|
;;;;
|
|
;;;; clash.system --- CLASH system definitions for MK-DEFSYSTEM
|
|
;;;;
|
|
;;;; Checkout Tag: $Name$
|
|
;;;; $Id$
|
|
|
|
(in-package :CL-USER)
|
|
|
|
;;;; %File Description:
|
|
;;;;
|
|
;;;;
|
|
;;;;
|
|
|
|
(defsystem "CLASH"
|
|
:source-pathname #.(merge-pathnames
|
|
"src/"
|
|
(make-pathname :name nil :type nil :version nil
|
|
:defaults *load-truename*))
|
|
:source-extension "cl"
|
|
:components
|
|
((:module "base"
|
|
:source-pathname ""
|
|
:components ((:file "package")
|
|
(:file "utility" :depends-on ("package"))))
|
|
(:module "main"
|
|
:source-pathname "main"
|
|
:components ((:file "status-codes")
|
|
(:file "conditions" :depends-on ("status-codes"))
|
|
(:file "url"
|
|
:depends-on ("conditions" "status-codes"))
|
|
(:file "version"
|
|
:depends-on ("conditions" "status-codes"))
|
|
(:file "http-io"
|
|
:depends-on ("conditions" "status-codes"))
|
|
(:file "connection"
|
|
:depends-on ("http-io"))
|
|
(:file "method")
|
|
(:file "messages"
|
|
:depends-on ("url" "version"))
|
|
(:file "entity"
|
|
:depends-on ("http-io" "url"))
|
|
(:file "resource"
|
|
:depends-on ("entity" "method"))
|
|
(:file "namespace"
|
|
:depends-on ("url" "resource"))
|
|
(:file "server"
|
|
:depends-on ("namespace" "messages"
|
|
"resource"))
|
|
(:file "readtable"
|
|
:depends-on ("url" "version")))
|
|
:depends-on ("base"))
|
|
(:module "driver"
|
|
:source-pathname "drivers"
|
|
:components (#+(and :CMU :MP (not :CLASH-EVENT))
|
|
(:file "simple-cmu")
|
|
#+(or :CLASH-EVENT (and :CMU (not :MP)))
|
|
(:file "event-cmu"))
|
|
:depends-on ("base" "main"))))
|