X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=src%2Fpackage.lisp;h=54af538ab25ed8c781247cd464b6f0c0b06cee8b;hb=7177cf1ffcd71227b04934ae09188dd708ae3bb9;hp=dbd851bbf11653404c1bd8ff4084cf528c221a45;hpb=c6c305a69913c148753813cc057be7127017ae6a;p=uffi.git

diff --git a/src/package.lisp b/src/package.lisp
index dbd851b..54af538 100644
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -2,7 +2,7 @@
 ;;;; *************************************************************************
 ;;;; FILE IDENTIFICATION
 ;;;;
-;;;; Name:          package.cl
+;;;; Name:          package.lisp
 ;;;; Purpose:       Defines UFFI package
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
@@ -14,11 +14,10 @@
 ;;;; (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
@@ -50,6 +49,8 @@
    #:make-null-pointer
    #:+null-cstring-pointer+
    #:char-array-to-pointer
+   #:with-cast-pointer
+   #:def-foreign-var
    
    ;; string functions
    #:convert-from-cstring
@@ -73,3 +74,5 @@
    ;; OS
    #:run-shell-command
    ))
+
+