From 2fd1bb84e6354d528b6907ec14c81c979526404f Mon Sep 17 00:00:00 2001 Message-Id: <2fd1bb84e6354d528b6907ec14c81c979526404f.1714112891.git.mdw@distorted.org.uk> From: Mark Wooding Date: Wed, 10 Dec 2008 02:39:17 +0000 Subject: [PATCH] Exporting TYPE-EQUAL-P Organization: Straylight/Edgeware From: espen --- gffi/defpackage.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/gffi/defpackage.lisp b/gffi/defpackage.lisp index 4fdde99..1560ea1 100644 --- a/gffi/defpackage.lisp +++ b/gffi/defpackage.lisp @@ -20,7 +20,7 @@ ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -;; $Id: defpackage.lisp,v 1.15 2008-11-06 17:26:53 espen Exp $ +;; $Id: defpackage.lisp,v 1.16 2008-12-10 02:39:17 espen Exp $ (defpackage "GFFI" (:use "COMMON-LISP" "AUTOEXPORT" "PKG-CONFIG" "CLG-UTILS") @@ -58,7 +58,7 @@ (defpackage "GFFI" "DEFINE-CALLBACK" "CALLBACK" "CALLBACK-ADDRESS" "DEFINE-TYPE-GENERIC" "DEFINE-TYPE-METHOD" "IN-ARG-P" "OUT-ARG-P" "DEFAULT-ALIEN-TYPE-NAME" "DEFAULT-TYPE-NAME" "TYPE-EXPAND" - "TYPE-EXPAND-1" "TYPE-EXPAND-TO") + "TYPE-EXPAND-1" "TYPE-EXPAND-TO" "TYPE-EQUAL-P") ;; Symbols from basic-types.lisp (:export "LONG" "UNSIGNED-LONG" "INT" "UNSIGNED-INT" "SHORT" "UNSIGNED-SHORT" "SIGNED" "UNSIGNED" "CHAR" "POINTER" "BOOL" "COPY-OF" "STATIC" -- [mdw]