From 0a6a9cf24fddb279ed0157dcc93c1b45f2c3a56c 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 0e52dd8..961f5b5 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