X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fmop.impure.lisp;fp=tests%2Fmop.impure.lisp;h=8aad5b4101fb46b2217555361f6d4424e73d6f8a;hb=8ade1fa8b1ddc95478d2287b4593a80d314b6bd3;hp=6b35e3b0db2da7ba0a04eb5131df48e185ab8b17;hpb=88e9e177e7ca72d660a3335d63895a1e0f71a5f8;p=sbcl.git

diff --git a/tests/mop.impure.lisp b/tests/mop.impure.lisp
index 6b35e3b..8aad5b4 100644
--- a/tests/mop.impure.lisp
+++ b/tests/mop.impure.lisp
@@ -385,7 +385,7 @@
 ;;; (addendum to test for #331: conditions suffered the same problem)
 (define-condition condition-bug-331-super () ())
 (define-condition condition-bug-331-sub (condition-bug-331-super) ())
-(let ((subs (sb-mop:class-direct-subclasses 
+(let ((subs (sb-mop:class-direct-subclasses
              (find-class 'condition-bug-331-super))))
   (assert (= 1 (length subs)))
   (assert (eq (car subs) (find-class 'condition-bug-331-sub))))
@@ -396,8 +396,8 @@
 (let* ((gf #'slot331a)
        (methods (sb-mop:generic-function-methods gf)))
   (assert (= (length methods) 1))
-  (assert (eq (car methods) 
-              (find-method #'slot331a nil 
+  (assert (eq (car methods)
+              (find-method #'slot331a nil
                            (list (find-class 'condition-bug-331a))))))
 
 ;;; detection of multiple class options in defclass, reported by Bruno Haible