initial common lisp import

3 files changed, 86 insertions, 0 deletions

diff --git a/dev-lisp/cl-uffi/files/digest-cl-uffi-1.2.15 b/dev-lisp/cl-uffi/files/digest-cl-uffi-1.2.15
new file mode 100644
index 000000000000..a5fd67ca7b3d
--- /dev/null
+++ b/dev-lisp/cl-uffi/files/digest-cl-uffi-1.2.15
@@ -0,0 +1 @@
+MD5 9ed85ec7e42ca558c93765953a760c61 uffi-1.2.15.tar.gz 160278
diff --git a/dev-lisp/cl-uffi/files/uffi-tests.asd b/dev-lisp/cl-uffi/files/uffi-tests.asd
new file mode 100644
index 000000000000..a140021faadf
--- /dev/null
+++ b/dev-lisp/cl-uffi/files/uffi-tests.asd
@@ -0,0 +1,37 @@
+;;;; -*- 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/06/10 04:53:04 mkennedy Exp $
+;;;; *************************************************************************
+
+(defpackage #:uffi-tests-system
+  (:use #:asdf #:cl))
+(in-package #:uffi-tests-system)
+
+(defsystem uffi-tests
+    :depends-on (:uffi)
+    :components
+	      ((:file "rt")
+	       (:file "package" :depends-on ("rt"))
+	       (:file "strtol" :depends-on ("package"))
+	       (:file "atoifl" :depends-on ("package"))
+	       (:file "getenv" :depends-on ("package"))
+	       (:file "gethostname" :depends-on ("package"))
+	       (:file "union" :depends-on ("package"))
+	       (:file "arrays" :depends-on ("package"))
+	       (:file "time" :depends-on ("package"))
+	       (:file "foreign-loader" :depends-on ("package"))
+	       (:file "compress" :depends-on ("foreign-loader"))
+	       (:file "uffi-c-test-lib" :depends-on ("foreign-loader"))
+	       ))
+
+(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")))
diff --git a/dev-lisp/cl-uffi/files/uffi.asd b/dev-lisp/cl-uffi/files/uffi.asd
new file mode 100644
index 000000000000..34c2ce468f80
--- /dev/null
+++ b/dev-lisp/cl-uffi/files/uffi.asd
@@ -0,0 +1,48 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;;;; *************************************************************************
+;;;; FILE IDENTIFICATION
+;;;;
+;;;; Name:          uffi.asd
+;;;; Purpose:       ASDF system definition file for UFFI package
+;;;; Author:        Kevin M. Rosenberg
+;;;; Date Started:  Aug 2002
+;;;;
+;;;; $Id: uffi.asd,v 1.1 2003/06/10 04:53:04 mkennedy Exp $
+;;;;
+;;;; 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)
+(defsystem uffi
+  :name "uffi"
+  :author "Kevin Rosenberg <kevin@rosenberg.net>"
+  :version "1.2.x"
+  :maintainer "Kevin M. Rosenberg <kmr@debian.org>"
+  :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
+	    ((: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 "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))))
+  (oos 'load-op 'uffi-tests)
+  (oos 'test-op 'uffi-tests))
+
+