From e5214c1380546a3bf0f83ceb7612afbd73d0de8b Mon Sep 17 00:00:00 2001 From: espen Date: Tue, 25 Mar 2008 02:00:58 +0000 Subject: [PATCH] Bug fixes --- gffi/basic-types.lisp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/gffi/basic-types.lisp b/gffi/basic-types.lisp index 14cf78a..bbc1657 100644 --- a/gffi/basic-types.lisp +++ b/gffi/basic-types.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: basic-types.lisp,v 1.10 2007-09-07 07:28:42 espen Exp $ +;; $Id: basic-types.lisp,v 1.11 2008-03-25 02:00:58 espen Exp $ (in-package "GFFI") @@ -906,16 +906,16 @@ have been written as temporal.") (define-type-method size-of ((type or) &key (inlined nil inlined-p)) (loop - for subtype in (type-expand-to 'or type) + for subtype in (cdr (type-expand-to 'or type)) maximize (if inlined-p - (size-of subtype inlined) + (size-of subtype :inlined inlined) (size-of subtype)))) (define-type-method type-alignment ((type or) &key (inlined nil inlined-p)) (loop - for subtype in (type-expand-to 'or type) + for subtype in (cdr (type-expand-to 'or type)) maximize (if inlined-p - (type-alignment subtype inlined) + (type-alignment subtype :inlined inlined) (type-alignment subtype)))) (define-type-method alien-arg-wrapper ((type or) var value style form &optional copy-in-p) -- 2.11.0