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