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)))
-       (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)