uffi/src objects.lisp,1.7,1.8

Update of /pubcvs/uffi/src
In directory boa.b9.com:/tmp/cvs-serv24260/src

Modified Files:
	objects.lisp 
Log Message:



Index: objects.lisp
===================================================================
RCS file: /pubcvs/uffi/src/objects.lisp,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** objects.lisp	2 Dec 2002 13:21:43 -0000	1.7
--- objects.lisp	3 Dec 2002 06:58:39 -0000	1.8
***************
*** 59,63 ****
  	`(fli:allocate-foreign-object :type ',(convert-from-uffi-type type :allocate) :nelems ,size)
  	#+allegro
! 	`(ff:allocate-fobject '(:array ,(convert-from-uffi-type (eval type) :allocate) ,(eval size)) :c)
  	#+mcl
  	`(new-ptr (* ,size ,(size-of-foreign-type (convert-from-uffi-type type :allocation))))
--- 59,63 ----
  	`(fli:allocate-foreign-object :type ',(convert-from-uffi-type type :allocate) :nelems ,size)
  	#+allegro
! 	`(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 type :allocation))))