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