X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Fforeign-var.lisp;fp=tests%2Fforeign-var.lisp;h=e0c323532f96b9f0b970a4ef4d44afb1e2994156;hb=7612015bdcfa851374a4e8c6f3ff68a8dd8b9a9a;hp=08a6e950388dc7d5e6de1539ce3a372f8e01de82;hpb=734a54143635223df0d46ac2fd24fe00ef44f237;p=uffi.git

diff --git a/tests/foreign-var.lisp b/tests/foreign-var.lisp
index 08a6e95..e0c3235 100644
--- a/tests/foreign-var.lisp
+++ b/tests/foreign-var.lisp
@@ -7,14 +7,14 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Aug 2003
 ;;;;
-;;;; $Id: foreign-var.lisp,v 1.1 2003/08/14 21:40:13 kevin Exp $
+;;;; $Id: foreign-var.lisp,v 1.2 2003/08/14 21:58:44 kevin Exp $
 ;;;;
 ;;;; *************************************************************************
 
 (in-package #:uffi-tests)
 
-(def-foreign-var "uchar_13" :char "uffi_tests")
-(def-foreign-var "schar_neg_120" :char "uffi_tests")
+(def-foreign-var "uchar_13" :unsigned-byte "uffi_tests")
+(def-foreign-var "schar_neg_120" :byte "uffi_tests")
 (def-foreign-var "uword_257" :unsigned-short "uffi_tests")
 (def-foreign-var "sword_neg_321" :short "uffi_tests")
 (def-foreign-var "uint_1234567" :int "uffi_tests")