-(defun store-substring (string idx obj)
- "Embed OBJ (string or character) at index IDX of STRING."
- (let* ((str (cond ((stringp obj) obj)
- ((characterp obj) (char-to-string obj))
+(defun store-substring (string idx object)
+ "Embed OBJECT (string or character) at index IDX of STRING."
+ (let* ((str (cond ((stringp object) object)
+ ((characterp object) (char-to-string object))