X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=clsql-base.system;fp=clsql-base.system;h=0000000000000000000000000000000000000000;hb=31d1a78ee915ae4db7c042b7e5cb1ab7b5a73448;hp=fd8e4d22611564ffc5e3f3f66f14ca7b3ffab165;hpb=cbec78ec2d390fcf641108c1ca8d1589a0f22ed8;p=clsql.git diff --git a/clsql-base.system b/clsql-base.system deleted file mode 100644 index fd8e4d2..0000000 --- a/clsql-base.system +++ /dev/null @@ -1,50 +0,0 @@ -;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*- -;;;; ************************************************************************* -;;;; FILE IDENTIFICATION -;;;; -;;;; Name: clsql-base.system -;;;; Purpose: Defsystem-3/4 for Base CLSQL -;;;; Programmer: Kevin M. Rosenberg -;;;; Date Started: Feb 2002 -;;;; -;;;; $Id: clsql-base.system,v 1.12 2002/09/06 10:56:13 kevin Exp $ -;;;; -;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg -;;;; -;;;; CLSQL users are granted the rights to distribute and use this software -;;;; as governed by the terms of the Lisp Lesser GNU Public License -;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL. -;;;; ************************************************************************* - -(declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0))) -(in-package :make) - -;; For use with non-Common Lisp Controller installations -#-common-lisp-controller -(let ((path (make-pathname :name "set-logical" :type "cl" - :defaults *load-truename*))) - (when (probe-file path) - (load path) - (set-logical-host-for-pathname - "clsql" - (make-pathname :host (pathname-host *load-truename*) - :device (pathname-device *load-truename*) - :directory (pathname-directory *load-truename*))))) - -;;; System definitions - -(defsystem :clsql-base - :source-pathname #.(format nil "~A:clsql-base;" - #+common-lisp-controller "cl-library" - #-common-lisp-controller "clsql") - :source-extension "cl" - :components ((:file "cmucl-compat") - (:file "package") - (:file "utils" :depends-on ("package")) - (:file "classes" :depends-on ("package")) - (:file "conditions" :depends-on ("classes")) - (:file "db-interface" :depends-on ("conditions")) - (:file "initialize" :depends-on ("db-interface"))) - :finally-do - (pushnew :clsql-base cl:*features*) - )