diff options
author | Gabor Melis <mega@hotpop.com> | 2005-09-19 14:18:13 +0000 |
---|---|---|
committer | Gabor Melis <mega@hotpop.com> | 2005-09-19 14:18:13 +0000 |
commit | 1aee76da48edafa210f60e852913041a843428b7 (patch) | |
tree | d116eb39aaeadb09548a66e5c62e2bf1f1fff5c4 /tests/mop-6.impure-cload.lisp | |
parent | 9ce24dc604859d2670a989da2a9015b67c37e00f (diff) |
0.9.3.76:
* WITH-TIMEOUT doesn't signal a timeout if the timeout is zero for
backward compatibility reasons (i.e. not to break CLX). When unsafe
unwinds are dealt with this may be revisited.
* suggestions from whitespace-o'matic
Diffstat (limited to 'tests/mop-6.impure-cload.lisp')
-rw-r--r-- | tests/mop-6.impure-cload.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/mop-6.impure-cload.lisp b/tests/mop-6.impure-cload.lisp index 06254d84c..55db9752f 100644 --- a/tests/mop-6.impure-cload.lisp +++ b/tests/mop-6.impure-cload.lisp @@ -19,7 +19,7 @@ (in-package "MOP-6") ;;; COMPUTE-SLOTS :AROUND respecting requested order -(defclass slot-rearrangement-class (standard-class) +(defclass slot-rearrangement-class (standard-class) ()) (defmethod compute-slots ((c slot-rearrangement-class)) (reverse (call-next-method))) @@ -34,7 +34,7 @@ (with-test (:name (compute-slots standard-class :order)) (let ((class (find-class 'rearranged-class))) (finalize-inheritance class) - (assert (equal (mapcar #'slot-definition-name (class-slots class)) + (assert (equal (mapcar #'slot-definition-name (class-slots class)) '(b a))))) (with-test (:name (compute-slots standard-class :slots)) (let ((r (make-instance 'rearranged-class)) @@ -59,7 +59,7 @@ (with-test (:name (compute-slots funcallable-standard-class :order)) (let ((class (find-class 'funcallable-rearranged-class))) (finalize-inheritance class) - (assert (equal (mapcar #'slot-definition-name (class-slots class)) + (assert (equal (mapcar #'slot-definition-name (class-slots class)) '(b a))))) (with-test (:name (compute-slots funcallable-standard-class :slots)) (let ((r (make-instance 'funcallable-rearranged-class)) |