From a95b9a217335917d96b8c0cced4f49c3e4846115 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Mon, 30 Sep 2002 10:02:36 +0000 Subject: [PATCH] r2912: rename .cl to .lisp --- benchmarks/{allocation.cl => allocation.lisp} | 2 +- debian/changelog | 6 ++++++ .../acl-compat-tester.lisp | 2 +- tests/arrays.cl => examples/arrays.lisp | 2 +- tests/atoifl.cl => examples/atoifl.lisp | 2 +- examples/{c-test-fns.cl => c-test-fns.lisp} | 2 +- examples/{compress.cl => compress.lisp} | 2 +- examples/{file-socket.cl => file-socket.lisp} | 2 +- examples/{getenv.cl => getenv.lisp} | 2 +- examples/{gethostname.cl => gethostname.lisp} | 2 +- tests/getshells.cl => examples/getshells.lisp | 2 +- examples/{gettime.cl => gettime.lisp} | 2 +- tests/run-examples.cl => examples/run-examples.lisp | 4 ++-- tests/strtol.cl => examples/strtol.lisp | 2 +- examples/{test-examples.cl => test-examples.lisp} | 10 +++------- examples/{union.cl => union.lisp} | 2 +- src/{aggregates.cl => aggregates.lisp} | 2 +- src/corman/{corman-uffi.cl => corman-uffi.lisp} | 2 +- src/{functions.cl => functions.lisp} | 2 +- src/{libraries.cl => libraries.lisp} | 2 +- src/{objects-mcl.cl => objects-mcl.lisp} | 2 +- src/{objects.cl => objects.lisp} | 2 +- src/{package.cl => package.lisp} | 0 src/{primitives.cl => primitives.lisp} | 2 +- src/{readmacros-mcl.cl => readmacros-mcl.lisp} | 2 +- src/{strings.cl => strings.lisp} | 2 +- .../acl-compat-tester.lisp | 2 +- examples/arrays.cl => tests/arrays.lisp | 2 +- examples/atoifl.cl => tests/atoifl.lisp | 2 +- tests/{c-test-fns.cl => c-test-fns.lisp} | 2 +- tests/{compress.cl => compress.lisp} | 2 +- tests/{file-socket.cl => file-socket.lisp} | 2 +- tests/{getenv.cl => getenv.lisp} | 2 +- tests/{gethostname.cl => gethostname.lisp} | 2 +- examples/getshells.cl => tests/getshells.lisp | 2 +- tests/{gettime.cl => gettime.lisp} | 2 +- examples/run-examples.cl => tests/run-examples.lisp | 4 ++-- examples/strtol.cl => tests/strtol.lisp | 2 +- tests/{test-examples.cl => test-examples.lisp} | 10 +++------- tests/{union.cl => union.lisp} | 2 +- uffi.asd | 7 +------ 41 files changed, 51 insertions(+), 58 deletions(-) rename benchmarks/{allocation.cl => allocation.lisp} (98%) rename tests/acl-compat-tester.cl => examples/acl-compat-tester.lisp (99%) rename tests/arrays.cl => examples/arrays.lisp (97%) rename tests/atoifl.cl => examples/atoifl.lisp (96%) rename examples/{c-test-fns.cl => c-test-fns.lisp} (98%) rename examples/{compress.cl => compress.lisp} (97%) rename examples/{file-socket.cl => file-socket.lisp} (95%) rename examples/{getenv.cl => getenv.lisp} (96%) rename examples/{gethostname.cl => gethostname.lisp} (96%) rename tests/getshells.cl => examples/getshells.lisp (95%) rename examples/{gettime.cl => gettime.lisp} (97%) rename tests/run-examples.cl => examples/run-examples.lisp (89%) rename tests/strtol.cl => examples/strtol.lisp (97%) rename examples/{test-examples.cl => test-examples.lisp} (82%) rename examples/{union.cl => union.lisp} (97%) rename src/{aggregates.cl => aggregates.lisp} (99%) rename src/corman/{corman-uffi.cl => corman-uffi.lisp} (99%) rename src/{functions.cl => functions.lisp} (98%) rename src/{libraries.cl => libraries.lisp} (98%) rename src/{objects-mcl.cl => objects-mcl.lisp} (95%) rename src/{objects.cl => objects.lisp} (98%) rename src/{package.cl => package.lisp} (100%) rename src/{primitives.cl => primitives.lisp} (99%) rename src/{readmacros-mcl.cl => readmacros-mcl.lisp} (94%) rename src/{strings.cl => strings.lisp} (99%) rename examples/acl-compat-tester.cl => tests/acl-compat-tester.lisp (99%) rename examples/arrays.cl => tests/arrays.lisp (97%) rename examples/atoifl.cl => tests/atoifl.lisp (96%) rename tests/{c-test-fns.cl => c-test-fns.lisp} (98%) rename tests/{compress.cl => compress.lisp} (97%) rename tests/{file-socket.cl => file-socket.lisp} (95%) rename tests/{getenv.cl => getenv.lisp} (96%) rename tests/{gethostname.cl => gethostname.lisp} (96%) rename examples/getshells.cl => tests/getshells.lisp (95%) rename tests/{gettime.cl => gettime.lisp} (97%) rename examples/run-examples.cl => tests/run-examples.lisp (89%) rename examples/strtol.cl => tests/strtol.lisp (97%) rename tests/{test-examples.cl => test-examples.lisp} (82%) rename tests/{union.cl => union.lisp} (97%) diff --git a/benchmarks/allocation.cl b/benchmarks/allocation.lisp similarity index 98% rename from benchmarks/allocation.cl rename to benchmarks/allocation.lisp index caebce2..516902a 100644 --- a/benchmarks/allocation.cl +++ b/benchmarks/allocation.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Mar 2002 ;;;; -;;;; $Id: allocation.cl,v 1.3 2002/03/21 19:47:20 kevin Exp $ +;;;; $Id: allocation.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/debian/changelog b/debian/changelog index 86bad87..de48fe1 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-uffi (0.9.1-1) unstable; urgency=low + + * Rename .cl files to .lisp files + + -- Kevin M. Rosenberg Mon, 30 Sep 2002 04:01:58 -0600 + cl-uffi (0.9.0-1) unstable; urgency=low * Reorganize directories, merge MCL/OpenMCL into main code diff --git a/tests/acl-compat-tester.cl b/examples/acl-compat-tester.lisp similarity index 99% rename from tests/acl-compat-tester.cl rename to examples/acl-compat-tester.lisp index 84e8d57..d777311 100644 --- a/tests/acl-compat-tester.cl +++ b/examples/acl-compat-tester.lisp @@ -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.3 2002/09/20 05:38:01 kevin Exp $ +;; $Id: acl-compat-tester.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp $ (defpackage :util.test diff --git a/tests/arrays.cl b/examples/arrays.lisp similarity index 97% rename from tests/arrays.cl rename to examples/arrays.lisp index 668171c..75ff5a7 100644 --- a/tests/arrays.cl +++ b/examples/arrays.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Mar 2002 ;;;; -;;;; $Id: arrays.cl,v 1.3 2002/04/02 21:29:45 kevin Exp $ +;;;; $Id: arrays.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/tests/atoifl.cl b/examples/atoifl.lisp similarity index 96% rename from tests/atoifl.cl rename to examples/atoifl.lisp index 84e9a72..47c194c 100644 --- a/tests/atoifl.cl +++ b/examples/atoifl.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Mar 2002 ;;;; -;;;; $Id: atoifl.cl,v 1.5 2002/04/03 00:31:32 kevin Exp $ +;;;; $Id: atoifl.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/examples/c-test-fns.cl b/examples/c-test-fns.lisp similarity index 98% rename from examples/c-test-fns.cl rename to examples/c-test-fns.lisp index 0bdb90f..c21b39c 100644 --- a/examples/c-test-fns.cl +++ b/examples/c-test-fns.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Mar 2002 ;;;; -;;;; $Id: c-test-fns.cl,v 1.7 2002/04/03 00:31:32 kevin Exp $ +;;;; $Id: c-test-fns.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/examples/compress.cl b/examples/compress.lisp similarity index 97% rename from examples/compress.cl rename to examples/compress.lisp index 1abaff6..75d79c4 100644 --- a/examples/compress.cl +++ b/examples/compress.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: compress.cl,v 1.13 2002/09/20 06:03:36 kevin Exp $ +;;;; $Id: compress.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/examples/file-socket.cl b/examples/file-socket.lisp similarity index 95% rename from examples/file-socket.cl rename to examples/file-socket.lisp index 2caa37a..67fe886 100644 --- a/examples/file-socket.cl +++ b/examples/file-socket.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Jul 2002 ;;;; -;;;; $Id: file-socket.cl,v 1.2 2002/08/02 14:39:11 kevin Exp $ +;;;; $Id: file-socket.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/examples/getenv.cl b/examples/getenv.lisp similarity index 96% rename from examples/getenv.cl rename to examples/getenv.lisp index b3d620e..17d2758 100644 --- a/examples/getenv.cl +++ b/examples/getenv.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: getenv.cl,v 1.9 2002/04/02 23:27:05 kevin Exp $ +;;;; $Id: getenv.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/examples/gethostname.cl b/examples/gethostname.lisp similarity index 96% rename from examples/gethostname.cl rename to examples/gethostname.lisp index b668a10..9098114 100644 --- a/examples/gethostname.cl +++ b/examples/gethostname.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: gethostname.cl,v 1.12 2002/04/03 00:31:32 kevin Exp $ +;;;; $Id: gethostname.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/tests/getshells.cl b/examples/getshells.lisp similarity index 95% rename from tests/getshells.cl rename to examples/getshells.lisp index ef6bacd..1b05d10 100644 --- a/tests/getshells.cl +++ b/examples/getshells.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Mar 2002 ;;;; -;;;; $Id: getshells.cl,v 1.6 2002/04/02 21:29:45 kevin Exp $ +;;;; $Id: getshells.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/examples/gettime.cl b/examples/gettime.lisp similarity index 97% rename from examples/gettime.cl rename to examples/gettime.lisp index c562fad..37461ff 100644 --- a/examples/gettime.cl +++ b/examples/gettime.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: gettime.cl,v 1.9 2002/04/02 23:27:05 kevin Exp $ +;;;; $Id: gettime.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/tests/run-examples.cl b/examples/run-examples.lisp similarity index 89% rename from tests/run-examples.cl rename to examples/run-examples.lisp index 25afc98..7e80a3f 100644 --- a/tests/run-examples.cl +++ b/examples/run-examples.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: run-examples.cl,v 1.3 2002/09/20 05:38:01 kevin Exp $ +;;;; $Id: run-examples.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -21,7 +21,7 @@ (pushnew :examples-uffi cl:*features*) (flet ((load-test (name) - (load (make-pathname :defaults *load-truename* :name name :type "cl")))) + (load (make-pathname :defaults *load-truename* :name name)))) (load-test "c-test-fns") (load-test "arrays") (load-test "union") diff --git a/tests/strtol.cl b/examples/strtol.lisp similarity index 97% rename from tests/strtol.cl rename to examples/strtol.lisp index 32c5c42..c2956e3 100644 --- a/tests/strtol.cl +++ b/examples/strtol.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: strtol.cl,v 1.15 2002/04/02 23:27:05 kevin Exp $ +;;;; $Id: strtol.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/examples/test-examples.cl b/examples/test-examples.lisp similarity index 82% rename from examples/test-examples.cl rename to examples/test-examples.lisp index 32def1e..5f780d4 100644 --- a/examples/test-examples.cl +++ b/examples/test-examples.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: test-examples.cl,v 1.3 2002/09/20 05:38:01 kevin Exp $ +;;;; $Id: test-examples.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -19,18 +19,14 @@ #-uffi (asdf:oos 'asdf:load-op :uffi) (unless (ignore-errors (find-package :util.test)) - (load (make-pathname :name "acl-compat-tester" :type "cl" - :defaults *load-truename*))) + (load (make-pathname :name "acl-compat-tester" :defaults *load-truename*))) (defun do-tests () (pushnew :test-uffi cl:*features*) (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 (make-pathname :name name :defaults *load-truename*)))) (load-test "c-test-fns") (load-test "arrays") (load-test "union") diff --git a/examples/union.cl b/examples/union.lisp similarity index 97% rename from examples/union.cl rename to examples/union.lisp index fc14c4a..856ac49 100644 --- a/examples/union.cl +++ b/examples/union.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Mar 2002 ;;;; -;;;; $Id: union.cl,v 1.10 2002/09/29 17:31:20 kevin Exp $ +;;;; $Id: union.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/src/aggregates.cl b/src/aggregates.lisp similarity index 99% rename from src/aggregates.cl rename to src/aggregates.lisp index 83a7995..a1d8a67 100644 --- a/src/aggregates.cl +++ b/src/aggregates.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: aggregates.cl,v 1.15 2002/09/30 08:50:00 kevin Exp $ +;;;; $Id: aggregates.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/src/corman/corman-uffi.cl b/src/corman/corman-uffi.lisp similarity index 99% rename from src/corman/corman-uffi.cl rename to src/corman/corman-uffi.lisp index d91d41a..c745c10 100644 --- a/src/corman/corman-uffi.cl +++ b/src/corman/corman-uffi.lisp @@ -35,7 +35,7 @@ Content-Transfer-Encoding: 7bit +;;;; Programmer: "Joe Marshall" +;;;; Date Started: Feb 2002 +;;;; -+;;;; $Id: corman-uffi.cl,v 1.5 2002/09/30 07:52:34 kevin Exp $ ++;;;; $Id: corman-uffi.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp $ +;;;; +;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg +;;;; diff --git a/src/functions.cl b/src/functions.lisp similarity index 98% rename from src/functions.cl rename to src/functions.lisp index a797a39..03b8d59 100644 --- a/src/functions.cl +++ b/src/functions.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: functions.cl,v 1.10 2002/09/30 07:51:01 kevin Exp $ +;;;; $Id: functions.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/src/libraries.cl b/src/libraries.lisp similarity index 98% rename from src/libraries.cl rename to src/libraries.lisp index 96807ee..72dbc09 100644 --- a/src/libraries.cl +++ b/src/libraries.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: libraries.cl,v 1.18 2002/09/30 07:51:01 kevin Exp $ +;;;; $Id: libraries.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/src/objects-mcl.cl b/src/objects-mcl.lisp similarity index 95% rename from src/objects-mcl.cl rename to src/objects-mcl.lisp index 75eccb2..6e12650 100644 --- a/src/objects-mcl.cl +++ b/src/objects-mcl.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: objects-mcl.cl,v 1.1 2002/09/30 07:51:01 kevin Exp $ +;;;; $Id: objects-mcl.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/src/objects.cl b/src/objects.lisp similarity index 98% rename from src/objects.cl rename to src/objects.lisp index 0323da9..5a9d21a 100644 --- a/src/objects.cl +++ b/src/objects.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: objects.cl,v 1.26 2002/09/30 09:08:48 kevin Exp $ +;;;; $Id: objects.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/src/package.cl b/src/package.lisp similarity index 100% rename from src/package.cl rename to src/package.lisp diff --git a/src/primitives.cl b/src/primitives.lisp similarity index 99% rename from src/primitives.cl rename to src/primitives.lisp index 0c35d8a..6abd855 100644 --- a/src/primitives.cl +++ b/src/primitives.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: primitives.cl,v 1.25 2002/09/30 08:50:00 kevin Exp $ +;;;; $Id: primitives.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/src/readmacros-mcl.cl b/src/readmacros-mcl.lisp similarity index 94% rename from src/readmacros-mcl.cl rename to src/readmacros-mcl.lisp index 74dc32f..dc1fc6c 100644 --- a/src/readmacros-mcl.cl +++ b/src/readmacros-mcl.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg/John Desoi ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: readmacros-mcl.cl,v 1.1 2002/09/30 07:56:21 kevin Exp $ +;;;; $Id: readmacros-mcl.lisp,v 1.3 2002/09/30 10:02:36 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/src/strings.cl b/src/strings.lisp similarity index 99% rename from src/strings.cl rename to src/strings.lisp index e317017..c2aa4b7 100644 --- a/src/strings.cl +++ b/src/strings.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: strings.cl,v 1.23 2002/09/30 08:50:00 kevin Exp $ +;;;; $Id: strings.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/examples/acl-compat-tester.cl b/tests/acl-compat-tester.lisp similarity index 99% rename from examples/acl-compat-tester.cl rename to tests/acl-compat-tester.lisp index 84e8d57..d777311 100644 --- a/examples/acl-compat-tester.cl +++ b/tests/acl-compat-tester.lisp @@ -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.3 2002/09/20 05:38:01 kevin Exp $ +;; $Id: acl-compat-tester.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp $ (defpackage :util.test diff --git a/examples/arrays.cl b/tests/arrays.lisp similarity index 97% rename from examples/arrays.cl rename to tests/arrays.lisp index 668171c..75ff5a7 100644 --- a/examples/arrays.cl +++ b/tests/arrays.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Mar 2002 ;;;; -;;;; $Id: arrays.cl,v 1.3 2002/04/02 21:29:45 kevin Exp $ +;;;; $Id: arrays.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/examples/atoifl.cl b/tests/atoifl.lisp similarity index 96% rename from examples/atoifl.cl rename to tests/atoifl.lisp index 84e9a72..47c194c 100644 --- a/examples/atoifl.cl +++ b/tests/atoifl.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Mar 2002 ;;;; -;;;; $Id: atoifl.cl,v 1.5 2002/04/03 00:31:32 kevin Exp $ +;;;; $Id: atoifl.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/tests/c-test-fns.cl b/tests/c-test-fns.lisp similarity index 98% rename from tests/c-test-fns.cl rename to tests/c-test-fns.lisp index 0bdb90f..c21b39c 100644 --- a/tests/c-test-fns.cl +++ b/tests/c-test-fns.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Mar 2002 ;;;; -;;;; $Id: c-test-fns.cl,v 1.7 2002/04/03 00:31:32 kevin Exp $ +;;;; $Id: c-test-fns.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/tests/compress.cl b/tests/compress.lisp similarity index 97% rename from tests/compress.cl rename to tests/compress.lisp index 1abaff6..75d79c4 100644 --- a/tests/compress.cl +++ b/tests/compress.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: compress.cl,v 1.13 2002/09/20 06:03:36 kevin Exp $ +;;;; $Id: compress.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/tests/file-socket.cl b/tests/file-socket.lisp similarity index 95% rename from tests/file-socket.cl rename to tests/file-socket.lisp index 2caa37a..67fe886 100644 --- a/tests/file-socket.cl +++ b/tests/file-socket.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Jul 2002 ;;;; -;;;; $Id: file-socket.cl,v 1.2 2002/08/02 14:39:11 kevin Exp $ +;;;; $Id: file-socket.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/tests/getenv.cl b/tests/getenv.lisp similarity index 96% rename from tests/getenv.cl rename to tests/getenv.lisp index b3d620e..17d2758 100644 --- a/tests/getenv.cl +++ b/tests/getenv.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: getenv.cl,v 1.9 2002/04/02 23:27:05 kevin Exp $ +;;;; $Id: getenv.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/tests/gethostname.cl b/tests/gethostname.lisp similarity index 96% rename from tests/gethostname.cl rename to tests/gethostname.lisp index b668a10..9098114 100644 --- a/tests/gethostname.cl +++ b/tests/gethostname.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: gethostname.cl,v 1.12 2002/04/03 00:31:32 kevin Exp $ +;;;; $Id: gethostname.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/examples/getshells.cl b/tests/getshells.lisp similarity index 95% rename from examples/getshells.cl rename to tests/getshells.lisp index ef6bacd..1b05d10 100644 --- a/examples/getshells.cl +++ b/tests/getshells.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Mar 2002 ;;;; -;;;; $Id: getshells.cl,v 1.6 2002/04/02 21:29:45 kevin Exp $ +;;;; $Id: getshells.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/tests/gettime.cl b/tests/gettime.lisp similarity index 97% rename from tests/gettime.cl rename to tests/gettime.lisp index c562fad..37461ff 100644 --- a/tests/gettime.cl +++ b/tests/gettime.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: gettime.cl,v 1.9 2002/04/02 23:27:05 kevin Exp $ +;;;; $Id: gettime.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/examples/run-examples.cl b/tests/run-examples.lisp similarity index 89% rename from examples/run-examples.cl rename to tests/run-examples.lisp index 25afc98..7e80a3f 100644 --- a/examples/run-examples.cl +++ b/tests/run-examples.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: run-examples.cl,v 1.3 2002/09/20 05:38:01 kevin Exp $ +;;;; $Id: run-examples.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -21,7 +21,7 @@ (pushnew :examples-uffi cl:*features*) (flet ((load-test (name) - (load (make-pathname :defaults *load-truename* :name name :type "cl")))) + (load (make-pathname :defaults *load-truename* :name name)))) (load-test "c-test-fns") (load-test "arrays") (load-test "union") diff --git a/examples/strtol.cl b/tests/strtol.lisp similarity index 97% rename from examples/strtol.cl rename to tests/strtol.lisp index 32c5c42..c2956e3 100644 --- a/examples/strtol.cl +++ b/tests/strtol.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: strtol.cl,v 1.15 2002/04/02 23:27:05 kevin Exp $ +;;;; $Id: strtol.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/tests/test-examples.cl b/tests/test-examples.lisp similarity index 82% rename from tests/test-examples.cl rename to tests/test-examples.lisp index 32def1e..5f780d4 100644 --- a/tests/test-examples.cl +++ b/tests/test-examples.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: test-examples.cl,v 1.3 2002/09/20 05:38:01 kevin Exp $ +;;;; $Id: test-examples.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -19,18 +19,14 @@ #-uffi (asdf:oos 'asdf:load-op :uffi) (unless (ignore-errors (find-package :util.test)) - (load (make-pathname :name "acl-compat-tester" :type "cl" - :defaults *load-truename*))) + (load (make-pathname :name "acl-compat-tester" :defaults *load-truename*))) (defun do-tests () (pushnew :test-uffi cl:*features*) (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 (make-pathname :name name :defaults *load-truename*)))) (load-test "c-test-fns") (load-test "arrays") (load-test "union") diff --git a/tests/union.cl b/tests/union.lisp similarity index 97% rename from tests/union.cl rename to tests/union.lisp index fc14c4a..856ac49 100644 --- a/tests/union.cl +++ b/tests/union.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Mar 2002 ;;;; -;;;; $Id: union.cl,v 1.10 2002/09/29 17:31:20 kevin Exp $ +;;;; $Id: union.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/uffi.asd b/uffi.asd index dfb8608..76737d3 100644 --- a/uffi.asd +++ b/uffi.asd @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Aug 2002 ;;;; -;;;; $Id: uffi.asd,v 1.16 2002/09/30 07:51:00 kevin Exp $ +;;;; $Id: uffi.asd,v 1.17 2002/09/30 10:02:36 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -49,11 +49,6 @@ ((:file "uffi-corman"))) )) - -#+(or allegro lispworks cmu mcl) -(defmethod source-file-type ((c cl-source-file) (s (eql (find-system :uffi)))) - "cl") - #+(or allegro lispworks cmu mcl) (when (ignore-errors (find-class 'load-compiled-op)) (defmethod perform :after ((op load-compiled-op) (c (eql (find-system :uffi)))) -- 2.34.1