r2741: Start migration to pathname-less asd files, remove .system files

[clsql.git] / clsql-uffi.asd

diff --git a/clsql-uffi.asd b/clsql-uffi.asd
index 2c010e844f919f9451115c61a7cf495e56591a7e..c45d31cf7e73330afbfb583a552eb69596aa5cf3 100644 (file)
--- a/clsql-uffi.asd
+++ b/clsql-uffi.asd
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Aug 2002
 ;;;;
-;;;; $Id: clsql-uffi.asd,v 1.2 2002/08/18 04:39:59 kevin Exp $
+;;;; $Id: clsql-uffi.asd,v 1.8 2002/09/17 17:16:43 kevin Exp $
 ;;;;
 ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -22,11 +22,16 @@
 
 ;;; System definition
 
-(defsystem clsql-uffi
-    :default-component-class clsql-cl-source-file
-    :pathname "cl-library:clsql-uffi;"
-    :components ((:file "clsql-uffi-package")
-                (:file "clsql-uffi-loader" :depends-on ("clsql-uffi-package"))
-                (:file "clsql-uffi" :depends-on ("clsql-uffi-loader")))
-    :depends-on (:uffi))
+(defsystem :clsql-uffi
+  :components
+  ((:module :uffi
+           :components
+           ((:file "clsql-uffi-package")
+            (:file "clsql-uffi-loader" :depends-on ("clsql-uffi-package"))
+            (:file "clsql-uffi" :depends-on ("clsql-uffi-loader")))))
+  :depends-on (:uffi :clsql-base))
 
+
+(defmethod source-file-type  ((c cl-source-file)
+                             (s (eql (find-system 'clsql-uffi)))) 
+   "cl")