X-Git-Url: http://git.kpe.io/?p=uffi.git;a=blobdiff_plain;f=tests%2Fobjects.lisp;h=f5896c398c0707c2cf4a4b9660e519ac9dec9b76;hp=501dde0000b05dbd3c369a785b2ad5ae70381396;hb=b86fdf882156aa45dc6e8e93a158dedf506f4233;hpb=3ade95bab16abe09642554e9cbf56f117f01e507

diff --git a/tests/objects.lisp b/tests/objects.lisp
index 501dde0..f5896c3 100644
--- a/tests/objects.lisp
+++ b/tests/objects.lisp
@@ -7,9 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Aug 2003
 ;;;;
-;;;; $Id$
-;;;;
-;;;; This file, part of UFFI, is Copyright (c) 2003-2005 by Kevin M. Rosenberg
+;;;; This file, part of UFFI, is Copyright (c) 2003-2010 by Kevin M. Rosenberg
 ;;;;
 ;;;; *************************************************************************
 
@@ -18,38 +16,38 @@
 (deftest :chptr.1
     (let ((native-string "test string"))
       (uffi:with-foreign-string (fs native-string)
-	(ensure-char-character
-	 (deref-pointer fs :char))))
+        (ensure-char-character
+         (deref-pointer fs :char))))
   #\t)
 
 (deftest :chptr.2
     (let ((native-string "test string"))
       (uffi:with-foreign-string (fs native-string)
-	(ensure-char-character
-	 (deref-pointer fs :unsigned-char))))
+        (ensure-char-character
+         (deref-pointer fs :unsigned-char))))
   #\t)
 
 (deftest :chptr.3
     (let ((native-string "test string"))
       (uffi:with-foreign-string (fs native-string)
-	(ensure-char-integer
-	 (deref-pointer fs :unsigned-char))))
+        (ensure-char-integer
+         (deref-pointer fs :unsigned-char))))
   116)
 
 (deftest :chptr.4
     (let ((native-string "test string"))
       (uffi:with-foreign-string (fs native-string)
-	(integerp
-	 (ensure-char-integer
-	  (deref-pointer fs :unsigned-char)))))
+        (integerp
+         (ensure-char-integer
+          (deref-pointer fs :unsigned-char)))))
   t)
-	
+
 (deftest :chptr.5
     (let ((fs (uffi:allocate-foreign-object :unsigned-char 128)))
       (setf (uffi:deref-array fs '(:array :unsigned-char) 0)
-	    (uffi:ensure-char-storable #\a))
+            (uffi:ensure-char-storable #\a))
       (setf (uffi:deref-array fs '(:array :unsigned-char) 1)
-	    (uffi:ensure-char-storable (code-char 0)))
+            (uffi:ensure-char-storable (code-char 0)))
       (uffi:convert-from-foreign-string fs))
   "a")
 
@@ -60,11 +58,11 @@
 (deftest :chptr.6
     (uffi:with-foreign-object (fs '(:array :unsigned-char 128))
       (setf (uffi:deref-array fs '(:array :unsigned-char) 0)
-	    (uffi:ensure-char-storable #\a))
+            (uffi:ensure-char-storable #\a))
       (setf (uffi:deref-array fs '(:array :unsigned-char) 1)
-	    (uffi:ensure-char-storable (code-char 0)))
+            (uffi:ensure-char-storable (code-char 0)))
       (uffi:convert-from-foreign-string fs))
   "a")
 
-      
-				  
+
+