;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: strings.cl,v 1.22 2002/09/30 07:51:01 kevin Exp $
+;;;; $Id: strings.cl,v 1.23 2002/09/30 08:50:00 kevin Exp $
;;;;
;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
#+cmu nil
#+allegro 0
#+lispworks (fli:make-pointer :address 0 :type '(:unsigned :char))
- #+mcl (ccl:%nul-ptr)
+ #+mcl (ccl:%null-ptr)
#-(or cmu allegro lispworks mcl) nil
)
,@body)))
#+mcl
`(if (stringp ,lisp-string)
- (ccl:with-cstrs ((,foreign-string ,lisp-string))
+ (ccl:with-cstrs ((,cstring ,lisp-string))
,@body)
- (let ((,foreign-string +null-cstring-pointer+))
+ (let ((,cstring +null-cstring-pointer+))
,@body))
)