[armedbear-cvs] r13590 - trunk/abcl/test/lisp/abcl

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Fri Sep  9 00:11:17 2011
New Revision: 13590

Log:
Fix porting error.

Modified:
   trunk/abcl/test/lisp/abcl/mop-tests.lisp

Modified: trunk/abcl/test/lisp/abcl/mop-tests.lisp
==============================================================================
--- trunk/abcl/test/lisp/abcl/mop-tests.lisp	Thu Sep  8 22:54:38 2011	(r13589)
+++ trunk/abcl/test/lisp/abcl/mop-tests.lisp	Fri Sep  9 00:11:17 2011	(r13590)
@@ -516,7 +516,8 @@
 (deftest dmc-test.4b
     (progn
       (setq *dmc-test-4* nil)
-      (equal (dmc-test.4 1) '("unlock" "object-lock" "lock" "object-lock")))
+      (ignore-errors (dmc-test.4 1))
+      (equal *dmc-test-4* '("unlock" "object-lock" "lock" "object-lock")))
   T)
 
 (defclass foo-class (standard-class))