X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Funion.lisp;h=d067bd02446ad343524d51063df473ee8a08f525;hb=1e5809bc5e68d9f1f5a676fa24253b3b95d490ac;hp=befbbe8bccd3ffba4a966c3aa10be0226874828f;hpb=0824453227a26da41a3929c9117b66714980414b;p=uffi.git diff --git a/tests/union.lisp b/tests/union.lisp index befbbe8..d067bd0 100644 --- a/tests/union.lisp +++ b/tests/union.lisp @@ -9,7 +9,7 @@ ;;;; ;;;; $Id$ ;;;; -;;;; This file, part of UFFI, is Copyright (c) 2002-2003 by Kevin M. Rosenberg +;;;; This file, part of UFFI, is Copyright (c) 2002-2005 by Kevin M. Rosenberg ;;;; ;;;; ************************************************************************* @@ -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)