uffi/src objects.lisp,1.4,1.5

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

Modified Files:
	objects.lisp 
Log Message:



Index: objects.lisp
===================================================================
RCS file: /pubcvs/uffi/src/objects.lisp,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** objects.lisp	16 Oct 2002 11:56:43 -0000	1.4
--- objects.lisp	14 Nov 2002 22:11:07 -0000	1.5
***************
*** 47,51 ****
  	`(fli:allocate-foreign-object :type ',(convert-from-uffi-type type :allocate))
  	#+allegro
! 	`(ff:allocate-fobject ,(convert-from-uffi-type type :allocate) :c)
  	#+mcl
  	`(new-ptr ,(size-of-foreign-type (convert-from-uffi-type type :allocation)))
--- 47,51 ----
  	`(fli:allocate-foreign-object :type ',(convert-from-uffi-type type :allocate))
  	#+allegro
! 	`(ff:allocate-fobject ',(convert-from-uffi-type type :allocate) :c)
  	#+mcl
  	`(new-ptr ,(size-of-foreign-type (convert-from-uffi-type type :allocation)))