X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=src%2Fstrings.lisp;h=684b0351ca108948b00ea5426a4f16407dc1a30b;hb=045b87e7fdcf1c5562fe170d96622e0a09759f64;hp=a0ca3fc31bdb26ad3e9d099c5caed63c552e0bf1;hpb=3f02f80ce6909ada82d9791172821756f967a844;p=uffi.git

diff --git a/src/strings.lisp b/src/strings.lisp
index a0ca3fc..684b035 100644
--- 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)
@@ -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
-       (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)))))