X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Fforeign-var.lisp;h=fda7c10d86b62c8e76bdbebe9cf9692c78545789;hb=HEAD;hp=4e0f38cdcb0142f95eff75709078c123481a7011;hpb=72190043201239567658cfbae1c36bbd7233419b;p=uffi.git

diff --git a/tests/foreign-var.lisp b/tests/foreign-var.lisp
index 4e0f38c..fda7c10 100644
--- a/tests/foreign-var.lisp
+++ b/tests/foreign-var.lisp
@@ -7,10 +7,8 @@
 ;;;; 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)
@@ -63,7 +61,7 @@
                      (fvar-struct-double))
   t)
 
-(deftest fvarst.6
+(deftest :fvarst.6
     (let ((orig *fvar-addend*))
       (incf *fvar-addend* 3)
       (prog1
@@ -71,7 +69,7 @@
         (setf *fvar-addend* orig)))
   6)
 
-(deftest fvarst.7
+(deftest :fvarst.7
     (let ((orig *fvar-addend*))
       (incf *fvar-addend* 3)
       (prog1
@@ -79,7 +77,7 @@
         (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