- (vector-push-extend (aref thing i) new-octets)))))
- finally (return-from string->latin%
- (progn
- (unless (zerop null-padding)
- (vector-push-extend 0 new-octets))
- (copy-seq new-octets))))))))
+ (vector-push-extend (aref thing i) new-octets))))))
+ (extend error-replacement)
+ (loop for pos of-type index from (1+ error-position) below send
+ do (extend (funcall get-bytes string pos))
+ finally (return-from string->latin%
+ (progn
+ (unless (zerop null-padding)
+ (vector-push-extend 0 new-octets))
+ (copy-seq new-octets)))))))))