uffi/src objects.lisp,1.8,1.9

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

Modified Files:
	objects.lisp 
Log Message:



Index: objects.lisp
===================================================================
RCS file: /pubcvs/uffi/src/objects.lisp,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** objects.lisp	3 Dec 2002 06:58:39 -0000	1.8
--- objects.lisp	30 Dec 2002 20:39:22 -0000	1.9
***************
*** 45,53 ****
  	`(sb-alien:make-alien ,(convert-from-uffi-type (eval type) :allocation))
  	#+lispworks
! 	`(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)))
  	)
        (progn
--- 45,53 ----
  	`(sb-alien:make-alien ,(convert-from-uffi-type (eval type) :allocation))
  	#+lispworks
! 	`(fli:allocate-foreign-object :type ',(convert-from-uffi-type (eval type) :allocate))
  	#+allegro
! 	`(ff:allocate-fobject ',(convert-from-uffi-type (eval type) :allocate) :c)
  	#+mcl
! 	`(new-ptr ,(size-of-foreign-type (convert-from-uffi-type (eval type) :allocation)))
  	)
        (progn
***************
*** 57,65 ****
  	`(sb-alien:make-alien ,(convert-from-uffi-type (eval type) :allocation) ,size)
  	#+lispworks
! 	`(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))))
  	)))
  
--- 57,65 ----
  	`(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)
  	#+allegro
! 	`(ff:allocate-fobject (list :array (quote ,(convert-from-uffi-type (eval type) :allocate)) ,size) :c)
  	#+mcl
! 	`(new-ptr (* ,size ,(size-of-foreign-type (convert-from-uffi-type (eval type) :allocation))))
  	)))