uffi uffi-tests.asd,NONE,1.1 uffi.asd,1.23,1.24

Update of /pubcvs/uffi
In directory boa.b9.com:/tmp/cvs-serv12792

Modified Files:
	uffi.asd 
Added Files:
	uffi-tests.asd 
Log Message:


--- NEW FILE: uffi-tests.asd ---
;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
;;;; Name:          uffi-tests.asd
;;;; Purpose:       ASDF system definitionf for uffi testing package
;;;; Author:        Kevin M. Rosenberg
;;;; Date Started:  Apr 2003
;;;;
;;;; $Id: uffi-tests.asd,v 1.1 2003/04/29 12:09:36 kevin Exp $
;;;; *************************************************************************

(defpackage #:uffi-tests-system
  (:use #:asdf #:cl))
(in-package #:uffi-tests-system)

(defsystem uffi-tests
    :depends-on (:rt :uffi)
    :components ((:file "tests")))

(defmethod perform ((o test-op) (c (eql (find-system :uffi-tests))))
  (or (funcall (intern (symbol-name '#:do-tests)
		       (find-package '#:regression-test)))
      (error "test-op failed")))


Index: uffi.asd
===================================================================
RCS file: /pubcvs/uffi/uffi.asd,v
retrieving revision 1.23
retrieving revision 1.24
diff -C2 -d -r1.23 -r1.24
*** uffi.asd	3 Apr 2003 17:02:36 -0000	1.23
--- uffi.asd	29 Apr 2003 12:09:36 -0000	1.24
***************
*** 5,9 ****
  ;;;; Name:          uffi.asd
  ;;;; Purpose:       ASDF system definition file for UFFI package
! ;;;; Programmer:    Kevin M. Rosenberg
  ;;;; Date Started:  Aug 2002
  ;;;;
--- 5,9 ----
  ;;;; Name:          uffi.asd
  ;;;; Purpose:       ASDF system definition file for UFFI package
! ;;;; Author:        Kevin M. Rosenberg
  ;;;; Date Started:  Aug 2002
  ;;;;
***************
*** 17,28 ****
  ;;;; *************************************************************************
  
! (declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
! (in-package :asdf)
  
  #+(or allegro lispworks cmu mcl cormanlisp sbcl scl)
  (defsystem uffi
!   :name "cl-uffi"
!   :author "Kevin M. Rosenberg <kevin-HJRc7zDS/[email protected]>"
!   :version "1.0.0"
    :maintainer "Kevin M. Rosenberg <[email protected]>"
    :licence "Lessor Lisp General Public License"
--- 17,28 ----
  ;;;; *************************************************************************
  
! (defpackage #:uffi-system (:use #:asdf #:cl))
! (in-package #:uffi-system)
  
  #+(or allegro lispworks cmu mcl cormanlisp sbcl scl)
  (defsystem uffi
!   :name "uffi"
!   :author "Kevin Rosenberg <kevin-HJRc7zDS/[email protected]>"
!   :version "1.2.x"
    :maintainer "Kevin M. Rosenberg <[email protected]>"
    :licence "Lessor Lisp General Public License"
***************
*** 30,36 ****
    :long-description "UFFI provides a universal foreign function interface (FFI) for Common Lisp. UFFI supports CMUCL, Lispworks, and AllegroCL."
    
-   :perform (load-op :after (op uffi)
-     (pushnew :uffi cl:*features*))
- 
    :components
    ((:module :src
--- 30,33 ----
***************
*** 45,48 ****
  	     (:file "libraries" :depends-on ("package"))
  	     (:file "os" :depends-on ("package"))))
!      ))
  
--- 42,51 ----
  	     (: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))))
!   (oos 'load-op 'uffi-tests)
!   (oos 'test-op 'uffi-tests))
!