X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Fuffi-c-test-lib.lisp;fp=tests%2Fuffi-c-test-lib.lisp;h=f6325fa7022a0545485e191aefd8b93bb47550b9;hb=72190043201239567658cfbae1c36bbd7233419b;hp=7481201d49a2670eba33c49662903e5c0697d2a4;hpb=da9ef130a96ba9102fc0cf68b1fe8cd0a90e67b7;p=uffi.git

diff --git a/tests/uffi-c-test-lib.lisp b/tests/uffi-c-test-lib.lisp
index 7481201..f6325fa 100644
--- a/tests/uffi-c-test-lib.lisp
+++ b/tests/uffi-c-test-lib.lisp
@@ -33,7 +33,7 @@
 
 (defun string-count-upper (str)
   (uffi:with-cstring (str-cstring str)
-    (cs-count-upper str-cstring))) 
+    (cs-count-upper str-cstring)))
 
 (uffi:def-function ("half_double_vector" half-double-vector)
     ((size :int)
@@ -60,10 +60,10 @@
 (uffi:def-constant +double-vec-length+ 10)
 (defun test-half-double-vector ()
   (let ((vec (uffi:allocate-foreign-object :double +double-vec-length+))
-	results)
+        results)
     (dotimes (i +double-vec-length+)
-      (setf (uffi:deref-array vec '(:array :double) i) 
-	    (coerce i 'double-float)))
+      (setf (uffi:deref-array vec '(:array :double) i)
+            (coerce i 'double-float)))
     (half-double-vector +double-vec-length+ vec)
     (dotimes (i +double-vec-length+)
       (push (uffi:deref-array vec '(:array :double) i) results))
@@ -85,7 +85,7 @@
     (system:without-gcing
      (half-double-vector +double-vec-length+ (system:vector-sap vec)))
     vec))
-    
+
 (deftest :c-test.1 (string-to-upper "this is a test") "THIS IS A TEST")
 (deftest :c-test.2 (string-to-upper nil) nil)
 (deftest :c-test.3 (string-count-upper "This is a Test") 2)