X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fmop-22.impure-cload.lisp;h=0fe9377a77550dec8913ac06ee9f4ef0c9816dd5;hb=cf49f2d086069a9c1b57f501df9a6a0bd3a34c3c;hp=75d95779fa9b974b8d82125ba9da8ed6d092c56b;hpb=bb8121bf453353ce2cadc85d9be7be05ca6248ff;p=sbcl.git diff --git a/tests/mop-22.impure-cload.lisp b/tests/mop-22.impure-cload.lisp index 75d9577..0fe9377 100644 --- a/tests/mop-22.impure-cload.lisp +++ b/tests/mop-22.impure-cload.lisp @@ -48,8 +48,8 @@ (assert (eq (incomplete/1 (make-instance 'incomplete)) 'incomplete)) (assert (eq (forward/1 (make-instance 'forward)) 'forward)) -(assert (eq (incomplete/7 (make-instance 'incomplete) +(assert (eq (incomplete/7 (make-instance 'incomplete) (make-instance 'incomplete) - t 1 (make-condition 'error) + t 1 (make-condition 'error) (find-class 'incomplete) 3) t)) \ No newline at end of file