uffi/src objects.lisp,1.5,1.6 primitives.lisp,1.5,1.6

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

Modified Files:
	objects.lisp primitives.lisp 
Log Message:
some bug fixes


Index: objects.lisp
===================================================================
RCS file: /pubcvs/uffi/src/objects.lisp,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** objects.lisp	14 Nov 2002 22:11:07 -0000	1.5
--- objects.lisp	23 Nov 2002 18:01:57 -0000	1.6
***************
*** 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 (convert-from-uffi-type ,type :deref) :c ,ptr)
!   #+mcl `(ccl:pref ,ptr (convert-from-uffi-type ,type :deref))
    )
  

Index: primitives.lisp
===================================================================
RCS file: /pubcvs/uffi/src/primitives.lisp,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** primitives.lisp	16 Oct 2002 11:56:43 -0000	1.5
--- primitives.lisp	23 Nov 2002 18:01:57 -0000	1.6
***************
*** 167,171 ****
        (:cstring . (* :unsigned-char))
        (:byte . :char)
!       (:unsigned-byte . :unsigned-byte)
        (:char . :char)
        (:unsigned-char . :unsigned-char)
--- 167,171 ----
        (:cstring . (* :unsigned-char))
        (:byte . :char)
!       (:unsigned-byte . :unsigned-char)
        (:char . :char)
        (:unsigned-char . :unsigned-char)