projects
/
uffi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r10393: fix sbcl compilation
[uffi.git]
/
src
/
strings.lisp
diff --git
a/src/strings.lisp
b/src/strings.lisp
index a0ca3fc31bdb26ad3e9d099c5caed63c552e0bf1..2e7ff960d794dfd6231e1bba718460b59851528d 100644
(file)
--- a/
src/strings.lisp
+++ b/
src/strings.lisp
@@
-317,8
+317,8
@@
that LW/CMU automatically converts strings from c-calls."
(setq length null-terminated-length))
(setq length null-terminated-length)))
(let ((result (make-string length)))
(setq length null-terminated-length))
(setq length null-terminated-length)))
(let ((result (make-string length)))
- (funcall *system-copy-fn* sap 0 result
*system-copy-offset*
- (* length
*system-copy-multiplier*
))
+ (funcall *system-copy-fn* sap 0 result
+system-copy-offset+
+ (* length
+system-copy-multiplier+
))
result)))
#+(and sbcl sb-unicode)
result)))
#+(and sbcl sb-unicode)