+cl-uffi (1.2.9-1) unstable; urgency=low
+
+ * change ccl:%put-cstring to ccl::%put-cstring for openmcl
+
+ -- Kevin M. Rosenberg <kmr@debian.org> Wed, 12 Mar 2003 14:12:03 -0700
+
cl-uffi (1.2.8-1) unstable; urgency=low
* Change output on compress.lisp example
;;;; 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))
)