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