1 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
2 ;;;; *************************************************************************
3 ;;;; FILE IDENTIFICATION
5 ;;;; Name: clsql-base.asd
6 ;;;; Purpose: ASDF definition file for Base CLSQL
7 ;;;; Programmer: Kevin M. Rosenberg
8 ;;;; Date Started: Feb 2002
10 ;;;; $Id: clsql-base.asd,v 1.13 2002/09/20 06:37:39 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 ;;;; *************************************************************************
21 (defsystem :clsql-base
23 :author "Kevin M. Rosenberg <kmr@debian.org>"
25 :maintainer "Kevin M. Rosenberg <kmr@debian.org>"
26 :licence "Lessor Lisp General Public License"
27 :description "Common Lisp SQL Base Package"
28 :long-description "cl-sql-base package provides the low-level interface for the database drivers."
30 :perform (load-op :after (op clsql-base)
31 (pushnew :clsql-base cl:*features*))
35 ((:file "cmucl-compat")
37 (:file "utils" :depends-on ("package"))
38 (:file "classes" :depends-on ("package"))
39 (:file "conditions" :depends-on ("classes"))
40 (:file "db-interface" :depends-on ("conditions"))
41 (:file "initialize" :depends-on ("db-interface"))))))
43 (defmethod source-file-type ((c cl-source-file)
44 (s (eql (find-system :clsql-base))))
47 (when (ignore-errors (find-class 'load-compiled-op))
48 (defmethod perform :after ((op load-compiled-op) (c (eql (find-system :clsql-base))))
49 (pushnew :clsql-base cl:*features*)))