Thanks for the reply. If I understand correctly, you intend a change like this:
(cl-defmethod dump-language-to-file ((obj else-repository) name to-file)
(let ((language-to-dump (access-language else-Language-Repository name))
(write-marker nil)
(language-output-buffer nil)
(print-circle t)) <-------------------- new line
(save-excursion
(unless (file-directory-p (file-name-directory to-file))
(make-directory (file-name-directory to-file)))
.
.
(mapatoms (lambda (e)
(print (symbol-plist e) write-marker))
(oref language-to-dump placeholders))
(save-buffer)
(kill-buffer))))
I tried this and the read code still throws an error when reading the objects back from the file.