From: Kevin M. Rosenberg Date: Wed, 3 Apr 2002 00:31:32 +0000 (+0000) Subject: r1724: *** empty log message *** X-Git-Tag: v1.6.1~523 X-Git-Url: http://git.kpe.io/?a=commitdiff_plain;h=e6ead14af8cd0833a49d7cd33c8bc33d3404da6d;p=uffi.git r1724: *** empty log message *** --- diff --git a/acl-compat-tester.cl b/acl-compat-tester.cl index b75ab6d..4f9c447 100644 --- 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 d65deda..269d032 100644 --- 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 064a91f..84e9a72 100644 --- 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 589d564..0bdb90f 100644 --- 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 49ed9de..b668a10 100644 --- 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 d65deda..269d032 100644 --- 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 064a91f..84e9a72 100644 --- 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 589d564..0bdb90f 100644 --- 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 49ed9de..b668a10 100644 --- 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 9a06189..d16817e 100644 --- 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")