Update of /project/elephant/cvsroot/elephant/tests In directory common-lisp.net:/tmp/cvs-serv27360/tests

Modified Files: elephant-tests.lisp mop-tests.lisp testserializer.lisp Log Message: fixed imports

Date: Sat Sep 4 11:16:11 2004 Author: blee

Index: elephant/tests/elephant-tests.lisp diff -u elephant/tests/elephant-tests.lisp:1.1 elephant/tests/elephant-tests.lisp:1.2 --- elephant/tests/elephant-tests.lisp:1.1 Sat Sep 4 10:24:30 2004 +++ elephant/tests/elephant-tests.lisp Sat Sep 4 11:16:11 2004 @@ -43,24 +43,34 @@ (defpackage elephant-tests (:nicknames ele-tests :ele-tests) (:use common-lisp elephant rt) + (:import-from :ele + *out-buf* + serialize + deserialize + buffer-stream-buffer) #+cmu (:import-from :pcl + finalize-inheritance slot-definition-name class-slots) #+sbcl (:import-from :sb-mop + finalize-inheritance slot-definition-name class-slots) #+allegro (:import-from :clos + finalize-inheritance slot-definition-name class-slots) #+openmcl (:import-from :ccl + finalize-inheritance slot-definition-name class-slots) #+lispworks (:import-from :clos + finalize-inheritance slot-definition-name class-slots) )

Index: elephant/tests/mop-tests.lisp diff -u elephant/tests/mop-tests.lisp:1.3 elephant/tests/mop-tests.lisp:1.4 --- elephant/tests/mop-tests.lisp:1.3 Sat Sep 4 10:24:23 2004 +++ elephant/tests/mop-tests.lisp Sat Sep 4 11:16:11 2004 @@ -1,12 +1,4 @@ (in-package :ele-tests) -#+cmu -(import 'pcl::finalize-inheritance) -#+sbcl -(import 'sb-mop::finalize-inheritance) -#+allegro -(import 'clos::finalize-inheritance) -#+openmcl -(import 'ccl::finalize-inheritance)

(deftest non-transient-class-slot-1 (signals-condition

Index: elephant/tests/testserializer.lisp diff -u elephant/tests/testserializer.lisp:1.3 elephant/tests/testserializer.lisp:1.4 --- elephant/tests/testserializer.lisp:1.3 Sat Sep 4 10:25:07 2004 +++ elephant/tests/testserializer.lisp Sat Sep 4 11:16:11 2004 @@ -1,8 +1,4 @@ (in-package :ele-tests) -(import 'ele::*out-buf*) -(import 'ele::serialize) -(import 'ele::deserialize) -(import 'ele::buffer-stream-buffer)

(defun in-out-value (var) (serialize var *out-buf*)