r10917: 2006-04-17 Kevin Rosenberg (kevin@rosenberg.net)

[uffi.git] / tests / union.lisp

diff --git a/tests/union.lisp b/tests/union.lisp
index 1806a9cdf7aee6dd2c2e130e49c3711a5ef6b9eb..d067bd02446ad343524d51063df473ee8a08f525 100644 (file)
--- a/tests/union.lisp
+++ b/tests/union.lisp
@@ -45,7 +45,7 @@
      (uffi:get-slot-value *u* 'tunion1 'char))
   65)
 
-#-(or sparc sparc-v9 mcl)
+#-(or sparc sparc-v9 openmcl digitool)
 (deftest :union.3 (plusp (uffi:get-slot-value *u* 'tunion1 'uint)) t)