Here's a reproducer:

(define o (make-unstructured-octal 0 (make-zero-string "0" #\䤄)))
(test-equal "Writing is reversible (#57573)"
        o (decode-octal (encode-octal octal)))




Reply via email to