;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Mar 2002
;;;;
-;;;; $Id: union.cl,v 1.9 2002/09/20 06:03:36 kevin Exp $
+;;;; $Id: union.cl,v 1.10 2002/09/29 17:31:20 kevin Exp $
;;;;
;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
#\A
:test #'eql
:fail-info "Error with union character")
- #-(or sparc sparc-v9)
+ #-(or sparc sparc-v9 mcl)
(util.test:test (> 0 (uffi:get-slot-value u 'tunion1 'int))
t
:fail-info