;;;; Authors: Kevin M. Rosenberg and Edi Weitz
;;;; Date Started: Aug 2003
;;;;
-;;;; $Id$
+;;;; This file, part of UFFI, is Copyright (c) 2003-2010 by Kevin M. Rosenberg
;;;;
-;;;; This file, part of UFFI, is Copyright (c) 2003-2005 by Kevin M. Rosenberg
-;;;
;;;; *************************************************************************
(in-package #:uffi-tests)
(fvar-struct-double))
t)
-(deftest fvarst.6
+(deftest :fvarst.6
(let ((orig *fvar-addend*))
(incf *fvar-addend* 3)
(prog1
(setf *fvar-addend* orig)))
6)
-(deftest fvarst.7
+(deftest :fvarst.7
(let ((orig *fvar-addend*))
(incf *fvar-addend* 3)
(prog1
(setf *fvar-addend* orig)))
48)
-(deftest fvarst.8
+(deftest :fvarst.8
(let ((orig (uffi:get-slot-value *fvar-struct* 'fvar-struct 'i)))
(decf (uffi:get-slot-value *fvar-struct* 'fvar-struct 'i) 10)
(prog1