Changeset 13590

Timestamp:

09/09/11 07:11:17 (11 years ago)

Author:

ehuelsmann

Message:

Fix porting error.

File:

• trunk/abcl/test/lisp/abcl/mop-tests.lisp (modified) (1 diff)

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

@@ -517 +517 @@
     (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)