+cl-uffi (1.4.22-1) unstable; urgency=low
+
+ * OpenMCL fix
+
+ -- Kevin M. Rosenberg <kmr@debian.org> Wed, 23 Jun 2004 12:36:24 -0600
+
cl-uffi (1.4.21-1) unstable; urgency=low
* Fix for WITH-FOREIGN-OBJECT macro on CMUCL
`(if (ccl:%null-ptr-p ,obj)
nil
#+(and mcl (not openmcl)) (ccl:%get-cstring ,obj 0 ,@(if length (list length) nil))
- #+openmcl (let ((str (ccl:%get-cstring ,obj)))
- ,(if length '(subseq str 0 length) 'str)))
+ #+openmcl ,@(if length
+ `((ccl:%str-from-ptr ,obj ,length))
+ `((ccl:%get-cstring ,obj))))
)