;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: strings.lisp,v 1.4 2002/10/16 11:56:43 kevin Exp $
+;;;; $Id: strings.lisp,v 1.5 2002/12/13 22:49:09 kevin Exp $
;;;;
;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
(defmacro convert-to-foreign-string (obj)
#+lispworks
`(if (null ,obj)
- +null-cstring-pointer+
- (fli:convert-to-foreign-string ,obj))
+ +null-cstring-pointer+
+ (fli:convert-to-foreign-string ,obj :external-format '(:latin-1 :eol-style :lf)))
#+allegro
`(if (null ,obj)
0