summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
e808a7b)
* src/primitives.lisp, src/strings.lisp: Better support
for sb-unicode [from Yoshinori Tahara and R. Mattes]
+2005-02-22 Kevin Rosenberg (kevin@rosenberg.net)
+ * src/primitives.lisp, src/strings.lisp: Better support
+ for sb-unicode [from Yoshinori Tahara and R. Mattes]
+
2005-01-22 Kevin Rosenberg (kevin@rosenberg.net)
* src/primitives.lisp: Better support SBCL-AMD64
2005-01-22 Kevin Rosenberg (kevin@rosenberg.net)
* src/primitives.lisp: Better support SBCL-AMD64
+cl-uffi (1.4.32-1) unstable; urgency=low
+
+ * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org> Tue, 22 Feb 2005 10:10:03 -0700
+
cl-uffi (1.4.31-1) unstable; urgency=low
* New upstream
cl-uffi (1.4.31-1) unstable; urgency=low
* New upstream
(setq *type-conversion-list*
'((* . *) (:void . sb-alien:void)
(:pointer-void . (* t))
(setq *type-conversion-list*
'((* . *) (:void . sb-alien:void)
(:pointer-void . (* t))
- (:cstring . sb-alien:c-string)
+ #-sb-unicode(:cstring . sb-alien:c-string)
+ #+sb-unicode(:cstring . sb-alien:utf8-string)
(:char . sb-alien:char)
(:unsigned-char . (sb-alien:unsigned 8))
(:byte . (sb-alien:signed 8))
(:char . sb-alien:char)
(:unsigned-char . (sb-alien:unsigned 8))
(:byte . (sb-alien:signed 8))
(declare (optimize (speed 3) (safety 0)))
(cond
(null-terminated-p
(declare (optimize (speed 3) (safety 0)))
(cond
(null-terminated-p
- (let ((casted (sb-alien:cast
- (sb-alien:sap-alien sap (* char)) sb-alien:c-string)))
+ (let ((casted (sb-alien:cast (sb-alien:sap-alien sap (* char))
+ #+sb-unicode sb-alien:utf8-string
+ #-sb-unicode sb-alien:c-string)))
(if length
(copy-seq (subseq casted 0 length))
(copy-seq casted))))
(if length
(copy-seq (subseq casted 0 length))
(copy-seq casted))))