X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=uffi.asd;h=3f17945ade9bdf7ce3f0ecd4525226d6aa5ab5d1;hb=c4533c02d3f2ebd53178c93de2dee09ca39fe0e7;hp=40eb5bedd35ae2757305856d8073e9aaac5474bf;hpb=8dc332f588e5fab803cfdcf94507744e6ef057df;p=uffi.git

diff --git a/uffi.asd b/uffi.asd
index 40eb5be..3f17945 100644
--- a/uffi.asd
+++ b/uffi.asd
@@ -7,13 +7,10 @@
 ;;;; Author:        Kevin M. Rosenberg
 ;;;; Date Started:  Aug 2002
 ;;;;
-;;;; $Id: uffi.asd,v 1.24 2003/04/29 12:09:36 kevin Exp $
+;;;; $Id$
 ;;;;
-;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
+;;;; This file, part of UFFI, is Copyright (c) 2002-2005 by Kevin M. Rosenberg
 ;;;;
-;;;; UFFI 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.
 ;;;; *************************************************************************
 
 (defpackage #:uffi-system (:use #:asdf #:cl))
@@ -28,24 +25,24 @@
   :licence "Lessor Lisp General Public License"
   :description "Universal Foreign Function Library for Common Lisp"
   :long-description "UFFI provides a universal foreign function interface (FFI) for Common Lisp. UFFI supports CMUCL, Lispworks, and AllegroCL."
-  
+
   :components
   ((:module :src
 	    :components
 	    ((:file "package")
 	     (:file "primitives" :depends-on ("package"))
 	     #+mcl (:file "readmacros-mcl" :depends-on ("package"))
-	     (:file "strings" :depends-on ("primitives"))
 	     (:file "objects" :depends-on ("primitives"))
 	     (:file "aggregates" :depends-on ("primitives"))
+	     (:file "strings" :depends-on ("primitives" "functions" "aggregates" "objects"))
 	     (:file "functions" :depends-on ("primitives"))
 	     (:file "libraries" :depends-on ("package"))
 	     (:file "os" :depends-on ("package"))))
    ))
 
 #+(or allegro lispworks cmu mcl cormanlisp sbcl scl)
-(defmethod perform ((o test-op) (c (eql (find-system :uffi))))
+(defmethod perform ((o test-op) (c (eql (find-system 'uffi))))
   (oos 'load-op 'uffi-tests)
-  (oos 'test-op 'uffi-tests))
+  (oos 'test-op 'uffi-tests :force t))