uffi/tests foreign-var.lisp,1.3,1.4

Update of /pubcvs/uffi/tests
In directory boa.b9.com:/tmp/cvs-serv27690/tests

Modified Files:
	foreign-var.lisp 
Log Message:
Auto commit for Debian build

Index: foreign-var.lisp
===================================================================
RCS file: /pubcvs/uffi/tests/foreign-var.lisp,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** foreign-var.lisp	15 Aug 2003 02:34:34 -0000	1.3
--- foreign-var.lisp	15 Aug 2003 02:50:24 -0000	1.4
***************
*** 5,9 ****
  ;;;; Name:          foreign-var
  ;;;; Purpose:       Tests of foreign variables
! ;;;; Programmer:    Kevin M. Rosenberg
  ;;;; Date Started:  Aug 2003
  ;;;;
--- 5,9 ----
  ;;;; Name:          foreign-var
  ;;;; Purpose:       Tests of foreign variables
! ;;;; Authors:       Kevin M. Rosenberg and Edi Weitz
  ;;;; Date Started:  Aug 2003
  ;;;;
***************
*** 79,82 ****
    48)
  
! ;;(decf (uffi:get-slot-value *fvar-struct* 'fvar-struct 'i) 10)
! ;;(deftest fvarst.8 (fvar-struct-int) 38)
--- 79,87 ----
    48)
  
! (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
! 	  (fvar-struct-int)
! 	(setf (uffi:get-slot-value *fvar-struct* 'fvar-struct 'i) orig)))
!   35)