;; Copy string.
(sb-kernel:copy-ub8-to-system-area octets 0 string-sap 0 size)
;; NULL-terminate it
- (setf (sap-ref-32 string-sap size) 0)
+ (sb-kernel:system-area-ub8-fill 0 string-sap size 4)
;; Put the pointer in the vector.
(setf (sap-ref-sap vec-sap vec-index-offset) string-sap)
;; Advance string-sap for the next string.
(t
(incf read-end count)
(funcall copy-fun))))))))
+ #-win32
(push handler *handlers-installed*)))
;;; FIXME: something very like this is done in SB-POSIX to treat