X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=uffi.asd;h=ddcf338210d3c8a2dfbffd095aff3323db577b17;hb=a960f62cd8258585d12f2b05cd5d54fafd6ed9cc;hp=515f52a5788b461d3213f4a99a1ec69d6b4b28d7;hpb=51a8e53201f8883fbd093fe45936d98128a8a5fe;p=uffi.git diff --git a/uffi.asd b/uffi.asd index 515f52a..ddcf338 100644 --- a/uffi.asd +++ b/uffi.asd @@ -7,19 +7,14 @@ ;;;; Author: Kevin M. Rosenberg ;;;; Date Started: Aug 2002 ;;;; -;;;; $Id: uffi.asd,v 1.25 2003/06/06 21:59:18 kevin Exp $ +;;;; This file, part of UFFI, is Copyright (c) 2002-2009 by Kevin M. Rosenberg ;;;; -;;;; This file, part of UFFI, is Copyright (c) 2002 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)) (in-package #:uffi-system) -#+(or allegro lispworks cmu mcl cormanlisp sbcl scl) +#+(or allegro lispworks cmu openmcl digitool cormanlisp sbcl scl) (defsystem uffi :name "uffi" :author "Kevin Rosenberg " @@ -28,24 +23,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")) + #+(or openmcl digitool) (:file "readmacros-mcl" :depends-on ("package")) (: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) +#+(or allegro lispworks cmu openmcl digitool cormanlisp sbcl scl) (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))