X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=src%2Fmcl%2Fpackage.cl;fp=src%2Fmcl%2Fpackage.cl;h=0000000000000000000000000000000000000000;hb=e59d8c7edc1d6b3d3e1f8351c8d9a58bff19030a;hp=b77e99a1eb24fb3322339f72ef4b2d743a875a97;hpb=93d37518cbd27aa8b7f313bb89b9523d5a40ec88;p=uffi.git diff --git a/src/mcl/package.cl b/src/mcl/package.cl deleted file mode 100644 index b77e99a..0000000 --- a/src/mcl/package.cl +++ /dev/null @@ -1,71 +0,0 @@ -;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*- -;;;; ************************************************************************* -;;;; FILE IDENTIFICATION -;;;; -;;;; Name: package.cl -;;;; Purpose: Defines UFFI package -;;;; Programmer: Kevin M. Rosenberg -;;;; Date Started: Feb 2002 -;;;; -;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg -;;;; -;;;; UFFI users are granted the rights to distribute and use this software -;;;; as governed by the terms of the Lisp Lesser GNU Public License -;;;; (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) - -(defpackage :uffi - (:use :cl) - (:export - - ;; immediate types - #:def-constant - #:def-foreign-type - #:def-type - #:null-char-p - - ;; aggregate types - #:def-enum - #:def-struct - #:get-slot-value - #:get-slot-pointer - #:def-array-pointer - #:deref-array - #:def-union - - ;; objects - #:allocate-foreign-object - #:free-foreign-object - #:with-foreign-object - #:with-foreign-objects - #:pointer-address - #:deref-pointer - #:ensure-char-character - #:ensure-char-integer - #:null-pointer-p - #:make-null-pointer - #:+null-cstring-pointer+ - #:char-array-to-pointer - - ;; string functions - #:convert-from-cstring - #:convert-to-cstring - #:free-cstring - #:with-cstring - #:with-cstrings - #:convert-from-foreign-string - #:convert-to-foreign-string - #:allocate-foreign-string - #:with-foreign-string - - ;; function call - #:def-function - - ;; Libraries - #:load-foreign-library - - ;; Utilities - ))