X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=clsql-uffi.asd;h=9d5c21e4cd41e7d5ad56479a7f997d5a3115d88e;hb=ab0ef7b1aa60254024d4e2a4bd9d33ed42f475be;hp=848f3b10e0dfaf1659eeedb833bf5371ab72735e;hpb=1776004eedb08c52fe909be73a9d34900808e172;p=clsql.git

diff --git a/clsql-uffi.asd b/clsql-uffi.asd
index 848f3b1..9d5c21e 100644
--- 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.4 2002/09/01 09:00:15 kevin Exp $
 ;;;;
 ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -20,18 +20,16 @@
 
 (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
 
+(defmethod source-file-type  ((c cl-source-file)
+			      (s (eql (find-system 'clsql-uffi)))) 
+   "cl")
+
 (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))