From 30e6dcb79dc5d298d3c9e4f1252d256cc4a08599 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sat, 23 Aug 2003 01:05:53 +0000 Subject: [PATCH] r5544: *** empty log message *** --- debian/control | 2 +- src/objects.lisp | 17 ++++++++--------- 2 files changed, 9 insertions(+), 10 deletions(-) diff --git a/debian/control b/debian/control index fd5778d..fcd930c 100644 --- a/debian/control +++ b/debian/control @@ -4,7 +4,7 @@ Priority: optional Maintainer: Kevin M. Rosenberg Build-Depends-Indep: debhelper (>= 4.0.0) Build-Depends: zlib1g-dev,debhelper (>= 4.0.0) -Standards-Version: 3.6.0 +Standards-Version: 3.6.1.0 Package: cl-uffi Architecture: all diff --git a/src/objects.lisp b/src/objects.lisp index b567c11..62f153e 100644 --- a/src/objects.lisp +++ b/src/objects.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: objects.lisp,v 1.19 2003/08/15 02:34:34 kevin Exp $ +;;;; $Id: objects.lisp,v 1.20 2003/08/23 01:05:53 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -243,14 +243,13 @@ an array of TYPE with size SIZE. The TYPE parameter is evaluated." (ff:fslot-value-typed (quote ,(convert-from-uffi-type type :deref)) :c (ff:get-entry-point ,foreign-name))) #+lispworks - (let ((temp-name (gensym))) - `(progn - (fli:define-foreign-variable (,temp-name ,foreign-name) - :accessor :address-of - :type ,var-type - :module ,module) - (define-symbol-macro ,lisp-name (fli:dereference (,temp-name) - :copy-foreign-object nil)))) + `(progn + (fli:define-foreign-variable (,lisp-name ,foreign-name) + :accessor :address-of + :type ,var-type + :module ,module) + (define-symbol-macro ,lisp-name (fli:dereference (,lisp-name) + :copy-foreign-object nil))) #-(or allegro cmu scl sbcl lispworks) `(define-symbol-macro ,lisp-name '(error "DEF-FOREIGN-VAR not (yet) defined for ~A" -- 2.34.1