Commit 3d446974 authored by pfdietz's avatar pfdietz
Browse files

Fixed test names.

parent 9c07ff70
...@@ -218,7 +218,7 @@ ...@@ -218,7 +218,7 @@
(typep* obj1 class2))))) (typep* obj1 class2)))))
t nil t nil) t nil t nil)
(deftest class-0309.2 (deftest class-0310.1
(progn (progn
(setf (find-class 'class-0310a) nil (setf (find-class 'class-0310a) nil
(find-class 'class-0310b) nil) (find-class 'class-0310b) nil)
...@@ -235,7 +235,7 @@ ...@@ -235,7 +235,7 @@
(class-name class2))))) (class-name class2)))))
t nil t nil class-0310b class-0310a) t nil t nil class-0310b class-0310a)
(deftest class-0309.3 (deftest class-0311.1
(progn (progn
(setf (find-class 'class-0311) nil) (setf (find-class 'class-0311) nil)
(let* ((class1 (eval '(defclass class-0311 () ((a) (b) (c))))) (let* ((class1 (eval '(defclass class-0311 () ((a) (b) (c)))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment