projects
/
uffi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r10396: 2005-04-12 Kevin Rosenberg (kevin@rosenberg.net)
[uffi.git]
/
src
/
strings.lisp
diff --git
a/src/strings.lisp
b/src/strings.lisp
index 2e7ff960d794dfd6231e1bba718460b59851528d..684b0351ca108948b00ea5426a4f16407dc1a30b 100644
(file)
--- a/
src/strings.lisp
+++ b/
src/strings.lisp
@@
-338,8
+338,8
@@
that LW/CMU automatically converts strings from c-calls."
(t
(let ((result (make-string length)))
;; this will not work in sb-unicode
(t
(let ((result (make-string length)))
;; this will not work in sb-unicode
- (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)))))
result)))))