uffi/src aggregates.lisp,1.5,1.6 objects.lisp,1.6,1.7

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

Modified Files:
	aggregates.lisp objects.lisp 
Log Message:



Index: aggregates.lisp
===================================================================
RCS file: /pubcvs/uffi/src/aggregates.lisp,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** aggregates.lisp	23 Nov 2002 19:07:11 -0000	1.5
--- aggregates.lisp	2 Dec 2002 13:21:43 -0000	1.6
***************
*** 164,168 ****
    #+sbcl  `(sb-alien:deref ,obj ,i)
    #+lispworks `(fli:dereference ,obj :index ,i)
!   #+allegro `(ff:fslot-value-typed (quote (convert-from-uffi-type ,type :type)) :c ,obj ,i)
    #+mcl
    (let* ((array-type (array-type type))
--- 164,168 ----
    #+sbcl  `(sb-alien:deref ,obj ,i)
    #+lispworks `(fli:dereference ,obj :index ,i)
!   #+allegro `(ff:fslot-value-typed (quote ,(convert-from-uffi-type type :type)) :c ,obj ,i)
    #+mcl
    (let* ((array-type (array-type type))

Index: objects.lisp
===================================================================
RCS file: /pubcvs/uffi/src/objects.lisp,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** objects.lisp	23 Nov 2002 18:01:57 -0000	1.6
--- objects.lisp	2 Dec 2002 13:21:43 -0000	1.7
***************
*** 109,114 ****
    #+sbcl  `(sb-alien:deref ,ptr)
    #+lispworks `(fli:dereference ,ptr)
!   #+allegro `(ff:fslot-value-typed (convert-from-uffi-type ,type :deref) :c ,ptr)
!   #+mcl `(ccl:pref ,ptr (convert-from-uffi-type ,type :deref))
    )
  
--- 109,114 ----
    #+sbcl  `(sb-alien:deref ,ptr)
    #+lispworks `(fli:dereference ,ptr)
!   #+allegro `(ff:fslot-value-typed (quote ,(convert-from-uffi-type type :deref)) :c ,ptr)
!   #+mcl `(ccl:pref ,ptr ,(convert-from-uffi-type type :deref))
    )