1 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
2 ;;;; *************************************************************************
3 ;;;; FILE IDENTIFICATION
5 ;;;; Name: clsql.system
6 ;;;; Purpose: Defsystem-3/4 for CLSQL
7 ;;;; Programmer: Kevin M. Rosenberg
8 ;;;; Date Started: Feb 2002
10 ;;;; $Id: clsql.asd,v 1.5 2002/09/06 10:26:17 kevin Exp $
12 ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
14 ;;;; CLSQL users are granted the rights to distribute and use this software
15 ;;;; as governed by the terms of the Lisp Lesser GNU Public License
16 ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
17 ;;;; *************************************************************************
19 (declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
24 (let ((path (make-pathname :name "clsql-base" :type "system"
25 :defaults *load-truename*)))
26 (when (probe-file path)
29 ;;; System definitions
33 :pathname #.(format nil "~A:clsql;" +clsql-logical-host+)
34 :perform (load-op :after (op clsql)
35 (pushnew :clsql cl:*features*))
36 :components ((:file "package")
37 (:file "pool" :depends-on ("package"))
38 (:file "loop-extension")
39 (:file "sql" :depends-on ("pool"))
40 (:file "transactions" :depends-on ("sql"))
41 (:file "functional" :depends-on ("sql"))
42 (:file "usql" :depends-on ("sql")))
43 :depends-on (:clsql-base)
46 (defmethod source-file-type ((c cl-source-file)
47 (s (eql (find-system 'clsql))))