r2569: Auto commit for Debian build

[clsql.git] / clsql-uffi.asd

diff --git a/clsql-uffi.asd b/clsql-uffi.asd
index 848f3b10e0dfaf1659eeedb833bf5371ab72735e..f5b5a32c2aad95f611f581b648bf063748d3361c 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.1 2002/08/18 02:57:50 kevin Exp $
+;;;; $Id: clsql-uffi.asd,v 1.5 2002/09/06 10:26:17 kevin Exp $
 ;;;;
 ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -20,18 +20,17 @@
 
 (in-package :asdf)
 
-(unless (find-class 'clsql-cl-source-file)
-  (defclass clsql-cl-source-file (cl-source-file) ())
-  (defmethod source-file-type ((c clsql-cl-source-file) (s module)) 
-    "cl"))
-
 ;;; 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))
+  :pathname #.(format nil "~A:clsql-uffi;" +clsql-logical-host+)
+  :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))
+
+
+(defmethod source-file-type  ((c cl-source-file)
+                             (s (eql (find-system 'clsql-uffi)))) 
+   "cl")