;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: strings.lisp,v 1.5 2002/12/13 22:49:09 kevin Exp $
+;;;; $Id: strings.lisp,v 1.6 2003/03/12 21:13:18 kevin Exp $
;;;;
;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
`(if (null ,obj)
+null-cstring-pointer+
(let ((ptr (new-ptr (1+ (length ,obj)))))
- (ccl:%put-cstring ptr ,obj)
+ (ccl::%put-cstring ptr ,obj)
ptr))
)
`(if (null ,obj)
+null-cstring-pointer+
(let ((ptr (new-ptr (1+ (length ,obj)))))
- (ccl:%put-cstring ptr ,obj)
+ (ccl::%put-cstring ptr ,obj)
ptr))
)