r2785: *** empty log message ***

diff --git a/debian/changelog b/debian/changelog
index e1b79f6a32af71ba378f80e7c6bc1732b1c64adf..f7a17a27baee34418645c1038d289facbe5b7fde 100644 (file)
--- 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 91f3f2b2303b005a470fdb4152f037c3adf63640..00d67e48bb7b747724fd4a2138246021725427e3 100644 (file)
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 eac48d9c758cee838805988ca7aa280518bf1fb7..cd6e8e92109e4823e04b040105a990374d93bcce 100644 (file)
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 cfb095e7f03b74845aeddc59afe20e63be44cfc5..84e8d578a9ef15a404256f5b2042ea907be1d3dd 100644 (file)
--- 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 e433205b63a5b98fe37ca5203c0f059866ba7d22..25afc981a02f65258f3890c8c576028a38b59215 100644 (file)
--- 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 2a0f715edf0cf6fd3114e6079a18c57fc1b72d6a..32def1e731ebec481e2ce26fe71659bbdf10b67f 100644 (file)
--- 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 c3349c6d15939c22d1239b3607a4540befcdd526..967fc25b1ef73ca6d64901cb1c25ffc05d1a0d2b 100644 (file)
--- 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 cfb095e7f03b74845aeddc59afe20e63be44cfc5..84e8d578a9ef15a404256f5b2042ea907be1d3dd 100644 (file)
--- 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 e433205b63a5b98fe37ca5203c0f059866ba7d22..25afc981a02f65258f3890c8c576028a38b59215 100644 (file)
--- 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 2a0f715edf0cf6fd3114e6079a18c57fc1b72d6a..32def1e731ebec481e2ce26fe71659bbdf10b67f 100644 (file)
--- 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 c3349c6d15939c22d1239b3607a4540befcdd526..967fc25b1ef73ca6d64901cb1c25ffc05d1a0d2b 100644 (file)
--- 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 1b1c9b52865c1cd75c8cbcfddf0fa8ff8c53e220..58d028981bb8bf34f11675146d69df28d62a186c 100644 (file)
--- 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*)))