From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Fri, 20 Sep 2002 05:38:01 +0000 (+0000)
Subject: r2785: *** empty log message ***
X-Git-Tag: v1.6.1~307
X-Git-Url: http://git.kpe.io/?a=commitdiff_plain;h=687abce42637479af041f074ebd887c6269f45b9;p=uffi.git

r2785: *** empty log message ***
---

diff --git a/debian/changelog b/debian/changelog
index e1b79f6..f7a17a2 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,6 +1,6 @@
 cl-uffi (0.8.0-1) unstable; urgency=low
 
-  * Adds support for openmcl
+  * Adds support for openmcl, numerous changes from John Desoi
 
  -- Kevin M. Rosenberg <kmr@debian.org>  Thu, 19 Sep 2002 21:09:17 -0600
 
diff --git a/doc/html.tar.gz b/doc/html.tar.gz
index 91f3f2b..00d67e4 100644
Binary files a/doc/html.tar.gz and b/doc/html.tar.gz differ
diff --git a/doc/uffi.pdf b/doc/uffi.pdf
index eac48d9..cd6e8e9 100644
Binary files a/doc/uffi.pdf and b/doc/uffi.pdf differ
diff --git a/examples/acl-compat-tester.cl b/examples/acl-compat-tester.cl
index cfb095e..84e8d57 100644
--- a/examples/acl-compat-tester.cl
+++ b/examples/acl-compat-tester.cl
@@ -24,7 +24,7 @@
 ;; Place, Suite 330, Boston, MA  02111-1307  USA
 ;;
 ;;;; from the original ACL 6.1 sources:
-;; $Id: acl-compat-tester.cl,v 1.2 2002/09/20 04:51:14 kevin Exp $
+;; $Id: acl-compat-tester.cl,v 1.3 2002/09/20 05:38:01 kevin Exp $
 
 
 (defpackage :util.test
@@ -50,6 +50,7 @@
 
 (in-package :util.test)
 
+#+cmu
 (unless (find-class 'break nil)
   (define-condition break (simple-condition) ()))
 
diff --git a/examples/run-examples.cl b/examples/run-examples.cl
index e433205..25afc98 100644
--- a/examples/run-examples.cl
+++ b/examples/run-examples.cl
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: run-examples.cl,v 1.2 2002/09/20 04:51:14 kevin Exp $
+;;;; $Id: run-examples.cl,v 1.3 2002/09/20 05:38:01 kevin Exp $
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -21,10 +21,7 @@
 (pushnew :examples-uffi cl:*features*)
 
 (flet ((load-test (name)
-	 (load (merge-pathnames
-		(make-pathname :name name 
-			       :type "cl"
-		*load-truename*)))))
+	  (load (make-pathname :defaults *load-truename* :name name :type "cl"))))
   (load-test "c-test-fns")
   (load-test "arrays")
   (load-test "union")
diff --git a/examples/test-examples.cl b/examples/test-examples.cl
index 2a0f715..32def1e 100644
--- a/examples/test-examples.cl
+++ b/examples/test-examples.cl
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: test-examples.cl,v 1.2 2002/09/20 04:51:14 kevin Exp $
+;;;; $Id: test-examples.cl,v 1.3 2002/09/20 05:38:01 kevin Exp $
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -24,13 +24,13 @@
 
 (defun do-tests ()
   (pushnew :test-uffi cl:*features*)
-  (util.test:with-tests (:name "UFFI")
-    (setq util.test:*break-on-test-failures* t)
+  (util.test:with-tests (:name "UFFI-Tests")
+    (setq util.test:*break-on-test-failures* nil)
     (flet ((load-test (name)
-	     (load (merge-pathnames
-		    (make-pathname :name name 
-				   :type "cl"
-		    *load-truename*)))))
+		      (load (merge-pathnames
+			     (make-pathname :name name 
+					    :type "cl")
+					    *load-truename*))))
       (load-test "c-test-fns")
       (load-test "arrays")
       (load-test "union")
diff --git a/examples/union.cl b/examples/union.cl
index c3349c6..967fc25 100644
--- a/examples/union.cl
+++ b/examples/union.cl
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Mar 2002
 ;;;;
-;;;; $Id: union.cl,v 1.7 2002/04/03 00:57:48 kevin Exp $
+;;;; $Id: union.cl,v 1.8 2002/09/20 05:38:01 kevin Exp $
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -48,6 +48,7 @@
     (uffi:free-foreign-object u))
   (values))
 
+#+test-uffi
 (defun test-union-1 ()
   (let ((u (uffi:allocate-foreign-object 'tunion1)))
     (setf (uffi:get-slot-value u 'tunion1 'uint)
diff --git a/tests/acl-compat-tester.cl b/tests/acl-compat-tester.cl
index cfb095e..84e8d57 100644
--- a/tests/acl-compat-tester.cl
+++ b/tests/acl-compat-tester.cl
@@ -24,7 +24,7 @@
 ;; Place, Suite 330, Boston, MA  02111-1307  USA
 ;;
 ;;;; from the original ACL 6.1 sources:
-;; $Id: acl-compat-tester.cl,v 1.2 2002/09/20 04:51:14 kevin Exp $
+;; $Id: acl-compat-tester.cl,v 1.3 2002/09/20 05:38:01 kevin Exp $
 
 
 (defpackage :util.test
@@ -50,6 +50,7 @@
 
 (in-package :util.test)
 
+#+cmu
 (unless (find-class 'break nil)
   (define-condition break (simple-condition) ()))
 
diff --git a/tests/run-examples.cl b/tests/run-examples.cl
index e433205..25afc98 100644
--- a/tests/run-examples.cl
+++ b/tests/run-examples.cl
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: run-examples.cl,v 1.2 2002/09/20 04:51:14 kevin Exp $
+;;;; $Id: run-examples.cl,v 1.3 2002/09/20 05:38:01 kevin Exp $
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -21,10 +21,7 @@
 (pushnew :examples-uffi cl:*features*)
 
 (flet ((load-test (name)
-	 (load (merge-pathnames
-		(make-pathname :name name 
-			       :type "cl"
-		*load-truename*)))))
+	  (load (make-pathname :defaults *load-truename* :name name :type "cl"))))
   (load-test "c-test-fns")
   (load-test "arrays")
   (load-test "union")
diff --git a/tests/test-examples.cl b/tests/test-examples.cl
index 2a0f715..32def1e 100644
--- a/tests/test-examples.cl
+++ b/tests/test-examples.cl
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: test-examples.cl,v 1.2 2002/09/20 04:51:14 kevin Exp $
+;;;; $Id: test-examples.cl,v 1.3 2002/09/20 05:38:01 kevin Exp $
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -24,13 +24,13 @@
 
 (defun do-tests ()
   (pushnew :test-uffi cl:*features*)
-  (util.test:with-tests (:name "UFFI")
-    (setq util.test:*break-on-test-failures* t)
+  (util.test:with-tests (:name "UFFI-Tests")
+    (setq util.test:*break-on-test-failures* nil)
     (flet ((load-test (name)
-	     (load (merge-pathnames
-		    (make-pathname :name name 
-				   :type "cl"
-		    *load-truename*)))))
+		      (load (merge-pathnames
+			     (make-pathname :name name 
+					    :type "cl")
+					    *load-truename*))))
       (load-test "c-test-fns")
       (load-test "arrays")
       (load-test "union")
diff --git a/tests/union.cl b/tests/union.cl
index c3349c6..967fc25 100644
--- a/tests/union.cl
+++ b/tests/union.cl
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Mar 2002
 ;;;;
-;;;; $Id: union.cl,v 1.7 2002/04/03 00:57:48 kevin Exp $
+;;;; $Id: union.cl,v 1.8 2002/09/20 05:38:01 kevin Exp $
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -48,6 +48,7 @@
     (uffi:free-foreign-object u))
   (values))
 
+#+test-uffi
 (defun test-union-1 ()
   (let ((u (uffi:allocate-foreign-object 'tunion1)))
     (setf (uffi:get-slot-value u 'tunion1 'uint)
diff --git a/uffi.asd b/uffi.asd
index 1b1c9b5..58d0289 100644
--- a/uffi.asd
+++ b/uffi.asd
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Aug 2002
 ;;;;
-;;;; $Id: uffi.asd,v 1.13 2002/09/20 01:26:17 kevin Exp $
+;;;; $Id: uffi.asd,v 1.14 2002/09/20 05:38:01 kevin Exp $
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -29,7 +29,7 @@
   :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*))
+    (pushnew :uffi cl:*features*))
 
   :components
   (
@@ -60,6 +60,9 @@
      ))
 
 
-(defmethod source-file-type  ((c cl-source-file) (s (eql (find-system 'uffi)))) 
+(defmethod source-file-type  ((c cl-source-file) (s (eql (find-system :uffi)))) 
    "cl")
 
+(when (ignore-errors (find-class 'load-compiled-op))
+  (defmethod perform :after ((op load-compiled-op) (c (eql (find-system :uffi))))
+    (pushnew :uffi cl:*features*)))