From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Fri, 15 Aug 2003 02:50:24 +0000 (+0000)
Subject: r5501: Auto commit for Debian build
X-Git-Tag: v1.6.1~190
X-Git-Url: http://git.kpe.io/?a=commitdiff_plain;h=c56a3b9b365269afb198eb88788caa01c2f99e51;p=uffi.git

r5501: Auto commit for Debian build
---

diff --git a/AUTHORS b/AUTHORS
index 76794c2..a70e2a5 100644
--- a/AUTHORS
+++ b/AUTHORS
@@ -1,3 +1,12 @@
-Kevin M. Rosenberg <kevin@rosenberg.net>: Primary author
-John Desoi <desoi@mac.com>: Added MCL & OpenMCL support
-Reini Urban <rurban@x-ray.at>: Contributed initial Corman support
+Kevin M. Rosenberg <kevin@rosenberg.net>
+  Primary author
+
+John Desoi <desoi@mac.com>
+  Contributed MCL & OpenMCL support
+
+Reini Urban <rurban@x-ray.at>
+  Contributed initial Corman support
+
+Edi Weitz <edi@weitz.de>
+  Contributed with-cast-pointer and def-foreign-var along with
+  documentation
diff --git a/tests/foreign-var.lisp b/tests/foreign-var.lisp
index 52bceb1..af072c4 100644
--- a/tests/foreign-var.lisp
+++ b/tests/foreign-var.lisp
@@ -4,10 +4,10 @@
 ;;;;
 ;;;; Name:          foreign-var
 ;;;; Purpose:       Tests of foreign variables
-;;;; Programmer:    Kevin M. Rosenberg
+;;;; Authors:       Kevin M. Rosenberg and Edi Weitz
 ;;;; Date Started:  Aug 2003
 ;;;;
-;;;; $Id: foreign-var.lisp,v 1.3 2003/08/15 02:34:34 kevin Exp $
+;;;; $Id: foreign-var.lisp,v 1.4 2003/08/15 02:50:24 kevin Exp $
 ;;;;
 ;;;; *************************************************************************
 
@@ -78,5 +78,10 @@
 	(setf *fvar-addend* orig)))
   48)
 
-;;(decf (uffi:get-slot-value *fvar-struct* 'fvar-struct 'i) 10)
-;;(deftest fvarst.8 (fvar-struct-int) 38)
+(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)