;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
-;;;; Name: package.cl
+;;;; Name: package.lisp
;;;; Purpose: Defines UFFI package
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
;;;; *************************************************************************
-(declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
-(in-package :cl-user)
+(in-package #:cl-user)
-(defpackage :uffi
- (:use :cl)
+(defpackage #:uffi
+ (:use #:cl)
(:export
;; immediate types
#:deref-pointer
#:ensure-char-character
#:ensure-char-integer
+ #:ensure-char-storable
#:null-pointer-p
#:make-null-pointer
+ #:make-pointer
+ #:pointer-address
#:+null-cstring-pointer+
#:char-array-to-pointer
+ #:with-cast-pointer
+ #:def-foreign-var
;; string functions
#:convert-from-cstring
#:convert-to-foreign-string
#:allocate-foreign-string
#:with-foreign-string
+ #:foreign-string-length
;; function call
#:def-function