r1724: *** empty log message ***

diff --git a/acl-compat-tester.cl b/acl-compat-tester.cl
index b75ab6ddcbf494c344718245d0f6a879379003e6..4f9c447e03536f16f641185e73ba24746b8f541e 100644 (file)
--- a/acl-compat-tester.cl
+++ b/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.1 2002/04/02 21:29:45 kevin Exp $
+;; $Id: acl-compat-tester.cl,v 1.2 2002/04/03 00:31:32 kevin Exp $
 
 
 (defpackage :util.test
@@ -50,7 +50,10 @@
 
 (in-package :util.test)
 
-(define-condition simple-break (break simple-condition) ())
+(unless (find-class 'break nil)
+  (define-condition break (simple-condition) ()))
+
+(define-condition simple-break (error simple-condition) ())
 
 ;; the if* macro used in Allegro:
 ;;

diff --git a/examples/Makefile b/examples/Makefile
index d65deda0ce4684ccfd3c6b9b992f002e1bbf1fd2..269d032e6390b1e6e519a3d0354dd2901807da76 100644 (file)
--- a/examples/Makefile
+++ b/examples/Makefile
@@ -5,7 +5,7 @@
 #  Programer:    Kevin M. Rosenberg
 #  Date Started: Mar 2002
 #
-#  CVS Id:   $Id: Makefile,v 1.5 2002/04/01 20:33:45 kevin Exp $
+#  CVS Id:   $Id: Makefile,v 1.6 2002/04/03 00:31:32 kevin Exp $
 #
 # This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 #
@@ -19,8 +19,8 @@ AR=ar
 CC=gcc
 SHARED_CC_OPT=-fpic
 
-SHARED_LD_OPT=-shared  # For Linux
-#SHARED_LD_OPT=-r # For FreeBSD and Solaris
+#SHARED_LD_OPT=-shared  # For Linux
+SHARED_LD_OPT=-r # For FreeBSD and Solaris
 
 # If you are using Solaris with Sun's CC, these are the correct values
 # for creating a shared library

diff --git a/examples/atoifl.cl b/examples/atoifl.cl
index 064a91f7d1257e6978b76207d8197e8ff5f9f1e5..84e9a72c568181ca8a003b89782b70bbeceebe5b 100644 (file)
--- a/examples/atoifl.cl
+++ b/examples/atoifl.cl
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Mar 2002
 ;;;;
-;;;; $Id: atoifl.cl,v 1.4 2002/04/02 23:27:05 kevin Exp $
+;;;; $Id: atoifl.cl,v 1.5 2002/04/03 00:31:32 kevin Exp $
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -53,7 +53,7 @@
                  :fail-info "Error with atoi")
   (util.test:test (atoi "") 0 :test #'eql
                  :fail-info "Error with atoi")
-  (util.test:test (atof "2.23") 2.23 :test #'eql
+  (util.test:test (atof "2.23") 2.23d0 :test #'eql
                  :fail-info "Error with atof")
   )
   

diff --git a/examples/c-test-fns.cl b/examples/c-test-fns.cl
index 589d56433bb48a2131abbe8a66a251f5d599b707..0bdb90fda7ec735b10a285c882e225bb8c05a12c 100644 (file)
--- a/examples/c-test-fns.cl
+++ b/examples/c-test-fns.cl
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Mar 2002
 ;;;;
-;;;; $Id: c-test-fns.cl,v 1.6 2002/04/02 23:27:05 kevin Exp $
+;;;; $Id: c-test-fns.cl,v 1.7 2002/04/03 00:31:32 kevin Exp $
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -101,7 +101,7 @@
 #+test-uffi
 (progn
   (util.test:test (string= (string-to-upper "this is a test") "THIS IS A TEST")
-                 (length "THIS IS A TEST")
+                  t
                  :test #'eql
                  :fail-info "Error with string-to-upper")
   (util.test:test (string-to-upper nil) nil
@@ -115,7 +115,7 @@
                  :fail-info "string-count-upper with nil failed")
 
   (util.test:test (test-half-double-vector)
-                 '(0.0 0.5 1.0 1.5 2.0 2.5 3.0 3.5 4.0 4.5)
+                 '(0.0d0 0.5d0 1.0d0 1.5d0 2.0d0 2.5d0 3.0d0 3.5d0 4.0d0 4.5d0)
                  :test #'equal
                  :fail-info "Error comparing half-double-vector")
   )

diff --git a/examples/gethostname.cl b/examples/gethostname.cl
index 49ed9dec6c1141e7c092d16128790d72ab9f46c2..b668a109fec31a75fd7d3e476ac0c16dabf6a15b 100644 (file)
--- a/examples/gethostname.cl
+++ b/examples/gethostname.cl
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: gethostname.cl,v 1.11 2002/04/02 21:42:11 kevin Exp $
+;;;; $Id: gethostname.cl,v 1.12 2002/04/03 00:31:32 kevin Exp $
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -58,7 +58,7 @@
     (util.test:test (and (not (zerop (length hostname1)))
                         (not (zerop (length hostname2)))) t
                         :fail-info "gethostname length 0")
-    (util.test:test (string= hostname1 hostname1) (length hostname1)
+    (util.test:test (string= hostname1 hostname1) t
                    :fail-info "gethostname techniques don't match"))
   )
 

diff --git a/tests/Makefile b/tests/Makefile
index d65deda0ce4684ccfd3c6b9b992f002e1bbf1fd2..269d032e6390b1e6e519a3d0354dd2901807da76 100644 (file)
--- a/tests/Makefile
+++ b/tests/Makefile
@@ -5,7 +5,7 @@
 #  Programer:    Kevin M. Rosenberg
 #  Date Started: Mar 2002
 #
-#  CVS Id:   $Id: Makefile,v 1.5 2002/04/01 20:33:45 kevin Exp $
+#  CVS Id:   $Id: Makefile,v 1.6 2002/04/03 00:31:32 kevin Exp $
 #
 # This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 #
@@ -19,8 +19,8 @@ AR=ar
 CC=gcc
 SHARED_CC_OPT=-fpic
 
-SHARED_LD_OPT=-shared  # For Linux
-#SHARED_LD_OPT=-r # For FreeBSD and Solaris
+#SHARED_LD_OPT=-shared  # For Linux
+SHARED_LD_OPT=-r # For FreeBSD and Solaris
 
 # If you are using Solaris with Sun's CC, these are the correct values
 # for creating a shared library

diff --git a/tests/atoifl.cl b/tests/atoifl.cl
index 064a91f7d1257e6978b76207d8197e8ff5f9f1e5..84e9a72c568181ca8a003b89782b70bbeceebe5b 100644 (file)
--- a/tests/atoifl.cl
+++ b/tests/atoifl.cl
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Mar 2002
 ;;;;
-;;;; $Id: atoifl.cl,v 1.4 2002/04/02 23:27:05 kevin Exp $
+;;;; $Id: atoifl.cl,v 1.5 2002/04/03 00:31:32 kevin Exp $
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -53,7 +53,7 @@
                  :fail-info "Error with atoi")
   (util.test:test (atoi "") 0 :test #'eql
                  :fail-info "Error with atoi")
-  (util.test:test (atof "2.23") 2.23 :test #'eql
+  (util.test:test (atof "2.23") 2.23d0 :test #'eql
                  :fail-info "Error with atof")
   )
   

diff --git a/tests/c-test-fns.cl b/tests/c-test-fns.cl
index 589d56433bb48a2131abbe8a66a251f5d599b707..0bdb90fda7ec735b10a285c882e225bb8c05a12c 100644 (file)
--- a/tests/c-test-fns.cl
+++ b/tests/c-test-fns.cl
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Mar 2002
 ;;;;
-;;;; $Id: c-test-fns.cl,v 1.6 2002/04/02 23:27:05 kevin Exp $
+;;;; $Id: c-test-fns.cl,v 1.7 2002/04/03 00:31:32 kevin Exp $
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -101,7 +101,7 @@
 #+test-uffi
 (progn
   (util.test:test (string= (string-to-upper "this is a test") "THIS IS A TEST")
-                 (length "THIS IS A TEST")
+                  t
                  :test #'eql
                  :fail-info "Error with string-to-upper")
   (util.test:test (string-to-upper nil) nil
@@ -115,7 +115,7 @@
                  :fail-info "string-count-upper with nil failed")
 
   (util.test:test (test-half-double-vector)
-                 '(0.0 0.5 1.0 1.5 2.0 2.5 3.0 3.5 4.0 4.5)
+                 '(0.0d0 0.5d0 1.0d0 1.5d0 2.0d0 2.5d0 3.0d0 3.5d0 4.0d0 4.5d0)
                  :test #'equal
                  :fail-info "Error comparing half-double-vector")
   )

diff --git a/tests/gethostname.cl b/tests/gethostname.cl
index 49ed9dec6c1141e7c092d16128790d72ab9f46c2..b668a109fec31a75fd7d3e476ac0c16dabf6a15b 100644 (file)
--- a/tests/gethostname.cl
+++ b/tests/gethostname.cl
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: gethostname.cl,v 1.11 2002/04/02 21:42:11 kevin Exp $
+;;;; $Id: gethostname.cl,v 1.12 2002/04/03 00:31:32 kevin Exp $
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -58,7 +58,7 @@
     (util.test:test (and (not (zerop (length hostname1)))
                         (not (zerop (length hostname2)))) t
                         :fail-info "gethostname length 0")
-    (util.test:test (string= hostname1 hostname1) (length hostname1)
+    (util.test:test (string= hostname1 hostname1) t
                    :fail-info "gethostname techniques don't match"))
   )
 

diff --git a/uffi.system b/uffi.system
index 9a0618977cc8e81fc2b35140cdf289b73357db88..d16817e752a7176e056ef924e30bd6238caf2d80 100644 (file)
--- a/uffi.system
+++ b/uffi.system
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: uffi.system,v 1.9 2002/03/28 20:11:59 kevin Exp $
+;;;; $Id: uffi.system,v 1.10 2002/04/03 00:31:32 kevin Exp $
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -30,6 +30,7 @@
          #+lispworks "lispworks"
          #+cmu "cmucl"
          #+mcl "mcl"
+          #+clisp "clisp"
          #+corman "corman")
   "Logical pathname for source")