+cl-uffi (2.1.2-1) unstable; urgency=low
+
+ * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org> Tue, 20 Dec 2011 20:01:37 -0700
+
cl-uffi (2.1.1-1) unstable; urgency=low
* New upstream
`(new-ptr ,size)
)
-(defmacro foreign-string-length (foreign-string)
- #+allegro `(ff:foreign-strlen ,foreign-string)
+(defun foreign-string-length (foreign-string)
+ #+allegro (ff:foreign-strlen foreign-string)
#-allegro
- `(loop
- for size from 0
- until (char= (deref-array ,foreign-string '(:array :unsigned-char) size) #\Null)
- finally (return size)))
+ (loop
+ for size from 0
+ until (zerop (deref-array foreign-string '(:array :unsigned-char) size))
+ finally (return size)))
(defmacro with-foreign-string ((foreign-string lisp-string &optional encoding)