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

diff --git a/tests/foreign-var.lisp b/tests/foreign-var.lisp
index 1276f2a..4e0f38c 100644
--- a/tests/foreign-var.lisp
+++ b/tests/foreign-var.lisp
@@ -38,7 +38,7 @@
 (uffi:def-struct fvar-struct
     (i :int)
   (d :double))
- 
+
 (uffi:def-foreign-var ("fvar_struct" *fvar-struct*) fvar-struct
   "uffi_tests")
 
@@ -46,43 +46,43 @@
     ()
   :returning :int
   :module "uffi_tests")
- 
+
   (uffi:def-function ("fvar_struct_double" fvar-struct-double)
       ()
     :returning :double
     :module "uffi_tests")
- 
+
 (deftest :fvarst.1 *fvar-addend* 3)
 (deftest :fvarst.2 (uffi:get-slot-value *fvar-struct* 'fvar-struct 'i) 42)
 (deftest :fvarst.3 (= (+ *fvar-addend*
-			(uffi:get-slot-value *fvar-struct* 'fvar-struct 'i))
-		     (fvar-struct-int))
+                        (uffi:get-slot-value *fvar-struct* 'fvar-struct 'i))
+                     (fvar-struct-int))
   t)
 (deftest :fvarst.4 (uffi:get-slot-value *fvar-struct* 'fvar-struct 'd) 3.2d0)
 (deftest :fvarst.5 (= (uffi:get-slot-value *fvar-struct* 'fvar-struct 'd)
-		     (fvar-struct-double))
+                     (fvar-struct-double))
   t)
 
-(deftest fvarst.6 
+(deftest fvarst.6
     (let ((orig *fvar-addend*))
       (incf *fvar-addend* 3)
       (prog1
-	  *fvar-addend*
-	(setf *fvar-addend* orig)))
+          *fvar-addend*
+        (setf *fvar-addend* orig)))
   6)
 
-(deftest fvarst.7 
+(deftest fvarst.7
     (let ((orig *fvar-addend*))
       (incf *fvar-addend* 3)
       (prog1
-	  (fvar-struct-int)
-	(setf *fvar-addend* orig)))
+          (fvar-struct-int)
+        (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
-	  (fvar-struct-int)
-	(setf (uffi:get-slot-value *fvar-struct* 'fvar-struct 'i) orig)))
+          (fvar-struct-int)
+        (setf (uffi:get-slot-value *fvar-struct* 'fvar-struct 'i) orig)))
   35)