X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=clsql-base.asd;h=3642a207b53716c77f702c28da7fbaec3e6dbd77;hp=a7b9fae1d08c28c9dedbdd75a177a1d68ca6a914;hb=ef790603600edc88958389d269922b1f379781e1;hpb=31e110c6d17b31e9978b61dcf64c13ba509182eb diff --git a/clsql-base.asd b/clsql-base.asd index a7b9fae..3642a20 100644 --- a/clsql-base.asd +++ b/clsql-base.asd @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: clsql-base.asd,v 1.5 2002/09/01 09:00:14 kevin Exp $ +;;;; $Id: clsql-base.asd,v 1.6 2002/09/06 10:26:17 kevin Exp $ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -36,10 +36,6 @@ #-common-lisp-controller "clsql" "Logical hostname for loading system") -(defmethod source-file-type ((c cl-source-file) - (s (eql (find-system 'clsql-base)))) - "cl") - ;;; System definitions (defsystem clsql-base @@ -54,3 +50,8 @@ (:file "db-interface" :depends-on ("conditions")) (:file "initialize" :depends-on ("db-interface"))) ) + +(defmethod source-file-type ((c cl-source-file) + (s (eql (find-system 'clsql-base)))) + "cl") +