From f1de6d7be49f73be92691828678aeafe98ddee99 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Mon, 30 Dec 2002 20:49:12 +0000 Subject: [PATCH] r3705: revert changes --- src/objects.lisp | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/src/objects.lisp b/src/objects.lisp index 740b684..0881539 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.9 2002/12/30 20:39:22 kevin Exp $ +;;;; $Id: objects.lisp,v 1.10 2002/12/30 20:49:12 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -44,11 +44,11 @@ an array of TYPE with size SIZE. The TYPE parameter is evaluated." #+sbcl `(sb-alien:make-alien ,(convert-from-uffi-type (eval type) :allocation)) #+lispworks - `(fli:allocate-foreign-object :type ',(convert-from-uffi-type (eval type) :allocate)) + `(fli:allocate-foreign-object :type ',(convert-from-uffi-type type :allocate)) #+allegro - `(ff:allocate-fobject ',(convert-from-uffi-type (eval type) :allocate) :c) + `(ff:allocate-fobject ',(convert-from-uffi-type type :allocate) :c) #+mcl - `(new-ptr ,(size-of-foreign-type (convert-from-uffi-type (eval type) :allocation))) + `(new-ptr ,(size-of-foreign-type (convert-from-uffi-type type :allocation))) ) (progn #+(or cmu scl) @@ -56,11 +56,11 @@ an array of TYPE with size SIZE. The TYPE parameter is evaluated." #+sbcl `(sb-alien:make-alien ,(convert-from-uffi-type (eval type) :allocation) ,size) #+lispworks - `(fli:allocate-foreign-object :type ',(convert-from-uffi-type (eval type) :allocate) :nelems ,size) + `(fli:allocate-foreign-object :type ',(convert-from-uffi-type type :allocate) :nelems ,size) #+allegro - `(ff:allocate-fobject (list :array (quote ,(convert-from-uffi-type (eval type) :allocate)) ,size) :c) + `(ff:allocate-fobject (list :array (quote ,(convert-from-uffi-type type :allocate)) ,size) :c) #+mcl - `(new-ptr (* ,size ,(size-of-foreign-type (convert-from-uffi-type (eval type) :allocation)))) + `(new-ptr (* ,size ,(size-of-foreign-type (convert-from-uffi-type type :allocation)))) ))) (defmacro free-foreign-object (obj) -- 2.34.1