uffi/src primitives.lisp,1.6,1.7 strings.lisp,1.4,1.5

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

Modified Files:
	primitives.lisp strings.lisp 
Log Message:
external format fixes


Index: primitives.lisp
===================================================================
RCS file: /pubcvs/uffi/src/primitives.lisp,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** primitives.lisp	23 Nov 2002 18:01:57 -0000	1.6
--- primitives.lisp	13 Dec 2002 22:49:09 -0000	1.7
***************
*** 180,186 ****
        (:short . :short)
        (:pointer-void . (:pointer :void))
!       (:cstring . (:reference-pass (:ef-mb-string :external-format :latin-1)
! 				   :allow-null t))
!       (:cstring-returning . (:reference (:ef-mb-string :external-format :latin-1) :allow-null t))
        (:byte . :byte)
        (:unsigned-byte . (:unsigned :byte))
--- 180,189 ----
        (:short . :short)
        (:pointer-void . (:pointer :void))
!       (:cstring . (:reference-pass (:ef-mb-string :external-format
! 						  (:latin-1 :eol-style :lf)
! 						  :allow-null t))
!       (:cstring-returning . (:reference (:ef-mb-string :external-format
! 						       (:latin-1 :eol-style :lf)
! 						       :allow-null t))
        (:byte . :byte)
        (:unsigned-byte . (:unsigned :byte))

Index: strings.lisp
===================================================================
RCS file: /pubcvs/uffi/src/strings.lisp,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** strings.lisp	16 Oct 2002 11:56:43 -0000	1.4
--- strings.lisp	13 Dec 2002 22:49:09 -0000	1.5
***************
*** 98,103 ****
    #+lispworks
    `(if (null ,obj)
!        +null-cstring-pointer+
!     (fli:convert-to-foreign-string ,obj))
    #+allegro
    `(if (null ,obj)
--- 98,103 ----
    #+lispworks
    `(if (null ,obj)
!     +null-cstring-pointer+
!     (fli:convert-to-foreign-string ,obj :external-format '(:latin-1 :eol-style :lf)))
    #+allegro
    `(if (null ,obj)