;;;; *************************************************************************
;;;; 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
#:make-null-pointer
#:+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
#:find-foreign-library
#:load-foreign-library
#:default-foreign-library-type
+
+ ;; OS
+ #:run-shell-command
))
+
+