1 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
2 ;;;; *************************************************************************
3 ;;;; FILE IDENTIFICATION
5 ;;;; Name: pointers.lisp
6 ;;;; Purpose: Test file for UFFI pointers
7 ;;;; Programmer: Kevin M. Rosenberg
8 ;;;; Date Started: Aug 2003
12 ;;;; This file, part of UFFI, is Copyright (c) 2003 by Kevin M. Rosenberg
14 ;;;; *************************************************************************
16 (in-package #:uffi-tests)
19 (let ((native-string "test string"))
20 (uffi:with-foreign-string (fs native-string)
22 (ensure-char-character
23 (deref-pointer fs :char)))))
27 (let ((native-string "test string"))
28 (uffi:with-foreign-string (fs native-string)
30 (ensure-char-character
31 (deref-pointer fs :unsigned-char)))))
35 (let ((native-string "test string"))
36 (uffi:with-foreign-string (fs native-string)
38 (deref-pointer fs :byte))))