;;;;
;;;; Copyright (c) 2002 Kevin M. Rosenberg
;;;;
-;;;; $Id: strings.cl,v 1.1 2002/03/09 19:55:33 kevin Exp $
+;;;; $Id: strings.cl,v 1.2 2002/03/10 00:11:47 kevin Exp $
;;;;
;;;; This file is part of the UFFI.
;;;;
(defmacro convert-to-c-string (obj)
#+lispworks
`(if (null ,obj)
- +null-c-string-ptr+
+ +null-c-string-pointer+
(fli:convert-to-foreign-string ,obj))
#+allegro
`(if (null ,obj)
(defmacro convert-to-foreign-string (obj)
#+lispworks
`(if (null ,obj)
- +null-c-string-ptr+
+ +null-c-string-pointer+
(fli:convert-to-foreign-string ,obj))
#+allegro
`(if (null ,obj)